[Perl] Новичкам: задаем вопросы

Discussion in 'PHP' started by _Great_, 26 May 2007.

Thread Status:
Not open for further replies.
  1. mr-leon

    mr-leon New Member

    Joined:
    24 Apr 2009
    Messages:
    7
    Likes Received:
    0
    Reputations:
    0
    пожалуйста если у вас есть время помогите мне: подскажите как сделать чтоб фаил с расширенеем pl работал мой icq 6680194 будуочень благодарен
     
  2. Gaus

    Gaus Member

    Joined:
    8 Feb 2009
    Messages:
    136
    Likes Received:
    36
    Reputations:
    3
    Скачай activeperl, установи и запусти из командной строки
    Code:
    perl C:\script.pl
    Где "C:\script.pl" - путь к скрипту
     
  3. $ereg@

    $ereg@ Elder - Старейшина

    Joined:
    21 Aug 2008
    Messages:
    91
    Likes Received:
    4
    Reputations:
    0
    помогите пажалуйста...
    есть 2 компьтера, на обоих стоит актив перл.
    беру один и тотже перл скрипт, запускаю через cmd.
    на обоих компьтерах скрипт запускается, но когда начинаю вводить параметры на одном компьтере он параметры принмает и начинает работу, на другом компьтере пишет что параметры неверные...
    версия актив перл одна и таже.
    такое впечатление что скрипт либо не принимает параметры, либо принимает в какой-то изковерканной форме. например когда раные кодовые таблицы... подскажите чёнибудь пж..
     
  4. Gaus

    Gaus Member

    Joined:
    8 Feb 2009
    Messages:
    136
    Likes Received:
    36
    Reputations:
    3
    мб кодировки разные? ты случайно не на дедах запускал?
     
  5. $ereg@

    $ereg@ Elder - Старейшина

    Joined:
    21 Aug 2008
    Messages:
    91
    Likes Received:
    4
    Reputations:
    0
    ну впринципе да... два похеканых компа под ХР через троян от мелгомягких...
     
  6. Gaus

    Gaus Member

    Joined:
    8 Feb 2009
    Messages:
    136
    Likes Received:
    36
    Reputations:
    3
    Ну а ты что хотел, у тебя на тачке норм запускается?
     
  7. $ereg@

    $ereg@ Elder - Старейшина

    Joined:
    21 Aug 2008
    Messages:
    91
    Likes Received:
    4
    Reputations:
    0
    да, норм) на некоторых дедах норм... а на некоторых не хотит... чё делать ? :(
     
  8. Gaus

    Gaus Member

    Joined:
    8 Feb 2009
    Messages:
    136
    Likes Received:
    36
    Reputations:
    3
    Как я сказал, дело в кодировке скорей всего.
    Попробуй сохранить скрипт в UTF-8.
    Там у тебя в параметрах же только латинские буквы и цифры?
     
  9. $ereg@

    $ereg@ Elder - Старейшина

    Joined:
    21 Aug 2008
    Messages:
    91
    Likes Received:
    4
    Reputations:
    0
    В параметрах
    1) IP
    2) название директори
    чёнибудь помутить с кодировками попробую чуть позже, када дед будет онлайн...
     
  10. $ereg@

    $ereg@ Elder - Старейшина

    Joined:
    21 Aug 2008
    Messages:
    91
    Likes Received:
    4
    Reputations:
    0
    да, походу реально чё-то с кодировкой было... када скрипт ему кидал, у него перл не был установлен, скрипт обозначался как файл блокнота... а на деде с блокнотом чё-то намучено... поставил перл заново, поновой кинул ему скрипт, изменил настройки блокнота на стандарт, всё заработало...
    всёравно спасибо всем за помощь, хоть и сам разобрался...
     
  11. Xszz

    Xszz Elder - Старейшина

    Joined:
    23 Apr 2007
    Messages:
    141
    Likes Received:
    42
    Reputations:
    9
    Подскажите , пытаюсь переименовать файл через rename получаю в ответ Permission denied .
    (win32)
    Как боротцо ?? Спасибо.
     
  12. dinar_007

    dinar_007 Мадемуазель

    Joined:
    18 Jan 2005
    Messages:
    1,019
    Likes Received:
    770
    Reputations:
    97
    Дать необходимые права...
    Что за файл переименовываешь?
    Не файл реестра случаем? :)
     
  13. ZET36

    ZET36 Elder - Старейшина

    Joined:
    8 Oct 2007
    Messages:
    250
    Likes Received:
    49
    Reputations:
    0
    Можно увидить пример конструирования сырых сокетов?
     
  14. okthxnz

    okthxnz Banned

    Joined:
    8 Aug 2009
    Messages:
    15
    Likes Received:
    32
    Reputations:
    0
    Как изменить вид php скрипта, чтобы фунция осталась на прежднем уровне?
     
  15. cr0w

    cr0w Elder - Старейшина

    Joined:
    11 Sep 2008
    Messages:
    92
    Likes Received:
    141
    Reputations:
    33
    Если использовать модули на основе libpcap (Net::RawIP), то примеры есть в их документации.
    Можно обойтись и без спеиальных модулей - почитай статью:
    http://xain.hackerdom.ru/zine/online/issue0/Raw%20&%20Packet%20Sockets%20in%20PERL.html
     
    2 people like this.
  16. demond

    demond Member

    Joined:
    5 Nov 2008
    Messages:
    101
    Likes Received:
    22
    Reputations:
    5
    Вот ссылка на документацию с несколькими примерами. perl raw socket
     
    2 people like this.
  17. ZET36

    ZET36 Elder - Старейшина

    Joined:
    8 Oct 2007
    Messages:
    250
    Likes Received:
    49
    Reputations:
    0
    cr0w, demond: большое спасибо, всё получилось.
     
    #1137 ZET36, 15 Aug 2009
    Last edited: 15 Aug 2009
  18. anubis666

    anubis666 New Member

    Joined:
    17 Aug 2009
    Messages:
    31
    Likes Received:
    0
    Reputations:
    0
    объясните...нубу...

    ПОМОГИТЕ ПОЖАЛУЙСТА!!-->как сделать чтобы
    Code:
    system ('start D:\tmp\ffmpeg.exe -i D:\tmp\$name -an -ss 00:00:10 -r 1 -vframes 1 -s 200?200 -y -f mjpeg $name.jpg');
    выполнялся после
    Code:
    #!"D:\perl\bin\perl.exe"   
    
    use CGI qw/:standard/; 
    
    # Код для HTML-формы 
    print "Content-Type: text/html\n\n"; 
    print "<form method=\"post\" enctype=\"multipart/form-data\" action=\"upload.pl\">";
    print "<input type=\"file\" name=\"picture\">";
    print "<input type=\"submit\" name=\"Submit\" value=\"Submit\">";
    print "</form>";
    
    #end of print form
    
    insert_image() if (param()); 
    
    sub insert_image { 
      # путь к директории для закачки директория 
      # должна иметь право на запись для 
      # пользователя, под которым работает веб-сервер 
      my $downpath = "d:/tmp/"; 
    
      my $in=param('picture'); 
    
      # выделяем имя файла из параметра 
      my ($name) = $in =~ m#([^\\/:]+)$#; 
    
      open(OUT,">$downpath$name"); 
      binmode(OUT); 
      # читаем входной поток и пишем в файл 
      while (<$in>) { 
        print OUT $_; 
      } 
      close(OUT); 
      
      # выводим надпись о закачке файла <$name> 
      print "Upload file: $name"; 
    объясните в подробностях..
     
  19. demond

    demond Member

    Joined:
    5 Nov 2008
    Messages:
    101
    Likes Received:
    22
    Reputations:
    5
    для начала чтобы вместо переменной $name подставилось ее значение, необходимо одинарный кавычки заменить на двойные.
    А затем подробнее объясни что именно необходимо! Из столь общего описания ничего не понятно!
     
  20. anubis666

    anubis666 New Member

    Joined:
    17 Aug 2009
    Messages:
    31
    Likes Received:
    0
    Reputations:
    0
    извините что сразу не объяснил.
    1.скрипт планируется использовать для загрузки и конвертирования видео..
    2.пременныю $name я взял из скрипта (она выводит имя файла и расширение к примеру : video.flv)...т.к будет загружатся много видео создавать превью и конвертировать тоже..
    3.я поменял ковычки и сразу после загрузки видео страница виснет.(не грузит)
     
Thread Status:
Not open for further replies.