Opened by Karsten42 at 2018-04-27 11:09
User since
2018-04-27
1 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2018-04-27
1 Artikel
BenutzerIn
Moin Moin Experten,
So ganz "unbeleckt" bin ich nicht mit Perl jedoch habe ich da ein Problem mit einem Filehandle und tie.
Wie bekomme ich einen Filehandel global oder eine Referenz darauf?
Beispiel das NICHT funktioniert:
Vielen Dank für eure Mühe und Tipps.
beste Grüße
Karsten
modedit Editiert von GwenDragon:
Titel geändert, da in Forum kein Handel mit Files stattfindet ;)
Last edited: 2018-04-27 14:48:58 +0200 (CEST)
So ganz "unbeleckt" bin ich nicht mit Perl jedoch habe ich da ein Problem mit einem Filehandle und tie.
Wie bekomme ich einen Filehandel global oder eine Referenz darauf?
Beispiel das NICHT funktioniert:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
sub open_COM {
...
$tie_ob = tie(*PORT,'Win32::SerialPort', $cfgfile); #Create filehandle only local
...
#DEBUG
print PORT "42, why not?\n"; # Yepp, working
...
}
sub txd {
my $msg = shift;
printf PORT "%s\n\r",$msg; # ouch... NOT working
usleep(200000);
}Vielen Dank für eure Mühe und Tipps.
beste Grüße
Karsten
modedit Editiert von GwenDragon:
Titel geändert, da in Forum kein Handel mit Files stattfindet ;)
Last edited: 2018-04-27 14:48:58 +0200 (CEST)