problem with @INC and use pragma in Perl

shifter · 10-03-2010, 09:01 AM

Quote:

1: #!/usr/bin/perl -w
2:
3: use CGI;
4: use CGI::Carp qw(fatalsToBrowser);
5: use CGI::Session;
6: use lib qw(/home/savio/myperlprograms);
7: use DataAccess; <------
8: use DBI;
9: use Template;

DataAccess.pm is placed into /home/savio/myperlprograms, but I have following errors:

Quote:

Can't locate DataAccess.pm in @INC (@INC contains: /home/savio/myperlprograms /etc/perl /usr/local/lib/perl/5.10.1 /usr/local/share/perl/5.10.1 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at /usr/lib/cgi-bin/login.cgi line 7.
BEGIN failed--compilation aborted at /usr/lib/cgi-bin/login.cgi line 7.

Where is the problem?

Sergei Steshenko · 10-03-2010, 09:17 AM

Quote:

Originally Posted by shifter

DataAccess.pm is placed into /home/savio/myperlprograms, but I have following errors:

Where is the problem?

Temporarily modify your program to do

Code:

my $cmd = '/bin/ls -ltr /home/savio/myperlprograms/DataAccess.pm';
warn "\$cmd=$cmd";
system($cmd);

- you'll need to comment out

Code:

use DataAccess;

and maybe other stuff which depends on it.

The point is to see STDOUT and STDERR of the modified program in order to make sure the file is really in the place where you expect it to be.

shifter · 10-03-2010, 09:47 AM

The output is:

Quote:

[Sun Oct 3 16:46:25 2010] login.cgi: $cmd=/bin/ls -ltr /home/savio/myperlprograms/DataAccess.pm at login.cgi line 15.
-rwxr-xr-x 1 savio savio 5957 2010-09-30 18:57 /home/savio/myperlprograms/DataAccess.pm

with following code:

Quote:

1: #!/usr/bin/perl -w
2:
3: use CGI;
4: use CGI::Carp qw(fatalsToBrowser);
5: use CGI::Session;
6: use lib qw(/home/savio/netstore);
7: use DataAccess;
8: use DBI;
9: use Template;
10:
11: my $cgi = CGI->new();
12: print $cgi->header(-type => 'text/html');
13:
14: my $cmd = '/bin/ls -ltr /home/savio/netstore/DataAccess.pm';
15: warn "\$cmd=$cmd";
16: system($cmd);

shifter · 10-03-2010, 09:52 AM

Ok, thank you, it is a permissions problem of myperlprograms folder.

Thank you for helping