nicht angemeldet
Hallo Rolf,
ich suche die PERL Funktion, die in einem String die Anzahl eines Zeichens ermittelt, z.B., wie oft ein Semikolon in einem String vorkommt.
Probier mal das folgende kleine Test-Script (die erste Zeile zum Perl-Interpreter musst Du natuerlich anpassen):
#!/www/bin/perl/bin/perl.exe
$Textzeile = "Vorname;Name;Anschrift;PLZ;Ort;Telefon;Telefax;EMail";
$Trennzeichen = ";";
$Anzahl = 0;
for($i=0; $i<length($Textzeile); $i++) {
if(substr($Textzeile,$i,1) eq $Trennzeichen) {
$Anzahl++;
}
}
print "Content-type: text/html\n\n";
print "<html><head><title>User</title></head>\n";
print "<body>\n";
print "Anzahl Trennzeichen: ", $Anzahl, "\n";
print "</body></html>\n";
exit(0);
viele Gruesse
Stefan Muenz