#!/usr/local/bin/perl -w


system "ls -iR del-dir > temp";

# Check if entry in hash. If yes, store filename in array

open(INO_FNAME, "temp")|| die "File doesnt exist!" ;
open(FNAMES, ">>filenames") || die "File doesnt exist!" ;
while($record = <INO_FNAME>){
# print $record;
if($record=~ m/:/){
$dir = $record ;
# print "here", $dir, "d \n";
chop $dir;
chop $dir;
}
# print "here", $dir, "dir \n";
($inode,$fname) = split (' ', $record);
if ( exists $FID_DBN_HT{$inode}) {
@file_name = $dir . $fname;
print (FNAMES $dir . $fname, "\n");
print ($inode, "\t fname", $dir . "/" . $fname, "\n");
}
}

close(INO_FNAME);
close(FNAMES);
$end = time;

--------------------
With this I get:
Use of uninitialized value in concatenation (.) or string at temp.pl line 21, <INO_FNAME> line 8.
Use of uninitialized value in concatenation (.) or string at temp.pl line 22, <INO_FNAME> line 8.

Any idea why?
Thanks!

Those are warnings, not errors. This line in your code should just be removed:

@file_name = $dir . $fname;

it appears to not be doing anything and its not the correct way to assign values to an array anway. Do this to try and track down the missing scalar value:


I think one or both of those scalars is not getting defined. The [] are to let you know if they are blank.

Or you could just drop the -w switch on the shebang line and the warnings will not be output.