Attachmentname falsch (Bugs) - Perl-Community.de

[thread]17151[/thread]

Attachmentname falsch

Tags: bug Similar Threads

Readers: 17

Articles: hide open all | hide show old branches

+11 replies
bianca

2012-02-13 19:20

User since
2009-09-13
7016 articles
BenutzerIn

Hi!
Habe eben im Thread Farbverlauf meine lokale Datei D:\arbeit\trans.gif hochgeladen. Lade sie hier auch hoch. Als Name wird am Ende D.gif angezeigt.
Richtig wäre trans.gif.
Browser: IE9, OS: Win7
Attachments

image/gif
1 x 1
D.gif

10 print "Hallo"
20 goto 10
- +10 replies
- pq
  
  2012-02-13 19:34
  
  User since
  2003-08-04
  12208 articles
  Admin1
  
  schaff dir nen browser an, der nicht den kompletten pfad bei uploads überträgt =)
  halte ich eh für einen browserbug. was geht den webserver (und -betreiber) meine verzeichnisstruktur an...
  
  aber die generierung des namens ist noch nicht intelligent genug und manuelle umbenennung der dateien ist noch nicht implementiert.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - bianca
    
    2012-02-13 19:39
    
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    2012-02-13T18:34:48 pq
    schaff dir nen browser an, der nicht den kompletten pfad bei uploads überträgt =)
    halte ich eh für einen browserbug. was geht den webserver (und -betreiber) meine verzeichnisstruktur an...
    
    Thema hatten wir schon. Der IE ist halt so und ich finde das ehrlich gesagt auch nicht schlimm, manchmal ist es mir sogar eine Hilfe, zu wissen aus welchem Verzeichnis ich etwas hochgeladen hatte.
    10 print "Hallo"
    20 goto 10
  - +8 replies
  - GUIfreund
    
    2012-02-14 12:12
    
    User since
    2011-08-08
    559 articles
    BenutzerIn
    
    2012-02-13T18:20:42 bianca
    Hi!
    Habe eben im Thread Farbverlauf meine lokale Datei D:\arbeit\trans.gif hochgeladen. Lade sie hier auch hoch. Als Name wird am Ende D.gif angezeigt.
    Richtig wäre trans.gif.
    Browser: IE9, OS: Win7
    
    2012-02-13T18:34:48 pq
    ... die generierung des namens ist noch nicht intelligent genug ... .
    
    Das passiert vermutlich, weil auf dem Server : in Pfaden ein illegales Zeichen ist. Vielleicht kannst du übergangsweise den Basename nehmen. Das ist bestimmt besser als der Partitionsname. Alternative: Illegale Zeichen durch _ ersetzen.
    Gruß
    GUIfreund
    - +7 replies
    - pq
      
      2012-02-14 12:25
      
      User since
      2003-08-04
      12208 articles
      Admin1
      
      es geht nicht darum, was ich machen *könnte*.
      ich war schlicht und einfach zu faul bzw. hatte zu wenig zeit, um das für alle vorkommenden fälle auszuprogrammieren.
      
      basename() kann ich jedenfalls *nicht* nehmen.
      dafür müsste ich ja vorher wissen, welche pfadtrenner verwendet werden (bzw. von welchem OS hochgeladen wird).
      
      ich werde wohl der einfachheit halber (wenn ich denn mal zeit habe), nach / und \ splitten und danach wie gehabt auf \w- matchen. wenn man mal davon ausgeht, dass die meisten vernünftigen browser auf anderen OS nicht den ganzen pfad übertragen, sollte ich da alles mit abdecken.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +6 replies
      - guest wer
        
        2012-02-14 12:31
        
        $name=~!.*([\w-]+)!
        Last edited: 2012-02-14 12:36:02 +0100 (CET)
        
        +5 replies
        
        Linuxer
        
        2012-02-14 12:45
        
        User since
        2006-01-27
        3890 articles
        HausmeisterIn
        
        Damit hast Du dann das letzte Wort-Zeichen oder ein - -- jedoch nicht den kompletten Dateinamen...
        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!
        
        +4 replies
        
        GUIfreund
        
        2012-02-14 13:22
        
        User since
        2011-08-08
        559 articles
        BenutzerIn
        
        Guest wer
        $name=~!.*([\w-]+)!
        
        2012-02-14T11:45:12 Linuxer
        Damit hast Du dann das letzte Wort-Zeichen oder ein - -- jedoch nicht den kompletten Dateinamen...
        
        Wieso? Da steht doch ein +.
        Edit: Allerdings fehlt die Verankerung rechts. So kriegt man also das erste Wort, nicht das letzte. Wenn man Pech hat, doch wieder den Partitionsnamen.
        Edit 2: Und der Punkt sollte mit gematched werden.
        Editiert von GUIfreund: Hinweis wg. Verankerung ergänzt.
        Last edited: 2012-02-14 13:35:14 +0100 (CET)
        Gruß
        GUIfreund
        
        bianca
        
        2012-02-14 13:50
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        Funktioniert denn ($datei_name = $upload_name) =~ s/^.*[\\\/]//g; nicht?
        10 print "Hallo"
        20 goto 10
        
        Linuxer
        
        2012-02-14 13:58
        
        User since
        2006-01-27
        3890 articles
        HausmeisterIn
        
        Da ist ein +, stimmt, da ist aber vorher auch ein *, und beide sind gierig.
        
        Einfach ausgedrückt:
        Der * frisst alles auf, und gibt dann das letzte Wortzeichen wieder frei, damit das + auch noch was hat und zufrieden ist...
        
        Wenn, dann würde ich sowas machen:
        
        Code (perl): (dl )
        
        1 2
        
        # assuming, that /, \ and : are separators and forbidden in filenames $name = ~ m{ ( [^/\\:]+ )$ }x;
        
        Vergleich:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12
        
        perl -wl $name = 'D:\my\path\to\a\file.txt'; print $name; $name =~ m{.*([\w-]+)} ; print $1; $name =~ m{ ( [^/\\:]+ )$ }x; print $1; ^D D:\my\path\to\a\file.txt t file.txt
        
        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!
        
        GUIfreund
        
        2012-02-14 15:15
        
        User since
        2011-08-08
        559 articles
        BenutzerIn
        
        2012-02-14T12:22:21 GUIfreund
        Guest wer
        $name=~!.*([\w-]+)!
        
        2012-02-14T11:45:12 Linuxer
        Damit hast Du dann das letzte Wort-Zeichen oder ein - -- jedoch nicht den kompletten Dateinamen...
        
        Wieso? Da steht doch ein +.
        
        Entschuldigung, du hast natürlich Recht. Da steht nicht nur ein +, sondern auch ein *.
        Gruß
        GUIfreund

View all threads created 2012-02-13 19:20.