da ich ein TOTALER bin in Perl und meinem kumpel zeigen wollte das ich trotzdem etwas auf die beine stellen kann wollte ich einen mini Perl chat programmieren.
Klappt fast alles:
message.pl:
chat.pl
So meine Probleme sind nun:
1. wie bekomme ich es hin das bei der message.pl nicht die Ausgabe:
und so kommt sondern:
und das blablabla dann wieder verschwindet und ich das "Message:" immernoch dastehen habe und wieder eine Nachricht tippen kann.
2.
zeigt die chat.pl das an
nom: hi
nom: wie gehts?
dann kommt die 5 sek warte zeit und danach steht sowas da
nom: hi
nom: wie gehts?
nom: hi
nom: wie gehts?
P!k4: gut
wie kann ich also machen, dass er die letzte Ausgabe mit der neuen vergleicht und nur das Neue ausgibt.
mfg
nom
Klappt fast alles:
message.pl:
Code:
#!/usr/bin/perl
print "\n\nNickname: ";
chomp ($nick=<STDIN>);
message:
open(file, ">>chat.txt");
print "\nMessage: ";
chomp ($message=<STDIN>);
print file "$nick: $message\n";
close (file);
goto message
# made by nom (C) Backyard-Source Crew
# Contact: nom@backyard-source.net
# http://Backyard-Source.net
chat.pl
Code:
#!usr/bin/perl
chat:
open(file, "<chat.txt");
@chat = <file>;
print @chat;
close (file);
sleep 5;
goto chat;
# made by nom (C) Backyard-Source Crew
# Contact: nom@backyard-source.net
# http://Backyard-Source.net
So meine Probleme sind nun:
1. wie bekomme ich es hin das bei der message.pl nicht die Ausgabe:
Code:
Nickname: ***
Messgae: Hallo
Message: ...
und so kommt sondern:
Code:
Nickname: ***
Message: blablabla
und das blablabla dann wieder verschwindet und ich das "Message:" immernoch dastehen habe und wieder eine Nachricht tippen kann.
2.
zeigt die chat.pl das an
nom: hi
nom: wie gehts?
dann kommt die 5 sek warte zeit und danach steht sowas da
nom: hi
nom: wie gehts?
nom: hi
nom: wie gehts?
P!k4: gut
wie kann ich also machen, dass er die letzte Ausgabe mit der neuen vergleicht und nur das Neue ausgibt.
mfg
nom
Zuletzt bearbeitet: