perl chop和chomp函数

chop(str) 截去最后一个字符,无论是什么字符

chomp(str) 截去末尾的行分割符(n)，行分割符可由$/定义。

[oracle@jhoa bobooke]$ cat 2.pl 
#!/usr/bin/perl
$a="abcdn";
#chop($a);
print "chop $a";
[oracle@jhoa bobooke]$ perl 2.pl 
chop abcd

[oracle@jhoa bobooke]$ cat 2.pl 
#!/usr/bin/perl
$a="abcdn";
chop($a); ##此时回车符会被截去
print "chop $a";

[oracle@jhoa bobooke]$ perl 2.pl 
chop abcd[oracle@jhoa bobooke]$ 


[oracle@jhoa bobooke]$ cat 3.pl 
#!/usr/bin/perl
$a="abcdn";
chomp($a);
print "chomp $a";


[oracle@jhoa bobooke]$ perl 3.pl 
chomp abcd[oracle@jhoa bobooke]$ 

[oracle@jhoa perl]$ cat a2.pl?
$text = "a line of textn";
print "$text is $text";
chomp($text);
print "$text is $text";




[oracle@jhoa perl]$ perl a2.pl?
$text is a line of text
$text is a line of text[oracle@jhoa perl]$?