#! /usr/pkg/bin/perl -w
use strict ;
use Config ;
use threads ;
my %a ;
my $key ;
my $thrd1 ;
my $thrd2
sub deck {
my %b=( 'deck' => '5567' ,
'raym' => 'fooo' ) ;
print "Je fais plein de chose...\n\n\n" ;
return %b ;
}
$thrd1 = threads->new(\&deck) ;
$thrd2 = threads->new(\&deck) ;
$thrd1->join ;
$thrd2->join ;
Comment faire pour recuperer le hash qui est dans $thrd1...? Je dois (…)
$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
(…)
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 (…)