Opened by renee at 2004-05-27 13:16
Sowas kann man natürlich auch viel komplizierter machen ... ;)
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
my $var = 'Dies ist; ein Test!';
my $anzahl;
$anzahl = length((split(/\;/, $var))[0]);
print "Vor dem; sind $anzahl Zeichen\n";
$var =~ /\;/g;
$anzahl = length($`);
print "Vor dem; sind $anzahl Zeichen\n";
$anzahl = pos($var) - 1;
print "Vor dem; sind $anzahl Zeichen\n";