Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 8e1c451c5f
Fetching contributors…

Cannot retrieve contributors at this time

executable file 14 lines (13 sloc) 0.243 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14
#!/usr/bin/env perl
my $file = shift;
my $pattern = shift;
open FH, "<" , $file or die $!;
my @lines = <FH>;

my @vars = ();
for ( @lines ) {
    while ( /$pattern/og ) {
        push @vars,$1;
    }
}
close FH;
print $_ . "\n" for @vars;
Something went wrong with that request. Please try again.