О перекодировании имён файлов

[shoorick]

Чё-то не я нашёл готового метода переименования файлов меж разными кодировками. Пришлось написать скрипт:

#!/usr/bin/perl -w

use strict;
use Encode 'from_to';

foreach my $filename (glob '*')	{
	my $old_filename = $filename;
	from_to($filename, 'UTF-8', 'koi8-r');
	if ($filename ne $old_filename)	{
		printf "%s\t=> %s\n", $old_filename, $filename;
		rename($old_filename, $filename) or warn "Failed!\n";
	}
	else {
		print "$filename - names are equal\n", ;
	}
} # foreach

Comments

[bitlz.livejournal.com]

man convmv

[a-cher.livejournal.com]

Я-бы поленился, есть такая вещь как moreutils - http://kitenet.net/~joey/code/moreutils/
В нем есть vimdir
Открывает в редакторе директорию - что хочешь переименовывай, ну а в vim перекодировать:
:!iconv -c -f utf8 -t koi8-r


[kohb.livejournal.com]

convmv однозначно

впрочем, Женя уже сказал.