61 lines
1.7 KiB
Perl
61 lines
1.7 KiB
Perl
|
#!/usr/bin/perl
|
|||
|
|
|
|||
|
|
print "*** GEO-IP Datenrotator Alexander Fehler ***\n\n\n";
|
|||
|
|
@Zeilen = ("");
|
|||
|
|
open(GEODATA, "<geoip.csv") || die " ******************************************** \n Datei konnte nicht gefuden werden:\n Bitte Ueberpruefen Sie den Pfad. \n\n Die .csv Datei muss im selben Ordner liegen und geoip.csv heissen\n ********************************************\n\n\n";
|
|||
|
|
while(<GEODATA>)
|
|||
|
|
{
|
|||
|
|
$index=0;
|
|||
|
|
@string=split(/,/,$_);
|
|||
|
|
for(@string)
|
|||
|
|
{
|
|||
|
|
if($index==0)
|
|||
|
|
{
|
|||
|
|
$str = "@string[$index]";
|
|||
|
|
$index++;
|
|||
|
|
}
|
|||
|
|
else
|
|||
|
|
{
|
|||
|
|
|
|||
|
|
$str = "$str,@string[$index]";
|
|||
|
|
$index++;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
chomp($str);
|
|||
|
|
push(@Zeilen_neu,$str);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
close(GEODATA);
|
|||
|
|
print "*** Datei wurde eingelesen und geschlossen *** \n ";
|
|||
|
|
print "\n\n";
|
|||
|
|
|
|||
|
|
print "*** Datei wird zum Schreiben geoeffnet ***\n";
|
|||
|
|
open(GEODATASQL, ">geoip.sql"); # SQL-Datei zum Schreiben <20>ffnen
|
|||
|
|
$schreib_zaehler=0;
|
|||
|
|
for(@Zeilen_neu) # solange Daten in der GEOIP-Liste sind
|
|||
|
|
{
|
|||
|
|
# print @Zeilen_neu[$schreib_zaehler];
|
|||
|
|
#print "\n\n\n\ntest ".$_."\n\n\n\n";
|
|||
|
|
print GEODATASQL "INSERT INTO d3geoip VALUES(@Zeilen_neu[$schreib_zaehler]);\n"; # Aktuellen Datensatz schreiben
|
|||
|
|
$schreib_zaehler++;
|
|||
|
|
}
|
|||
|
|
# print GEODATASQL "INSERT INTO d3geoip VALUES(@Zeilen_neu[$schreib_zaehler]);\n"; # Aktuellen Datensatz schreiben
|
|||
|
|
close(GEODATASQL);
|
|||
|
|
print "\n Es wurden d",$schreib_zaehler," Datensaetze geschrieben\n"; # Nur zur Kontrolle: auf Standardausgabe*/
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
#@string=split(/,/,$string);
|
|||
|
|
#$index=0;
|
|||
|
|
#for(@string)
|
|||
|
|
#{
|
|||
|
|
#$str = "$str,@string[$index]";
|
|||
|
|
|
|||
|
|
#}
|
|||
|
|
|
|||
|
|
#print $str."\n";
|
|||
|
|
#push(@zeile,$str);
|
|||
|
|
#print @zeile."\n";
|
|||
|
|
|