3 ms·
> awk '{print $2, $3}' perl -lane 'print "$F[1] $F[2]"' > awk '$4>3 { x+=$3; print $2, $3, x}' perl -lane '$F[3] > 3 && {$x += $F[2], print "$F[1] $F
by sampo 8y ago
> awk '{print $2, $3}'
perl -lane 'print "$F[1] $F[2]"'
> awk '$4>3 { x+=$3; print $2, $3, x}'
perl -lane '$F[3] > 3 && {$x += $F[2], print "$F[1] $F[2] $x"}'
Don't know about perl6, though.
Edit: Better syntax per comments.
- kjeetgill 8y agoI like the awk better here but I'm sure there's loads more stuff perl could let me do that I can't here. Want to throw a few examples my way? Disclaimer: never learned perl
- acqq 8y agoAdd the "w" (for "warn") make it "-wlane" and read: Scalar value @F[0] better written as $F[0] at -e line 1. Scalar value @F[1] better written as $F[1] at -e line 1. In Perl 5 the array elements of @a are $a[0] $a[1] etc. However @F[0] works too because a "slice" is returned.
- lysium 8y agoShouldn’t that be $F[1] etc.?