Opened by Gast at 2006-01-22 20:57
Hey!
Ich habe versucht ein Programm zu schreiben, mit dem man "chatten" kann und es dabei lernt. Bsp :
Man tippt ein "Hallo"
Das Programm antwortet mit irgendeiner String z.B. "Auto"
Danach wird man gefragt ob die Antwort gepast hat.
Da man auf "Hallo" eher etwas wie "Guten Tag" oder "Wie gehts?" erwartet tippt man "Nein". Das Programm fragt einen jetzt danach wie es hätte antworten sollen, also tippen wir "Guten Tag" ein.
Jetzt wird das ganze in einen Text-Dokument gespeichert. Das sollte dann ungefähr so aussehen :
Hallo | Guten Tag
Hallo wäre das was der User eingegeben hat , Guten Tag das womit das Program antwortete und der strich dazwischen trennt input und output.
Was ich bis jetzt habe funktioniert nicht (bin noch ein Anfänger mit perl) :
KAnn mir da jemand weiterhelfen?
Ich habe versucht ein Programm zu schreiben, mit dem man "chatten" kann und es dabei lernt. Bsp :
Man tippt ein "Hallo"
Das Programm antwortet mit irgendeiner String z.B. "Auto"
Danach wird man gefragt ob die Antwort gepast hat.
Da man auf "Hallo" eher etwas wie "Guten Tag" oder "Wie gehts?" erwartet tippt man "Nein". Das Programm fragt einen jetzt danach wie es hätte antworten sollen, also tippen wir "Guten Tag" ein.
Jetzt wird das ganze in einen Text-Dokument gespeichert. Das sollte dann ungefähr so aussehen :
Hallo | Guten Tag
Hallo wäre das was der User eingegeben hat , Guten Tag das womit das Program antwortete und der strich dazwischen trennt input und output.
Was ich bis jetzt habe funktioniert nicht (bin noch ein Anfänger mit perl) :
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#Neural Network Program
$aus = 1;
while ($aus){
print "Please enter a phrase:\n\n";
my $input = <STDIN>;
print "Was that the correct answer?\n";
$answer = <STDIN>;
if($answer =~ "Yes") {
open(infile, "C:\Dokumente Und Einstellungen\Maxi\Desktop\BOT\learn.tst")
}
else {
print "Oh, Then you will have to reconfigurate me.\n";
}
}
KAnn mir da jemand weiterhelfen?