Re^2: Print all derefs and method calls in a directory (Friday golf)

in reply to Re: Print all derefs and method calls in a directory (Friday golf)
in thread Print all derefs and method calls in a directory (Friday golf)

~~Assuming rgrep does what I thik it does, $1 will never be undef since he pre-filters the lines.~~

(Nevermind, the patterns are different, so it's possible.)

Comment on Re^2: Print all derefs and method calls in a directory (Friday golf) Download Code

Replies are listed 'Best First'.
Re^3: Print all derefs and method calls in a directory (Friday golf) by JavaFan (Canon) on Jan 09, 2009 at 10:20 UTC
Unless 'rgrep' does something completely different from 'egrep', 'fgrep' or 'grep', you're wrong: `$ cat foo $foo ->[2]; print $_->{bar}; $sum += $_->[0] for @array; $ fgrep -e '->' foo \| perl -nwe '/(\S{3,80}->\S{5,80})/;print $1,"\n"' Use of uninitialized value $1 in print at -e line 1, <> line 1. Use of uninitialized value $1 in print at -e line 1, <> line 2. Use of uninitialized value $1 in print at -e line 1, <> line 3. $` [download] He does prefilter the line. But the filter is just for '->' while the pattern requires context around the '->'.	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Print all derefs and method calls in a directory (Friday golf)
by JavaFan (Canon) on Jan 09, 2009 at 10:20 UTC

$ cat foo
$foo ->[2];
print $_->{bar};
$sum += $_->[0] for @array;
$ fgrep -e '->' foo | perl -nwe '/(\S{3,80}->\S{5,80})/;print $1,"\n"'
Use of uninitialized value $1 in print at -e line 1, <> line 1.

Use of uninitialized value $1 in print at -e line 1, <> line 2.

Use of uninitialized value $1 in print at -e line 1, <> line 3.

$
[download]

[reply]
[d/l]

In Section Seekers of Perl Wisdom