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
Attachment:
pgpr5tV4xG88c.pgp
Description: PGP signature