创新互联公司专注为客户提供全方位的互联网综合服务，包含不限于做网站、成都网站建设、瓯海网络推广、成都微信小程序、瓯海网络营销、瓯海企业策划、瓯海品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们大的嘉奖；创新互联公司为所有大学生创业者提供瓯海建站搭建服务，24小时服务热线：18982081108，官方网址：www.cdcxhl.comong>chop是去掉字符串的最后一个字符
chomp是去掉“$/”指定的结尾符号
测试程序一：
[perl]
#!/bin/perl
$tmp = "sincere";
chop($tmp);
print "$tmp";
$tmp = "sincere";
chomp($tmp);
print "$tmp";
[/perl]
输出：
[code]
[sincerefly@localhost perl]$ perl chop-chomp
sinceresincere[sincerefly@localhost perl]$
[/code]
测试程序二：
[perl]
#!/bin/perl
$tmp = "sincere
";
chop($tmp);
print "$tmp";
$tmp = "sincere
";
chomp($tmp);
print "$tmp";
[/perl]
输出：
[code]
[sincerefly@localhost perl]$ perl chop-chomp2
sincere
sincere
[sincerefly@localhost perl]$
[/code]
结论：chop去掉了最后一个字符，chomp去掉了最后一个换行符号
测试程序三：
[perl]
#!/bin/perl
$/ = "";
$tmp = "sincere
";
chop($tmp);
print "$tmp";
$tmp = "sincere
";
chomp($tmp);
print "$tmp";
[/perl]
输出：
[code]
[sincerefly@localhost perl]$ perl chop-chomp3
sincere
sincere[sincerefly@localhost perl]$
[/code]
结论：当变量“$/”为空串时，chomp函数删除所有的换行标志
测试程序四：
[perl]
#!/bin/perl
$/ = "cere";
$tmp = "sincere
";
chop($tmp);
print "$tmp";
$tmp = "sincere
";
chomp($tmp);
print "$tmp";
[/perl]
输出：
[code]
[sincerefly@localhost perl]$ perl chop-chomp4
sincer
sin
[sincerefly@localhost perl]$
[/code]
输出时在print中加入换行，方便观察
结论：成功删除了变量“$/”指定的换行
注：
1，chomp($text=); 一般这样写来从终端读入不带换行的数据
2，“$/”不应该全局更改，并且在文件中使用完成后恢复原值是一个好习惯 
