Discussion :

[poirier]

Bonjour,

Je viens de faire des essais plus ou moins concluant avec des scripts PERL et j'ai besoin d'infos complémentaires sur les possibilités de PERL, en particulier sur les instructions liées aux accés sur les fichiers.

Puis-je à partir d'un script PERL lancer un executable et via quel instruction, merci.

[GLDavid]

Tout à fait, tu peux lancer un exécutable.
Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
`notepad`;

Sous Win, tu lanceras le notepad.
A noter, bientôt un peit tuto sur les forks et les processus en fonction de votre OS écrit par votre serviteur.

@ ++

[poirier]

Puis-je avoir un peu plus de détail. En effet, j'ai récuperé différentes documentation sur la programmation PERL et les seules instructions que j'ai vu liée aux fichiers c'est:

Possibilité d'ouvrir un fichier
Possibilité d'ecrire dans un fichier
lancer une commande systeme

Merci d'avance

[GLDavid]

Pour la lecture et écriture de fichiers, je te recommande ce thread : http://www.developpez.net/forums/vie...808&highlight=
Quelle émotion, c'était mon premier post sur ce forum Versons une larme pour la nostalgie !
Pour les processus, tu peux utiliser ce thread : http://www.developpez.net/forums/vie...837&highlight=
Mais sincèrement avec tu aurais déjà trouvé des éléments de réponses, et n'oublies pas est ton ami !

@ ++

[dmitry_ovsianko]

Une petite référence.

Pour lancer un processus, attendre son finissement et obtenir son stdout comme variable, il faut utiliser l'opérateur qx (``): http://www.perldoc.com/perl5.8.4/pod...like-Operators.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
my $out = `$commande $cles`;
my $out = qx[$commande $cles];

Pour lancer un processus, attendre son finissement et obtenir son code de terminaison comme variable, il faut utiliser la fonction system: http://www.perldoc.com/perl5.8.4/pod/func/system.html.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
my $code = system ($commande, $cle1, $cle2);

Pour lancer un processus, lui passer le contrôle et ne jamais revenir, il faut utiliser la fonction exec: http://www.perldoc.com/perl5.8.4/pod/func/exec.html.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
exec ($commande);

Pour lancer un processus et à la fois ouvrir son STDIN ou STDOUT comme handle accessible dans le script, il faut utiliser une des formes spéciales de la fonction open http://www.perldoc.com/perl5.8.4/pod...tml#Pipe-Opens

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
open(PRINTER, "| lpr -Plp1")    || die "can't run lpr: $!";
print PRINTER "stuff\n";
close(PRINTER)                  || die "can't close lpr: $!";  
 
open(NET, "netstat -i -n |")    || die "can't fork netstat: $!";
while (<NET>) { }               # do something with input
close(NET)                      || die "can't close netstat: $!";

Pour lancer un processus et à la fois ouvrir son STDIN et STDOUT comme handles accessibles dans le script, il faut utiliser la fonction open2
http://www.perldoc.com/perl5.8.4/pod...nother-Process

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
use FileHandle;
use IPC::Open2;
$pid = open2(*Reader, *Writer, "cat -u -n" );
print Writer "stuff\n";
$got = <Reader>;

Pour lancer un processus gérable sous Windows, il faut utiliser le module use Win32:rocess http://aspn.activestate.com/ASPN/doc...2/Process.html

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    use Win32::Process;
use Win32;
sub ErrorReport{
    print Win32::FormatMessage( Win32::GetLastError() );
}
Win32::Process::Create($ProcessObj,
                            "C:\\winnt\\system32\\notepad.exe",
                            "notepad temp.txt",
                             0,
                             NORMAL_PRIORITY_CLASS,
                             ".")|| die ErrorReport();
$ProcessObj->Suspend();
$ProcessObj->Resume();
$ProcessObj->Wait(INFINITE);

[Choupi]

Comme l'a fait remarqué GlDavid, toutes ces infos sont dispos dans d'anciens sujets et dans l'aide de perl...

Merci dmitry_ovsianko d'avoir synthétisé tout ca mais je pense que Poirier peut chercher dans l'aide seul.

[poirier]

Merci à vous tous pour vos informations, je pense pouvoir m'en tirer

[Choupi]

Et bien revient si pb de toute facon

Pense au tag resolu (bouton en bas à gauche de la page).