Help for this page

Select Code to Download


  1. or download this
    # get @words and @data from somewhere
my $pattern = join '|', @words;
...
    push @lines, $_ if /$pattern/;
}
# do something with @lines
  2. or download this
    for (@lines) {
    my @fields = split /,/;
...
        print "THESE ARE THE>>$fields[4]\n" if /MONTHLY/ && !/,-,/;
    }
}
  3. or download this
    my $pattern = join '|', @words;
for (@data) {
...
        print "THESE ARE THE>>$fields[4]\n" if /MONTHLY/ && !/,-,/;
    }
}