VPF::Кириллический Hello world на perl(win) - Форум программистов

Ivan0x32

Дата 24.5.2010, 22:47 (ссылка)

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

Загрузка ...

Новичок

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

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

Нет ли у кого валидного, работающего примера подобной программы? Мне страх как нужно во первых выводить на консоль кириллические данные.
Пользуюсь Notepad2, он вроде как использует по дефолту ANSI кодировку для файлов, может быть из за этого скрипты выдают кракозябры? Хотя я пробовал и так:

Код


#! /usr/bin/perl
use locale;
use POSIX qw (locale_h);
setlocale(LC_CTYPE, 'ru_RU.ANSI');
print "Привет Мир!";

Но все тоже самое. Перекодировал файл в CP1251(и только после этого написал последнюю строку скрипта, т.е. Привет, Мир! был введен в уже новой кодировке - не ANSI) и все тоже самое, только кракозябры другие стали...

PS: Интерпретатор - Strawberry Perl, хотя это вряд ли меняет дело.

ginnie

Дата 25.5.2010, 11:42 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

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

У меня работает так:

Код


#! /usr/bin/perl
use strict;
use warnings;
use encoding 'cp1251', STDOUT => 'cp866';
print "Привет Мир!";

--------------------

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

ramus

Дата 25.5.2010, 21:50 (ссылка)

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

Загрузка ...

Шустрый

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

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

Еще можно консоль виндовс (cmd.exe) перевести в кодировку виндовс ;)

Я использую для этого батник (кодировка русских букв WIN1251) с встроенным перл кодом (позаимствовал у ActivePerl)

Код


@rem = '--*-Perl-*--
@echo off
chcp 1251>nul
if "%OS%" == "Windows_NT" goto WinNT
perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
:WinNT
perl -x -S %0 %*
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto endofperl
@rem ';
#!/usr/local/bin/perl -w
#line 15


use warnings;
use strict;

print "Привет\n";

__END__
:endofperl

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