Double back slahses from nowhere?

MaxDes

Expand|Select|Wrap|Line Numbers

 #!C:\Perl\bin\perl.exe -w

use CGI;

use Net::FTP;

my $q = new CGI;

#my $thefile = $q->param('filename');

$thefile = "name.ts";

my $dl = chr(92);

$localdir = join ($dl, "S:", "Free");

$filename = join ($dl, $localdir, $thefile);

$ftpobj = Net::FTP -> new ("192.168.0.2");

$ftpobj -> login("cms","cm5u53r");

$ftpobj -> binary;

$ftpobj -> put ($filename);

$ftpobj -> quit;

#unlink $filename;

print "Content-type: text/html\n\n";

print "\n<html><head>";

print "<title>Uploading Complete</title>";

print "</head>";

print "<body><h2>Uploading Complete</h2><br><br>filename: [$filename] thefile: [$thefile]<br><br>";

print "</body></html>";

the error:

Expand|Select|Wrap|Line Numbers

 
[Tue Aug 05 10:47:08 2008] [error] [client 172.16.71.53] Cannot open Local file S:\\Free\\name.ts: No such file or directory, referer: http://172.16.71.53/Encore.html

[Tue Aug 05 10:47:08 2008] [error] [client 172.16.71.53]  at C:/CGI-bin/Encore.pl line 13, referer: http://172.16.71.53/Encore.html

Where are the double backslashes coming from? This is killing me!!!!

KevinADC

hehehe.... you sure jumped forums quickly.

MaxDes

yeah I noticed you were on here as the highest poster and I was like crap he's gonna think I'm a an @ss. haha

It's just something I really need to figure out and very very soon. The software team here at work is also stumped so I am just reachin out everywhere!

Ritusriv

Instead of trying ...
$localdir = join ($dl, "S:", "Free");
$filename = join ($dl, $localdir, $thefile);

you should have written :

$filename = join ($dl, "S:","Free",$thefile);

Double back slahses from nowhere?

Post your reply

Similar topics