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"; }'
----------
- Jim | [reply]
[d/l] |
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] |