Re: String processing

Solved with a long-liner:

perl -aple '$" = ","; my $rx = join "", map qq((\Q$_\E)?), split //, $
+F[1]; chomp; $_ .= "  @{[map $_+1, @-[split /,/, $F[5]]]}" if $F[3] =
+~ $rx;'
[download]

Comment on Re: String processing Download Code

Replies are listed 'Best First'.
Re^2: String processing by Anonymous Monk on Jul 31, 2014 at 12:38 UTC
Ahem, using `@+` saves some strokes: `perl -aple '$" = ","; my $rx = join "", map qq((\Q$_\E)?), split //, $ +F[1]; chomp; $_ .= " @{[@+[split /,/, $F[5]]]}" if $F[3] =~ $rx;'` [download]	[reply] [d/l] [select]