Este comando es por si necesitáis concatenar líneas de un fichero con Perl. Se puede hacer con sed o awk pero este método es sencillo y funciona muy bien:
|
1 |
perl -pe 'chomp;$i++;unless($i%2){$_.="\n"};' <fichero> |
En este caso concatena cada dos líneas del fichero, podemos cambiar ese parámetro donde ($i%2), simplemente especificar otro número y lo utilizará para la concatenación, veamos un ejemplo: ejem.txt:
|
1 2 3 4 5 |
1 2 3 4 5 |
Vamos a concatenar cada dos líneas:
|
1 2 3 4 |
$ perl -pe 'chomp;$i++;unless($i%2){$_.="\n"};' ejem.txt 1 2 3 4 5 |
Y si cambiamos el parámetro a 3:
|
1 2 3 |
$ perl -pe 'chomp;$i++;unless($i%3){$_.="\n"};' ejem.txt 1 2 3 4 5 |
Si revisáis bien el comando veréis que también podéis modificar el comportamiento para que en lugar de un salto de línea ({$_.=”\n”}) utilice otro delimitador, como tabulación por ejemplo ({$_.=”\t”}:
|
1 2 |
$ perl -pe 'chomp;$i++;unless($i%3){$_.="\t"};' ejem.txt 1 2 3 4 5 |