Opened by Gast at 2006-09-12 10:48
User since
2006-09-11
179 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-09-11
179 Artikel
BenutzerIn
hast du schon irgendwelchen code ?
also nochmal du wirst ein woerterbuch haben das so aufgebaut ist:
deutsch;english
deutsch;english
deutsch;english
stimmts ? jetzt verstehe ich nicht denn in deinem "woerterbuch" ist kein '-' und oder kein '^' wo soll den das genau hin
edit: hier ist schonmal der anfang ich bin noch am denken wie man denn so was als liste einlesen kann ...
\n\n
<!--EDIT|fraggs|1158047963-->
also nochmal du wirst ein woerterbuch haben das so aufgebaut ist:
deutsch;english
deutsch;english
deutsch;english
stimmts ? jetzt verstehe ich nicht denn in deinem "woerterbuch" ist kein '-' und oder kein '^' wo soll den das genau hin
edit: hier ist schonmal der anfang ich bin noch am denken wie man denn so was als liste einlesen kann ...
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
#!perl
#-fraggs-
use strict;
use warnings;
my $book = 'x:\\locationofbook';
my @liste = "";
print "Wort eingabe: \n";
my $wort = <STDIN>;
open( FILE, "<", $book ) or die $!;
#code to search for the $wort goes here
my $search = $wort
if ($book =~ m/$search/) {
print " $search "; #nicht sicher ob das klappt
} else {
print 'nicht gefunden';
}
close(FILE);
<!--EDIT|fraggs|1158047963-->
mmm twix