topic Re: Ghost in a PERL script in Operating System - HP-UX

Ghost in a PERL script

Enrico Venturi — Thu, 21 Apr 2005 05:11:17 GMT

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

Re: Ghost in a PERL script

Steven E. Protter — Thu, 21 Apr 2005 05:17:30 GMT

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

Re: Ghost in a PERL script

Enrico Venturi — Thu, 21 Apr 2005 05:53:52 GMT

Nothing changed :-(

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

Re: Ghost in a PERL script

Gregory Fruth — Thu, 21 Apr 2005 12:08:58 GMT

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";
...
}

Re: Ghost in a PERL script

Ganesha Sridhara — Fri, 22 Apr 2005 00:41:13 GMT

Hi Enrico,

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

Regards
Ganesha Sridhara

Re: Ghost in a PERL script

Enrico Venturi — Fri, 22 Apr 2005 05:18:53 GMT

I changed my code, now it works.