blob: fd501ea8e0972b6d6596f8242e2da147f965db88 (
plain)
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;
|