PERL語言學習三（PERL標量數據）

標量數據

 

chop():去掉最後一個字符。返回刪桌的那個字符。

 

 

chomp():是去掉字符串中的最後一個特殊字符。返回1

 

$/   $INPUT_RECORD_SEPARTOR    輸入記錄分隔符

#############################

$char = "look this way!";
$/ = " this way!";
chomp($char);
print $char;

 

length():取得字符串中字符的個數。

 

Split():是將字符串按一定的模式劃分成一系列數據項，返回值爲數組。

Split(/模式/,字符串)

$string = "say&yes&no&!";
@array = split(/&/,$string);
for($i=0;$i < @array ;$i++)
{
     print @array[$i]."/n";
}

 

 

PERL改變字符串大小寫函數：

lc():將括號內的所有字符或字符串變量的值變成小寫。

$string = "ASFADSasdfadADdkjASki";
$string1 = lc($string);
print $string1;

 

lcfirst():將字符串的第一個字符由大寫變小寫。

$string = "ASFADSasdfadADdkjASki";
$string1 = lcfirst($string);
print $string1;

 

 

Uc():字符由小變大寫。

 

 

 

 

Ucfirst:將第一個字符由小寫變大寫。

$string = "aaaSFADSasdfadADdkjASki";
$string1 = ucfirst($string);
print $string1;

 

 

查找函數：

Index(目標字符串，待查找字符串，起起位置):

如果找到返具體位置，沒找到返-1.

如果查到多個字符串，則返回第一個字符串的位置。

 

 

Substr(目標字符串，子串起始位置，子串長度)；

從指定起始位置開始，取出子串長度個字符，作爲返回值。

$string = "I am boy";
$char = substr($string,2,2);
print $char;

當起始位置爲負值時，從後面算起。

 

 

Pack(字符碼，待編碼字符)把字符按給定字符碼編程。

Unpack(字符碼，待解碼字符)

$str = "ab cd ADG_Bs";
$str1 = pack(v,$str);
$str1 = unpack(v,$str1);
print $str1;