#!/usr/bin/perl
use Net::Jabber;
$jabber = new Net::Jabber::Client();
$jabber->Connect(hostname => "fritalk.com",
port => 5222,
timeout => 90,
connectiontype => "tcpip",
ssl => 0);
@r = $jabber->AuthSend(username => "yannbng",
password => "********",
resource => "Perl-Net::Jabber",
register => 0);
$SIG{ALRM} = \&qqch;
$jabber->SetCallBacks( presence => \&handle_presence,
message => \&handle_message );
@contacts = $jabber->RosterGet();
$jabber->PresenceSend();
qqch();
print "Connecté !";
while(defined($jabber->Process())) { }
sub qqch {
$jabber->Process(1);
}
sub handle_message {
my $message = (…)
$response = $session-#get_table( -baseoid =#; $oid ) ;
ps: desolé pour cette question, mais je trouve pas...!
pps: je n'arrive pas à afficher les "plus grand que", c'est
remplacé par #
#!/usr/pkg/bin/perl -w
use SNMP ;
#$ENV{'MIBS'}="ALL"; #Load all available MIBs
$SNMP_TARGET = "$ARGV[0]";
$SNMP_COMMUNITY = "decK550";
$SESSION = new SNMP::Session (DestHost => $SNMP_TARGET,
Community => $SNMP_COMMUNITY,
Version => 1);
$LISTMIB = new SNMP::VarList(
['sysLocation'], #0
['sysName'], #1
['sysDescr'], #2
['sysUpTime'], #3
(…)
Input 'LAST_REP_PRINT_NONE' is readonly at test2.pl line 14
Bonjour,
Je débute en Perl, alors je demande a ceux qui ne le sont pas d'être indulgent.
Voila, je cherche comment faire une redirection des erreurs de mon script vers un fichier log.
voici un exemple de mon script:
open (F,'<intf.pl') || die "Probleme d'ouverture : $!" ;
my $i=0;
while (my $ligne = ) {
$i++;
}
print "\n\011Nombre de lignes du fichier $F : $i \n\n";
ce que je souhaite, le message "Probleme d'ouverture" soit écrit (…)
my $variable;
my $v = "variable";
eval "\$$v = 42";
print "$variable\n"; #je voudrais avoir 42
if ( $etchosts[$i] =~ $var$ ) {
print $&
}
Scalar found where operator expected at /root/equip line 31, near "$var$ )"
(Missing operator before $ )?)
syntax error at /root/equip line 31, near "$var$ ) "
syntax error at /root/equip line 38, near "}"