![]() |
|< 1 2 3 4 >| | ![]() |
37 Einträge, 4 Seiten |
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.";
}
}
open(FILEHANDLE,"<",$file) or die
![]() |
|< 1 2 3 4 >| | ![]() |
37 Einträge, 4 Seiten |