baumgartner
02-06-2005, 23:44
ich lese mit meinen script aus bestimmten gründen alle zeichen einzeln an und will diese dann zusamenfügen. doch dabei rutschen immer wieder zeichen davon.
der sourcecode ist ziemlich gut dokumentiert. ich denke das sollte einen profi die arbeit leicht machen :)
mfg baumi
while(1){
print "linux:> ";
while($char ne "\n"){
$in_cmd_line = "$in_cmd_line$char";
#$in_cmd_line .= $char; geht nicht genauso wie das obere
print $child "CMD_LINE: $char"; #steht am anfang damit das eingegebene \n nicht gesendet wird
$char=&get_STDIN;
print $char; # für debug wird auf stdout geschrieben
}
print "$in_cmd_line\n";
$char=""; # beide variablen leeren
$in_cmd_line="";
}
# Subroutine zum einlesen einzelner zeichen
sub get_STDIN {
ReadMode('cbreak');
my $char=ReadKey(0);
ReadMode('normal');
return $char;
}
der sourcecode ist ziemlich gut dokumentiert. ich denke das sollte einen profi die arbeit leicht machen :)
mfg baumi
while(1){
print "linux:> ";
while($char ne "\n"){
$in_cmd_line = "$in_cmd_line$char";
#$in_cmd_line .= $char; geht nicht genauso wie das obere
print $child "CMD_LINE: $char"; #steht am anfang damit das eingegebene \n nicht gesendet wird
$char=&get_STDIN;
print $char; # für debug wird auf stdout geschrieben
}
print "$in_cmd_line\n";
$char=""; # beide variablen leeren
$in_cmd_line="";
}
# Subroutine zum einlesen einzelner zeichen
sub get_STDIN {
ReadMode('cbreak');
my $char=ReadKey(0);
ReadMode('normal');
return $char;
}