Есть такой скриптик. Локально на IIS под виндой все работает, а вот при загрузке к провайдеру на может открыть локальный файл (затыкается на строке:
open ( SRC, $imagename) || die print("Cannot Open File $imagename");
Где я наглючил?
sub upload
{
($imagename)=@_;
$imagename=~m/^.*(\\\\|\\/)(.*)/;
$imagename =~tr/бвчздецъйклмнопртуфхжигюыэящшьасБВЧЗДЕЦЪЙКЛМНОПРТУФХЖИГЮЫЭЯЩШЬАС?/АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюяё/;
my $name = $2;
open ( SRC, $imagename) || die print("Cannot Open File $imagename");;
binmode (SRC) || die print("Cannot Bin Open File");
@imgdata=;
close(SRC);
open(DST,">$name") || die print("Cannot BinOpen File");
binmode(DST);
foreach $istring (@imgdata)
{
print DST $istring;
}
close(DST);
print" uploaded: $name
";
}