Beefy Boxes and Bandwidth Generously Provided by pair Networks Joe
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: New student, can we write this program in perl...

by clueless newbie (Friar)
on Oct 19, 2012 at 18:17 UTC ( #1000006=note: print w/ replies, xml ) Need Help??


in reply to New student, can we write this program in perl...

Depending on how you interpret "two different arrays" the following might be acceptable,

#!/usr/bin/perl use strict; use warnings; my $number; # use grep to accept only the integers push(@{$number->[$_ % 2]},$_) for (grep { m{^-?\d+$} } @ARGV); # Using $" to insert ", " local $"=', '; print "The even numbers are @{$number->[0]}\n"; print "while the odd numbers are @{$number->[1]}.\n";
> perl EvenOdd.pl 1 2 -nogo 3.4 3 4 5 -4 The even numbers are 2, 4, -4 while the odd numbers are 1, 3, 5.


Comment on Re: New student, can we write this program in perl...
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (5)
As of 2014-04-19 02:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (475 votes), past polls