Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: Re: Re: REALLY Private Methods in perl: Is Perl Flexible enough to be made Inflexible?

by dws (Chancellor)
on Sep 23, 2002 at 19:31 UTC ( #200209=note: print w/replies, xml ) Need Help??


in reply to Re: Re: REALLY Private Methods in perl: Is Perl Flexible enough to be made Inflexible?
in thread REALLY Private Methods in perl: Is Perl Flexible enough to be made Inflexible?

Care to share your script?

My ex-employers own the last ones I wrote, but they're pretty simple. Use File::Find to traverse a hierarchy, then ignore file types that aren't interesting (like .doc or .exe), and finally processing files that are. Stripped of extraneous detail, they look something like:

use File::Find; my $ignore = '(?:\.exe|\.doc)$'; find(\&consider, $root); emit_report(); sub consider { my $path = $File::Find::path; return if $path =~ m/$ignore/o; process($path); }
Processing consists of slurping the file into memory and running a set of regexs against it, recording which files match which regex. Then sort the hashes and spit out HTML. It's just bookkeeping at this poing. Being a potential memory pig isn't a serious issue for a script that runs once a day at 2am.

  • Comment on Re: Re: Re: REALLY Private Methods in perl: Is Perl Flexible enough to be made Inflexible?
  • Download Code

Replies are listed 'Best First'.
Re: Re: Re: Re: REALLY Private Methods in perl: Is Perl Flexible enough to be made Inflexible?
by samtregar (Abbot) on Sep 24, 2002 at 18:18 UTC
    Sure, the basic structure is simple. The good bits are those helpful regexes that spot naughty coding. That's the hard part. Still, probably worth doing. Thanks for the tip.

    -sam

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (5)
As of 2020-03-30 17:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    To "Disagree to disagree" means to:









    Results (175 votes). Check out past polls.

    Notices?