On Thu 06 Dec, [EMAIL PROTECTED] wrote: > > Piers and Karsten both found shorter multi-line solutions: > Piers: > "Grr... that one line rule is *so* silly:" > #!/usr/bin/perl -p0 > $_=$1while/ > (.+)^/ms > > Karsten: > #!/usr/bin/perl -p0 > $_=$1while/ > (.* > )./s >
Both of these are really 25 chars (counting the \n's within the program as one char unlike tsanta.pl) so are not really shorter. Going multiline does make hole 5 actually shorter: printf"%010d ",$.,<> Richard -- Personal Work - Waveney Consulting Mail: [EMAIL PROTECTED] [EMAIL PROTECTED] Web: http://www.waveney.org http://www.WaveneyConsulting.com Independent Telecommunications Consultant, ATM expert, Web Analyst
