Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re: Help with a loop

by space_monk (Chaplain)
on Jun 14, 2013 at 21:22 UTC ( #1039038=note: print w/ replies, xml ) Need Help??


in reply to Help with a loop

You are not initialising the arrays correctly

my @jobvar_list=qw/senior exec/; my @jobname_list=( " Senior", " Executive" ); my $n = @jobname_list; # length
They might be better as a hash anyway...the following code shows roughly how as well as some other changes...
my %jobs = ( 'senior' => ' Senior', 'exec' => ' Executive' ); my $quick_build='listing'; my $quick_jobtype='exec'; print "job types...<br>\n"; foreach my $key (keys %jobs) { print "$key, $quick_jobtype...<br>\n"; my $jobvar = $key; my $jobname = $jobs{$key}; if (($quick_jobtype && ($quick_jobtype eq $jobvar)) || (!$quick_jo +btype)) { $groupfile = $jobvar; $grouptitle = $jobname; # heredocs are quite good for SQL... $sortby = <<EOF; WHERE jobtype LIKE '%$jobvar%' AND active='yes' AND jobstatus!='suspen +d' ORDER BY dateadded DESC, jobtitle ASC EOF print "$sortby"; print "starting build lists<br>\n"; my $building_cat = "yes"; # I don't know what this function does # but pass parameters to it, don't use global variables. # e.g. Build_Lists_Both( $sortby, $building_cat, $groupfile ) +; } # end if ($cat1 eq $cat_db_var) } } # end for ($st=1; $st<=$jobvar_list; $st++)
If you spot any bugs in my solutions, it's because I've deliberately left them in as an exercise for the reader! :-)


Comment on Re: Help with a loop
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (6)
As of 2014-09-02 22:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite cookbook is:










    Results (32 votes), past polls