Linuxpedia

Convertire Tutti I Nomi Delle Cartelle E Dei Files In ASCII Puro

Ci sono molti programmi che non digeriscono caratteri al di fuori dell'ASCII, per questo motivo c'e' il seguente script per convertire tutti i file e le cartelle in maniera ricorsiva con caratteri ASCII (si poteva fare anche lungo la meta'):

 #!/usr/bin/rebol
 ascii: "0123456789qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM-_./"
 ascii2: charset ascii
 funz_ascii: func [ /local lista a ] [
	lista: read %. 
	foreach nomefile lista [
		if not (parse to-string nomefile  [any ascii2] ) [
			a: copy to-string nomefile
			foreach char unique trim/with copy a ascii [ replace/all a char "_"  ]
			funz_testname a
			]
		]	
	]
 funz_testname: func [name /local b] [
   b: copy name
   either exists? to-file b [ 
       view layout [
          text "The following file already exists:"
          text b
          text "please rename it:"
          newname: field 
          button "OK" [ unview]
          ] 
       funz_testname newname/text
       ] [ rename nomefile to-file b]
 ]
 ;here we go
 funz_ascii

Oppure:

 #! /usr/bin/perl
 use File::Find;
 use Text::Unidecode;
 finddepth sub { # finddepth so directories are done AFTER their contents
              my $old = $_;
             $_ = unidecode $_ ; # let's unidecode!
             rename $old, $_ ;
             }, ".";

Io poi consiglio anche il seguente:

 #! /usr/bin/perl
 use File::Find;
 finddepth sub { # finddepth so directories are done AFTER their contents
              my $old = $_;
             tr/ /_/ or return; # don't do anything if you don't have spaces
             -e and return; # don't rename over an existing file!
             rename $old, $_ or warn "cannot rename $old to $_: $!";
             }, "."; # starting directory
 finddepth sub { # finddepth so directories are done AFTER their contents
              my $old = $_;
             tr/&/e/ or return; # don't do anything if you don't have &
             -e and return; # don't rename over an existing file!
             rename $old, $_ or warn "cannot rename $old to $_: $!";
             }, "."; # starting directory
 finddepth sub { # finddepth so directories are done AFTER their contents
              my $old = $_;
             tr/à/a/ or return; # don't do anything if you don't have &
             -e and return; # don't rename over an existing file!
             rename $old, $_ or warn "cannot rename $old to $_: $!";
             }, "."; # starting directory
 finddepth sub { # finddepth so directories are done AFTER their contents
              my $old = $_;
             tr/è/e/ or return; # don't do anything if you don't have &
             -e and return; # don't rename over an existing file!
             rename $old, $_ or warn "cannot rename $old to $_: $!";
             }, "."; # starting directory
 finddepth sub { # finddepth so directories are done AFTER their contents
              my $old = $_;
             tr/é/e/ or return; # don't do anything if you don't have &
             -e and return; # don't rename over an existing file!
             rename $old, $_ or warn "cannot rename $old to $_: $!";
             }, "."; # starting directory
 finddepth sub { # finddepth so directories are done AFTER their contents
              my $old = $_;
             tr/ò/o/ or return; # don't do anything if you don't have &
             -e and return; # don't rename over an existing file!
             rename $old, $_ or warn "cannot rename $old to $_: $!";
             }, "."; # starting directory
 finddepth sub { # finddepth so directories are done AFTER their contents
              my $old = $_;
             tr/ù/u/ or return; # don't do anything if you don't have &
             -e and return; # don't rename over an existing file!
             rename $old, $_ or warn "cannot rename $old to $_: $!";
             }, "."; # starting directory
 finddepth sub { # finddepth so directories are done AFTER their contents
              my $old = $_;
             tr/ì/i/ or return; # don't do anything if you don't have &
             -e and return; # don't rename over an existing file!
             rename $old, $_ or warn "cannot rename $old to $_: $!";
             }, "."; # starting directory
 finddepth sub { # finddepth so directories are done AFTER their contents
              my $old = $_;
             tr/,/_/ or return; # don't do anything if you don't have &
             -e and return; # don't rename over an existing file!
             rename $old, $_ or warn "cannot rename $old to $_: $!";
             }, "."; # starting directory
 finddepth sub { # finddepth so directories are done AFTER their contents
              my $old = $_;
             tr/[/_/ or return; # don't do anything if you don't have &
             -e and return; # don't rename over an existing file!
             rename $old, $_ or warn "cannot rename $old to $_: $!";
             }, "."; # starting directory
 finddepth sub { # finddepth so directories are done AFTER their contents
              my $old = $_;
             tr/]/_/ or return; # don't do anything if you don't have &
             -e and return; # don't rename over an existing file!
             rename $old, $_ or warn "cannot rename $old to $_: $!";
             }, "."; # starting directory
 finddepth sub { # finddepth so directories are done AFTER their contents
              my $old = $_;
             tr/\(/_/ or return; # don't do anything if you don't have &
             -e and return; # don't rename over an existing file!
             rename $old, $_ or warn "cannot rename $old to $_: $!";
             }, "."; # starting directory
 finddepth sub { # finddepth so directories are done AFTER their contents
              my $old = $_;
             tr/\)/_/ or return; # don't do anything if you don't have &
             -e and return; # don't rename over an existing file!
             rename $old, $_ or warn "cannot rename $old to $_: $!";
             }, "."; # starting directory
 finddepth sub { # finddepth so directories are done AFTER their contents
              my $old = $_;
             tr/'/_/ or return; # don't do anything if you don't have &
             -e and return; # don't rename over an existing file!
             rename $old, $_ or warn "cannot rename $old to $_: $!";
             }, ".";

HomePage

Guide

Altro

Translate:

Pubblicità:

Licenza Creative Commons
DuckDuckGo

edit SideBar

edit TopNav

Blix theme adapted by David Gilbert, powered by PmWiki