Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re^13: Comparing Values PER Sub-folder

by Kenosis (Priest)
on Sep 05, 2012 at 23:07 UTC ( #991966=note: print w/ replies, xml ) Need Help??


in reply to Re^12: Comparing Values PER Sub-folder
in thread Comparing Values PER Sub-folder

You showed the following example output:

/test/test1' do have the same number of lines /test/test2' do not have the same number of lines

Were you looking to have the script count file lines only in those two directories w/o descending into any enclosed directories, or did you want the script to have an output as above even after descending into all enclosed directories?


Comment on Re^13: Comparing Values PER Sub-folder
Download Code
Re^14: Comparing Values PER Sub-folder
by omegaweaponZ (Beadle) on Sep 05, 2012 at 23:25 UTC
    Yes, I think....I'm looking for a file count IN the sub-directories OF those directories, so yes. There are no files in test/test1 but there is 1 file in test/test1/A and one in test/test1/B, etc, etc. I'm trying to compare all A, B, C, D from the single test1 subfolder. Confusion at its best!

    So it needs to descend into the enclosed directory of A, B, C, D just to grab those file counts, but it needs to compare and contrast each one as an array so it outputs a single true/false for test/test1 and test/test2, etc. Does that make sense? This is where I'm confused because I'm grabbing the full directory of each file but I just want comparison of its parent folder ONLY per folder.

      Would File::Basename help in this scenario?

      Err, looks like it does actually help...quite a bit! Here is the code I'm using:

      my $basedir = dirname($curDir); my @lines = read_file( $curFile ) ; my $numLines = @lines; push @{ $dirLines{$basedir} }, $numLines;
      From the previous code assigned to this, I can properly get a true/false from an if/else statement. I THINK I might be all set with this now, thank you again for all your help! Very informative and learned a lot

        Excellent, omegaweaponZ! Aren't the available modules just amazing? Your use of File::Basename makes a lot of sense. You've done well tackling this issue. And you're quite welcome...

        Take care.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (3)
As of 2014-08-31 04:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (294 votes), past polls