in reply to Re: RE question...yup, another one ;)
in thread RE question...yup, another one ;)

Wow, that was fast. I was actually about to say that I figured it out. But now, I notice my solution is a bit different from yours nardo. Which is better?

perl -e 'for ( $dec = 0 ; $dec <= 300 ; $dec++ ) { ($one = $dec)  =~ s
+/(\d)+(\d)/$2/;print "$dec -> $one\n"; }'

[download]

----------
- Jim

Replies are listed 'Best First'.
Re: Re: Re: RE question...yup, another one ;)
by nardo (Friar) on May 26, 2001 at 23:38 UTC
    Which is better I suppose depends on personal style. Personally, I think that
    perl -e 'for (0..300) {print "$_ -> ", chop, "\n"; }'
    is best, but the best approach using a regex is, in my opinion,
    perl -e 'for (0..300) {/(\d)$/ && print "$_ -> $1\n"; }'
    I think it's better style to use parenthesis inside a regex to match data and put it in $1 than it is to assign the whole thing to a new variable and then remove everything except what you want.
[reply]
[d/l]
[select]
      Yeah. It was faster than mine too, noticeably...

      ----------
      - Jim

[reply]

In Section Seekers of Perl Wisdom