Re^2: Regex in a printfile?

Replies are listed 'Best First'.
Re^3: Regex in a printfile? by ikegami (Patriarch) on Nov 16, 2006 at 02:13 UTC
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.	[reply] [d/l] [select]
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]