Архив форумов ЦИТФорума

[smi02]

Привет всем!
Простеший скрипт на Перле, осуществляющий посылку данных через sendmail, пишет: "Filehandle MAIL opened only for input". Подскажите, плиз, в чём проблема?
Исходник:
#!C:/Perl/bin/perl -w

use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);

$mail_prog = 'C:/sendmail/sendmail.exe' ;
$str1="To:victorina\@audioclub.ru\n";
$from="From:victorina\@audio.. Viktorina\n";
$str="Content-Type: text/html\n\n";
$anketahead="Ôàìèë&eg.. $name2, $name3, $Sex, $PLZ, $region, $Rayon, $town, $street, $Building, $flat, $email, $Catalog, $Subscribe;
open (MAIL, "$mail_prog") or die "Error!";


print MAIL "Hello\n";
close (MAIL);

[tserega]

Если не ошибаюсь, то закуск внешней программы идет через pipe (трубу |)
Попробуй так:
open(MAIL, "|$mail_prog");
Должно работать