Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

vargrep

by japhy (Canon)
on Mar 13, 2001 at 01:21 UTC ( #63960=sourcecode: print w/ replies, xml ) Need Help??

Category: Utility Scripts
Author/Contact Info Jeff japhy Pinyan
Description: A raw attempt at scanning a Perl program for specific variables. Results are usually good.
#!/usr/bin/perl -w

use strict;

@ARGV && shift =~ /^-([sahgc]+)$/ or die << "USAGE";
usage: $0 -[sahg] name1 name2 -- input

  -s     scalar
  -a     array
  -h     hash
  -g     glob (same as -sah)

  -c     suppress lines starting with a #

  nameN  symbol name
  input  file to search

USAGE

my %mode = map +($_, 1), split //, $1;
my (@vars,@matches,$format);

push @vars, shift while @ARGV and $ARGV[0] ne '--';
shift;

my $name = qr{ @{[ join('|', @vars) ]} }x;
my $scalar = qr{ \$ $name (?= [^\w\[\{] ) }x;
my $array = qr{ \@ $name (?= \W ) | \$ $name \[ }x;
my $hash = qr{ % $name (?= \W ) | [\@\$] $name \{ }x;
my $glob = qr{ [\$\@%*] $name (?= \W) }x;

my ($flen,$llen) = (0,0);

while (<>) {
  next if $mode{c} and /^\s*#/;
  if (  
    ($mode{g} and /$glob/) or
    ($mode{s} and /$scalar/) or
    ($mode{a} and /$array/) or
    ($mode{h} and /$hash/)
  ) {
    push @matches, [ $ARGV, $., $_ ];
    $flen = length($ARGV) if length($ARGV) > $flen;
    $llen = length($.) if length($.) > $llen;
  }
}

exit unless @matches;

$format =
  '@' . ('>' x ($flen - 1)) . ':' .
  '@' . ('#' x ($llen - 1)) . ':~' . 
  '^' . ('<' x (80 - $flen - $llen - 4)) .
  ' ' x ($flen + $llen + 3) . '^' . ('<' x (80 - $flen - $llen - 4)) .
+ "\n";

formline($format, $_->[0], $_->[1], $_->[2], $_->[2]) for @matches;

print $^A;

Comment on vargrep
Download Code

Back to Code Catacombs

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: sourcecode [id://63960]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (8)
As of 2014-08-28 08:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (258 votes), past polls