On Dec 12, Jonathan E. Paton said:
>(my $sql = << '--') =~ s/\A(\s+)(?{$::c = $^N})|^(??{$::c})//gm;
>
>all over SQL related source code then your head is on the block!
While it's cool, and I'D use it, for readability purposes, might I
suggest:
$sql =~ /(\s*)/ and $sql =~ s/^$1//mg;
--
Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/
<stu> what does y/// stand for? <tenderpuss> why, yansliterate of course.
[ I'm looking for programming work. If you like my work, let me know. ]
