I want to modify this so it executes on each variable passed to it, e.g. $c1, then $c2, $c3, etc. This works for $c1:

$c1 = $query->param( 'c1' );
@cand_info = &get_cand_info( $c1 );

.....

sub
get_cand_info() {
        my ( $c1 ) = @_;
        my @cand_info = ();
        my $pq_out;

        # Gather the information from a POST query.
        if( length($c1) == 7 ) {
                push( @cand_info, 'HRID' );
                $pq_out = `/opt/bin/pq -o '%last:%first:%loc:%room:%te
+l:%id' hrid=$c1`;
        }
 
        chomp $pq_out;
 
        # Put the data into the list.
        @cand_info = ( @cand_info, split(/:/, $pq_out) );
        ($cand_info[1] = $cand_info[1]) =~ s/_/ /g;   # name massage
 
        return @cand_info;
}
[download]

I've been trying to do this by calling the subroutine in a for...next loop, and passing it a variable which changes value each time through the loop, but with no success:

for ($gi = 1; $gi <= $tno; $gi++ ) {
         $tnum = "c".$gi;
         $tnum2 = $query->param( '$tnum' );
         @cand_info = &get_cand_info( $tnum2 );
}
[download]

I'm worn out with trying different variations on how to pass the value(s) to the subroutine, help would be greatly appreciated.

Originally posted as a Categorized Question.

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.