Поменять кодировку у группы файлов

Perl:

#!/usr/bin/perl -w
use strict;
use Text::Iconv;

my $dir = '/home/user/html/';
my $converter = new Text::Iconv('windows-1251','utf8');

opendir(DIR, $dir);
@files = sort(grep(/*.html$/, readdir(DIR)));
closedir(DIR);
chdir $dir;

foreach my $file (@files){
    open FF,"+<$file";
    print FF $converter->convert(join("\n",<FF>));
    close FF;
}

Не тестил, но как-то так.

в метатеге поменять надо или самих файлов ?

Как-то так:

iconv -f CP1251 -t KOI8R *.html > *.htm

Если не получится, то такой подсмотренный вариант:

find . -name cs.js -exec iconv -f iso-8859-2 -t utf8 {} -o {}.tmp \; -exec mv {}.tmp {} \;

эти варианты только для линукса, причем первый некорректен

Самих файлов. Если в мета теге, то воспользовался бы какой-нибудь прогой замены, например BK Replace EM.

vold57 добавил 05.04.2010 в 14:53

jumash, спасибо. Сейчас попробую. Сразу не внимательно посмотрел. Показалось, что это на PHP.

Или, как вариант, скачать MS VS Express C# какой-нибудь и начать учить язык на этом примере :DDD

Помнится, так заморачивался, когда надо было BOM снимать массово под виндой :)

Решил проблему с помощью TotalReplacer. Программа бесплатная. Осуществляет пакетную замену и кодировку тоже может менять. Скачать можно тут topperharley.ru