Преобразование русскоязычных кодировок на Perl (perl script charset translate)
Ключевые слова: perl, script, charset, translate, (найти похожие документы)
Date: Thu, 24 Oct 2002 20:35:03 +0600
From: Demin Alexander <support@spectrum.ru>
Newsgroups: ftn.ru.perl
Subject: Преобразование русскоязычных кодировок на Perl
> Чем можно строку (скаляр) в cp1251 преобразовать в koi8-r?
Этот скрипт перекодирует все файлы в том месте, из которого ты его запускаешь.
Изучай наздоровье:-))
####################################################
#!/usr/bin/perl -w
use Text::Iconv;
$converter = Text::Iconv->new("windows-1251", "koi8-r");
@list_files = <*>; $len = scalar @list_files;
for ($i = 0; $i < $len; $i++)
{
open (FILE, "$list_files[$i]");
@file = <FILE>;
close (FILE);
foreach (@file)
{
chomp $_; chop $_;
$converted = $converter->convert($_);
# $converted =~ s/\t/::/g;
@new_file = (@new_file, $converted);
}
open (NEWFILE, ">$list_files[$i]");
foreach (@new_file)
{
print NEWFILE "$_\n";
}
close (NEWFILE);
@file = @clear; @new_file = @clear;
}
print "Ok\n";
exit;
1, Geras (?), 20:14, 13/01/2004 [ответить]
| +/– |
И где же взять модуль????????? Перекопал весь инет!!!!!!!!!!!
| |
|