Bonjour bonjour,

voila cela fait bien longtemps j'avais pas retoucher a du code perl, et je reprends doucement ... mais je me bute a des petits soucis ...

voila mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
use Win32::Process;
 
 my @ftp = ("C:\\Program Files\\G6 FTP Server\\G6FTPSrv.exe", "G6FTPSrv.exe");
my $pftp;
createproc($ftp[0],$ftp[1],"pftp");
sleep(5);
$pftp->kill(0);
 
sub createproc
{
 
my $proc_path = shift;
my $proc_cmd = shift;
my $p = shift;
 
Win32::Process::Create(
    ${$p},
    $proc_path,
    $proc_cmd,
    1,
    NORMAL_PRIORITY_CLASS,
    '.',
) or die Win32::FormatMessage( Win32::GetLastError() );
}
Bon bien, voila la petite erreur qui me taquine:

Can't call method "kill" on an undefined value at D:\exec.pl line 8.

donc, j'en deduis tres certement qu'a la sortie de la fonction la variable $pftp n'est plus definie ...

je pensais que l'avoir defini avant la sub aurait suffit, mais je colle un peu la..

quelqu'un aurait solution ?

merci