Because in the awk you only wanted $1 so don't need to run the regexp more than once per line (line after the -F implied split that is).perl -F"[:;]" -lane ' print "<a href=mysite.net/$_ >$_</a>" for map { /^\s*(\S+)/; $_ = $1 } @F; '
^M Free your mind!
Key to hats: ^I=white ^B=black ^P=yellow ^E=red ^C=green ^M=blue - see Moron's scratchpad for fuller explanation.
In reply to Re^5: sed awk to perl help
by Moron
in thread sed awk to perl help
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |