Opened by format_c at 2004-06-11 16:54
User since
2003-08-04
5866 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5866 Artikel
ModeratorIn
Tja ... ich wälz nochmal aus, was ich oben knapp andeutete ...
Ausgabe
Such Dir eine Variante aus =)\n\n
<!--EDIT|Crian|1087002503-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
#!/usr/local/bin/perl5.8.4
use strict;
use warnings;
my $kommastring = "name1, name2, name3, name4, name5";
(my $erg1 = $kommastring) =~ s~,~~g;
my $erg2 = join '', split /,/, $kommastring;
print "Anfangsstring = '$kommastring'\n",
"Ergebnis1 = '$erg1'\nErgebnis2 = '$erg2'\n";
Ausgabe
Code: (dl
)
1
2
3
4
crian@theresa:~/perl/forum> kommas_weg.pl
Anfangsstring = 'name1, name2, name3, name4, name5'
Ergebnis1 = 'name1 name2 name3 name4 name5'
Ergebnis2 = 'name1 name2 name3 name4 name5'
Such Dir eine Variante aus =)\n\n
<!--EDIT|Crian|1087002503-->
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