Opened by stb2050 at 2005-04-12 14:41
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Statt
schreib besser
(was soll das erste Backslashzeichen?) und am besten noch schöner (für die Augen):
Brauchst Du /g hier wirklich? Ich vermute mal nein, dann lass es weg, das spart auch Zeit.
ansonsten: Wo ist use strict; / use warnings;? (-> http://wiki.perl-community.de/bin/view/Wissensbasis/UseStrict )
Edit: Generell würd ich sowas an einer kopierten kleineren (Teil-) Menge Deiner Daten probelaufen lassen. Dann weißt Du auch, ob es funktioniert und wie lange es braucht.\n\n
<!--EDIT|Crian|1113304885-->
Code: (dl
)
@content =~ s/\userdaten\/$username\/bilder/userdaten\/$userid\/bilder/g;
schreib besser
Code: (dl
)
s/userdaten\/$username\/bilder/userdaten\/$userid\/bilder/g for @content;
(was soll das erste Backslashzeichen?) und am besten noch schöner (für die Augen):
Code: (dl
)
s~userdaten/$username/bilder~userdaten/$userid/bilder~g for @content;
Brauchst Du /g hier wirklich? Ich vermute mal nein, dann lass es weg, das spart auch Zeit.
ansonsten: Wo ist use strict; / use warnings;? (-> http://wiki.perl-community.de/bin/view/Wissensbasis/UseStrict )
Edit: Generell würd ich sowas an einer kopierten kleineren (Teil-) Menge Deiner Daten probelaufen lassen. Dann weißt Du auch, ob es funktioniert und wie lange es braucht.\n\n
<!--EDIT|Crian|1113304885-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite