Re^3: sed awk to perl help

the -F specifies the split pattern, so instead of also splitting by ' ', just change the -F argument to -F"[:;\s]"

__________________________________________________________________________________

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

Comment on Re^3: sed awk to perl help Download Code

Replies are listed 'Best First'.
Re^4: sed awk to perl help by dcd (Scribe) on Apr 18, 2007 at 01:50 UTC
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>	[reply]
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]