Mostrando entradas con la etiqueta perl awk. Mostrar todas las entradas
Mostrando entradas con la etiqueta perl awk. Mostrar todas las entradas

miércoles, 5 de agosto de 2009

Generating lines from one line

If you want to generate lines from one line according to a field

You can do in perl with:


$ echo "1,a/b/c/d" | \
perl -F, -l0ane 'print "$F[0],$_\n" foreach(split("/",$F[1]))'
$


Or if you want to write less do:


$ echo "1,a/b/c/d" | awk -F, '{split($2,z,"/");for(i in z)print$1","z[i]}'