|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Demin Alexander 2:5020/400 24 Oct 2002 20:35:03
To : Yuriy Talakan'
Subject : Re: win->koi8
--------------------------------------------------------------------------------
=======================================================================
On Thu, 24 Oct 2002 15:33:16 +0400
"Yuriy Talakan'" <nobody@somewhere.xx> wrote:
=======================================================================
> Вопрос простой и глупый. :)
>
> Чем можно строку (скаляр) в 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;
####################################################
--
=======================================================================
Best regards, Spectrum, Moscow. Strastnoy blv. 8, tel: (095) 230-6448
http://www.spectrum.ru/ Demin Alexander (network administrator)
=======================================================================
--- ifmail v.2.15dev5
* Origin: Spectrum (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: win->koi8 