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;