Re: String processing

You can save some more (and still use printf):

perl -lane '$F[3] =~ ($F[1] =~ s/./($&)?/gr)
&& printf "%-60s%s\n", $_, join ",", @+[eval "$F[5]"]'
[download]

OP, I THINK we're trying to say that your code is difficult to read. I THINK there is a bug in your code, but I'm not sure. Write a real script, and you'll get better answers...

Comment on Re: String processing Download Code

Replies are listed 'Best First'.
Re^2: String processing by Anonymous Monk on Jul 31, 2014 at 16:25 UTC
Forgot the skipping comments part! :) `perl -lane '/^#/ \|\| $F[3]=~($F[1]=~s/./($&)?/gr) && printf "%-50s%s\n", $_, join ", ", @+[eval $F[5]]'` [download]	[reply] [d/l]