perl for 循环
这几天开始学习perl，在遇到这个列子时就傻眼了，不知道是不是脑子锈掉了，求解答！ 如何理解第5-11行的内容 1 #!/usr/bin/perl 2 $done = 0; 3 $count = 1; 4 print ("This line is printed before the loop starts.\n"); 5 while ($done == 0) { 6 print ("The value of count is",$count,"\n"); 7 if ($count == 3) { 8 $done = 1; 9 } 10 $count = $count + 1; 11 } 12 print ("End ...
by sandy-shi - Perl - 2011-03-25 16:27:45 阅读（2998） 回复（5）
work.txt 1 00110010 4 00110010 5 00001000 8 00011000 10 00100010 16 00000110 25 00010000 29 01110010 31 00110000 37 11100010 38 00111000 41 10000010 45 01100000 49 10000001 50 01001000 52 11111010 55 10000110 57 11111010 59 10000010 60 10000000 61 11000000 67 00000000 output.txt 0 3 1 2 2 2 3 3 4 3 5 4 6 3 自己写的程序 open IN,"work.txt"; my $num; for (my $i=0; ;i+=10) ####如果加上$i <=***,...
对于perl的for循环语句 for（my $i,$i<10,$i++) 我想设置$i每次增加的值可以吗？就是说不是每次增加一，而是我自己设置的一个固定值，这个固定值又是通过一个公式产生的变量，这样的话，应该怎么写循环？
请教一个问题：有类似这样一个文件，每个Node分别对应一个label， { Node1 [label="cosD"]; Node1 -> Node2 ; Node2 [label="sinD"]; Node2 -> Node3; Node3 [label="tanD"]; Node1 -> Node3 ; ... ... ... ... } 想写个脚本，将每个Node用其对应的label来替换。也就是说将文件中所有Node1替换为cosD，所有Node2替换为sinD，Node3 替换为tanD，以此类推，因为 Node数目很多，想用脚本批量替换，请问达人们该如何实现？
本帖最后由 xiongdp 于 2011-04-24 08:21 编辑 看到一个perl程序中的for循环 for(my $i=@$array; --$i; ){ } 请问为什么for循环中只有两个条件，且只有两个分号呢？
两个文件 第一个文件两列，每行的两列数字构成一个区间， 11 20 30 50 等等 另外一个是一列数字， 类似， 12 15 30 45 50 等等 问题是想统计一下第2个文件中落在第一个文件中的数字的个数，例如，12落在了11 20之间，那么$hash{11 20}++一次，最后输出第一文件每行出现的次数。 关键的问题是每个文件都好几万行，循环起来比较慢，我想请教大家有什么好的建议，谢谢
#!/usr/bin/perl open (PG, ">;pin.tdf_bottom"); $number=0; $order=1; $offset=9.81 ; for ($number = 0 ; $number <= 255 ; $number++) { $order = $order +1; $offset= $offset+2.64; print PG "pin \"din\[$number\]\" 64 0 0 \"bottom\" $order $offset\n" ; } close (PG); 为什么 不能加小数。 如果2。64 是整数就没问题了。。
我是个新手，最近在看小骆驼，因为我是一边看一边巧代码玩，perl的if循环问题请求指教：
print "please input date:";
chomp ($today =
本帖最后由 leavesdi 于 2010-03-25 17:09 编辑 大家好，我刚刚开始学习perl，打算使用SSH模块监控其他机器cpu及内存情况，其中使用了两个循环，但是发现结果有问题，好像是进行了多次循环，但是我又找不出问题，麻烦大家帮忙看一下，谢谢。 perl脚本：#!/usr/bin/perl -w use Net::SSH::Expect; our $ADDIP="/root/hostip"; our %ADDLISTHASH; #define a hash open ADDLIST,"$ADDIP"; #open the file ADDIP by using the ...
我在perl文件中，一个for 下再调用一个for ，第二个for总是进不去 for( $x=0 ;$x <$y ;$x++){ print " # come here # \n"; for(){ #这个for循环就是进不去 print "# come into for loop #\n "; } } perl中是不是...
