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

It seems to miss cases like:

  $foo ->[2];                  # Space before or after ->
  print $_->{bar};             # Only two non-space chars before ->
  $sum += $_->[0] for @array;  # Only three non-space chars after ->
[download]

And since you aren't using warnings, you don't get a warning if you try to print an undefined $1.

OTOH, it would find a deref in:

  perl -ne '/(\S{3,80}->\S{5,80})/;print $1,"\n"'
[download]

Don't tell me you never write code like that!

But I'm baffled by the fact you're searching for '->' when you need to figure out which hashes are in some code.

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

Replies are listed 'Best First'.
Re^2: Print all derefs and method calls in a directory (Friday golf) by ikegami (Patriarch) on Jan 09, 2009 at 10:11 UTC
~~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.)	[reply] [d/l]
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]


Do you know where your variables are?
	PerlMonks