Umlaute in Dateinamen (Allgemeines zu Perl)

[thread]19280[/thread]

Umlaute in Dateinamen

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+5 replies
Gast murks86

2014-09-15 14:31
Hallo,

ich habe mir ein kleines Skript geschrieben, welches die ersten drei Buchstaben eines Dateinamens analysiert und anschließend in den passenden Ordner (der die drei gleichen Buchstaben trägt) einsortiert. Gibt es keinen passenden Ordner, wird die Datei in den Ordner lostandfound verschoben. Das funktioniert soweit auch recht gut, bis zu dem Punkt, an dem die Dateinamen Umlaute enthalten. In diesem Fall werden die entsprechenden Dateien trotz bestehendem Ordner mit entsprechendem Namen in lostandfound geschoben.

Die pdf-Dateien werden unter Windows7 mittels Adobe PDF-Printer erzeugt. Als Perl Version läuft: ActivePerl 5.18.2.1801
Code: (dl )

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

use File::Copy; my $working = "C:/Spektrenlager/PDFOutput/"; my $target = "C:/Spektrenlager/PDFOutput/sortiert/"; my $unknown = "lostandfound/"; chdir $working; my @Dateien = glob("*.pdf"); foreach (@Dateien){ print $_; if (-f $_) { $_ =~ /(\w{3})\w*/; if ((-e $target.$1) && (-d $target.$1) ){ print "Verschiebe $_ nach $_,$target.$1\n"; move ($_,$target.$1."/".$_); } else { move ($_, $target.$unknown.$_) } } }
Nachdem ich leider nicht so den übermäßigen Plan davon habe, hoffe ich hier ein wenig Hilfe zu finden... Eventuell lässt sich das Problem ja durch wenige Änderungen beheben. Hat es unter Umständen etwas mit den Zeichensätzen zu tun?
Last edited: 2014-09-15 14:35:59 +0200 (CEST)
- +2 replies
- Linuxer
  
  2014-09-15 14:44
  
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  
  Guest murks86
  Hat es unter Umständen etwas mit den Zeichensätzen zu tun?
  
  Schnellschuß: Wahrscheinlich mit der Lokalisierung. Normalerweise ignoriert Perl die Lokalisierung des Systems; d.h. \w dürfte nicht auf deutsche Umlaute zutreffen.
  
  Lies mal http://perldoc.perl.org/perllocale.html; da stehen schon mal ein paar Infos.
  
  Als schnellen Ansatz kannst Du mal versuchen, ein use locale; einzubauen und schau dann mal, ob es besser klappt.
  Last edited: 2014-09-15 14:45:33 +0200 (CEST)
  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!
  - Gast murks86
    
    2014-09-15 15:06
    
    Vielen Dank! Durch die kleine Ergänzung funktioniert es schon!
    Last edited: 2014-09-15 15:15:29 +0200 (CEST)
- Linuxer
  
  2014-09-15 14:55
  
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  
  Anderer Ansatz:
  
  Vielleicht reicht es auch, nicht die ersten drei Wortzeichen, sondern die ersten drei Zeichen (oder Nicht-Leerzeichen) zu benutzen. Dann könnte die Lokalisierung einigermaßen egal sein.
  
  Statt $_ =~ /(\w{3})\w*/ also $_ =~ /(.{3})/ oder $_ =~ /(\S{3})/.
  Das \w* am Ende ist IMHO nicht notwendig.
  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!
- GwenDragon
  
  2014-09-15 15:14
  
  User since
  2005-01-17
  14533 Artikel
  Admin1
  
  Das problem ist:
  Adobe erzeugt Zeichen in Windows-1252-Kodierung, während das Programm aus der Kommandozeile die Kodierung CP-850 verwendet.
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View all threads created 2014-09-15 14:31.