#!/usr/bin/perl
#########################################################
## Version Test Erstellt: 14.12.2010 Verfasser: Bremm
#########################################################

use DBI();
use Cwd;

$file_to_read = "raw.dat";
$table = "sonde";

# Connect to the database.
my $dbh = DBI->connect("DBI:mysql:database=test;host=localhost",
                         "root", "gian",
                         {'RaiseError' => 1});

#oeffnet Datei
if (open (SYSHANDLE,"<$file_to_read"))  { print "\n\t\tEinlesen beginnt ($file_to_read).\n"; }
else    { print "\n\n\t\tFehler: konnte \"$file_to_read\" nicht oeffnen... :-(\n"; exit; }

$dbh->do("DROP TABLE $table");
$dbh->do("CREATE TABLE $table (id VARCHAR(50))");

#liest Datei zeilenweise ein. Solange wie Zeilen vorhanden sind
while (<SYSHANDLE>)
{
    $dbh->do("INSERT INTO $table VALUES (". $dbh->quote($_) .")"); 
}       

printf ("\t\tZeilen eingelsesen und Datei geschlossen\n");

#!/usr/bin/perl
#########################################################
## Version Test Erstellt: 14.12.2010 Verfasser: Bremm
#########################################################

use Cwd;
use IO::Handle;

$file_to_write = "raw.dat";

if (open (SYSHANDLE,">$file_to_write")) { print "\n\t\tSchreiben beginnt ($file_to_write).\n"; }
else    { print "\n\n\t\tFehler: konnte \"$file_to_write\" nicht oeffnen... :-(\n"; exit; }
SYSHANDLE->autoflush(1);

for(my $i = 1; $i <= 100; $i++) {
 print SYSHANDLE "$i\n";
 sleep(1);
}
close(SYSHANDLE);