in reply to array help
Here is a nice little one-liner I hack up just for kicks.
Happy Hacking GNU/HDEperl -e '@nums=(1..100); $user=<>; print "original\n"; foreach ((0+@nu +ms)) { print "@nums";} print "\n\n"; print "scaled: "; foreach my $nu +m (@nums) { print $user*$num . " ";}print "\n";'
|
---|
In Section
Seekers of Perl Wisdom