Re^3: Regex in a printfile?

huh, there's already a solution that doesn't use any modules in this thread.

But apply can be implemented using map pretty easily.

print OUTFILE map  { my $s = $_; $s =~ s/\s*#.*/; $s }
              grep { !/^\s*#/ }
              <INFILE>;
[download]

You could even merge the map with the grep, but then it looks like spagetti.

Comment on Re^3: Regex in a printfile? Select or Download Code

Replies are listed 'Best First'.
Re^4: Regex in a printfile? by Andrew_Levenson (Hermit) on Nov 16, 2006 at 02:57 UTC
Hey, I understand that! Well, all except the final $s in map. What does that do? Thanks.	[reply]
Re^5: Regex in a printfile? by ikegami (Patriarch) on Nov 16, 2006 at 03:19 UTC
It's like `return $s` (but you can't use `return` that way in `map`). `map` create a list from the return value(s) of the expression in the curlies.	[reply] [d/l] [select]