chop(str) 截去最后一个字符,无论是什么字符
chomp(str) 截去末尾的行分割符(\n),行分割符可由$/定义。
[oracle@jhoa bobooke]$ cat 2.pl
#!/usr/bin/perl
$a="abcd\n";
#chop($a);
print "chop $a";
[oracle@jhoa bobooke]$ perl 2.pl
chop abcd
[oracle@jhoa bobooke]$ cat 2.pl
#!/usr/bin/perl
$a="abcd\n";
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="abcd\n";
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 text\n";
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]$
本文章为转载内容,我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题,欢迎原作者联系我们进行内容更正或删除文章。