nixp.ru v3.0

25 мая 2017,
четверг,
13:30:21 MSK

DevOps с компанией «Флант»
tcg2 написал 27 сентября 2006 года в 00:36 (425 просмотров) Ведет себя неопределенно; открыл 8 тем в форуме, оставил 4 комментария на сайте.

Хотелось бы имя машин, логин и все такое, которое находится в первой части программ, чтобы отправлялось по e-mail, чий-то код находится в конце программой

Результат кода дает: » '-' is not recognized as an internal or external command operable program or batch file»

========================================

#!c:\Perl\bin\perl.exe

print «\n»;

print «\n»;

use Sys::Hostname;

$hostname = hostname();

print «=» x 16, $hostname,«=» x 16 ,«\n»;

use Time::localtime;

$tm = localtime;

$tma = localtime;

printf(«%04d-%02d-%02d», $tm->year+1900, ($tm->mon)+1, $tm->mday);

printf(«\t\t\t\t\t%02d:%02d:%02d\n», $tma->hour, $tma->min, $tma->sec);

$gnadd = gethostbyaddr($iaddr,AF_INET);

print «\nLogon to: »,getlogin;

print «\nMachine name: »,$gnadd, «\n»;

use Net::SMTP;

use Sys::Hostname;

$hostname = hostname();

if(open(CHILDHANDLE,«|-») { #эта строка сюда пишется или где-то выше

while () {

$smtp = Net::SMTP->new(’IP…’);

$smtp->mail(’mail…’);

$smtp->to(’mail…’);

$smtp->data();

$smtp->datasend(«From: $hostname»);

$smtp->datasend(«\n»);

$smtp->datasend(«To: Name…»);

$smtp->datasend(«\n»);

$smtp->datasend(«Subject: ….»);

$smtp->datasend(«\n»);

$smtp->datasend();

$smtp->dataend();

$smtp->quit;

close(CHILDHANDLE);

}

Steck

Пять раз перечитал вопрос, не Х не понял.

Силен ты дядя.

Или мож у меня с русским не в порядке..

Genie
f(open(CHILDHANDLE,«|-») { #эта строка сюда пишется или где-то выше

вот на этом и ругается.

и правильно ругается, в общем-то. ибо программы с названием «-» как-то нет.

может что-то ты упустимши?