Hello,
I have a text file which has a list of files. I need to check a certain path to see if each of these files exist and if they do, then get the filesize and time and print these parameters into a new text file.
This is my code:
my $thisPath = cwd;
my $inputFile = "${thisPath}${ps}inputFileInfo.txt";
my $pathToCheck = "c:${ps}temp";
my $outputFile = "${thisPath}${ps}resultsFile_$timestamp.txt";
open theInputFile, $inputFile or die "Could not read from $inputFi
+le, program halting. \n";
while (<theInputFile>)
{
chomp;
my $fileBeingChecked = "${pathToCheck}${ps}$_";
open (theOutputFile, '>', $outputFile) or die "Could not open
+$outputFile. \n";
if (-e $fileBeingChecked)
{
my $fileSize = -s $fileBeingChecked;
my $date_string = ctime(stat($fileBeingChecked)->mtime);
print theOutputFile "Yes, $fileSize, $date_string \n";
}
else
{
print theOutputFile "No \n";
}
}
close (theOutputFile)
close (theInputFile)
Only getting a single line output in the OutputFile and the results - size of file and date do not match
Thanks...