File/Dir rename mit Sonderzeichen (gelöst) (Allgemeines zu Perl)

[thread]15396[/thread]

File/Dir rename mit Sonderzeichen [gelöst]

Leser: 22

Articles: hide open all | hide show old branches

+10 replies
WolverineJR

2010-08-20 12:32
User since
2010-08-20
5 Artikel
BenutzerIn
Hi,

hier verzweifele hier an einer eigentlichen trivialen Aufgabe.
Nachdem wir einen Datenbereich eines "fremden" Samba-Fileserver auf unseren Samba-Fileserver (Solaris) migriert haben, viel uns auf, dass in den Datei- und Verzeichnisnamen alle Umlaute (ö,ä,ü) nun so aussehen "Ã¶","Ã€","ÃŒ".

Das Umwandeln im Perl-Skript habe ich bereits folgendermaßen hinbekommen:
Code: (dl )

decode("utf8",$object)
.

Jetzt beiß' ich mir aber die Zähne aus an der eigentlichen Namensänderung der betroffenen Dateien und Verzeichnissen.
Die "normalen" Wege mittels "rename", "mv" und "File::Copy" funktionieren nicht. Ich vermute es liegt daran, dass die erwähnten Methoden auf das OS-eigene "rename" verweisen. Und dies hat mit den erwähnten Sonderzeichen große Probleme.

Habt Ihr eventuell eine Idee, wie ich das Problem lösen kann?

Vielen Dank!
- +2 replies
- esskar
  
  2010-08-20 13:18
  
  User since
  2003-08-04
  7321 Artikel
  ModeratorIn
  
  fehlermeldung?
  - WolverineJR
    
    2010-08-20 13:26
    User since
    2010-08-20
    5 Artikel
    BenutzerIn
    
    Fehlermeldungen kommen nicht. Weder beim normalen rename noch bei File::Copy (hab's versucht mit
    
    Code: (dl )
    
    File::Copy::move("$olddir","$newdir") or die "Error: $!";
    
    und
    
    Code: (dl )
    
    eval 'File::Copy::move("$olddir","$newdir")'; warn $@ if $@;
    
    ).
- +3 replies
- GwenDragon
  
  2010-08-20 14:39
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  1) Welchen charset verwendet euer Samba (unix + dos)?
  http://de.samba.org/samba/docs/man/Samba-HOWTO-Col...
  Ansonsten könnte vielleicht convmv helfen.
  
  2) Mit welchem charset ist das smbfs Dateisystem gemountet?
  Last edited: 2010-08-20 14:40:48 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - WolverineJR
    
    2010-08-20 14:45
    User since
    2010-08-20
    5 Artikel
    BenutzerIn
    
    2010-08-20T12:39:14 GwenDragon
    1) Welchen charset verwendet euer Samba (unix + dos)?
    Hier ist der Output des "testparm"-Kommandos des Fileservers:
    
    Code: (dl )
    
    1 2 3
    
    dos charset = CP850 unix charset = ISO8859-1 display charset = ISO8859-1
    
    2010-08-20T12:39:14 GwenDragon
    2) Mit welchem charset ist das smbfs Dateisystem gemountet?
    Da stehe ich jetzt ein wenig auf dem Schlauch. Wenn Du meinst, wie die Clients auf das Filesystem zugreifen, dann kann ich Dir nur sagen, dass es Windows-Clients sind.
    - GwenDragon
      
      2010-08-20 14:52
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Ich nehme mal an, das Unix verwendet UTF-8.
      Das wird es sein.
      
      Ansonsten mal http://linuxwiki.de/Samba#Hinbiegen_von_falschen_U... lesen.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- WolverineJR
  
  2010-08-20 14:40
  User since
  2010-08-20
  5 Artikel
  BenutzerIn
  Habe eine andere Möglichkeit auf Shell-Ebene des Fileservers versucht:
  Herausfinden der Inode des jeweiligen Verzeichnisses/Datei:
  
  Code: (dl )
  
  my $inode = (lstat($object))[1];
  
  Mittels der Inode einen "find"-Befehl ausführen und damit ein "xargs"-Kommando:
  
  Code: (dl )
  
  system("find $PATH -inum $inode | xargs -i mv {} \"$newobject\"");
  
  ("$newobject" ist der komplette Pfad des Verzeichnisses/Datei mit korrigiertem Sonderzeichen).
  
  Aber hier ist noch der Wurm drin. Anscheinend werden in beiden Variablen des "xargs"-Kommandos der Ergebnisstring des "find"-Kommandos eingefügt.
  Der Inhalt der "$newobject"-Variable wird anscheinend ignoriert.
  
  Hat jemand eine Ahnung was ich hier falsch mache??
  - roli
    
    2010-08-20 15:16
    
    User since
    2004-12-31
    424 Artikel
    BenutzerIn
    
    Hi,
    
    für Debian gibt's das utf8-migration-tool
    Roland
    --
    "Steh vorn, während du fragst;
    sitzen soll, wer antwortet."
    Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
- +2 replies
- WolverineJR
  
  2010-08-20 15:22
  
  User since
  2010-08-20
  5 Artikel
  BenutzerIn
  
  Das Problem scheint nun gelöst zu sein.
  
  Das empfohlene Tool "convmv" scheint wunderbar zu funktionieren!
  
  Vielen Dank!!
  - Gast wer
    
    2010-08-20 18:45
    
    Ist ein perl-Script. :-)
    Last edited: 2010-08-20 19:13:01 +0200 (CEST)

View all threads created 2010-08-20 12:32.