Fungsi Perl Substr() dan kemahiran application_javascriptnya

contoh fungsi substr() perl, kod contoh fungsi substr() - mengembalikan subrentetan EXPR, bermula dari OFFSET ofset dalam rentetan.

Tatabahasa:

substr EXPR, OFFSET, LEN, PENGGANTIAN
substr EXPR, OFFSET, LEN
substr EXPR, OFFSET

Definisi dan penggunaan

Mengembalikan subrentetan EXPR, bermula dari OFFSET ofset dalam rentetan. Jika OFFSET adalah negatif, rentetan bermula dengan banyak aksara pada penghujungnya. Jika LEN ditentukan, mengembalikan bilangan bait, atau semua bait sehingga hujung rentetan (jika tidak dinyatakan). Jika len ialah nombor negatif, bilangan aksara untuk menamatkan rentetan.

Jika anda menggantikan subrentetan yang ditentukan oleh REPLACEMENT, ganti rentetan REPLACEMENT.

Jika anda menentukan subrentetan yang melampaui hujung rentetan, kembalikan satu-satunya elemen rentetan asal yang sah.

Nilai pulangan

Rentetan

Contoh

Cuba contoh berikut:

#!/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";

Ini akan menghasilkan keputusan berikut:

Nilai subrentetan ialah ay
Nilai subrentetan ialah ka

Contoh analisis aplikasi fungsi substr Perl

Artikel ini akan memfokuskan pada aplikasi fungsi substr Perl Semasa menulis program perl, kadangkala kita perlu memintas sebahagian daripada rentetan Pada masa ini, kita biasanya menggunakan fungsi substr untuk mencapai fungsi ini.

Aplikasi fungsi substr Perl

Apabila menulis program perl, kadangkala kita perlu memintas sebahagian daripada kandungan rentetan Pada masa ini, kita biasanya menggunakan fungsi substr Perl untuk mencapai fungsi ini.

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

Jalankan program di atas dan keluarkan hasil "testt", iaitu hasil yang kita inginkan. Lihat sekali lagi program di bawah:

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

Pada masa ini, "?" adalah output, yang jelas bukan hasil yang kita inginkan. Kerana dalam Perl, semua input rentetan dari luar (termasuk rentetan yang ditulis dalam program) akan dianggap sebagai bait, "printsubstr($str,0,1);" ayat ini hanya bermaksud "teks ujian" Bait pertama dikeluarkan dan dikeluarkan menggunakan cetakan Walau bagaimanapun, satu bait tidak boleh mewakili aksara Cina, jadi "?"

Jika anda mahu atur cara di atas menghasilkan hasil yang betul, anda perlu menggunakan fungsi penyahkod untuk menukar "teks ujian" menjadi rentetan dalaman perl, supaya perl boleh merawat "teks ujian" sebagai rentetan, dan kemudian gunakan "substr( $str,0,1);"Apa yang dipintas bukan bait, tetapi aksara Cina.

Mari kita lihat penggunaan fungsi substr Perl:

Arahan: substr

Sintaks: substr($string,offset,length)

offset mewakili kedudukan aksara permulaan, dan panjang mewakili panjang rentetan yang dipetik Jika panjang ditinggalkan, ia mewakili panjang dari nilai permulaan hingga aksara terakhir rentetan. Dan

Jika ofset ialah nilai negatif, aksara akan ditentukan bermula dari sebelah kanan rentetan.

Contoh:

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