Dateiupload - Script (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

[thread]13236[/thread]

Dateiupload - Script

Leser: 18

Articles: hide open all | hide show old branches

+11 replies
Gast Manuel

2009-03-16 11:34
Hallo zusammen!

Ich hätte eine Frage zu einem Dateiupload, an dem ich bereits mehrere Tage hänge...

Und zwar realisiere ich den Dateiupload über ein im Internet zum Download verfügbares Script, wobei der Upload folgendermaßen aussieht:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

my $req = new CGI; my $file = $req->param("FILE$onnum"); if ($file ne "") { my $fileName = $file; $fileName =~ s!^.*(\\|\/)!!; $newmain = $fileName; if ($allowall ne "yes") { if (lc(substr($newmain,length($newmain) - 4,4)) ne $theext) { $filenotgood = "yes"; } } if ($filenotgood ne "yes") { open (OUTFILE, ">$basedir/$fileName"); print "$basedir/$fileName<br>"; while (my $bytesread = read($file, my $buffer, 1024)) { print OUTFILE $buffer; } close (OUTFILE); } }
Soweit so gut...das funktioniert. Mein Problem ist jedoch, dass ich gerne die Temp-Datei auslesen will um zu schauen wie viel bereits hochgeladen wurde. Über ein Javascript aktualisiere ich dann eine Statusanzeige, die mir den Prozent-Status anzeigen soll. Ich habe nur keine Ahnung wie ich an die temporäre Datei komme und wie ich die aktuelle Größe auslese. Könnt ihr mir da weiter helfen?

Vielen lieben Dank,
Manuel
www.der-webdesigner.net
- +10 replies
- Linuxer
  
  2009-03-16 15:24
  
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  
  Was für eine Temp-Datei meinst Du?
  Ich kann in dem Code-Schnipsel keinen Hinweis auf eine solche finden.
  
  Die Daten werden nach $basedir/$fileName geschrieben, ist das Deine Temp-Datei?
  Wenn ja, dann hast Du doch schon den Pfad zu der Datei.
  
  Die Größe einer Datei kannst Du mit dem Operator -s ermitteln, siehe perldoc -f -X
  
  edit:
  PS: Ausserdem ist das Skript mit Vorsicht zu geniessen, weil einfachste Kontrollen fehlen.
  Das Öffnen der Ausgabedatei wird nicht auf Mißerfolg kontrolliert; ebensowenig das
  Schreiben in den Filehandle und auch nicht das Schließen desselben...
  Last edited: 2009-03-16 15:26:55 +0100 (CET)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +3 replies
  - Gast Manuel
    
    2009-03-16 19:07
    
    Hi du!
    
    Danke für deine Antwort!
    Wo kann ich mir denn mal ein Upload-Script mit entsprechenden Sicherheitsmaßnahmen anschauen? Ich bin recht fit in PHP, aber in Perl fehlt mir ehrlich gestanden das Grundwissen.
    
    Die Datei die ich dort angegeben habe wird doch erst geschrieben sobald diese vollständig hochgeladen ist oder irre ich mich da? PHP erzeugt beispielsweise eine temporäre Datei in einem Temp-Verzeichnis. Sobald die Datei fertig hochgeladen wurde wird die Datei dann in das richtige Verzeichnis verschoben.
    
    Wie läuft das in Perl ab?
    
    Vielen lieben Dank für die Hilfe!
    Manuel
    - GwenDragon
      
      2009-03-16 19:40
      
      User since
      2005-01-17
      14783 Artikel
      Admin1
      
      CGI bietet selbst eine kleine Funktion für den Upload an.
      http://search.cpan.org/~lds/CGI.pm-3.42/CGI.pm#CRE...
      Last edited: 2009-03-16 19:58:44 +0100 (CET)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - GwenDragon
      
      2009-03-18 10:36
      
      User since
      2005-01-17
      14783 Artikel
      Admin1
      
      Warum verwendest du kein upload_hook?
      msg #107352
      Last edited: 2009-03-18 10:37:37 +0100 (CET)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +6 replies
  - Struppi
    
    2009-03-16 19:53
    
    User since
    2006-02-17
    628 Artikel
    BenutzerIn
    
    2009-03-16T14:24:13 Linuxer
    Was für eine Temp-Datei meinst Du?
    Ich nehme an, er meint die Temporäre Datei die CGI.pm während dem upload anlegt.
    
    An dieses müßte man per $CGITempFile->asString kommen, habe damit aber auch keine Erfahrung.
    - +5 replies
    - Gast Manuel
      
      2009-03-17 11:21
      
      Danke euch beiden für die Antwort!
      
      Soll ich also besser die Funktion upload() anstatt open() verwenden? Ich hatte mir halt andere Scripte angeschaut wie es dort realisiert wurde, da ich mich für ein Script von 0 auf wesentlich mehr in Perl einlesen müsste, wozu mir momentan leider die Zeit fehlt.
      
      Um vielleicht kurz zu erklären was ich möchte:
      Bevor der Dateiupload gestartet wird, wird ein Popup geöffnet. Dort soll ein Script alle 3 Sekunden schauen wie groß die temporäre Datei ist um eine %-Zahl ausgeben zu können.
      Bisher hatte ich es so gesehen, dass das Hauptscript eine Temp-Datei mit einem ganz bestimmten Namen, beispielsweise mit einer angehangenen SessionId anlegt. Diese wird dem Popup übergeben, so dass dieses auf die Datei zugreifen kann. Neben der Tempdatei wird eine weitere Datei geschrieben, in der die Dateigröße der finalen Datei steht. Somit kann ich dann auch den aktuellen Status des Uploads berechnen.
      
      Demnach hätte ich 2 Fragen: Wie realisiere ich einen etwas sichereren Upload mittels Perl und wie komme ich an diese Temp-Datei. Manchmal legt Perl eine Datei im Ordner /TMP an. Aber irgendwie auch nicht immer...und automatisch gelöscht scheint diese Datei auch nicht zu werden.
      
      Vielen lieben Dank!
      Manuel
      - +4 replies
      - Struppi
        
        2009-03-17 12:57
        
        User since
        2006-02-17
        628 Artikel
        BenutzerIn
        
        Wie gesagt, du kommst evtl. an den Namen über das oben genannte Objekt.
        
        +3 replies
        
        Gast Manuel
        
        2009-03-18 02:56
        
        Hi du!
        
        Ich verstehe nicht wie ich asString einsetzen muss...
        
        Folgendes habe ich jetzt nochmal ausprobiert für den Upload:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        my ($bytesread, $buffer); my $numbytes = 1024; my $filename2 = $query->param('filename'); open (OUTFILE, ">", "$upload_dir/$filename") or die "Couldn't open $upload_dir for writing: $!"; while ($bytesread = read($filename2, $buffer, $numbytes)) { print OUTFILE $buffer; } close OUTFILE;
        
        So, das geht zwar, aber er schreibt die Datei erstmal in den Hauptspeicher und sobald er die Datei schließt wird sie erst geschrieben...so komme ich aber nicht an die aktuelle Größe der Datei beim Upload.
        
        Jetzt habe ich folgendes gefunden:
        
        Code (perl): (dl )
        
        use File::Temp qw ( tempfile );
        
        Ich weiss nur leider nicht wie ich diese tempfile-Funktionen einsetze und ob diese wirklich das sind was ich suche.
        
        Könnte mir da jemand bitte etwas mehr sagen als nur ein Verweis auf die Doku? Ich habe wirklich Nächte lang nachgelesen, eben das Script von 0 an nochmals geschrieben um jede Zeile bis ins Detail zu verstehen und mittlerweile weiss ich wie das Script funktioniert...
        
        Dann habe ich noch etwas anderes gefunden:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
        
        open(TMP,">","$post_data_file") or &bye_bye ("can't open temp file"); my $i=0; $ofh = select(TMP); $| = 1; select ($ofh); while (read (STDIN ,$LINE, 4096) && $bRead < $len ) { $bRead += length $LINE; select(undef, undef, undef,0.35); # sleep for 0.35 of a second. # Many thanx to Patrick Knoell who came up with the optimized value for # the duration of the sleep $i++; print TMP $LINE; } close (TMP);
        
        Kann mir das jemand erklären was da genau gemacht wird? Ist das vielleicht der Trick mit dem Timer? Denn mir scheint als wäre es damit machbar...nur funktioniert das bei mir nicht so richtig...
        
        Vielen lieben Dank!!!
        Manuel
        
        +2 replies
        
        Struppi
        
        2009-03-18 09:22
        
        User since
        2006-02-17
        628 Artikel
        BenutzerIn
        
        Naja, in dem Skript das den Upload ausführt, kommst du (vermutlich) an den Dateinamen des temporären Skripts über $CGITempFile->asString, den musst du irgendwie dem Skript übergeben, dass den Status überprüfen woll.
        
        Gast Manuel
        
        2009-03-18 10:02
        
        Ich weiss aber leider noch immer nicht wie ich die von dir genannte Funktion einsetze und wohin diese wenn müsste...
        Ich habe auch mal selbst eine Tempdatei geschrieben mit tempfile() und darüber dann ausgelesen wie die Datei heißt. Aber auch dort das Gleiche: Die Temp-Datei ist erst sichtbar wenn der Upload fertig ist...warum auch immer...meiner Meinung nach fehlt da quasi irgendwie sowas wie ein Flush oder so, der die Daten dann zwischendurch schreibt.
        
        Lg,
        Manuel

View all threads created 2009-03-16 11:34.