I'll try once more..

[Ed Mills]

Having just coded some more perl resplendent with this syntax:

  $in{pmonth}=$usr{paidon};
  $in{pmonth}=~s/^.+([A-Za-z]{3,3}).+$/$1/;

once again I'll suggest (then I quit)

$in{pmonth}=~s/^.+([A-Za-z]{3,3}).+$/$1/,$in{paidon};


is a LOT nicer, and more Perlish (see split) way of doing this. I'm tired of 
using two expressions for what should clearly be one.


Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com

Re: I'll try once more..

[Nathan Wiger]

Ed Mills wrote:
 
 Having just coded some more perl resplendent with this syntax:
 
   $in{pmonth}=$usr{paidon};
   $in{pmonth}=~s/^.+([A-Za-z]{3,3}).+$/$1/;
 
 once again I'll suggest (then I quit)
 
 $in{pmonth}=~s/^.+([A-Za-z]{3,3}).+$/$1/,$in{paidon};
 
 is a LOT nicer, and more Perlish (see split) way of doing this. I'm tired of
 using two expressions for what should clearly be one.

 ($in{pmonth} = $usr{paidon}) =~ s/^.+([A-Za-z]{3,3}).+$/$1/;

Works in Perl 5. Maybe someone mentioned this already, maybe not.

-Nate

Re: I'll try once more..

[Peter Scott]

At 11:55 PM 8/25/00 +, Ed Mills wrote:
Having just coded some more perl resplendent with this syntax:

  $in{pmonth}=$usr{paidon};
  $in{pmonth}=~s/^.+([A-Za-z]{3,3}).+$/$1/;

once again I'll suggest (then I quit)

$in{pmonth}=~s/^.+([A-Za-z]{3,3}).+$/$1/,$in{paidon};


is a LOT nicer, and more Perlish (see split) way of doing this. I'm tired 
of using two expressions for what should clearly be one.

What's wrong with doing it en passant:

($in{pmonth}=$usr{paidon}) =~s/^.+([A-Za-z]{3,3}).+$/$1/;

I do that all the time.  Makes the copying easier to spot since it's up 
front and you don't have to scan to the end to discover it.
--
Peter Scott
Pacific Systems Design Technologies