Opened by alla at 2009-12-04 09:54
User since
2009-10-19
21 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2009-10-19
21 Artikel
BenutzerIn
Hallo liebe Perl-Junkies,
ich hab folgendes Problem: ich habe eine Schleife, die soll durchlaufen und am Ende jedes Zyklus soll die Ausgabe in eine variable Datei (der Name der Datei soll variabel sein) gespeichert werden. D.h. die while-Schleife endet, die Ausgabe wird in eine Datei geschrieben, die einen variablen Namen enthält, z.B. wenn meine $id gerade den Wert "1234" hat, dann soll die Ausgabedatei auch "1234.txt" heißen.
Was mir unklar ist:
1. Wie man das in der Schleife definiert, dass es jedes Mal anders speichern soll?
2. Wie definiere ich je nach der Belegung einer Variable den Name der Ausgabedatei.
Meine while-Schleife sieht ungefähr so aus (So wird es einmal eingelesen und einmal in die Datei bla.txt geschrieben):
Vielen Dank schon mal für Eure Antworten!
Gruß
Alla
ich hab folgendes Problem: ich habe eine Schleife, die soll durchlaufen und am Ende jedes Zyklus soll die Ausgabe in eine variable Datei (der Name der Datei soll variabel sein) gespeichert werden. D.h. die while-Schleife endet, die Ausgabe wird in eine Datei geschrieben, die einen variablen Namen enthält, z.B. wenn meine $id gerade den Wert "1234" hat, dann soll die Ausgabedatei auch "1234.txt" heißen.
Was mir unklar ist:
1. Wie man das in der Schleife definiert, dass es jedes Mal anders speichern soll?
2. Wie definiere ich je nach der Belegung einer Variable den Name der Ausgabedatei.
Meine while-Schleife sieht ungefähr so aus (So wird es einmal eingelesen und einmal in die Datei bla.txt geschrieben):
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
while ($line = <FILE>) {
chomp($line);
$content = get $line;
open(EXT, ">bla.txt");
if(not defined $content) {
print ERR "$line\n";
} else {
while ($content =~ m/"(regex)"/g) {
$url = $1;
# print $url;
my $wholeurl = "$line$url";
print EXT "$wholeurl\n";
}
exit;
}
}Vielen Dank schon mal für Eure Antworten!
Gruß
Alla