Net::ftp Not Conect

Тема в разделе "Perl программирование", создана пользователем Hente, 23 май 2008.

Статус темы:
Закрыта.
  1. Hente

    Hente Гость

    не работает скрипт переменная $Serv не читается а если выпить перед $Serv="Serv24" ->ALL GUD
    open(F,$Model_Path.$name."/".$name.".conf");
    $Type_Session="";
    $Serv="";
    $Logg="";
    $Pass="";
    $Data_Path="";
    $indFile=-1;
    @SPF=0;
    while(<F>)
    {
    if(/TYPE_SESSION= /){@SN=split(/= /,);$Type_Session=@SN[1];}
    if(/SERVER_NAME= /) {@SN=split(/= /,);$Serv=@SN[1];}
    if(/LOGG= /) {@SN=split(/= /,);$Logg=@SN[1]; }
    if(/PASS= /) {@SN=split(/= /,);$Pass=@SN[1]; }
    if(/DATA_PATH= /) {@SN=split(/= /,);$Data_Path=@SN[1];}
    if(/DATA_FILES/) {$indFile=0;}
    if(/DATA_FILES END/) {$inFile=-1;}
    if($indFile!=-1) {@SN=split(/= /,);@SPF[$indFile]=@SN[1];$indFile++;$KolF=$indFile}
    $ftp = Net::FTP->new($Serv, Port => "21" ) || die "Не могу открыть соединение с сервером $Serv\n";
    даже хуже:
    $ftp = Net::FTP->new("Star24", Port => "21" ) || die "Не могу открыть соединение с сервером $Serv\n";# так работает

    беру перед конектом проверяю !!!
    if($Serv=="Star24") {print "ok";} #тоже все нармально выдает ok!!!

    вставляю переменную пишет не могу сконектится...

    добавил строчку chomp $Serv; без изменений
     
  2. Vovochka

    Vovochka Гость

    это эквивалентно
    Код (Text):
    0 == 0
    Так как строковые сравнения в перле идут следующим образом:
    Код (Text):
     $Serv eq 'Star24'
    Скорее всего у вас эта переменная не считывается.
    Да и зачем делать проверку типа: если равно то ок. Вывиде на печать саму переменную и смотрите чему она равна :)
    +
    Ну дык оно и понятно, если выпить, оно всегда все хорошо :D
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей