[PERL] Acquisition écran
sandrill0n
Messages postés
81
Statut
Membre
-
sandrill0n Messages postés 81 Statut Membre -
sandrill0n Messages postés 81 Statut Membre -
Bonjour,
Je souhaiterais faire une saisie écran et traiter l'info en PERL.
Exemple :
"Nom du fichier ?"
réponse (à stocker dans la variable $name)
et ensuite utiliser $name pour pouvoir plusieurs fichiers avec un seul programme en PERL (au lieu d'en faire 7 pour les 7 fichiers à ouvrir)
En fait se serait l'équivalent d'un "sscan" en C.
Ou alors est-ce que je doit faire un fichier texte avec tous les noms des fichiers, et je scrute ce fichier ?
Sachant que par la suite je souhaiterais automatiser le tout par un CRON
Merci
Je souhaiterais faire une saisie écran et traiter l'info en PERL.
Exemple :
"Nom du fichier ?"
réponse (à stocker dans la variable $name)
et ensuite utiliser $name pour pouvoir plusieurs fichiers avec un seul programme en PERL (au lieu d'en faire 7 pour les 7 fichiers à ouvrir)
En fait se serait l'équivalent d'un "sscan" en C.
Ou alors est-ce que je doit faire un fichier texte avec tous les noms des fichiers, et je scrute ce fichier ?
Sachant que par la suite je souhaiterais automatiser le tout par un CRON
Merci
A voir également:
- [PERL] Acquisition écran
- Double ecran - Guide
- Capture d'écran whatsapp - Accueil - Messagerie instantanée
- Retourner ecran pc - Guide
- Capture d'écran samsung - Guide
- Capture d'écran mac - Guide
2 réponses
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
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");
}
}</pre>
