#!/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"
}
}

#!/usr/bin/perl

use strict;
use warnings;

open(titeltxt,"<titel.txt") or die $!;
my @titel=<titeltxt>;
close(titeltxt);

open(urltxt,"<urls.txt") or die $!;
my @urls=<urltxt>;
close(urltxt);

open (sql,">sql.txt") or die $!;

my $subkat = 6;

for my $i(0..scalar(@test)-1){
     if((length($titel[$i]) > 2)&&(length($urls[$i])>2)){
         my $zahl=substr($titel[$i],0,4);
         if($zahl =~ /^\d+$/){
             if   ($zahl<=500){$subkat=5;}
             elsif ($zahl<=1000){$subkat=4;}
             elsif ($zahl<=1500){$subkat=3;}
             elsif ($zahl<=2000){$subkat=2;}
             elsif ($zahl<=2500){$subkat=1;}
             #if($zahl ne ($altezahl+1)){print ($altezahl+1)." fehlt \n";}

             my $romname=$titel[$i];
             $romname =~ s/\n*?$//;
             $romname=~s/'/\\'/g;

             my $romurl=$urls[$i];
             $romurl =~ s/\n*?$//;
             $romurl=~s/'/\\'/g;

             my $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"
     }
}

#!/usr/bin/perl

use strict;
use warnings;

open(my $fh_titel,"<titel.txt") or die $!;
my @titel=<$fh_titel>;
close($fh_titel);

open(my $fh_url,"<urls.txt") or die $!;
my @urls=<$fh_url>;
close($fh_url);

open (my $fh_sql,">sql.txt") or die $!;

my $subkat = 6;

for my $i(0..scalar(@titel)-1){
    if((length($titel[$i]) > 2)&&(length($urls[$i])>2)){
        my $zahl=substr($titel[$i],0,4);
        if($zahl =~ /^\d+$/){
            if   ($zahl<=500){$subkat=5;}
            elsif ($zahl<=1000){$subkat=4;}
            elsif ($zahl<=1500){$subkat=3;}
            elsif ($zahl<=2000){$subkat=2;}
            elsif ($zahl<=2500){$subkat=1;}
            #if($zahl ne ($altezahl+1)){print ($altezahl+1)." fehlt \n";}

            my $romname=$titel[$i];
            $romname =~ s/\n*?$//;
            $romname=~s/'/\\'/g;

            my $romurl=$urls[$i];
            $romurl =~ s/\n*?$//;
            $romurl=~s/'/\\'/g;

            my $romscreen="http://www.deineurl.de/bilder/".$zahl."b.jpg";
            print $fh_sql "INSERT INTO `files`(`kat_id`,`sub_kat_id`,`filename`,`downloadfile`,`screen`) VALUES (1, $subkat, '$romname', '$romurl', '$romscreen');\n"
        }
    }
}
    
close $fh_sql or die $!;