ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Pavel Ammosov                        2:5020/52      11 Aug 2001  17:25:14
 To : Alexander Bolotnov
 Subject : Re: новичок
 -------------------------------------------------------------------------------- 
 

 
 >> #!/usr/local/bin/perl
 >> open(PASS, "2.txt") || die "Файл не найден!";
 >> while(<PASS>)
 >> {print;}
 >> close(PASS);
 
 >> 1. Как заменить 2.txt на параметр который я передам при запуске этого
 >> 1.pl ?
 
 AB>смотря как запускать, но если эхотажно, то perldoc CGI;
 
 Я как обычно напомню про секьюрность:
 
 $file = param('file');
 open (PASS, $file) or die "Файл не найден!";
 
 будет совершенно не безопасно -- атакующая сможет подставить в 
 file что угодно и получить тот файл в своем браузере.
 
 $file надо ограничить набором возможных и безопасных значений.
 
 -- 
 Pavel Ammosov                                               O    \
 apavel@aha.ru                                                 __  )
 http://isabase.philol.msu.ru/~apavel/                             )
 wget -O - isabase.philol.msu.ru/~apavel/key.asc|pgp -fka    O    /
 
 --- FIDOGATE 4.4.0-snp10
  * Origin: Zenon N.S.P. news server (2:5020/52.0)
 
 

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

Тема:    Автор:    Дата:    новичок   Andrew Mikhailov   04 Aug 2001 01:49:00   новичок   Alexander Bolotnov   04 Aug 2001 11:56:58   Re: новичок   Pavel Ammosov   11 Aug 2001 17:25:14