[CGI] Zeile an Datei anhängen

**BungeeBug**

Hi,

hier das Buch "Perl für Win32" ... der einzige Unterscheid sind eben die Pfade aber das sollte sich schnell in den Griff bekommen lassen ...

http://cgi.ebay.de/ws/eBayISAPI.dll?...category=27461

http://cgi.ebay.de/ws/eBayISAPI.dll?...category=27461

Kosten beide 9,95? + 3,00? !!! Also alles in allem nen Top - Angebot ... Neupreis 30,** ?.
Ich hab mir gestern schon eins bestellt ...

**Luckie**

Dank eines Tipps aus dem Spotlight, geht es jetzt:

markieren

Code:

			#!/usr/bin/perl -w

use strict;

use CGI; # Modul fuer CGI-Programme

use CGI::Carp qw(fatalsToBrowser);

my $cgi = new CGI; # neues Objekt erstellen

# die datei-daten holen

my $file = $cgi->param("myfile");

my $dir = $cgi->param("dir");

my $comment = $cgi->param("comment");

# Content-type fuer die Ausgabe

# print $cgi->header(-type => 'text/html');

# dateinamen erstellen und die datei auf dem server speichern

my $fullpath = $cgi->param("myfile");

my $index = rindex($fullpath, "\\");

my $filename = substr($fullpath, ($index + 1));

my $fname = '../'.$dir.'/'.$filename;

open DAT,'>'.$fname or die 'Error processing file: ',$!;

# Dateien in den Binaer-Modus schalten

binmode $file;

binmode DAT;

my $data;

while(read $file,$data,1024) {

  print DAT $data;

}

close DAT;

my $haccessfile = '../'.$dir.'/.htaccess';

my $newline = 'AddDescription "'.$comment.'" '.$filename;

open(FILE, "[b]>>[/b]$haccessfile") || die 'Cannot locate database file: '. $haccessfile.'!';

print FILE "\n$newline";

close(FILE);

print "Content-Type: text/html\n\n";

print "<head><title>Homepage von Michael Puff - Datei-Uploadbestätigung</title></head>";

print "<html><body>";

print "<h1>Datei-Uploadbestätigung</h1>";

print "<hr>";

print $haccessfile."

";

print $newline."

";

print "Datei [b]".$filename."[/b] erfolgreich nach [b]http://www.luckie-online.de/".$dir."/[/b] hochgeladen.

";

print "<a href=\"http://www.luckie-online.de/sitemanager\">Zurück</a>";

print "</body></html>";

Es haben noch die ">>" bei open gefehlt.

**choose**

Zitat von Luckie:

Es haben noch die ">>" bei open gefehlt.

Schön, dass ist ja genau das, was ich geschrieben habe

Konntest Du etwas zum Locking in Erfahrung bringen? Kann es zB Probleme geben, wenn zwei Prozesser mit Deinem Script die Datei verändern oä?

**Luckie**

Nein. Aber das ist bei mir nicht von Interesse, wenn zwei Prozesse das Script ausführen, dann habe ich ganz andere Probleme als die Konsistenz der Datei.

[CGI] Zeile an Datei anhängen

Re: [CGI] Zeile an Datei anhängen

Re: [CGI] Zeile an Datei anhängen

Re: [CGI] Zeile an Datei anhängen

Re: [CGI] Zeile an Datei anhängen

Forumregeln

choose Registriert seit: 2. Nov 2003 Ort: Bei Kiel, SH 729 Beiträge Delphi 2006 Architect	#13 Re: [CGI] Zeile an Datei anhängen 14. Jan 2004, 17:26 Zitat von Luckie: Es haben noch die ">>" bei open gefehlt. Schön, dass ist ja genau das, was ich geschrieben habe Konntest Du etwas zum Locking in Erfahrung bringen? Kann es zB Probleme geben, wenn zwei Prozesser mit Deinem Script die Datei verändern oä? gruß, choose
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#14 Re: [CGI] Zeile an Datei anhängen 14. Jan 2004, 18:26 Nein. Aber das ist bei mir nicht von Interesse, wenn zwei Prozesse das Script ausführen, dann habe ich ganz andere Probleme als die Konsistenz der Datei. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat