哪位大侠能和我说说 chomp的用法 刚开始学习perl （perl语言入门第五版） 讲到chomp中 有些看不太懂。。 哪位大侠能说说 顺便给个例子 谢谢了

#! /usr/bin/per $char="look this way!"; $/=" this way!"; chomp($char); print $char; 不明白为什么打印出来的结果是：look

查了半天没找到，最后只想到用strtok(line,"\n"),但是对于line值为"\n"的情况有问题。 问一下有没有好一点的方法。

$a = ; chomp($a); print $a; ### OK chomp($b = ); print $b; ### OK $c = ; print chomp($c); ### Error WHY ? HOW ? Thanks !

use strict; use warnings; open(RF,"<01.txt"); while(my $line=) { chomp($line); print"$line"; } 为什么我加上chomp($line)后就只输出最后一个元素。去掉chomp($line)或者输出加上换行print"$line\n";输出就没有错？？ 跪求解释！！！chomp的问题困扰我很久了

RT ! 帮忙说的详细点~! 多谢多谢! 我自己测试了一下,很糊涂: chomp 得到的是记录数,比如:[code][root@localhost perl]# cat chomp #!/usr/bin/perl $test_line=; $result_chomp=chomp($test_line); $result_chop=chop($test_line); print $result_chomp,"\n========================\n"; print $result_chop,"\n"; [root@localhost perl]# perl chomp asldkja sdqjjdlkasjd qjljsldk jasd //结尾没有空格,直接...

数据文件 cat c629 http://www.baidu.com/index.html http://www.baidu.com/1.html http://post.baidu.com/index.html http://mp3.baidu.com/index.html http://www.baidu.com/3.html http://post.baidu.com/2.html 最后一行是空格和tab。不是空白！ 输出每行的长度[code]#!/usr/bin/perl open(INFILE,"c629")||die ""; my @array01=; foreach(@array01){ chomp($_); #if(length($_)) print "$_\n"; my $len=rinde...

如果从标准输入中输入1空行（就是直接回车）再chomp一下，是不是标量里的值就变成了undef了？ perl -e 'chomp($a=);if(defined($a)){print $a}else{print "nothing\n"}' 不输入的话输出什么都没有，不知道为什么

本帖最后由 obsd178 于 2012-09-12 18:02 编辑 [code] #!/usr/local/bin/perl5.12.4 use utf8; use 5.12.4; use strict; my ($circumference, $radius, $pi); $pi=3.141592654; my $xx; $xx=defined($radius); say "defined return is:$xx before chomp!"; my $out1; $out1=chomp($radius=); say "chomp return is: $out1"; say "radius is:${radius}space"; my $out2; $out2=defined($radius); #$out2=defined(0); ...

总感觉chomp好别扭啊，它直接返回个截掉尾巴后的行不好么…… 现在搞的每次都只能孤零零的用。 当年这么设计的时候，是不是有什么特别的意图？