Re^13: 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
[download]

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

Replies are listed 'Best First'.
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.	[reply]
Re^15: Comparing Values PER Sub-folder by omegaweaponZ (Beadle) on Sep 06, 2012 at 00:32 UTC
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;` [download] 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	[reply] [d/l]
Re^16: Comparing Values PER Sub-folder by Kenosis (Priest) on Sep 06, 2012 at 01:21 UTC
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.	[reply] [d/l]