perl CGI: No such file or directory yet file exists???

[jasondancks]

To try to eliminate potential issues, the following was ran from the command line:

test script:

#!/usr/bin/perl
use CGI qw(:standard);
use CGI qw(:standard Vars);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use File::Basename;
use lib dirname(__FILE__);
use CreateExam;

my $cgi = CGI->new(\*STDIN);
print $cgi->header();
print $cgi->start_html("test");

my $check = CreateExam->new("/var/www/roger/homeworks/hw13/exam4.txt",
+"/var/www/roger/homeworks/hw13/answers4.txt","/var/www/roger/homework
+s/hw13/grades4.txt",0);

my %ans;
$ans{"1"} = "0AD";
$ans{"2"} = "Johnny Manziel";
$ans{"3"} = "washington";
$ans{"4"} = "Shes so hiiiigggghhhhhh\nHigh above me\nShes so hiiiigggg
+hhhhhh above me\nCleopatra Joan of Arc Aphrooooodiiiiitttteeee\n";

print $check->entergrades("test",\%ans);
print qq(<div style="margin:10px;border:solid;border-width:10px;border
+-color:#FFFFFF">\n);
$check->printgrades("test");
print "</div>\n";
print $cgi->end_html();

CreateExam.pm:

sub new {
    my ($class,$file,$answers,$grades,$script) = @_;
    #print "<p>in new: file: $file, grades: $grades</p>\n";
    return bless {'file'=>$file,'answers'=>$answers,'gradefile'=>$grad
+es,'script'=>$script},$class;
}
....
sub entergrades {
    my ($self,$person,$answers) = @_;
    my $afile = $self->{'answers'};
    open(ANSWERS,"<$afile") or die "$afile: $!";
    my $grades = $self->{'gradefile'};
    open(GRADES,"<<$grades") or die "got error $! (".($!+0).")\n"; # p
+roblem right here
        ...
}

output:

Software error: got error No such file or directory (2)

double check file exists:

jddancks@debian-macbook:/var/www/roger/homeworks/hw13$ ls -l /var/www/
+roger/homeworks/hw13/grades4.txt
-rwxr-xr-x 1 jddancks jddancks 2095 Jan 16 16:30 /var/www/roger/homewo
+rks/hw13/grades4.txt

[fishmonger]

What is the value of $grades

Add the that var to the die statement to verify it holds what you expect.

open(GRADES,'<', $grades) or die "failed to open '$grades' $! (".($!+0).")\n";

[graff]

In addition to fishmonger's advice above, you should consider adding:

use Cwd;

so that you can include the process's current working directory in the error message:

open( GRADES, '<', $grades ) 
   or die sprintf("error opening %s: %s (%d) cwd=%s\n", $grades, $!, $
+!+0, getcwd );

[NetWallah]

Your OPEN statement :

open(GRADES,"<<$grades") ...

is incorrect - it is taking the second "<" as a part of the file name.

Follow graff's advice above., or (better), consider using local file handles in addition to the 3-arg open, and avoiding single-use throwaway variables:

open (my $grades, "<", $self->{gradefile})
  or die ....

I might have gone further to suggest what I usually do - save the file handle as a part of the object, like:

  open ( $self->{gradefh}, "<", $self->{gradefile})

but this makes it tricky to read/write the file - you need extra braces.