http://www.perlmonks.org?node_id=681676


in reply to passing arrays

You aren't passing anything into the sub csv 

my @array = ( 1, 2, 3, 4, 5 );
csv( @array ); # pass array into csv

sub csv { 
  my @passed_array = @_; # reteive array from @_
  foreach (@array) {
    print "$_\n";
  }
}

[download]
Check out perlsub

Also:
Please reduce your question to the smallest example of your problem. This not only saves us from having to dig through irrelevant code to find your real problem, but a good portion of the time you'll answer it yourself.

Update: added Also section

grep
One dead unjugged rabbit fish later...

Replies are listed 'Best First'.
Re^2: passing arrays
by ScOut3R (Sexton) on Apr 19, 2008 at 17:40 UTC
    I know grep! :) I'm passing the the $in variable to readlog() from csv() and returning the @mails array from it. 
    while (my $in = @data) {
    my @mails = readlog($in);

    [download]
    But i think nothing is coming back.
[reply]
[d/l]
      Ahhhh... this is why you should reduce your code to the problem. I did not see that buried in the rest of your code.

      you want a foreach 

      foreach my $in (@data) {
    my @mails = readlog($in);

      [download]
      grep
      One dead unjugged rabbit fish later...
[reply]
[d/l]
[select]
        You're absolutely right. Now the values are passing back, but i have a new problem to sort out. :)
[reply]

In Section Seekers of Perl Wisdom