blob: 0cf6ee3cfaaec8d8116cab91548f28c38d37eafe (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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;
|