Herzlich willkommen im Archiv vom ABAKUS Online Marketing Forum
Du befindest Dich im Archiv vom ABAKUS Online Marketing Forum. Hier kannst Du Dich für das Forum mit den aktuellen Beiträgen registrieren.



 - im Endeffekt sollen die Daten in eine MySQL ...
 - im Endeffekt sollen die Daten in eine MySQL .../Pfad/zu/php -d memory_limit=128M /pfad/zu/script.php


Code: Alles auswählen
#!/usr/bin/perl
$count = 0;
$filecount = 0;
$splitsize = 250000;
$infofound = 0;
open(DATEI, ">/var/www/wiki$filecount.xml");
while($line=<STDIN>) 
{
    #$line =~ s/\s+|\t+//g;
    
    if($line =~ /<\/siteinfo>/)
    {
	push(@TitelZeilen,$line);
	$infofound = 1;
    }
    
    if($infofound == 0)
    {
	push(@TitelZeilen,$line);
    }
    
    if($line =~ /<\/page>/)
    {
	#print "$count <br>\n";
	print DATEI $line;
	
	if($count == $splitsize)
	{
	    $filecount++;
	    $count = 0;
	    print DATEI "</mediawiki>";
	    close(DATEI);
	    open(DATEI, ">/var/www/wiki$filecount.xml");
	    print DATEI @TitelZeilen;
	}
	
	#my @array = split(/\W/, $line);
	#print "$array[2]\n";
	$count ++;
    }
    else
    {
	print DATEI $line;
    }
}