Youichi Mano wrote: > > perl -nle 'my @cols = split /\t/; print if $cols[2] eq "111"' > > Oh, you are one liner. > This sentence is a little long but I am used to perl so > it is relatively easy.
perl -ne 'print if (split)[2]==111'
awk does beat shortest possible perl here though.
--
#!/usr/bin/perl -ie_one_down_pass_it_around,-:_bottles_of_beer:_on_the_wall:99
for(($t,$a,$b,$i)=split/:/,$^I;$i;print){$_="-$i$a$b,-$i$a,-Tak$t".--$i."$a$b
";s/(-1_.*?e)s/$1/g;y/_-/ \n/} Joey Hess, JAPH
pgp00000.pgp
Description: PGP signature
