Perl Substr()-Funktion und ihre application_javascript-Fähigkeiten

Beispiel für die Funktion substr() in Perl, Beispielcode für die Funktion substr() – gibt den Teilstring von EXPR zurück, beginnend mit dem Offset OFFSET innerhalb des Strings.

Grammatik:

substr EXPR, OFFSET, LEN, REPLACEMENT
substr EXPR, OFFSET, LEN
substr EXPR, OFFSET

Definition und Verwendung

Gibt den Teilstring von EXPR zurück, beginnend mit dem Offset OFFSET innerhalb des Strings. Wenn OFFSET negativ ist, beginnt die Zeichenfolge am Ende mit vielen Zeichen. Wenn LEN angegeben ist, wird die Anzahl der Bytes oder alle Bytes bis zum Ende der Zeichenfolge zurückgegeben (falls nicht angegeben). Wenn len eine negative Zahl ist, ist dies die Anzahl der Zeichen, mit denen die Zeichenfolge endet.

Wenn Sie die durch REPLACEMENT angegebene Teilzeichenfolge ersetzen, ersetzen Sie die Zeichenfolge von REPLACEMENT.

Wenn Sie eine Teilzeichenfolge angeben, die über das Ende der Zeichenfolge hinausgeht, wird das einzige gültige Element der ursprünglichen Zeichenfolge zurückgegeben.

Rückgabewert

Zeichenfolge

Beispiel

Versuchen Sie das folgende Beispiel:

#!/usr/bin/perl -w
#by www.yiibai.com
$temp = substr("okay", );
print "Substring valuye is $temp\n";
$temp = substr("okay", ,);
print "Substring valuye is $temp\n";

Dies führt zu folgenden Ergebnissen:

Teilstringwert ist ay
Der Teilstringwert ist ka

Beispielanalyse einer Perl-Substr-Funktionsanwendung

Dieser Artikel konzentriert sich auf die Anwendung der Perl-Substr-Funktion. Wenn wir ein Perl-Programm schreiben, müssen wir manchmal einen Teil einer Zeichenfolge abfangen.

Perl-Substr-Funktionsanwendung

Wenn wir ein Perl-Programm schreiben, müssen wir manchmal einen Teil des Inhalts einer Zeichenfolge abfangen. Zu diesem Zeitpunkt verwenden wir normalerweise die Perl-Substr-Funktion, um diese Funktion zu erreichen.

$str="testtest"; 
printsubstr($str,0,5); 
$str="testtest"; 
printsubstr($str,0,5); 

Führen Sie das obige Programm aus und geben Sie das Ergebnis „testt“ aus, das das gewünschte Ergebnis ist. Schauen Sie sich das Programm unten noch einmal an:

$str="测试文本"; 
printsubstr($str,0,1); 
$str="测试文本"; 
printsubstr($str,0,1); 

Zu diesem Zeitpunkt wird ein „?“ ausgegeben, was offensichtlich nicht das gewünschte Ergebnis ist. Da in Perl alle von außen eingegebenen Zeichenfolgen (einschließlich der im Programm geschriebenen Zeichenfolgen) als Bytes behandelt werden, bedeutet „printsubstr($str,0,1);“ nur „Testtext“. Das erste Byte wird herausgenommen und mit print ausgegeben. Ein einzelnes Byte kann jedoch kein chinesisches Zeichen darstellen, daher wird „?“ ausgegeben.

Wenn Sie möchten, dass das obige Programm korrekte Ergebnisse ausgibt, müssen Sie die Dekodierfunktion verwenden, um den „Testtext“ in eine Perl-interne Zeichenfolge umzuwandeln, damit Perl den „Testtext“ als Zeichenfolge behandeln kann, und dann Verwenden Sie „substr( $str,0,1);“Was abgefangen wird, ist kein Byte, sondern ein chinesisches Zeichen.

Werfen wir einen Blick auf die Verwendung der Perl-Substr-Funktion:

Befehl: substr

Syntax: substr($string,offset,length)

Offset stellt die Position des Startzeichens dar und Länge stellt die Länge der in Anführungszeichen gesetzten Zeichenfolge dar. Wenn die Länge weggelassen wird, stellt sie die Länge vom Startwert bis zum letzten Zeichen der Zeichenfolge dar. Und

Wenn Offset ein negativer Wert ist, werden die Zeichen beginnend mit der rechten Seite der Zeichenfolge angegeben.

Beispiel:

$s=substr("perl5",2,2);#这时$s="rl"; 
$s=substr("perl5",2);#这时$s="rl5"; 
$s=substr("perl5",-2,2);#这时$s="er";