#! /usr/bin/perl

use strict;
use warnings;
use DBI;

my $db = "kat1";
my $host = "localhost";
my $user = "root";
my $password = "";


my $dbh = DBI->connect("DBI:mysql:$db:$host",$user,$password)
    or die "can not connect $DBI::errstr\n";


#--------sql-abfrage------------------

my $sql = "Select MainContent from kat1 where id<30";
my $sth = $dbh->prepare($sql);
$sth->execute();

my  $anz=1;

while( my ($kat) = $sth->fetchrow_array())
{
   my  $file="$anz.txt";   
    open(DATEI, ">$file") || die "Kann $file nicht öffnen";
    print DATEI $kat;
    close(DATEI) || die "Kann $file nicht schließen";
    $anz++;   
}
 
#----db_verbindung sauber beenden-------------------------
$sth->finish ();#ergebnismenge schliessen
$dbh->disconnect();#verbindung zum server schliessen
exit();