Anonymous

my $time = "$hour$min$sec";

print "time=$time\n";
my $file_260 = 'A290'; #lundi


if ( $wday >= 1 && $wday <=4 ) {
        print "aa\n";
        if ($time > 150000 ) {
                print "bb\n";
                $file_260='A280'; #demain
        } else {
                print "cc\n";
                $file_260 = 'A260'; #today
        }
}
elsif( $wday >= 1 && $wday <= 5  ){
        if ( $time < 75959 ) {
                $file_260 = 'A260'; #today
        }
        else {
                $file_260 = 'A270'; #tres bientot
        }
}