VPF::Перекодировка utf8 to win - Форум программистов

meridian

Дата 6.5.2011, 15:25 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 8.11.2005

Репутация: нет
Всего: нет

Всем привет!
Есть код. Если раскоментарить 2 первые строки, а 3 и 4 убрать, то перекодировка работает. Наоборот нет.
В дебагере видно, что во 2-м случае значения $utf8 пустые, т.е. как бы не видит файл или не считывает. Подскажите, в чем м.б. дело ?
Пасиб!

Код


#$logs_dir2 = "//TEMP";  #работает
#$data_file_12txt = "$logs_dir2/exchange/1.log";   #работает

$logs_dir2 = "\\\\TEMP"; #не работает
$data_file_12txt = "$logs_dir2\\exchange\\1.log"; #не работает

# Перекодировка 1.log utf8->win
&utf8towin( $data_file_12txt );

sub utf8towin
{
    my( $data_file ) = @_;

    use Encode qw(encode decode);
 
    print "data_file: $data_file\n";

    @flist = glob($data_file);
    for $file (@flist)
    {  
      open IN, "$file";
      read IN, $input, -s IN;
      $utf8 = decode( "utf8", $input );
      $cp1251 = encode( "cp1251", $utf8 );
      open OUT, ">${file}_win.txt";
      print OUT $cp1251;
    }  
}

1;

Это сообщение отредактировал(а) meridian - 6.5.2011, 15:26

arto

Дата 6.5.2011, 15:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

похоже, что glob слишком unix-центричен

meridian

Дата 6.5.2011, 16:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 8.11.2005

Репутация: нет
Всего: нет

Наверно, работает, если пишу

Код


@flist = $data_file;

meridian

Дата 7.5.2011, 21:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 8.11.2005

Репутация: нет
Всего: нет

Вопрос решен, если нет больше идей. Пасиб.

arto

Дата 7.5.2011, 22:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

а какие идеи нужны?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »