[PERL] Acquisition écran
Fermé
sandrill0n
Messages postés
79
Date d'inscription
lundi 2 mai 2005
Statut
Membre
Dernière intervention
22 octobre 2011
-
15 juin 2005 à 13:02
sandrill0n Messages postés 79 Date d'inscription lundi 2 mai 2005 Statut Membre Dernière intervention 22 octobre 2011 - 15 juin 2005 à 14:04
sandrill0n Messages postés 79 Date d'inscription lundi 2 mai 2005 Statut Membre Dernière intervention 22 octobre 2011 - 15 juin 2005 à 14:04
A voir également:
- [PERL] Acquisition écran
- Double ecran - Guide
- Capture d'écran samsung - Guide
- Ecran noir pc - Guide
- Ecran d'accueil iphone - Guide
- Retourner ecran windows - Guide
2 réponses
dedale82
Messages postés
403
Date d'inscription
jeudi 15 avril 2004
Statut
Membre
Dernière intervention
28 octobre 2008
282
15 juin 2005 à 13:29
15 juin 2005 à 13:29
Salut,
je ne suis pas sur d'avoir compris mais si tu veux recuperer la frappe d'un utilisateur tu peux faire comme ca :
$name = <STDIN>;
A plus
je ne suis pas sur d'avoir compris mais si tu veux recuperer la frappe d'un utilisateur tu peux faire comme ca :
$name = <STDIN>;
A plus
sandrill0n
Messages postés
79
Date d'inscription
lundi 2 mai 2005
Statut
Membre
Dernière intervention
22 octobre 2011
15 juin 2005 à 14:04
15 juin 2005 à 14:04
en fait je souhaite faire ça :
print "Nom du fichier a analyser ?\t\n";
$name_file = <STDIN>;
#chop ($name_file = $_);
SWITCH : {
/sm2.5/ and $name_file = sm2_5, last SWITCH;
/sm3.0/ and $name_file = sm3_0, last SWITCH;
/sm3.5/ and $name_file = sm3_5, last SWITCH;
/sm5ap/ and $name_file = sm5ap, last SWITCH;
/sm5cb/ and $name_file = sm5cb, last SWITCH;
/sm5lp/ and $name_file = sm5lp, last SWITCH;
/hdtmos/ and $name_file = hdtmos, last SWITCH;
$nothing = 1;
}
#chop ($techno =$_);
SWITCH : {
if ($name_file =~ /sm2_5/) { $techno = SM2.5; last SWITCH; }
if ($name_file =~ /sm3_0/) { $techno = SM3.0; last SWITCH; }
if ($name_file =~ /sm3_5/) { $techno = SM3_5; last SWITCH; }
if ($name_file =~ /sm5ap/) { $techno = SM5AP; last SWITCH; }
if ($name_file =~ /sm5cb/) { $techno = SM5CB; last SWITCH; }
if ($name_file =~ /sm5lp/) { $techno = SM5LP; last SWITCH; }
if ($name_file =~ /hdtmos/) { $techno = HDTMOS; last SWITCH; }
$nothing = 1;
}
code>
use FileHandle;
$LECT = FileHandle->new();
$FileName = "/home/synergy/sisa01c/PERL_DEV/Fichier_Log/$name_file.log";
open $LECT, $FileName || die ("Impossible d'ouvrir fichier log en lecture");
if ($name_file =~ /sm2_5/ || $name_file =~ /sm3_0/ || $name_file =~ /sm3_5/ || $name_file =~ /hdtmos/) {
open(OUTFILE,">/home/synergy/sisa01c/PERL_DEV/Pareto_Lot_SM3_HDTMOS.txt") || die ("Impossible d'ouvrir fichier txt en ecriture");
}
else {
if ($name_file =~ /sm5ap/ || $name_file =~ /sm5cb/ || $name_file =~ /sm5lp/) {
open(OUTFILE,">/home/synergy/sisa01c/PERL_DEV/Pareto_Lot_SM5.txt") || die ("Impossible d'ouvrir fichier txt en ecriture");
}
}
