Hallo Forum,
ich muss folgendes programmieren.
Ein Perlscript horcht auf einen Port und waehrend es horcht soll der User jederzeit eine Message eingeben koennen oder ebenso abbrechen koennen; dh. der User soll zB: nur c druecken koennen und dann eine neue Message eingeben koennen.
Leider weiss ich nur nicht, wie ich das bewerkstelligen koennte.
Ich hab mir folgendes zusammengeschustert.
Den wichtigen Teil ( so denke ich es ) habe ich hervorgehoben.
Wenn mir jemand vll. helfen koennte?
Danke vielmals !
ich muss folgendes programmieren.
Ein Perlscript horcht auf einen Port und waehrend es horcht soll der User jederzeit eine Message eingeben koennen oder ebenso abbrechen koennen; dh. der User soll zB: nur c druecken koennen und dann eine neue Message eingeben koennen.
Leider weiss ich nur nicht, wie ich das bewerkstelligen koennte.
Ich hab mir folgendes zusammengeschustert.
Den wichtigen Teil ( so denke ich es ) habe ich hervorgehoben.
Code:
#!/bin/perl
use lib "/etc/orc/scripts/Perl";
use deapi;
#use ReadKey;
my ($user,$password,$hostname,$port,$msgtxt);
$hostname="localhost";
$port="xxx";
$user="xxx";
$password="xxx";
$api=deapi->new($user,$password,$hostname,$port);
while ( 1 ) {
$msgtxt="";
if ( $#ARGV < 2 ) {
print "Please enter message text:\n";$msgtxt=<STDIN>;chomp($msgtxt);
}
else {
($user,$password,$msgtxt) = @ARGV;
}
[color=red]if ( $msgtxt eq "" ) {
print "Listening...\n";
while ( $msgtxt eq "" ) {
my $answer=$api->receive_async();
if ( $answer ne "" ) {
print "\n$answer\n";
}
sysread(STDIN,$msgtxt,1);
# ReadKey 1
}} [/color]else {
$api->send("$msgtxt");
my $answer=$api->receive();
print "\n$answer\n";
}
}
# logout
$api->send("{message_info={message_type=logout}}");
Wenn mir jemand vll. helfen koennte?
Danke vielmals !