[ M R C G @ 16.12.2006. 01:09 ] @
Molim vas, ako neko ima 5 minuta da mi pomogne oko perl koda koji nikako da nateram da radi.Poslao bih vam na mail.
Mnogo mi je bitno.
[ Mitrović Srđan @ 16.12.2006. 09:41 ] @
Postuj ovde izmedju [code] tagova.
[ mihojla @ 04.10.2010. 12:01 ] @
Ako nekome treba perl skripta koja prebacuje ćirilični tekst u latinični:
Code:
 #!/usr/bin/perl -w
use strict;
# charset=cp-1251

my $t='Mačak u smeđim čizmama noću džipa ljutu šašu.';

my @c=qw/A B C D E F G H I J K L M N O P R S T U V Z a b c d e f g h i j k l m n o p r s t u v z Lj Nj Ž Š Đ Dž Č Ć lj nj ž š đ dž č ć/;
my @l=qw/A B C D E F G H I J K L M N O P R S T U V Z a b c d e f g h i j k l m n o p r s t u v z LJ NJ Z S DJ DZ C C lj nj z s dj dz c c/;
my $a;my $s;my %p;my $d=length($t);

for(0..255){$p{$_}=0}
for(0..59){$p{ord($c[$_])}=$l[$_]}
for(0..$d){$a=substr($t,$_,1);$s=$p{ord($a)};$s=$a unless $s;print $s}
print"\n";

=head1
print $p{ord('đ')};
=cut


Verovatno to može i mnogo bolje/brže, pošto nisam neki programer.

ps.
fajl treba da bude u "cp-1251" kodnom rasporedu.

Nažalost deo teksta koji sam postavio u <code></code> sadrži ćirilična slova, ali se automatski prebacio u latinični, pa sam postavio i originalan fajl.

[Ovu poruku je menjao mihojla dana 04.10.2010. u 13:13 GMT+1]