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]
Potrebna mi pomoc oko perl koda, koji nikako da nateram da radi
Registrovani: 3 ( Vlajkoex, vjova, Living Light )
Re: Potrebna mi pomoc oko perl koda, koji nikako da nateram da radi