uploading to a different directory

mojobozo has asked for the wisdom of the Perl Monks concerning the following question:

My fellow monks, I found a quick upload script and it's working fine. It's uploading the files to the wwwroot dir on my system. I even changed it so that it's doing it to the correct file name/type instead of just a txt file as it was when I found it. My question is how can I have it upload to a different directory? Right now, it does it thusly (where $base = filename.type):

    open FILE, ">$base";
    binmode FILE;

    while (<$file>) {
        print FILE $_;
    $length += length($_);
    }
[download]

I tried this:

    $upload_path = "\uploaded_files\";
    $uploaded_file .= $upload_path + $base;

    open FILE, ">$uploaded_file";
    binmode FILE;

    while (<$file>) {
        print FILE $_;
    $length += length($_);
    }
[download]

but it didn't work. I'm not sure how to go about acomplishing this. Do I need to escape the "\" in $uploaded_path? Can you lend a hand?
_____________________________________________________
mojobozo
word (wūrd)
interj. Slang. Used to express approval or an affirmative response to
something. Sometimes used with up. Source

Comment on uploading to a different directory Select or Download Code

Replies are listed 'Best First'.
Re: uploading to a different directory by iburrell (Chaplain) on Nov 07, 2002 at 17:12 UTC
BTW, you shouldn't use <$file> and print if you are just copying the file. Especially if the file is a binary file. You set binmode which is good so it won't change end-of-line characters. But copying line-by-line is slower because the input must be scanned for end-of-line characters. If you just want to copy the file, use read and print with a fixed buffer size as large as you can get away with. `while ($bytesread=read($filename,$buffer,1024)) { print OUTFILE $buffer; }` [download] (Code is from the CGI man page).	[reply] [d/l]
Re: uploading to a different directory by fglock (Vicar) on Nov 07, 2002 at 16:37 UTC
`print "Filename is: $uploaded_file \n";` will tell you what the system thinks the filename is. You do have to escape \\ , or use / instead.	[reply] [d/l]
Re: Re: uploading to a different directory by mojobozo (Monk) on Nov 07, 2002 at 16:51 UTC
Went back and added the line to see what it thought the path was and it came up "0", so I went and looked at the .= code again and noticed it was wrong. Now I'm using `my $uploaded_path = "\\Inetpub\\wwwroot\\uploaded_files\\"; $uploaded_path .= $base; print h2('Uploaded Path'),$uploaded_path; open FILE, ">$uploaded_path"; binmode FILE;` [download] and it works fine. As you can see above, I also esacped the \'s. Thanks!! _____________________________________________________ mojobozo word (wūrd) interj. Slang. Used to express approval or an affirmative response to something. Sometimes used with up. Source	[reply] [d/l]