Hallo,ich hab hier ein Skript was tabellen in eine .txt schreibt die man dann in mysql impotieren kann!
Mein Problem hier ist das das Skript leider nur Dateien in die .txt schreibt die anfangs nummeriert sind.
Jetzt bekomme ich es einfach nicht hin das es Dateien einträgt die nicht mit einer nummer anfangen sondern alphabetisch geordnet sind!
hier mal das skript:
#!/usr/bin/perl
open(titeltxt,"<titel.txt");
@titel=<titeltxt>;
close(titeltxt);
open(urltxt,"<urls.txt");
@urls=<urltxt>;
close(urltxt);
open (sql,">sql.txt");
$anzahl=@titel;
$zahl=0;
for($i=0;$i<$anzahl;$i++){
if((length($titel[$i]) > 2)&&(length($urls[$i])>2)){
$zahl=substr($titel[$i],0,4);
if ($zahl<=2500){$subkat=5;}
if ($zahl<=2000){$subkat=4;}
if ($zahl<=1500){$subkat=3;}
if ($zahl<=1000){$subkat=2;}
if ($zahl<=500){$subkat=1;}
$zahl=$zahl+1-1;
if($zahl ne ($altezahl+1)){print ($altezahl+1)." fehlt \n";}
$altezahl=$zahl;
$romname=$titel[$i];
while($romname=~/\n/g){chop($romname);}
$romurl=$urls[$i];
while($romurl=~/\n/g){chop($romurl);}
$romname=~s/'/\\'/g;
$romurl=~s/'/\\'/g;
$romscreen="http://www.deineurl.de/bilder/".$zahl."b.jpg";
print sql "INSERT INTO `files`(`kat_id`,`sub_kat_id`,`filename`,`downloadfile`,`screen`) VALUES (1, $subkat, '$romname', '$romurl', '$romscreen');\n"
}
}
und hier ein auszug aus der sql.txt
INSERT INTO `files`(`kat_id`,`filename`,`downloadfile`,`screen`) VALUES (5, 'dateiname', 'http://www.deineurl.de/ziel.rar', 'http://www.deineurl.de/bilder/0001b.jpg');
wie bekomm ich es jetzt hin das das skript auch dateien ausliest die alphabetisch geordnet sind (in extra txt files, wie man oben sieht)
wäre schön wenn mir jemand helfen könnte!
mfg con
Datum: 08.07.2006-17:32
SQL Tabellen mit Perl erstellen
