Re^4: Check if file exists in multiple directories

#!/usr/bin/perl
use warnings;
use Cwd;
$out = "outFile";
$newdir = $newdirectory;
open(TABLEA, "dirlist");
@tablea = <TABLEA>;
foreach $dir (@tablea) {
    chomp @tablea;
    chdir $dir;
    print(cwd);
    print "\n";
    if (glob("*.txt")) {
        system("mv $out $newdir");
    }
}
[download]

If I add the chomp and I print the current working directory, the only directory that gets printed is the first directory, multiple times(as many times there are files in the main directory). Any other thoughts? Thanks.

Comment on Re^4: Check if file exists in multiple directories Download Code

Replies are listed 'Best First'.
Re^5: Check if file exists in multiple directories by hdb (Monsignor) on May 21, 2015 at 18:41 UTC
Can you add a `use strict;` at the beginning of your code? And where do you assign a value to `$newdirectory`? As the code stands it is undefined and therefore your target directory is not specified. The `chomp` should be placed before the loop.	[reply] [d/l] [select]