The OpenNET Project / Index page

[ новости/++ | форум | wiki | теги | ]

Преобразование русскоязычных кодировок на Perl (perl script charset translate)


<< Предыдущая ИНДЕКС Поиск в статьях src Установить закладку Перейти на закладку Следующая >>
Ключевые слова: 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;

<< Предыдущая ИНДЕКС Поиск в статьях src Установить закладку Перейти на закладку Следующая >>

Обсуждение [ RSS ]
 
  • 1, Geras (?), 20:14, 13/01/2004 [ответить]    [к модератору]
  • +/
    И где же взять модуль?????????   Перекопал весь инет!!!!!!!!!!!
     
     
  • 2, Михаил (?), 08:25, 14/01/2004 [^] [ответить]    [к модератору]
  • +/
    >И где же взять модуль?????????   Перекопал весь инет!!!!!!!!!!!
    как где? там где его и положено искать - на cpan.org
    http://search.cpan.org/~mpiotr/Text-Iconv-1.2/Iconv.pm
     

    Ваш комментарий
    Имя:         
    E-Mail:      
    Заголовок:
    Текст:




      Закладки на сайте
      Проследить за страницей
    Created 1996-2017 by Maxim Chirkov  
    ДобавитьРекламаВебмастеруГИД  
    Hosting by Ihor