Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re^4: how to pull in all params that are numbered

by imp (Priest)
on Jun 18, 2007 at 18:46 UTC ( [id://621855]=note: print w/replies, xml ) Need Help??


in reply to Re^3: how to pull in all params that are numbered
in thread how to pull in all params that are numbered

The problem is that while does not iterate over a list, it simply checks for a true value. For example, while (1){} will run forever, whereas for (1){} will run once.

The same behaviour occurs when test being evaluated is param(). Additionally, while (param()){} will not modify $_. Perhaps you tested the script without any arguments, in which case it would have behaved as expected.

Here is a simple test:

#!/usr/bin/perl use strict; use warnings; use CGI qw(param); my $runs =0; my @num; print "Content-type: text/plain\n\n"; while(param()) { printf "run %d\n", $runs++; if ($runs > 10) { print "Ran over 10 times\n"; exit; } }
You can verify it by adding the parameters on the commandline, e.g.
perl foo.pl a=b

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others lurking in the Monastery: (4)
As of 2024-03-29 09:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found