Bonjour j'ai un souci avec un script ,
********************************
 
#!/usr/bin/perl
use warnings;
use strict;
use POSIX;
 
#LocalTime2UnixTime :
my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) =localtime(time);
$year += 1900;
my $local_unixtime = mktime ($sec, $min, $hour, $mday, $mon+1, $year-1900,-1,-1,-1);
 
 
my $login0 ;
my $login1;
my $login2 ;
my $login_time;
my $feature;
my @feature = qw(nano nano/ace_cosim nano/gui nano/power );
 
 
foreach my $feat (@feature) {
print "FLAG lmstat : lmstat -c 12345\@toto -f $feat \n";
        my @command=`/home/toto/lmutil lmstat -c 12345\@toto -f $feat`;
 
        foreach my $check  (@command) {
        if ($check =~ /start/) {
                print "FLAG1 resultat command $check\n";
                my @check=split (/ /,$check);
                $login0=$check[4];
                $login0=$login1 ;
                # Calcul d'utilisation
                my $time_start=$check[13];
                my $date_start=$check[12];
                chomp ($time_start);
                chomp ($date_start);
 
#               On écrase localTime avec les valeur trouvée
                ($hour, $min ) = split/,$time_start;
                ($mon, $mday ) = split/\//,$date_start;
 
#               TimesUse2UnixTimes
                my $unixtime = mktime ($sec, $min, $hour, $mday, $mon, $year- 1900,-1,-1,-1 );
                my $diff=  $local_unixtime - $unixtime ;
 
                my $heures_util=int($diff / 3600);
 
#               Envoi du temps abusif
                if ($heures_util >=24 || $login1 == $login2 ) {
                        $login_time=$login1;
                        $feature=$feat;
                        print " FLAG2 LoginTime Feature : $login_time $feature\n";
                        $login0=$login2;
                }
        }
}
 
}
 
**************************************
Le programme me retourne :
 
FLAG lmstat : lmstat -c 12345@toto -f nano  
FLAG1 resultat command     slesne pascal /dev/pts/31 (v2007.030) (toto/12345 223), start Mon 2/20 15:49
 
Use of uninitialized value in numeric eq (==) at ./nano.pl line 51.
Use of uninitialized value in numeric eq (==) at ./nano.pl line 51.
Use of uninitialized value in concatenation (.) or string at ./nano.pl line 54.
 FLAG2 LoginTime Feature :  nano
FLAG lmstat : lmstat -c 12345@toto -f nano/ace_cosim  
FLAG lmstat : lmstat -c 12345@toto -f nano/gui  
FLAG lmstat : lmstat -c 12345@toto -f nano/power  
FLAG1 resultat command     slesne pascal /dev/pts/31 (v2007.030) (toto@12345 337), start Mon 2/20 15:49
 
Use of uninitialized value in numeric eq (==) at ./nano.pl line 51.
Use of uninitialized value in numeric eq (==) at ./nano.pl line 51.
Use of uninitialized value in concatenation (.) or string at ./nano.pl line 54.
 FLAG2 LoginTime Feature :  nano/power
 
 
L'erreur doit venir de la dernière séquence du programme je pense.
 
Merci d'avance,

$login1 == $login2
Ni l'un ni l'autre ne sont initialisés à quoi que ce soit par ton code.
A+,