请问学perl难吗?

devel

打印99乘法表 还可以这样：

2. #!/usr/bin/perl -w
3. for($a=1;$a<10;$a++) {
4.      for($b=1;$b<=$a;$b++) {
5.            print "$a*$b=",$a*$b," ";
6.      }
7.      print "\n";
8. }
9. print "\n";

复制代码

zonzi

最初由 orangetouch 发表
楼主的机一和机二真好啊

这两台机一台3年半，一台2年了,。。。。都应该换了，前几个月，有人还想送给我一快主版 + athlon 1300 ，。。。。
我早就想换amd64,还有再想买一台powerbook,但最近缺钱.....
我楼下有个人还有一个sun ultra160.......2000年买的，+18‘液晶屏（sun的）.....
不过那人真变态，他的每个电脑还有名字.....:help:help
就是他告诉我novell 的netware最安全....
和他比真不算什么,....

小劲鸭

我也在旁听PERL....但没认真学, 看来要努力了.....

叶知秋

怎么用一个循环就打出九九乘法表呢？

devel

最初由 叶知秋 发表
怎么用一个循环就打出九九乘法表呢？

我认为不可以。。。:rolleyes:

小劲鸭

最初由 devel 发表
我认为不可以。。。:rolleyes:

你的一个循环包括NESTED LOOP吗？

libinary

最初由 devel 发表
我认为不可以。。。:rolleyes:

这个就看愿不愿意写代码了，直接写81条print，不用循环也可以打出来，或者用一个循环，里面9个print也行。
下面是我写的：

1. 
   
2. #! /usr/bin/perl -w
   
3. 
   
4. $a = 1;
   
5. for($b = 1; $b <= 9; $b++){
   
6.   printf "$a*$b=%2d ", $a*$b;
   
7.   if($b == 9){
   
8.     print "\n";
   
9.     $b = 0;
   
10.     if(++$a == 10){
    
11.       last;
    
12.     }
    
13.   }
    
14. }
    

复制代码

小劲鸭

最初由 libinary 发表
这个就看愿不愿意写代码了，直接写81条print，不用循环也可以打出来，或者用一个循环，里面9个print也行。
下面是我写的：

1. 
   
2. #! /usr/bin/perl -w
   
3. 
   
4. $a = 1;
   
5. for($b = 1; $b <= 9; $b++){
   
6.   printf "$a*$b=%2d ", $a*$b;
   
7.   if($b == 9){
   
8.     print "\n";
   
9.     $b = 0;
   
10.     if(++$a == 10){
    
11.       last;
    
12.     }
    
13.   }
    
14. }
    

复制代码

我不太懂PERL， 但为什么变量a在每一次循环里不增加呢？

libinary

最初由 茜如和小劲鸭 发表
我不太懂PERL， 但为什么变量a在每一次循环里不增加呢？

if(++$a == 10){
++$a不是增加了吗

小劲鸭

最初由 libinary 发表
if(++$a == 10){
++$a不是增加了吗

没有看到++$a..觉得PERL的语法有点像。。。Shell script...好像shell script 也是用$作变量的。。是吗？