perl chop和chomp函数

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