Datei upload in Datenbank - #34519 (Datenbanken und Verzeichnisdienste)

dta

2006-07-11 19:54

User since
2006-07-11
11 Artikel
BenutzerIn
[default_avatar]

[quote=sike,11.July.2006, 17:40]

Code: (dl )

1
2
3

open(DATEI, "> boot.sec")|| die " Datei nicht gefunden!";
$boot=<DATEI>;
binmode DATEI;[/b]

[/quote]

Code: (dl )

open(DATEI, "<", "boot.sec") || die("open failed: $!");
binmode DATEI; # binmode vor dem lesen
$boot = do { local $/; <DATEI> }; # Alles auf einmal, siehe perldoc perlvar
close(DATEI);

Und das SQL solltest du auch anders machen:

Code: (dl )

1
2

my $sql=qq{INSERT INTO infos (boot) VALUES (?)};
$dbh->do($sql, {}, $boot);

Dabei wird $boot gleich richtig gequotet. In so nem Bootsektor koennen durchaus Anfuehrungszeichen und dergleichen stehen. :)