partage variable avec fonction
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:
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 :)
