Re: Y2K Again ??
Uri Guttman <[email protected]>
| Newsgroups | gmane.comp.lang.perl.fun |
|---|---|
| Message-ID | <[email protected]> |
>>>>> "JG" == Josh Goldberg <[email protected]> writes: JG> $Yr = ($FieldA =~ /^(\d{2}).*/ and $1 > 20 ? 19 : 20).$1; ^^ since you are just grabbing the number you don't need the useless .*. and i posted the same thing earlier but you factored out the $1. but adding the () and . makes it look like about a wash golfwise but top posting and full quoting should add penalty strokes :) uri -- Uri Guttman ------ [email protected] -------- http://www.stemsystems.com --Perl Consulting, Stem Development, Systems Architecture, Design and Coding- Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org