Sahanya

Das Ersetzen von einzelnen Zeichen oder auch Mustern habe ich ja schon vereinzelt angesprochen, hier jetzt einige Ergänzungen:

$_= "Sahanya lernt PHP";
s/a/o/;
print $_;#Sohanya lernt PHP (ersetzt wird nur das erste a)

$_= "Sahanya lernt PHP";
s/a/o/g;
print $_;#Sohonyo lernt PHP (es werden alle as ersetzt)

$_= "Sahanya lernt PHP";
s/h/y/g;
print $_;#Sayanya lernt PHP (es werden alle hs ersetzt)

$_= "Sahanya lernt PHP";
s/h/y/gi;
print $_;#Sayanya lernt PyP (es werden alle hs ersetzt, egal ob groß oder klein)

$_= "Sahanya lernt PHP";
s/(\w+)/-$1-/g;
print $_;#-Sahanya- -lernt- -PHP-

Der Substitute-Operator ersetzt außerdem in:

Skalarvariablen:
$a = "Sahanya lernt PHP";
$a =~ s/Sahanya/Perun/;
print $a;#Perun lernt PHP

Arrays:
@sahanya = qw (
erstens
zweitens
drittens);
$sahanya[1] =~ s/e/\?/;
print "@sahanya\n";#erstens zw?itens drittens

Hashs:
%sahanya = qw (
erstens eins
zweitens zwei
drittens drei
);
$sahanya{"zweitens"} =~ s/^/vier/;
while (($name, $zahl) = each %sahanya) {
print "$name hat die Zahl $zahl\n";
}#aus zwei wird vierzwei

Andere Perl-Themen