大家来做几个perl小练习

KornLee

给develMM添点人气~~ ;)

练习
1,编写一个从 1 数到 100 的循环，并且
打印所有偶数
打印所有奇数
打印所有以 1、2 或 7 结尾的数字

2,编写一个从 100 向后数到 1 的循环


3,编写一个程序，该程序读取标准输入并打印以"hello"（大写、小写或大小写混合均可）开始的所有行。提示：请查看"perldoc perlrun"帮助页面，尝试使用 Perl 的内置开关，而不要编写自己的循环。


4,编写一个逻辑条件，该条件将检查一个标量是否已定义、是否是非零、回文（向前读和向后读都一样）或者是数字 234.98。分别使用和不使用 Perl 解释器的"-w"标志和"use strict"编译器编译参数各测试一次。如果生成了警告信息，您是否理解这些警告信息？


5,以通常（不带后缀）的表示法编写以下代码，如果可以，则简化它们：

print if $debug;
$i++ unless $i > 10;
unless ($j && !$i) { $j += $i while <> };
next while <>;

来自: http://www-900.ibm.com/developer ... d/part3/index.shtml

KornLee

初学乍练~,先做了前三道,
[/home/javalee/myperl]cat ex1.pl

1. 
   
2. #!perl -w
   
3. @num=1..100;                #把1到100的数存到数组@num
   
4. $n=0;
   
5. while ($n<=$#num) {           #这里$#num等于 100
   
6.         print "$num[$n] ";$n+=2; # $num[$n] 是@num里的某个元素,要注意，
   
7.                               #不是@num[$n] 哦! :):)
   
8. }
   
9. print "\n";
   
10. $n=1;
    
11. while ($n<=$#num) {
    
12.         print "$num[$n] ";$n+=2;
    
13. }
    
14. print "\n";
    
15. foreach (@num) {
    
16.         if (/1$|2$|7$/) {print "$_ "}
    
17. }
    
18. print "\n";

复制代码

[/home/javalee/myperl]cat ex2.pl

1. 
   
2. #!perl -w
   
3. @num=1..100;
   
4. @rev_num=reverse@num;  #reverse()的作用是把数组元素反排列。
   
5. foreach (@rev_num) {
   
6.         print "$_\n";
   
7. }

复制代码

[/home/javalee/myperl]cat ex3.pl

1. 
   
2. #!perl -w
   
3. while (<>) {      # <>指标准输入，默认是键盘。返回值是输入的内容。
   
4.         print if (/^hello/i);       # i (ignore)忽略大小写
   
5. }
   

复制代码

脚本菜了些,还望兄弟们指教~ :thank

KornLee

第4和第5不太明白~~ 哪位给详细解释解释~:thank

x11

...
第一个不是一个循环就能完成的么

KornLee

最初由 x11 发表
...
第一个不是一个循环就能完成的么

第一个有三个小问题呀~

devel

第一道题：
族长的方法独特哦。。也可以这样，我的符合条件了，它没有说不准循环三次

1. 
   
2. #!/usr/bin/perl -w
   
3. for($i=2;$i<101;$i++) {
   
4. print "$i " if( $i % 2 == 0 );    # % 的意思是取模，就是求两个整除数的余数。
   
5. }
   
6. print "\n\n";
   
7. for($i=0;$i<101;$i++) {
   
8. print "$i " if( $i % 2 == 1 );
   
9. }
   
10. print "\n\n";
    
11. for($i=1;$i<101;$i++) {
    
12. print "$i " if( $i % 10 == 1 || $i % 10 == 2 || $i % 10 == 7 );
    
13. }
    
14. print "\n";
    

复制代码

第二道题不用说了吧，看的懂第一道就懂写第二道，第三道以给出答案了。第四道的意思是要求你能读懂"warn:*****"的错误提示的意思并把错误改正，等发现有的时候在说，现在整不出来。。:confused:

最后一道的意思是把代码转换成这样的格式，看答案：

1. 
   
2. if ( $dubug ) {
   
3. print "SOTMETING\n";
   
4. }
   
5. 
   
6. unless( $i>10) {
   
7. $i++ ;
   
8. }
   
9. 
   
10. unless( $j && !$i) {
    
11.     while (<>) {
    
12.            $j += $i ;
    
13.     }
    
14. }
    
15. 
    
16. 
    
17. while(<>) {
    
18. next ;
    
19. }
    

复制代码

还有更多更优化的答案吗？

KornLee

谢谢版主指点~~,看来还是先打好基础吧~~ :thank

devel

最初由 javalee 发表
谢谢版主指点~~,看来还是先打好基础吧~~ :thank

不敢不敢，你的算法会有很多SIR们不懂(包括我)，请你解释一下。。
:rolleyes:

KornLee

我是用数组的方法,
@num=1..100 #产生1到100个元素给数组num,其中 .. 是区间操作符号,
$#num返回数组元素的个数
foreach就不用说了,是个循环,是对@num这个数组进行历遍,然后用perl的默认变量$_来代表每个元素
开始我也想用求模的方法来显示奇/偶数,但是一时想不起来咋弄! 谢谢你的帮助~
btw:现在正在苦读数组和散列,循环,下李白该苦读正则了~,正如LY00兄说的,我的脚本有太深的shell影子 :p

libinary

我的第一题：

1. 
   
2. #! /usr/bin/perl -w
   
3. 
   
4. for($i = 1; $i <= 100; $i++){
   
5.   if($i % 2){
   
6.     push(@odd, $i);
   
7.   }else{
   
8.     push(@even, $i);
   
9.   }
   
10.   if($i =~ /[1,2,7]$/){
    
11.     push(@end, $i);
    
12.   }
    
13. }
    
14. 
    
15. print join(", ", @even), "\n\n";
    
16. print join(", ", @odd), "\n\n";
    
17. print join(", ", @end), "\n";
    

复制代码