Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Re: First program revisited

by kabel (Chaplain)
on Nov 28, 2002 at 22:46 UTC ( #216390=note: print w/ replies, xml ) Need Help??

in reply to First program revisited

too tired to answer directly to the code, but for the last two questions see this code:

use strict; use warnings; my @numbers = 4 .. 6; my $number_of_trailing_zeros = 3; my $commify_at = 3; @numbers = map { $_ .= "0" x $number_of_trailing_zeros; $_ =~ s/(\d{$commify_at})$/,$1/; $_; } @numbers; print "@numbers";
btw is there a special reason why some write use warnings before use strict?

anyway, HTH ;)

Comment on Re: First program revisited
Download Code
Replies are listed 'Best First'.
Re: Re: First program revisited
by mooseboy (Pilgrim) on Nov 29, 2002 at 08:04 UTC

    Thanks to all for the help. Never really thought about the order of the pragmas, maybe it's the subconscious mind attempting to imitate the order of:

    #!/usr/bin/perl -w use strict;

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://216390]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (12)
As of 2015-08-28 17:35 GMT
Find Nodes?
    Voting Booth?

    The oldest computer book still on my shelves (or on my digital media) is ...

    Results (338 votes), past polls