Re: HELP WITH AWK2PERL SCRIPT

2001-06-26 Thread Randal L. Schwartz
> "Randal" == Randal L Schwartz <[EMAIL PROTECTED]> writes: Randal> while (<>) { Randal> @f = split ' ', $_; Randal> next unless $f[2] < 0.8 and $f[3] =~ /\./; Randal> print; Randal> } Argh. Forgot about the $[ = 1 in the translation. Replace 2 with 1 and 3 with 2

Re: HELP WITH AWK2PERL SCRIPT

2001-06-26 Thread Jeff 'japhy' Pinyan
On Jun 26, Pedro A Reche Gallardo said: >eval 'exec /usr/sbin/perl -S $0 ${1+"$@"}' >if $running_under_some_shell; > # this emulates #! processing on NIH machines. > # (remove #! line above if indigestible) That is just for OSs that can't handle #! lines. >eval '$'.$1.'$2;' while $ARGV[

Re: HELP WITH AWK2PERL SCRIPT

2001-06-26 Thread Randal L. Schwartz
> "Pedro" == Pedro A Reche Gallardo <[EMAIL PROTECTED]> writes: Pedro> Hi all, I have a file that it looks as it follows Pedro> 1 0.057 M M - M Pedro> 2 0.819 R R - R Pedro> 3 0.731 V V - V Pedro> 4 1.708 K

HELP WITH AWK2PERL SCRIPT

2001-06-26 Thread Pedro A Reche Gallardo
Hi all, I have a file that it looks as it follows 1 0.057 M M - M 2 0.819 R R - R 3 0.731 V V - V 4 1.708 K R - c 5 1.070 G G - t 6 1.611 I M -