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]$