Printing a "File Not Found" message in Perl.

dissectcode2

Hi - I know almost nothing about Perl but do program in other languages. I am looking at Perl that I have to modify slightly by printing a "file not found" message if a file is missing from the directory or the directory just above it (hence the 'find ..' ). Please help!

Expand|Select|Wrap|Line Numbers

 
sub findText

{

  my @aray = 'find .. -name veryImprotant.txt -print';

  my $var = shift @aray;

  # I want to check if file is not found here maybe?

  return $var;

}

nithinpes

While running system commands, pass the command within reverse quotes( ` ). You have used single quotes, hence the command will not be run (it is passed as a string).

Expand|Select|Wrap|Line Numbers

 
sub findText 

{ 

  my @aray = `find .. -name veryImprotant.txt -print`; 

  my $var = shift @aray; 

  print "File not found \n" unless($var);

  return $var; 

}

numberwhun

Quote:

Originally Posted by dissectcode2

Hi - I know almost nothing about Perl but do program in other languages. I am looking at Perl that I have to modify slightly by printing a "file not found" message if a file is missing from the directory or the directory just above it (hence the 'find ..' ). Please help!

Expand|Select|Wrap|Line Numbers

 
sub findText

{

  my @aray = 'find .. -name veryImprotant.txt -print';

  my $var = shift @aray;

  # I want to check if file is not found here maybe?

  return $var;

}

Personally, I would take a different route. I would actually use the open() function to open the file and die if it didn't work. If it opened, make a log entry into a log and then close the file.

Expand|Select|Wrap|Line Numbers

 
sub findText {

    open(FILE, "../veryImportant.txt") or die "Cannot open file:  $!";
 
    print LOG "File: veryImportant.txt exists.  Continuing.";
 
    close(<FILE>);

}

Yes, the log file represented by the LOG file handle will have had to be previously opened, but that is no biggie. My point was to show you another way of doing it that didn't involve executing a system command. This, btw, would possibly work on Unix, Linux and maybe even Windows due to the lack of system level command execution.

Regards,

Jeff

Printing a "File Not Found" message in Perl.

re: Printing a "File Not Found" message in Perl.

re: Printing a "File Not Found" message in Perl.

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/other

/bytes/about