Opened by Gast at 2006-03-26 23:53
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
[quote=Wulli,30.03.2006, 17:47]Hallo!
So funktioniert es:
Bit setzen:
[...]
[/quote]
Hier hast du das auch schon gemacht.
Warum das $port="lpt1"? Es hat gar keinen Sinn, weil du ja direkt danach eine neue, lexikalische Variable $port anlegst und das globale $port nie mehr nutzt.*
* Die globale Variable [tt]$port müsste nach der Deklaration des lexikalischen [font=courier]$port[/tt] ohnehin mit $::port oder $main::port angesprochen werden.[/font]
So funktioniert es:
Bit setzen:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
#! C:\Perl\bin\perl
use Device::ParallelPort::drv::win32;
$port="lpt1";
my $port = Device::ParallelPort::drv::win32->new("lpt1");
$port->set_bit(1,1); #TX ein
$port->set_bit(0,1); #Key
[...]
[/quote]
Hier hast du das auch schon gemacht.
Warum das $port="lpt1"? Es hat gar keinen Sinn, weil du ja direkt danach eine neue, lexikalische Variable $port anlegst und das globale $port nie mehr nutzt.*
* Die globale Variable [tt]$port müsste nach der Deklaration des lexikalischen [font=courier]$port[/tt] ohnehin mit $::port oder $main::port angesprochen werden.[/font]