Datei Öffnen und in mySQL abspeichern

[Nonolon]

Hallo ich soll in mein Praktikumsbetrieb ein Perl-Skript schreiben das aus den Meta-Tags von Html Seiten bestimmte Informationen herausliest und die Infos in eine mySQL Datenbank abspeichern. Nur habe ich davon nicht so viel Ahnung. Ich hoffe ihr könnt mir helfen.

Mit freundlichen Grüßen

Nomolono

Hier der Perl - Skript wie weit ich ihn bis jetzt habe:

#!/usr/bin/perl
use strict;
use CGI::Carp qw/fatalsToBrowser/;
use CGI qw(:standard escapeHTML);
use DBI;
use User::pwent;

	my $wert = param('arb_titel');
	my $my_arb_titel		= param('arb_titel');
	my $my_arb_inhalt		= param('arb_inhalt');
	my $my_arb_author		= param('arb_author');
	my $my_arb_fach			= param('arb_fach');
	my $my_arb_stufe		= param('arb_stufe');
	my $my_arb_datei		= param('arb_datei');
	my $my_arb_erstellt		= param('arb_erstellt');
	my $my_arb_type			= param('arb_type');
	my $my_arb_date			= param('arb_date');

my $tmp_dbs = DBI->connect("DBI:mysql:database=[Datenbank Name]","[Benutzername]", "[Password]") || (die "DB Fehler \n Ende\n\n", exit);
my $tmp_sts;
$tmp_sts = $tmp_dbs->prepare("

            INSERT INTO arbeiten (
            	arb_titel,
                arb_inhalt,
                arb_author,
                arb_fach,
                arb_stufe,
		arb_datei,                        		
		arb_erstellt,
		arb_date
                ) VALUES (
                '$my_arb_titel',
                '$my_arb_inhalt',
                '$my_arb_author',
                '$my_arb_fach',
                '$my_arb_stufe',
		'$my_arb_datei',                        		
		'$my_arb_erstellt',
                '$my_arb_date'
                )
                ");

$tmp_sts->execute;

print header(), start_html("Hallo!"),
	p("Sie haben eingegeben: ", tt(escapeHTML($wert)));
		


	open(TEST,"<hallo.txt");
	print TEST  "\n\n\n hallo\n\n\n";
	close(TEST);

	open(TEST,"hallo.txt");
	my @zeilen = <TEST>;
	close(TEST);

	foreach my $line (@zeilen)
	{
	print $line;
	}

print end_html();

und noch die mySQL Datenbank

CREATE TABLE arbeiten (
	arb smallint(6) unsigned 	NOT NULL auto_increment,
	arb_titel	char(20) 	NOT NULL default '',
	arb_inhalt	char(200) 	NOT NULL default '',
	arb_author	char(100) 	NOT NULL default '',
	arb_fach	char(20) 	NOT NULL default '',
	arb_stufe	char(10) 	NOT NULL default '',
	arb_erstellt	char(15) 	NOT NULL default '',
	arb_datei	char(100) 	NOT NULL default '',
	arb_type	enum('R','B','K') NOT NULL default 'R',	
	arb_date	datetime NOT NULL default '',
	PRIMARY KEY	(arb)
)	TYPE=MyISAM;

 

[renee]

und was funktioniert daran nicht Ein Fehlerbeschreibung würde viel helfen...