Perl語(yǔ)言的文字處理模式之3(2)
發(fā)表時(shí)間:2024-06-12 來(lái)源:明輝站整理相關(guān)軟件相關(guān)文章人氣:
[摘要]指令: =~相配運(yùn)算符 說(shuō)明:這是Perl語(yǔ)言中特有的語(yǔ)法,通常會(huì)和文字處理模式來(lái)作運(yùn)算。 范例: print"請(qǐng)輸入一個(gè)字符串!n"; $string=<>; #<>代表標(biāo)準(zhǔn)輸入,會(huì)讓使用者輸入一字符串 chop($string); #將...
指令: =~相配運(yùn)算符
說(shuō)明:這是Perl語(yǔ)言中特有的語(yǔ)法,通常會(huì)和文字處理模式來(lái)作運(yùn)算。
范例:
print"請(qǐng)輸入一個(gè)字符串!n";
$string=<>; #<>代表標(biāo)準(zhǔn)輸入,會(huì)讓使用者輸入一字符串
chop($string); #將$string最后一個(gè)換行的字符n刪除掉
if($string=~/cgi/){
print"輸入的字符串中有cgi這個(gè)字符串!n";
}
如果輸入的字符串中含有cgi這個(gè)字符串的話,就會(huì)顯示出這個(gè)信息。
--------------------------------------------------------------------------
指令:!~不相配運(yùn)算符
說(shuō)明:這也是Perl語(yǔ)言中特有的語(yǔ)法,通常會(huì)和文字處理模式來(lái)作運(yùn)算。
范例:
print"請(qǐng)輸入一個(gè)字符串!n";
$string=<>; #<>代表標(biāo)準(zhǔn)輸入,會(huì)讓使用者輸入一字符串
chop($string); #將$stdng最后一個(gè)換行的字符n刪除掉
if($string!~/cgi/){
print"輸入的字符串中沒(méi)有cgi這個(gè)字符串!n";
}
如果輸入的字符串中沒(méi)有含有cgi這個(gè)字符串的話,就會(huì)顯示出這個(gè)信息。
--------------------------------------------------------------------------
指令:tr轉(zhuǎn)換函數(shù)
語(yǔ)法:tr/SEARCHLIST/REPLACELIST/
其中SEARCHLIST是要轉(zhuǎn)換的字符,REPLACELIST是轉(zhuǎn)換成何種字符。
說(shuō)明:tr(translate)就是轉(zhuǎn)換的意思,會(huì)把符合轉(zhuǎn)換的字符轉(zhuǎn)換成要轉(zhuǎn)換的字符。
范例一:
$string="test1ng";
$string=~tr/et/ET/;#此時(shí)$string="TEsTing";
$string=~tr/a-z/A-Z/;#此時(shí)$string="TESTING";
范例二:
$string="CGI+Perl";
$string=~tr/+//;#此時(shí)$string="CGI Perl";
在傳送CGI數(shù)據(jù)的時(shí)候會(huì)先將數(shù)據(jù)編碼,其中會(huì)將空白的字符轉(zhuǎn)成+這個(gè)字符,所以 在
解碼的時(shí)候要把+這個(gè)字符還原成空白的字符。
--------------------------------------------------------------------------