Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Potrebna mi pomoc oko perl koda, koji nikako da nateram da radi

[es] :: Perl :: Potrebna mi pomoc oko perl koda, koji nikako da nateram da radi

[ Pregleda: 6226 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

M R C G
Beograd

Član broj: 38903
Poruke: 15
212.200.176.*



Profil

icon Potrebna mi pomoc oko perl koda, koji nikako da nateram da radi16.12.2006. u 01:09 - pre 166 meseci
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.
 
Odgovor na temu

Mitrović Srđan
bloodzero
Freelance
Majur //: Šabac

Član broj: 10261
Poruke: 2800
62.108.116.*

Sajt: freeshell-reviews.com


+4 Profil

icon Re: Potrebna mi pomoc oko perl koda, koji nikako da nateram da radi16.12.2006. u 09:41 - pre 166 meseci
Postuj ovde izmedju [code] tagova.

Tony Melendez:
http://video.google.com/videoplay?docid=-
3819862628517136815&q=tony+melendez

NIKADA NE UZIMATI HOSTING NA GO DADDY!


 
Odgovor na temu

mihojla

Član broj: 120688
Poruke: 188
free-123-236.mediaworksit.net.

Sajt: keramicar.sekon.net/akciz..


+34 Profil

icon Re: Potrebna mi pomoc oko perl koda, koji nikako da nateram da radi04.10.2010. u 12:01 - pre 120 meseci
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]
Kap vode...
Prikačeni fajlovi
 
Odgovor na temu

[es] :: Perl :: Potrebna mi pomoc oko perl koda, koji nikako da nateram da radi

[ Pregleda: 6226 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.