Форум на Исходниках.RU

Perl Как заменить enter на

lamo — Mon, 27 Aug 2001 10:03:00 +0000

lamo: я пропал ?
это ты гдето забухал =).
ок. мылю второй раз.

Perl Как заменить enter на

Strannik — Mon, 27 Aug 2001 09:39:00 +0000

Strannik: lamo ty de poterjalsja?
myl' mne na tot mail kotoryi u menja v registration

Perl Как заменить enter на

Secandr — Sun, 26 Aug 2001 05:18:00 +0000

Secandr: Зачем мне Post и Get?
Я с файлами работаю :))

Perl Как заменить enter на

lamo — Sat, 25 Aug 2001 10:59:00 +0000

lamo: sub parse_form
{
if ($ENV{'REQUEST_METHOD'} eq "POST")
{
$i_mode = 0;
}
else
{
if ($ENV{'REQUEST_METHOD'} eq "GET")
{
$i_mode = 1;
}
else
{
$i_mode = 2;
}
}
if ($i_mode == 0)
{
read(STDIN, $c_buffer, $ENV{'CONTENT_LENGTH'});
}
else
{
if ($i_mode == 1)
{
$c_buffer = $ENV{'QUERY_STRING'};
}
}
@h_pairs = split(/&/, $c_buffer);
foreach $h_pair (@h_pairs)
{
($c_name, $c_value) = split(/=/, $h_pair);
$c_value =~ tr/+/ /;
$c_value =~ s/\%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex())/eg;
$c_value =~ s/ $c_value =~ s/>/>/g;
$c_value =~ s/&#/& #/g;
$c_value =~ s/\r//g; # \r - 0x0d (!)
$c_value =~ s/\n/
/g; # \n - 0x0a (!)
$FORM{$c_name} = $c_value;
}
}

Perl Как заменить enter на

Secandr — Sat, 25 Aug 2001 08:01:00 +0000

Secandr: $text=~s/\x0D/
/g;$text=~s/\x0A//g;
Я из под винды работаю:)

Perl Как заменить enter на

Secandr — Sat, 25 Aug 2001 05:22:00 +0000

Secandr: Как заменить в переменной все знаки перевода коретки на