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

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

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

Партнёры:

Хостинг: