[sf-perl] double filter (but short)
Randal L. Schwartz
merlyn at stonehenge.com
Tue Jul 1 09:08:25 PDT 2008
>>>>> "Michael" == Michael Friedman <friedman at highwire.stanford.edu> writes:
Michael> I haven't tried this, but something like:
Michael> print reverse( map {s/^\([^:]*\):/_$1_:/} <> );
That's going to print the result of the s///, which will be a success/fail
boolean. I also consider it bad form to modify $_ within the map block,
because sometimes it fails (read only), and is at least misleading.
I'd go with something like this:
print reverse map { /(.*):(.*)/ or die; "_$1_:$2\n" } <>;
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn at stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion
More information about the SanFrancisco-pm
mailing list