Opened by Gast at 2006-09-12 10:48
User since
2006-03-29
1520 Artikel
BenutzerIn
2006-03-29
1520 Artikel
BenutzerIn
Kannst du den Garantieren das die Wörter mit einem "-" getrennt werden, und dieser Bindestrich auch nicht in einem der Wörter vorkommt?
Ansonsten öffnest du einfach die Datei, und liest sie Zeilenweise ein, dann kannst du die Zeilen einfach durch ein Split trennen.
Danach steht in $german der erste Teil, und in $english der Zweite Teil. Wenn dort nun wieder die Wörter durch ein Semikolion getrennt werden, kannst du wieder ein split machen.
Anstatt einen String kannst du bei "split" aber auch eine Regex angeben. Wenn du Leerzeichen vor oder nach dem Wort Löschen möchtest dann solltest du das tun. Du solltest aber in der Regex runde Klammern vermeiden, da sie eine spezielle Bedeutung bekommen. Wenn du etwas gruppieren möchtest, dann musst du die nicht speichernden Klammern benutzen.
Ausgabe:
\n\n
<!--EDIT|sid burn|1158071078-->
Ansonsten öffnest du einfach die Datei, und liest sie Zeilenweise ein, dann kannst du die Zeilen einfach durch ein Split trennen.
Code (perl): (dl
)
my ($german, $english) = split '-', $line;
Danach steht in $german der erste Teil, und in $english der Zweite Teil. Wenn dort nun wieder die Wörter durch ein Semikolion getrennt werden, kannst du wieder ein split machen.
Code (perl): (dl
)
my @words = split ';', $german
Anstatt einen String kannst du bei "split" aber auch eine Regex angeben. Wenn du Leerzeichen vor oder nach dem Wort Löschen möchtest dann solltest du das tun. Du solltest aber in der Regex runde Klammern vermeiden, da sie eine spezielle Bedeutung bekommen. Wenn du etwas gruppieren möchtest, dann musst du die nicht speichernden Klammern benutzen.
Code: (dl
)
(?: ... )
Code: (dl
)
1
2
3
4
my $string = 'frei; kostenlos - free';
my ($german, $english) = split /\s*-\s*/, $string;
print "$_\n" for split /\s*;\s*/, $german;
Ausgabe:
\n\n
<!--EDIT|sid burn|1158071078-->
Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de