on Mon, Jul 02, 2001 at 09:18:33AM -0700, David Freeman scribbled:
Perl is a write only language. I looked into it and it made no sense what so ever.
really.. http://www.perlmonks.org/index.pl?node=Perl%20Poetry
almost everything perl does can be done with sed and awk.
(/-l\s*([^-]+)/) && do { my $orig_chain = $2; my $chain = join(',', map {$_ if (!/^$/);} split(/ /, $2));
$chain =~ s/(?<![^,])0(?![^,])/*/g; s/$orig_chain/$chain /g; };
is quite hard to do with sed/awk (afaics)..