Chas. Owens wrote:
> On Sat, Apr 19, 2008 at 1:57 PM, Rob Dixon <rob.dixon@[EMAIL PROTECTED]
> wrote:
>> Chas. Owens wrote:
>> > On Sat, Apr 19, 2008 at 1:03 PM, Rob Dixon <rob.dixon@[EMAIL PROTECTED]
>
wrote:
>> > snip
>> >> foreach my $i (1 .. 9999) {
>> >> my $zfill = substr("0000$i", -4);
>> >> my $longer = "dbt${zfill}dsfg";
>> >> print $longer, "\n";
>> >> }
>> >>
>> >> Rob
>> > snip
>> >
>> > TIMTOWTDI fight!
>> >
>> > for my $i (1 .. 9999) {
>> > my $longer = "0" x (4 - length $i) . $i;
>> > print "$longer\n";
>> > }
>>
>> You're on!
>>
>>
>> foreach my $i (1 .. 9999) {
>> (my $longer = $i + 10000) =~ s/1(....)$/dbt$1dsfg/;
>> print $longer, "\n";
>> }
>>
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> for my $i (1, 10, 100, 1000) {
> chop(my $longer = reverse(10000 + $i));
> print scalar reverse($longer), "\n";
> }
You've changed the problem! If we're allowed to solve that one instead,
then I submit
my $longer = reverse '0000' | reverse "$i";
Rob
|
