Нужно конвертировать ИМЕНА файлов (включая каталоги) в заданной директории из koi8-r в win1251 причем рекурсивно.
Дайте направление куда копать.

FreeBSD 4.11

• Имена файлов из koi8-r в win1251,denn, 15:30 , 21-Апр-05
• Имена файлов из koi8-r в win1251,jr, 17:55 , 21-Апр-05
  • Имена файлов из koi8-r в win1251,lavr, 18:31 , 21-Апр-05
    • Имена файлов из koi8-r в win1251,baby11, 08:41 , 22-Апр-05
      • Имена файлов из koi8-r в win1251,jr, 09:18 , 22-Апр-05
    • Имена файлов из koi8-r в win1251,jr, 09:17 , 22-Апр-05
  • Имена файлов из koi8-r в win1251,madskull, 10:59 , 22-Апр-05
    • Имена файлов из koi8-r в win1251,madskull, 11:08 , 22-Апр-05
      • Имена файлов из koi8-r в win1251,jr, 11:40 , 22-Апр-05
        • Имена файлов из koi8-r в win1251,madskull, 12:10 , 22-Апр-05
          • Имена файлов из koi8-r в win1251,jr, 12:58 , 22-Апр-05

>Нужно конвертировать ИМЕНА файлов (включая каталоги) в заданной директории из koi8-r в
>win1251 причем рекурсивно.
>Дайте направление куда копать.
>
>FreeBSD 4.11

когда-то делал...
что типа ls | xargs -I % ls -l % | konwert cp866-koi8r
погляди в эту сторону

В общем, наваял скрипт perl, использует программу iconv:

----------
#!/usr/bin/perl

use strict;

my $path = @ARGV[0];
my $cfrom = $ARGV[1];
my $cto = $ARGV[2];
my $file = "";
my $name = "";
my $newname = "";

$path =~ s|/$||;

foreach $file ( sort { ( $b =~ s|/|/|g ) <=> ( $a =~ s|/|/|g ) } `find $path -regex "$path/.*" -pri
nt` ) {
   chomp $file;
   $file =~ m|(.+/)(.+)$|;
   $path = $1;
   $name = $2;
   $newname = `echo "$name" | iconv -f $cfrom -t $cto`;
   chomp $newname;
   rename ( "$path$name", "$path$newname" );
   print "$path $name -> $newname\n";
}
----------

параметры в командной сторке:
1 - путь
2 - из какой кодировки (KOI8-R, CP1251, и т.д.)
3 - в какую кодировку (KOI8-R, CP1251, и т.д.)

сортировка в цикле foreach предназначена для того, чтобы сначала переименовывались файлы самые глубокие в дереве каталогов

>В общем, наваял скрипт perl, использует программу iconv:
>
>----------
>#!/usr/bin/perl
>
>use strict;
>
>my $path = @ARGV[0];
>my $cfrom = $ARGV[1];
>my $cto = $ARGV[2];
>my $file = "";
>my $name = "";
>my $newname = "";
>
>$path =~ s|/$||;
>
>foreach $file ( sort { ( $b =~ s|/|/|g ) <=> ( $a =~ s|/|/|g ) } `find $path -regex "$path/.*" -pri
>nt` ) {
>   chomp $file;
>   $file =~ m|(.+/)(.+)$|;
>   $path = $1;
>   $name = $2;
>   $newname = `echo "$name" | iconv -f $cfrom -t
>$cto`;
>   chomp $newname;
>   rename ( "$path$name", "$path$newname" );
>   print "$path $name -> $newname\n";
>}
>----------
>
>параметры в командной сторке:
>1 - путь
>2 - из какой кодировки (KOI8-R, CP1251, и т.д.)
>3 - в какую кодировку (KOI8-R, CP1251, и т.д.)
>
>сортировка в цикле foreach предназначена для того, чтобы сначала переименовывались файлы самые
>глубокие в дереве каталогов

а сожрет он имена файлов с пробелами и/или спецсимволами?

>>В общем, наваял скрипт perl, использует программу iconv:
>>
>>----------

Есть такая тулза convmv какраз для этого и предназначена
http://j3e.de/linux/convmv/

About:
convmv converts filenames (not file content), directories, and even whole filesystems to a different encoding. This comes in very handy if, for example, one switches from an 8-bit locale to an UTF-8 locale or changes charsets on Samba servers. It has some smart features: it automagically recognises if a file is already UTF-8 encoded (thus partly converted filesystems can be fully moved to UTF-8) and it also takes care of symlinks. Additionally, it is able to convert from normalization form C (UTF-8 NFC) to NFD and vice-versa. This is important for interoperability with Mac OS X, for example, which uses NFD, while Linux and most other Unixes use NFC. Though it's primary written to convert from/to UTF-8 it can also be used with almost any other charset encoding. Convmv can also be used for case conversion from upper to lower case and vice versa with virtually any charset. Note that this is a command line tool which requires at least Perl version 5.8.0.

>Есть такая тулза convmv какраз для этого и предназначена
>http://j3e.de/linux/convmv/
>
>
>About:
>convmv converts filenames (not file content), directories, and even whole filesystems to
>a different encoding. This comes in very handy if, for example,
>one switches from an 8-bit locale to an UTF-8 locale or
>changes charsets on Samba servers. It has some smart features: it
>automagically recognises if a file is already UTF-8 encoded (thus partly
>converted filesystems can be fully moved to UTF-8) and it also
>takes care of symlinks. Additionally, it is able to convert from
>normalization form C (UTF-8 NFC) to NFD and vice-versa. This is
>important for interoperability with Mac OS X, for example, which uses
>NFD, while Linux and most other Unixes use NFC. Though it's
>primary written to convert from/to UTF-8 it can also be used
>with almost any other charset encoding. Convmv can also be used
>for case conversion from upper to lower case and vice versa
>with virtually any charset. Note that this is a command line
>tool which requires at least Perl version 5.8.0.

спасибо, уже не нужно, но будем знать :)

>а сожрет он имена файлов с пробелами и/или спецсимволами?

пробелы, скобки съедает точно, а на счет спецсимволов не знаю - не пробовал

>В общем, наваял скрипт perl, использует программу iconv:
----[cut]-----
>
А зачем такие сложности?
find | sort -r | while read f; do nf=$(echo $n|iconv -f koi8-r -t windows-1251); [ "$f" = "$nf" ] || mv "$f" "$nf"; done

>>В общем, наваял скрипт perl, использует программу iconv:
>----[cut]-----
>>
>А зачем такие сложности?
>find | sort -r | while read f; do nf=$(echo $n|iconv -f
>koi8-r -t windows-1251); [ "$f" = "$nf" ] || mv "$f"
>"$nf"; done

Поторопился...

find ! -type d | while read f; do
   fn=$(basename "$f"|iconv -f koi8-r -t windows-1251);
   [ "$fn" = "$(basename "$f")" ] || mv "$f" "$(dirname "$f")/$fn";
done
Это если не переименовывать каталоги...

>>>В общем, наваял скрипт perl, использует программу iconv:
>>----[cut]-----
>>>
>>А зачем такие сложности?
>>find | sort -r | while read f; do nf=$(echo $n|iconv -f
>>koi8-r -t windows-1251); [ "$f" = "$nf" ] || mv "$f"
>>"$nf"; done
>
>Поторопился...
>
>find ! -type d | while read f; do
>   fn=$(basename "$f"|iconv -f koi8-r -t windows-1251);
>   [ "$fn" = "$(basename "$f")" ] || mv "$f"
>"$(dirname "$f")/$fn";
>done
>Это если не переименовывать каталоги...

вот когда избавишься от всех "если", скритп обретет сложность :)))

>>find ! -type d | while read f; do
>>   fn=$(basename "$f"|iconv -f koi8-r -t windows-1251);
>>   [ "$fn" = "$(basename "$f")" ] || mv "$f"
>>"$(dirname "$f")/$fn";
>>done
>>Это если не переименовывать каталоги...
>
>вот когда избавишься от всех "если", скритп обретет сложность :)))

А каталоги тоже надо? Практически то же самое :)

find | sort -r | while read f; do
  fn=$(basename "$f"|iconv -f koi8-r -t windows-1251);
  [ "$fn" = "$(basename "$f")" ] || mv "$f" "$(dirname "$f")/$fn";
done

>А каталоги тоже надо? Практически то же самое :)
>
>find | sort -r | while read f; do
>  fn=$(basename "$f"|iconv -f koi8-r -t windows-1251);
>  [ "$fn" = "$(basename "$f")" ] || mv "$f" "$(dirname
>"$f")/$fn";
>done

ну тогда на shell пусть будет так :)

#!/bin/sh
find $1 -regex "$1/.*" | sort -r | while read f; do
   fb=$(basename "$f");
   fd=$(dirname "$f");
   nfb=$(echo "$fb"|iconv -f $2 -t $3);
   [ "$fb" = "$nfb" ] || (mv "$fd/$fb" "$fd/$nfb"; echo "$fd $fb -> $nfb";)
done

аргумент 1 - путь
аргумент 2 - из какой кодировки
аргумент 3 - в какую кодировку