cwbe coordinatez:
101
63540
2076399
1655002
3622770
3622911
3699546
3700094
3700473

ABSOLUT
KYBERIA
permissions
you: r,
system: public
net: yes

neurons

stats|by_visit|by_K
source
tiamat
K|my_K|given_K
last
commanders
polls

total descendants::
total children::1
show[ 2 | 3] flat
no, pokial viem, najpohodlnejsie je citat text po riadkoch s "<>" operatorom, napriklad:

while (my $riadok = <$dlhyText>) {
#vymenit BLA za bla
$riadok =~ s/BLA/bla/;
#pridat riadok k hotovemu textu
$vyslednyText = $vyslednyText.$riadok;
}




00000101000635400207639901655002036227700362291103699546037000940370047303701340
uza
 uza      14.02.2008 - 14:16:23 , level: 1, UP   NEW
ide o to ako vymenit v $riadok naraz ~20 znakov s diakritikou bez toho aby si musel mat pod sebou ~20 rovnakych riadkov :)

0000010100063540020763990165500203622770036229110369954603700094037004730370134003824656
ziman
 ziman      25.03.2008 - 07:52:22 , level: 2, UP   NEW
http://perldoc.perl.org/functions/tr.html

000001010006354002076399016550020362277003622911036995460370009403700473037013400382465603828462
uza
 uza      26.03.2008 - 10:21:40 , level: 3, UP   NEW
super! a teraz si precitaj co chlapik chcel a napis ako vie tr vymenit 20 znakov za 20 inych znakov naraz, bez toho aby si to mal v loop-e :)

00000101000635400207639901655002036227700362291103699546037000940370047303701340038246560382846203828794
ziman
 ziman      26.03.2008 - 12:05:40 , level: 4, UP   NEW
#!/usr/bin/perl -w

$_ = "abeceda\n";
tr/abcd/pqrs/;
print;

0000010100063540020763990165500203622770036229110369954603700094037004730370134003701566
bujak
 bujak      14.02.2008 - 15:19:38 , level: 2, UP   NEW
no, myslim ze default spravanie tohto "substitute" je ze vymeni vsetky... takze mozes spravit aj $dlhyText =~ s/BLA/bla
...ale nie som si teraz isty... da sa mu nastavit, ze skonci ked najde prve BLA, alebo ze az posledne vymnei, ale imho ked mu to neupresnis vymeni vsetky... ale uz som s tym dlho nerobil