#!/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 是整数就没问题了。。
by diag - Perl - 2004-03-23 15:29:53 阅读(1433) 回复(7)
我在perl文件中,一个for 下再调用一个for ,第二个for总是进不去 for( $x=0 ;$x <$y ;$x++){ print " # come here # \n"; for(){ #这个for循环就是进不去 print "# come into for loop #\n "; } } perl中是不是...
了解 perl 语句、变量和运算符的基础知识,并建立第一个简单的程序后,您希望进一步深入 学习 。您能学会的最重要的一项内容是控制perl程序流程——例如,根据不同的情况分离代码,或重复运行代码块,对一个特定的数据组进行全面探查。 本文将介绍后一种情况,为您说明允许您重复执行一组perl语句的各种perl结构。这种重复执行叫做循环,这些循环在大多数perl脚本中发挥着重要作用。下面我们来进行说明。 While循环 perl中最基本的...
walkerxk@www:~$ cat a.sh #!/bin/bash N=1000 for ((I=1;I<$N;I++)) do J=$(echo $N/10|bc) if [ $(expr $I % $J) -eq 0 ] then echo $I >sh.log fi done walkerxk@www:~$ cat a.pl #!/usr/bin/perl $n=1000; open($f,">pl.log"); for ($i=1;$i<$n;$i++) { $j=$n/10; if (0==$i%$j) { print $f $i."\n"; } } walkerxk@www:~$ time ./a.pl real 0m0.008s user 0m0.004s sys 0m0.004s walkerxk@www:~$ time ./a.sh real...
用perl 1000次连接字符串的循环花了4分钟 就是下面的几行代码 for ($i=1;$i<=1000;$i++) { $threads = $threads." ('$i', '2', '0', '0', '0', '0', 'admin', '1', 'testestestes', '1234342389', '1234342389', 'admin', '2', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0');"; } print "INSERT INTO `threads` VALUES".threads; exit(); 竟然执行了 4分35秒。 请教达人,为什么会这么慢? 使用的是 ...