|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Bednarchuk 2:5031/50.29 05 May 2002 17:20:09
To : All
Subject : удаление \r\n
--------------------------------------------------------------------------------
_НН Приветствую тебя, All! НН_
есть скрипт который выполняет 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>)
{
print OUT $_;
}
close(OUT);
_/*Adios, amigo All!*/_
--- GoldED/W32 3.0.0-dam9
* Origin: Всегда старайся стермисться к большему. (2:5031/50.29)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
