Hallo liebe Perl-Experte,
ich habe ein Problem, das eigentlich nicht so schwer sein soll, aber ich komme irgendwie nicht auf die Lösung
Muss automatisch Fragen generieren.
Ich habe ein array von den Elementen,die ich aus der Datenbank ausgelesen habe. Dann lese ich eine Datei ein und schaue wenn der bestimmte String vorkommt, muss dieser mit jedem Element aus dem array ersetzt werden.
#!/usr/bin/perl
#beispiel-array
my @array_new=("123","456","789");
open(IN, "<datei.txt") or die $!;
#einlesen des Inhalts meiner datei in ein array
while(<IN>)
{
my $zeile=$_;
push(@array_dat,$_);
}
foreach my $elem(@array_dat)
{
foreach $elem_new(@array_new)
{
$elem=~s/MED/$elem_new/;
print $elem."\n";
}
}
Der Inhalt meiner Datei ist so(ein kleiner Auszug):
Auf welche Anzeichen muss ich bei der MED-Therapie achten?
Bei welchen Störungen werden MED im allgemeinen verschrieben?
Bekommt man bei einer KRA immer einen MED?
Bessern sich KRA, wenn man MED einnimmt?
Ich bekomme den folgenden Output:
Auf welche Anzeichen muss ich bei der 123-Therapie achten?
Auf welche Anzeichen muss ich bei der 123-Therapie achten?
Auf welche Anzeichen muss ich bei der 123-Therapie achten?
Bei welchen St÷rungen werden 123 im allgemeinen verschrieben?
Bei welchen St÷rungen werden 123 im allgemeinen verschrieben?
Bei welchen St÷rungen werden 123 im allgemeinen verschrieben?
Bekommt man bei einer KRA immer einen 123?
Bekommt man bei einer KRA immer einen 123?
Bekommt man bei einer KRA immer einen 123?
Bessern sich KRA, wenn man 123 einnimmt?
Bessern sich KRA, wenn man 123 einnimmt?
Bessern sich KRA, wenn man 123 einnimmt?
Warum wird nur das erste element von dem array_new genommen und was sollte ich tun, damit es korrekter Output generiert wird.
Vielen Dank für Ihre Ratschläge im Voraus.
Gruss,
Lilia
ich habe ein Problem, das eigentlich nicht so schwer sein soll, aber ich komme irgendwie nicht auf die Lösung
Muss automatisch Fragen generieren.
Ich habe ein array von den Elementen,die ich aus der Datenbank ausgelesen habe. Dann lese ich eine Datei ein und schaue wenn der bestimmte String vorkommt, muss dieser mit jedem Element aus dem array ersetzt werden.
#!/usr/bin/perl
#beispiel-array
my @array_new=("123","456","789");
open(IN, "<datei.txt") or die $!;
#einlesen des Inhalts meiner datei in ein array
while(<IN>)
{
my $zeile=$_;
push(@array_dat,$_);
}
foreach my $elem(@array_dat)
{
foreach $elem_new(@array_new)
{
$elem=~s/MED/$elem_new/;
print $elem."\n";
}
}
Der Inhalt meiner Datei ist so(ein kleiner Auszug):
Auf welche Anzeichen muss ich bei der MED-Therapie achten?
Bei welchen Störungen werden MED im allgemeinen verschrieben?
Bekommt man bei einer KRA immer einen MED?
Bessern sich KRA, wenn man MED einnimmt?
Ich bekomme den folgenden Output:
Auf welche Anzeichen muss ich bei der 123-Therapie achten?
Auf welche Anzeichen muss ich bei der 123-Therapie achten?
Auf welche Anzeichen muss ich bei der 123-Therapie achten?
Bei welchen St÷rungen werden 123 im allgemeinen verschrieben?
Bei welchen St÷rungen werden 123 im allgemeinen verschrieben?
Bei welchen St÷rungen werden 123 im allgemeinen verschrieben?
Bekommt man bei einer KRA immer einen 123?
Bekommt man bei einer KRA immer einen 123?
Bekommt man bei einer KRA immer einen 123?
Bessern sich KRA, wenn man 123 einnimmt?
Bessern sich KRA, wenn man 123 einnimmt?
Bessern sich KRA, wenn man 123 einnimmt?
Warum wird nur das erste element von dem array_new genommen und was sollte ich tun, damit es korrekter Output generiert wird.
Vielen Dank für Ihre Ratschläge im Voraus.
Gruss,
Lilia
Comment