Return array from subroutine

Question

I am attempting to return data from an array. Code is below:

my %ignorables = map { $_ => 1 } qw([notice mpmstats: rdy bsy rd wr ka log dns cls bsy: in);

open my $error_fh, '<', 'iset_error_log';

sub findLines {

    # Iterates over the lines in the file, putting each into $_
    while (<$error_fh>) {

        # Only worry about the lines containing [notice
        if (/\[notice/) {

            if (/\brdy\b/){
                print "\n";
            }
            else {
                print ",";
            }

            # Split the line into fields, separated by spaces, skip the %ignorables
            my @line = grep { not defined $ignorables{$_} } split /\s+/;

            # More cleanup
            s/|^\[|notice|[]]//g for @line; # remove [ from [foo

            # Output the line
            @line = join(",", @line);
            s/,,/,/g for @line;
            print @line;
            }
        }
    }

&findLines;

When I print, output is as follows:

Mon,Jun,25,23:24:43,2012,999,1,0,1,0,0,0,0,Mon,Jun,25,23:24:43,2012,1,mod_was_ap22_http.c
Mon,Jun,25,23:32:44,2012,999,1,0,1,0,0,0,0,Mon,Jun,25,23:32:44,2012,1,mod_was_ap22_http.c
Mon,Jun,25,23:33:44,2012,999,1,0,1,0,0,0,0,Mon,Jun,25,23:33:44,2012,1,mod_was_ap22_http.c
Mon,Jun,25,23:45:44,2012,999,1,0,1,0,0,0,0,Mon,Jun,25,23:45:44,2012,1,mod_was_ap22_http.c

How do I return the array outside the subroutine?

You mean instead of printing it? With the cleverly disguised return operator. But you probably meant something else. — Schwern
– Schwern, Commented Jul 3, 2012 at 1:56

Peter Mortensen · Accepted Answer · 2016-04-24 09:31:11Z

20

sub findLines {
    ...
    return @list; # Returns array @list
}
my @results = findLines();

# or
sub findLines {
    ...
    return \@list; # returns a reference to array @list
}
my $resultsRef = findLines();

I don't know what your if/else statement is doing, but I think you want to push the \n or , to @list.

Also, you should probably open the file in the subroutine and pass the file to be opened in the parameters.

edited Apr 24, 2016 at 9:31

Peter Mortensen

31.4k22 gold badges110 silver badges134 bronze badges

answered Jul 3, 2012 at 2:11

gtjason2000

2011 silver badge2 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Peter Mortensen · Accepted Answer · 2016-04-24 09:29:26Z

1

Not tested:

sub findLines {
    my($item,@result);

    # Iterates over the lines in the file, putting each into $_
    while (<$error_fh>) {

        # Only worry about the lines containing [notice
        if (/\[notice/) {

            if (/\brdy\b/){
                print "\n";
                push @result,"$item\n";
                $item="";
            }
            else {
                print ",";
                $item.=",";
            }

            # Split the line into fields, separated by spaces, skip the %ignorables
            my @line = grep { not defined $ignorables{$_} } split /\s+/;

            # More cleanup
            s/|^\[|notice|[]]//g for @line; # remove [ from [foo

            # Output the line
            @line = join(",", @line);
            s/,,/,/g for @line;
            print @line;
            map $item.=$_, @line;
        }
    }
    @result
}

my @array = &findLines;

edited Apr 24, 2016 at 9:29

Peter Mortensen

31.4k22 gold badges110 silver badges134 bronze badges

answered Jul 3, 2012 at 10:54

Nahuel Fouilleul

19.5k2 gold badges36 silver badges37 bronze badges

1 Comment

rupes0610 Over a year ago

It works! Only problem is that it displays an error as well. "Use of uninitialized value $item in concatenation (.) or string" on line push @result,"$item\n";

Collectives™ on Stack Overflow

Return array from subroutine

2 Answers 2

Comments

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related