> > I would think you are always getting 'one', right?
> >
> > That's because:
> >
> > my ($num) = @_;
> >
> > puts the length of @_ in $num.
Sorry, I'm being an idiot. You were doing the right thing.
> $ more number
> 3
> 5
> $test10.pl < number
> ``rd
> bard
Hmm.
> print "card of $_ is:" &card($_), "\n";
Ah, this looks suspect. No operator between
the first string and the sub call.
This is your problem. Play with this and let us know
what's going on:
perl -e 'sub f { "foo" }; print "bar" &f'
Gotta run...