vim: Add perlomni

Signed-off-by: Florian Pritz <bluewind@xinu.at>

2 files changed, 32 insertions, 0 deletions

diff --git a/.vim/bin/grep-objvar.pl b/.vim/bin/grep-objvar.pl
new file mode 100755
index 0000000..0cf6ee3
--- /dev/null
+++ b/.vim/bin/grep-objvar.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/env perl
+my $file = shift;
+# looking for:
+#    $var1 = new ClassName( );
+# or 
+#    $var2 = ClassName->new(  );
+
+open FH, "<", $file;
+my @lines = <FH>;
+for ( @lines ) {
+    if( /(\$\w+)\s*=\s*new\s+([A-Z][a-zA-Z0-9_:]+)/  ) {
+        print $1 , "\t" , $2 , "\n";
+    }
+    elsif( /(\$\w+)\s*=\s*([A-Z][a-zA-Z0-9_:]+)->new/  ) {
+        print $1 , "\t" , $2 , "\n";
+    }
+}
+close FH;
diff --git a/.vim/bin/grep-pattern.pl b/.vim/bin/grep-pattern.pl
new file mode 100755
index 0000000..fd501ea
--- /dev/null
+++ b/.vim/bin/grep-pattern.pl
@@ -0,0 +1,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;