Thread was ist an der syntax falsch??
(61 answers)
Opened by grey1987 at 2007-11-26 12:25 Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 my $anzahl = 3; getlinefromsocket( $socket, $anzahl); sub getlinefromsocket{ my ($socket,$anz) = @_; my $buffer; my $char; while ($socket->recv($char,1)) { $buffer.=$char; last if length $buffer == $anz; } print $buffer; } Edit: print $buffer eingefügt, damit was ausgegeben wird... OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/) -- Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html Perl-Entwicklung: http://perl-services.de/ |