ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Andrei Protasovitski                 2:450/186      06 Mar 2006  10:42:50
 To : Alexander Demin
 Subject : Re: Установленные Perl-модули.
 -------------------------------------------------------------------------------- 
 

 Доброго здоровья!
 
 Alexander Demin пишет:
 
 > Как это посмотреть на своей машине - это понятно, а вот как это на
 > хостинге сделать я не знаю, поэтому и спрашиваю как это можно сделать
 > скриптом, т.к. известно, что CGI там живёт точно.
 
 Запусти на сервере этот скрипт, в textarea введи команды, отправь форму 
 и получи результат. Только аккуратно: тут нет никакой защиты от дурака, 
 поэтому "умелый" подход может здорово навредить системе. Если нужно 
 проверить наличие какого-то модуля, просто набери "use Module::Name;" и 
 смотри вывод ошибок. Если тишина, значит модуль есть.
 
 [-=cut=-]
 #!/usr/bin/perl
 
 use CGI;
 
 $query = new CGI;
 
 print $query->header;
 print $query->start_html("Test perl code execution.");
 print "<h1>Test perl code execution.</h1>\n";
 &print_prompt($query);
 &do_work($query);
 print $query->end_html;
 
 sub print_prompt {
     my($query) = @_;
 
     print $query->start_form;
     print "<p><em>Your code goes here:</em><br />";
     print $query->textarea(-name=>'code',
                            -rows=>10,
                            -columns=>50);
 
     print "<p>",$query->reset;
     print $query->submit();
     print $query->endform;
     print "<hr />\n";
 }
 
 sub do_work {
     my($query) = @_;
     my(@values,$key);
 
     print "<h2>Code execution result:</h2>";
     eval($query->param('code'));
     $err = $@;
 
     print "<h2>Errors:</h2>";
     print $query->pre($err);
 
 }
 [-=cut=-]
 
 -- 
 Andrei Protasovitski              mailto:andrei()siliconmaterials.com
 http://www.siliconmaterials.com/  ICQ: 75725244
 Pinsk, Belarus
 --- Mozilla/5.0 (Windows; U; Windows NT 5.0; ru-RU; rv:1.8.0.1) Gecko/20060130
 SeaMonkey/1.0
  * Origin: -= http://fido.ext.by (sponsored by http://extmedia.com) (2:450/186)
 
 

Вернуться к списку тем, сортированных по: