.vim/bin/grep-pattern.pl


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;