Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: Re: perl tutorial clarification

by onemadjock (Initiate)
on Nov 11, 2003 at 22:28 UTC ( [id://306400]=note: print w/replies, xml ) Need Help??


in reply to Re: perl tutorial clarification
in thread perl tutorial clarification

Thank you for that - it now says that no such file or directory exists. The sample user is root and the password is password. I have got a file called root and root.txt.

Is the problem due to the file name and/or type?

Thanks for clearing up the misunderstanding as these sites can be quite intimidating for the novice user. We all have to start somewhere!

Thanks again - oh and the text box in the form is called login not username.

Replies are listed 'Best First'.
Re: perl tutorial clarification
by jonadab (Parson) on Nov 12, 2003 at 14:48 UTC
    it now says that no such file or directory exists

    Okay, there's more going on than just a permissions issue, then. The file your code is trying to open doesn't exist, which may mean that it's got the wrong path or filename. I tested the following code:

    use constant USER_DATA => '../data/users/'; my $username = "root"; my $userfile = USER_DATA.$username;

    This sets $userfile to "../data/users/root", which is probably what you intended. (The $username variable did get set to "root", yes? That should be printed in parentheses in the error page, using the code I posted.)

    However, it's a relative path, which leads me to wonder whether the current directory is different from what you thought it was. I believe that when Apache calls a CGI script it sets the current directory to the directory containing the script. So, if your script is /var/www/cgi-bin/something.cgi, the file you're trying to open is /var/www/data/users/root (This is a *nix system, not Win32, right?)

    You're sure that file exists?


    $;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}} split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/
Re: Re: Re: perl tutorial clarification
by castaway (Parson) on Nov 12, 2003 at 11:29 UTC
    Thats much more like it..

    Are you sure thats the same path your other form is using to save the files to? Try outputting $userfile as well, to see what that contains? You can check if a file exists using '-e', so you could try if(-e $userfile) { display_page("Can't find $userfile") } or something similar..

    C.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://306400]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others cooling their heels in the Monastery: (3)
As of 2024-04-26 03:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found