Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: 8e1c451c5f
Fetching contributors…

Cannot retrieve contributors at this time

executable file 15 lines (13 sloc) 0.243 kB
#!/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;
Jump to Line
Something went wrong with that request. Please try again.