Skip to content

Instantly share code, notes, and snippets.

@petr999

petr999/recursively recode files from one encoding to another

Created March 16, 2010 10:59
Show Gist options
  • Save petr999/333845 to your computer and use it in GitHub Desktop.
Save petr999/333845 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
recursively recode files from one encoding to another
perl -Mstrict -MFile::Find -MConvert::Cyrillic -MFile::Copy -MFile::Basename -we 'my @names = (); find sub{ push @names, $File::Find::name }, "Ноль"; map { my $newname = dirname( $_ ). "/". Convert::Cyrillic::cstocs( "WIN", "UTF8", basename $_ ); print $newname, "\n"; File::Copy::mv( $_, $newname ) or die $!; } reverse @names; '
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment