view release on metacpan or  search on metacpan

Ukrop.pm  view on Meta::CPAN

#  Content-Encoding: koi8-u
#  
#  $Id: Ukrop.pm,v 1.3 2008/04/11 17:05:15 dk Exp $

use strict;

package Acme::Ukrop;

use vars qw($VERSION);

$VERSION = '0.03';

my %n = (
	'×ÚÁÄ'     => 'return',
	'ÁÂÏ'      => 'else',
	'ÔÏ'       => '{',
	'ÏÔÏÖ'     => '}',
	'ÔÁË'      => '',
	'ÎÅÈÁÊ'    => 'my',
	'ËÁÖÉ'     => 'print',
	'ÄiÊÓÔ×Ï'  => 'sub',
	'ÄÏËÉ'     => 'while',
	'ÑËÝÏ'     => 'if',
	'ÄÏ×ÖÉÎÁ'  => 'length',
	'ÇÅÔØ'     => 'break',
	'×iÄÒiÖÅÍÏÞÉ›ÝÏ'=> 'chomp',
);

my $k  = join('|', sort keys %n);
my $nc = qr/[^a-zA-Z\x80-\xff]/;
$k = qr/(^|$nc)($k)(?=$|$nc)/;
use Filter::Simple sub { s/$k/$1$n{$2}/gs } ;

1;

=pod

=encoding koi8-u

=head1 NAME

Acme::Ukrop - ukrop parser

=head1 DESCRIPTION

ðÅÒ×ÙÊ îÁÓÔÏÑÝÉÊ õËÒÏÐÏÐÁÒÓÅÒ ÍÁÇÉÞÅÓËÉ ÐÒÉÄÁÅÔ ÐÒÏÇÒÁÍÍÁÍ ÎÁÐÉÓÁÎÎÙÍ ÎÁ õËÒÏÐÅ
×ÓÅ ×ÏÚÍÏÖÎÏÓÔÉ ÐÅÒÌÁ.

=head1 SYNOPSIS

	use Acme::Ukrop;
	ÄÏËÉ (<>) ÔÏ
		×iÄÒiÖÅÍÏÞÉ›ÝÏ;
		ËÁÖÉ "ÔÉ ËÁÚÁ×: $_\n";
	ÔÁË ÏÔÏÖ

=head1 SEE ALSO

http://community.livejournal.com/ru_ukrop/

=head1 THANKS

Kiev.pm for help with inseminating the Ukrop.

=head1 AUTHOR

Dmitry Karasik, E<lt>dmitry@karasik.eu.orgE<gt>.

=cut