Opened by Gast at 2006-01-22 20:57
So, hab jetzt mal ne verbesserte(erweiterte) Version des scriptes gepostet :
Erklärung : Man tippt was ein z.B. "Hallo" und das Program sucht in einem Textdokument nach der passenden Antwort(z.B. Hi, Wie gehts?). Falls es diese nicht findet, fragt es , was es auf das was der User eingegeben hat antworten soll.
Das ganze ,also der User input und die Antwort werden dann in dem Textfile gespeichert und so kann man dem Programm ziemlich schnell ziemlich viel beibringen.
Es gibt noch einige Sachen die geändert werden müssen wie z.B., dass es nicht immer die alten Daten überschreibt und das es Input und Antwort mit einem "|" trennt.
mfg,
Cleric03
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
use warnings
print "IR-SERIES 0.1 (C) COPYRIGHT M.REINHARDT\n";
open (FILE, "./file.txt");
my @data = <FILE>;
close (FILE);
chomp @data;
while( 1 )
{
my $input = <STDIN>;
last if( $input =~ /isses|ayaya/i );
my $found = 0;
foreach my $line (@data)
{
my ($in,$out) = split(/\|/, $line, 2);
if($input =~ $in){
print "$out\n";
$found = 1;
}
}
if( !$found )
{
print "Wie soll ich darauf antworten?: ";
my $answer = <STDIN>;
chomp($answer);
open (FILE, "> ./file.txt");
print FILE $answer."\n";
close FILE;
print ".\nOK. Eintrag wurde gespeichert.";
}
}
Erklärung : Man tippt was ein z.B. "Hallo" und das Program sucht in einem Textdokument nach der passenden Antwort(z.B. Hi, Wie gehts?). Falls es diese nicht findet, fragt es , was es auf das was der User eingegeben hat antworten soll.
Das ganze ,also der User input und die Antwort werden dann in dem Textfile gespeichert und so kann man dem Programm ziemlich schnell ziemlich viel beibringen.
Es gibt noch einige Sachen die geändert werden müssen wie z.B., dass es nicht immer die alten Daten überschreibt und das es Input und Antwort mit einem "|" trennt.
mfg,
Cleric03