微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

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;

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。

相关推荐