Ghost in a PERL script

[Enrico Venturi]

Hello colleagues

I'm running a simple PERL program which lists a directory content, then analyze each item of the directory, then lists again, and so on.
SOmetimes the lists loopbacks on itself.
See the program branch ...

system("ls -rt $buffer/*.ToBeCopied > $buffer/TBC 2>/dev/null");
if ( -T "$buffer/TBC" && -s "$buffer/TBC" ) {
open (FILE_LIST, "$buffer/TBC");
while (my $filename= ) {
print "process $$: processing $filename\n";
}
...
There's a KSH script which is populating the directory.
It seems that the "$filename= " doesn't increment the file handler, or at a certain point the condition doesn't return "NULL" but it starts again from the beginning ....

any helps?

thanks
Enrico

[Steven E. Protter]

Add this to your code:

$n1 = 0;

# your code
# Additional while condition
while($n1 eq 0){;



if(eof(FILE_LIST)){ $n1 = 1 } ;
};


This way when you detect eof, end of file in your reading of the file list your program can terminate.

Good Luck,

SEP

[Enrico Venturi]

Nothing changed :-(

it seems EOF never detected.......

[Gregory Fruth]

I don't know why you're seeing the errors;
however, you'd be better off using some of
Perl's built in operators instead of doing
a system("ls ...") and reading in the file:

opendir(DIR, $buffer);
@files = sort(readdir(DIR));
closedir(DIR);
foreach $file (@files) {
$filename = "$buffer/$file";
next unless -T $filename;
next unless -s $filename;
next unless $filename =~ /\.ToBeCopied$/;
print "process $$: processing $filename\n";
...
}

[Ganesha Sridhara]

Hi Enrico,

I have attached sample perl file to list directory recursively.
Please change your $root_dir variable.

Regards
Ganesha Sridhara

[Enrico Venturi]

I changed my code, now it works.