¿Cómo escribo texto en columnas alineadas en Perl?

Question

Estoy tratando de escribir en un archivo de Perl. Solo quiero escribir los datos en formato delimitado por tabuladores. Sin embargo, los datos que estoy escribiendo tienen longitudes variables y no están alineados.

Por ejemplo, yo estoy tratando de escribir algo como esto:

Name Education Fav_Car MoneyInBank 
josh High School Porche 500 
SomeOtherName PHD Hyundai 50000 

sólo quiero que los datos sean alineados con los encabezados que tengo en la parte superior.

Estoy emitir los datos de este modo:

printf FILE ("%s%20s%20s\n", "Name", "Ed", "Car"); 
while (($name, $ed, $car) = $sth->fetchrow_array) { 
     printf FILE ("%s>>>>>>>>>>>>>%40s%40s\n", $name, $ed, $car); 
}; 

Answer 1

datos delimitados por tabuladores (donde los campos no son consistentes en longitud) no se alinea cuando se abre en un editor de texto.

Soluciones:

• abrir el archivo en una hoja de cálculo.
• Ábrala en un procesador de textos, seleccione todo el texto y defina las tabulaciones adecuadas. (gracias, Justsalt)
• En su editor de texto, establezca el ancho de su pestaña en un valor mayor que cualquiera de sus campos.
• Utilice espacios en lugar de pestañas (por ejemplo, printf con anchuras de campo, o formats).

Por ejemplo, es posible utilizar

printf("%-15s %-15s %-10s %9s\n", $name, $edu, $car, $cash); 

El - después de la % hace que el campo para ser justificado a la izquierda. Los números (como el dinero) generalmente están justificados a la derecha (que es el valor predeterminado).

Answer 2

Eche un vistazo al comando Perl format.

Answer 3

El printf hace esto, como en C durante 20 campos de caracteres:

printf("%20s%20s%20s$20S\n",$name,$ed,$car,$money); 

Answer 4

Tenga una mirada en Perl6::Form módulo CPAN.

Esta pregunta/respuesta anterior What Other Languages Have Features And Or Libraries Similar To Perls Format en stackoverflow puede ayudar.

Answer 5

Además de printf forma de C se puede ajustar la anchura dinámicamente con "*",

printf FILE ("%*s%*s%*s\n", 20, "Name", length($blah), "Ed", 20, "Car"); 

Answer 6

Si está trabajando en Linux, una solución fácil sería utilizar column comando del sistema, con el - t bandera. simplemente imprima la tabla separada por espacios en un archivo, y simplemente use el comando de columna en ese archivo.

system("column -t file > new_file");