NetServer::Generic - CR fehlt auf XP Console
am 28.08.2006 17:20:25 von Gerhard WolfHallo,
wenn ich perl telnet auf diesen Server (s.u.) gehe bekomme ich an meinem
WinXP-Telnet-Eingabeaufforderung zwar \n aber keine \r je zeile
ausgegeben. Die sieht dann so Treppenartig aus...hier ein Beispiel:
C:\windows...
smss.exe
C:\windows...
------------------------------------------------------------ -
C:\windows...
smss.exe
C:\windows...
also CR + NL wäre viel schöner. Nur wie?
------------------------------------------------------------ -----------
use NetServer::Generic;
use Win32::Process::Info;
my $pi = Win32::Process::Info->new ($ENV{COMPUTERNAME}, 'WMI');
my @info = $pi->GetProcInfo ();
my @pids = $pi->ListPids ();
my $server_cb = sub {
my ($s) = shift;
print STDOUT "Echo server: type bye to quit, exit ",
"to kill the server.\n\n";
while ( defined( $tmp =
return if ( $tmp =~ /^bye/i );
$s->quit() if ( $tmp =~ /^exit/i );
print STDOUT "You said:>$tmp\n";
if ($tmp =~ /^ps/i ) {
for $proc (@info) {
print $proc->{'Name'}."\t\t".$proc->{'ExecutablePath'}."\n";
}
}
}
};
my $foo = new NetServer::Generic;
$foo->port(9000);
$foo->callback($server_cb);
$foo->mode("forking");
print "Starting server\n";
$foo->run();