Opened by McLoude at 2007-05-09 18:02
User since
2007-04-16
2 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-04-16
2 Artikel
BenutzerIn
Hallo Zusammen,
ich bin seit ca. 2 Monaten von PHP auf Perl umgestiegen (beruflich notwendig gewesen), daher habe ich noch ein paar Anfängerproblemen. Hier nun mein Problem.
Ich habe eine FAQ-Textdatei in der die Datensätze wie folgt stehen:
%_DATENSATZ_% = Trenner für den Datensatz
%TRENNER_% = Trenner zwischen Frage und Antwort
Im Prinzip wollte ich es mir einfach machen und nur den Split befehl dafür nutzen:
Aber bei dem Code kommt nur Müll raus! Er Trennt schon die Datensätze nicht richtig, interpretiert teilweise Umbrüche und Leerzeichen als Trenner.
Ich bin ratlos. Vielleicht ist ja auch mein ganzer Anfang falsch.
Bin für jeden Lösungsansatz dankbar.
Gruß, McLoude
ich bin seit ca. 2 Monaten von PHP auf Perl umgestiegen (beruflich notwendig gewesen), daher habe ich noch ein paar Anfängerproblemen. Hier nun mein Problem.
Ich habe eine FAQ-Textdatei in der die Datensätze wie folgt stehen:
%_DATENSATZ_% = Trenner für den Datensatz
%TRENNER_% = Trenner zwischen Frage und Antwort
Im Prinzip wollte ich es mir einfach machen und nur den Split befehl dafür nutzen:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
....
open (FAQ,"meinedatei.txt") or die "Fehler beim öffnen der Datei\n$!";
while(<FAQ>)
{
my @faq_datensatz = split (/%_DATENSATZ_%/,%_DATENSATZ_%; #(m/:::/,$_);
foreach ( sort @faq_datensatz ) {
my $datensatz = $faq_datensatz[0];
my @faq_einzeldaten = split(/%_TRENNER_%/,$datensatz );
my $frage = $faq_einzeldaten[0];
my $antw = $faq_einzeldaten[1];
$x = qq{<h2>$frage</h2><p>$antw</p>};
print $x;
}
}
....
Aber bei dem Code kommt nur Müll raus! Er Trennt schon die Datensätze nicht richtig, interpretiert teilweise Umbrüche und Leerzeichen als Trenner.
Ich bin ratlos. Vielleicht ist ja auch mein ganzer Anfang falsch.
Bin für jeden Lösungsansatz dankbar.
Gruß, McLoude