Re^4: sed awk to perl help

but splitting on spaces too early will change the results from the initial results, plus you won't get the special awk behaviour that you get when you split on <code>' '<\code>

Comment on Re^4: sed awk to perl help

Replies are listed 'Best First'.
Re^5: sed awk to perl help by Moron (Curate) on Apr 18, 2007 at 11:37 UTC
ok I see what you are doing. I'd have used a regexp without split as many others are suggesting, e.g.: `perl -F"[:;]" -lane ' print "<a href=mysite.net/$_ >$_</a>" for map { /^\s(\S+)/; $_ = $1 } @F; '` [download] 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). __________________________________________________________________________________ ^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.	[reply] [d/l]

Replies are listed 'Best First'.

Re^5: sed awk to perl help
by Moron (Curate) on Apr 18, 2007 at 11:37 UTC

perl -F"[:;]" -lane '
    print "<a href=mysite.net/$_ >$_</a>"
      for map { /^\s*(\S+)/; $_ = $1 } @F;
'
[download]

__________________________________________________________________________________

^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.

[reply]
[d/l]