Opened by meck at 2012-06-18 19:50
User since
2012-06-18
3 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2012-06-18
3 Artikel
BenutzerIn
Hallo,
drehe mich gerade im Kreis und brauche Hilfe. Ich habe eine Lösung gefunden
die jedoch in einer Schleife pack benutzt. Das geht doch
bestimmt eleganter ?
Last edited: 2012-06-18 20:09:05 +0200 (CEST)
drehe mich gerade im Kreis und brauche Hilfe. Ich habe eine Lösung gefunden
die jedoch in einer Schleife pack benutzt. Das geht doch
bestimmt eleganter ?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl
use strict;
our @send;
fillbuffer();
my $buf;
foreach (@send)
{
$buf=$buf.pack("c",$_);
}
my $len=@send;
print "<$buf> <$len>";
# $ok=$client_socket->syswrite($buf,$len);
sub fillbuffer
{
my $a=STX();my $b=0x11;my $c=0x12;my $d=ETX();
@send=($a,$b,$c,$d);
}
sub STX() { "\002" };
sub ETX() { "\003" };
Last edited: 2012-06-18 20:09:05 +0200 (CEST)