Re^4: using File::Find to find recently-installed modules

[Aldebaran]

Thank you for this update: I was struggling with this syntax along with having a large reading burden to get into the whole pod scheme. I see now that it can be incremental, as pod is somehow syntactic perl. I had to wade through File::Find.pm just like they tell you to as well as WWW::Mechanize.pm, which I found astonishing under this view. I had never understood all this **clutter** in these modules that couldn't be perl, at least because it lacked semi-colons. So, yeah, light bulb, there.

Maybe the castaways leave the coast when they get a pause account, define a local::lib, and declare their real intent to make a didactic effort at the material of gilligan's island.

The castaways are logging their misadventures now:

C:\Users\Fred\Documents>perldoc g7.pl
DESCRIPTION
    This is a pretty good first attempt at figuring out where your mod
+ules
    are. It is meant to follow the development of _Intermediate Perl_,
+ and I
    will adhere to the idioms.


C:\Users\Fred\Documents>

This is how I figured out what has been happening since the 16 days I've had a local::lib :

#!/usr/bin/perl
use warnings;
use strict;

use File::Find;
use Cwd;

=pod
 
=head1 DESCRIPTION
 
This is a pretty good first attempt at figuring out where your modules
+ are. It is meant to follow the development of _Intermediate Perl_, a
+nd I will adhere to the idioms. 
 
=cut

my $current = cwd;

find( \&pm_beneath, $current, );


sub pm_beneath {
   use File::Basename;
   my $basename = basename($File::Find::name);
   return unless $basename =~ /\.pm$/;
   print "$File::Find::name\n";
   my $access_age = -A $basename;
   print "    $basename\n";
   print "access age in days: $access_age\n\n";
}

__END__

Output for readmore tags. It's 300 lines of the Minnow being tossed:

C:/Users/Fred/Documents/alpaca/template_stuff/config1.pm config1.pm access age in days: 14.3436574074074 C:/Users/Fred/Documents/alpaca/template_stuff/config2.pm config2.pm access age in days: 13.726087962963 C:/Users/Fred/Documents/alpaca/template_stuff/config3.pm config3.pm access age in days: 12.3605787037037 C:/Users/Fred/Documents/alpaca/template_stuff/html1.pm html1.pm access age in days: 14.3436574074074 C:/Users/Fred/Documents/alpaca/template_stuff/html2.pm html2.pm access age in days: 14.3436574074074 C:/Users/Fred/Documents/alpaca/template_stuff/html3.pm html3.pm access age in days: 14.3436574074074 C:/Users/Fred/Documents/alpaca/template_stuff/utils1.pm utils1.pm access age in days: 14.3436574074074 C:/Users/Fred/Documents/alpaca/template_stuff/html3/lib/html3.pm html3.pm access age in days: 3.28953703703704 C:/Users/Fred/Documents/coconuts/config1.pm config1.pm access age in days: 2.42826388888889 C:/Users/Fred/Documents/coconuts/config2.pm config2.pm access age in days: 2.42826388888889 C:/Users/Fred/Documents/coconuts/config3.pm config3.pm access age in days: 2.42826388888889 C:/Users/Fred/Documents/coconuts/html1.pm html1.pm access age in days: 2.42826388888889 C:/Users/Fred/Documents/coconuts/html2.pm html2.pm access age in days: 2.42826388888889 C:/Users/Fred/Documents/coconuts/html3.pm html3.pm access age in days: 2.42826388888889 C:/Users/Fred/Documents/coconuts/utils1.pm utils1.pm access age in days: 2.42826388888889 C:/Users/Fred/Documents/coconuts/ginger/lib/config2.pm config2.pm access age in days: 2.3750462962963 C:/Users/Fred/Documents/coconuts/ginger/lib/config3.pm config3.pm access age in days: 2.3750462962963 C:/Users/Fred/Documents/coconuts/ginger/lib/html2.pm html2.pm access age in days: 2.3750462962963 C:/Users/Fred/Documents/coconuts/ginger/lib/html3.pm html3.pm access age in days: 2.3750462962963 C:/Users/Fred/Documents/coconuts/ginger/lib/utils.pm utils.pm access age in days: 2.3750462962963 C:/Users/Fred/Documents/math/template_stuff/config1.pm config1.pm access age in days: 9.22090277777778 C:/Users/Fred/Documents/math/template_stuff/config2.pm config2.pm access age in days: 9.22090277777778 C:/Users/Fred/Documents/math/template_stuff/config3.pm config3.pm access age in days: 9.22090277777778 C:/Users/Fred/Documents/math/template_stuff/html1.pm html1.pm access age in days: 9.22090277777778 C:/Users/Fred/Documents/math/template_stuff/html2.pm html2.pm access age in days: 9.22090277777778 C:/Users/Fred/Documents/math/template_stuff/html3.pm html3.pm access age in days: 9.22090277777778 C:/Users/Fred/Documents/math/template_stuff/utils1.pm utils1.pm access age in days: 9.22090277777778 C:/Users/Fred/Documents/MyModule/lib/MyModule.pm MyModule.pm access age in days: 1.18733796296296 C:/Users/Fred/Documents/perl5/lib/perl5/HTML/ElementGlob.pm ElementGlob.pm access age in days: 5.22081018518519 C:/Users/Fred/Documents/perl5/lib/perl5/HTML/ElementRaw.pm ElementRaw.pm access age in days: 5.22081018518519 C:/Users/Fred/Documents/perl5/lib/perl5/HTML/ElementSuper.pm ElementSuper.pm access age in days: 5.22081018518519 C:/Users/Fred/Documents/perl5/lib/perl5/HTML/ElementTable.pm ElementTable.pm access age in days: 5.22081018518519 C:/Users/Fred/Documents/perl5/lib/perl5/HTML/Extract.pm Extract.pm access age in days: 5.22215277777778 C:/Users/Fred/Documents/perl5/lib/perl5/HTML/TableExtract.pm TableExtract.pm access age in days: 5.22137731481481 C:/Users/Fred/Documents/perl5/lib/perl5/inc/Module/Install.pm Install.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/inc/Module/Install/DSL.pm DSL.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/AutoInstall.pm AutoInstall.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install.pm Install.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/ScanDeps.pm ScanDeps.pm access age in days: 3.30168981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Starter.pm Starter.pm access age in days: 3.3000462962963 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/Admin.pm Admin.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/AuthorTests.pm AuthorTests.pm access age in days: 3.30038194444444 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/AutoInstall.pm AutoInstall.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/Base.pm Base.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/Bundle.pm Bundle.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/Can.pm Can.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/Compiler.pm Compiler.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/Deprecated.pm Deprecated.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/DSL.pm DSL.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/External.pm External.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/Fetch.pm Fetch.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/Include.pm Include.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/Inline.pm Inline.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/Makefile.pm Makefile.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/MakeMaker.pm MakeMaker.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/Metadata.pm Metadata.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/PAR.pm PAR.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/Run.pm Run.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/Scripts.pm Scripts.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/Share.pm Share.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/Win32.pm Win32.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/With.pm With.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/WriteAll.pm WriteAll.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/Admin/Bundle.pm Bundle.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/Admin/Compiler.pm Compiler.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/Admin/Find.pm Find.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/Admin/Include.pm Include.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/Admin/Makefile.pm Makefile.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/Admin/Manifest.pm Manifest.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/Admin/Metadata.pm Metadata.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/Admin/ScanDeps.pm ScanDeps.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Install/Admin/WriteAll.pm WriteAll.pm access age in days: 3.30043981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/ScanDeps/Cache.pm Cache.pm access age in days: 3.30168981481481 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Starter/App.pm App.pm access age in days: 3.3000462962963 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Starter/BuilderSet.pm BuilderSet.pm access age in days: 3.3000462962963 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Starter/Simple.pm Simple.pm access age in days: 3.3000462962963 C:/Users/Fred/Documents/perl5/lib/perl5/Module/Starter/Plugin/Template.pm Template.pm access age in days: 3.3000462962963 C:/Users/Fred/Documents/perl5/lib/perl5/Prompt/Timeout.pm Timeout.pm access age in days: 5.21863425925926 C:/Users/Fred/Documents/perl5/lib/perl5/WWW/Mechanize/GZip.pm GZip.pm access age in days: 5.22258101851852

[Marshall]

So, if this dir was made 16 days ago, all of the .pm files are being used - some more often than others.

To reduce the "noise" in the printout, you can truncate the "Access Age in Days" with a printf statement:

my $x = '3.30043981481481';
printf "%.2f\n", $x;  #prints 3.30, 2 decimal places