← All posts tagged Perl

Melhior
Linux Perl хм. или меня глючит или перл производит запись на винт открытого файла только при применении оператор close? print буферизуется? а можно ли скинуть это буфер на диск без open/close на каждый print?
Melhior
Red Hat официально анонсировала выход дистрибутива Red Hat Enterprise Linux 6 (RHEL6), поддержка которого продлится до 2020 года.

Главные изменения:
дистрибутив базируется на ядре 2.6.32;
включён новый для данного дистрибутива планировщик задач CFS (Complete Fair Scheduler);
внедрена всесторонняя поддержка виртуализации KVM на 64-битных архитектурах (AMD64 и Intel 64), также отменена поддержка RHEL6 в качестве хоста Xen;
ext4 используется в качестве файловой системы по умолчанию;
улучшено управление snmp;
реализовано горячее добавление периферийных устройств шины PCIe и оперативной памяти;
множество пакетов доведено до актуального уровня (postgresql 8.4.4, apache 2.2.15, mysql 5.1.47, perl 5.10.1, python 2.6.5, php 5.3.2);
улучшена поддержка технологий энергосбережения.
Melhior
#! /usr/bin/perl

use Net::XMPP;
use utf8;

my $to = $ARGV[0];
my $subj = $ARGV[1];
my $body = $ARGV[2];
my $type = $ARGV[3];

if (!defined($type)) {
$type = 'headline';
}

my $s = utf8::decode($subj);
my $b = utf8::decode($body);

my $hostName = 'jabber';
my $portNumber = 5222;
my $componentName = '';
my $userName = 'Zabbix';
my $passWord = '<password>';
my $resource = 'work';
my $tls = 0;
my $connectionType = 'tcpip';

my $debugLevel = 0;
my $bot = new Net::XMPP::Client(
debuglevel => $debugLevel
);

$bot->SetCallBacks(
onconnect => \&connectedCB,
onauth => \&authedCB,
ondisconnect => \&disconnectedCB
);

$bot->Execute(
hostname => $hostName,
port => $portNumber,
tls => $tls,
username => $userName,
password => $passWord,
resource => $resource,
register => 0,
connectiontype => $connectionType
);

sub connectedCB {
print "Connected\n";
}

sub authedCB {
print "Authed\n";
$bot->PresenceSend;

$bot->MessageSend(
to => $to,
subject => $subj,
body => $body,
type => $type
);

print "Sended\n";
$bot->Disconnect();
}

sub disconnectedCB {
print "Disconnected\n";
}