|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Yury Sukhovey 2:452/50.66 06 May 2002 07:30:57
To : Artem Bednarchuk
Subject : Re: удаление \r\n
--------------------------------------------------------------------------------
> есть скрипт который выполняет upload файлов, файлы бывают в формате
windows
> и в формате unix, как при upload'e сохранять все файлы в формате unix,
т.е.
> надо вместо двух символов перехода на новую строку \r\n windows, поставить
один
> как в unix
>
> вот пример моего скрипта отвечающего за upload
>
> #!/usr/bin/perl
>
> use CGI qw/:standard/;
> print "Content-Type: text/html\n\n";
>
> my $in=param($param_key);
> open(OUT,">test.txt") || die print "<br><b>Error</b>";
> binmode(OUT);
> while (<$in>)
> {
s/\015\012/\n/mg;
> print OUT $_;
> }
> close(OUT);
>
--- InterSquish NNTP Server/FTN Gate v.1.7.0.1
* Origin: ... Crazy Computers Systems ... (2:452/50.66)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
