我也找来个题大家一起做~~~~~

the_threeeyes

这是Perl by Example上的一道题

物理学家告诉我们，最低的温度是绝对零度，绝对零度是华氏-459.69度。
   1。接受用户输入：开始温度，结束温度和增值（都是华氏）
   2。检查错误输出：小于绝对零度的温度和结束温度小于开始温度的情况。如果发现这种情况，程序发送消息到STDERR。
   3。打印标题："Fahrenheit Celcius"。打印从开始到结束温度的所有值，使用循环机制，转换公式是：C=(F-32)/1.8
   *加分：确保用户输入的是数字，小数或浮点数，如5.5,.5,5

home

1. 
   
2. #!/usr/bin/perl -w
   
3. print "input initialization temperature :\n";
   
4. while (1) {
   
5.       chomp($init=<>);
   
6.       if( $init < -459.69) {
   
7.               print "initialzation temperature less then -459.69F\n";
   
8.       }else {
   
9.               $init=($init-32) / 1.8 ;
   
10.               last ;
    
11.       }
    
12. }
    
13. print "input termination  temperature:\n";
    
14. while (1) {
    
15.       chomp($tem=<>);
    
16.       if($tem < -459.69) {
    
17.               print "termination temperature less then -459.69F\n";
    
18.       }else {
    
19.               $tem=($tem-32) / 1.8 ;
    
20.               last ;
    
21.       }
    
22. }
    
23. print "input step temperature:\n";
    
24. while (1) {
    
25.       chomp($step=<>);
    
26.       if( $step < -459.69) {
    
27.               print "step temperature less then-459.69F\n";
    
28.       }else {
    
29.               last ;
    
30.       }
    
31. }
    
32. while ($init < $tem ) {
    
33.        print "$init ";
    
34.        $init += $step ;
    
35. }
    
36. print "\nDone\n";
    

复制代码

这个办法比较笨，怎么把chomp($val=<>)放到判断那一行里？

the_threeeyes

我的程序写出来了一半，没有确保用户输入的是数字，其他条件符合，等下帖上来

devel

照home的改改：

1. 
   
2. #!/usr/bin/perl -w
   
3. print "input initialization temperature :\n";
   
4. while (1) {
   
5.     chomp($init=<> );
   
6.     if( $init =~ /\D/ ) { #如果$init匹配所有的非数字的字符。
   
7.          print "initialization tempereature type is erroe\n";
   
8.          if( $init < -459.69 ) {
   
9.              print "initialzation temperature less then -459.69F\n";
   
10.          }else {
    
11.               $init=($init-32) / 1.8 ;
    
12.               last ; #这里得到正确得参数，推出while(){}循环，保留最后的值,下面的同理。
    
13.          }
    
14.     }  
    
15. }
    
16. print "input termination  temperature:\n";
    
17. while (1) {  #这个循环的内容增加了对$init 和$tem的比较。
    
18.     chomp($tem=<> );
    
19.     if($tem =~ /\D/ ) {
    
20.         print "termination temperature type is error\n";
    
21.         if($tem < -459.69) {
    
22.             print "termination temperature less then -459.69F\n";
    
23.             if($tem < $init ) {
    
24.                      print " termination temperature less then initialization temperature,please input a new termination\n";
    
25.             }else {
    
26.                      $tem=($tem-32) / 1.8 ;
    
27.                      last ;
    
28.             }
    
29.         }
    
30.     }
    
31. }
    
32. print "input step temperature:\n";
    
33. while (1) {
    
34.     chomp($step=<> );
    
35.     if($step =~ /\D/ ) { #如果$step匹配匹配非数字的字符。
    
36.         print "step temperature type is error\n";
    
37.         if( $step<0 ) {
    
38.               print "step temperature less then 0 \n";
    
39.         }else{
    
40.               last ;
    
41.                   #这里得到正确得参数，推出while(){}循环，保留最后的值。
    
42.         }
    
43.     }
    
44. }
    
45. while ($init < $tem ) {
    
46.     print "$init ";
    
47.     $init += $step ;
    
48. }
    
49. print "\nDone\n";
    

复制代码

谢谢the_threeeyes的提醒，我考虑得不周到，忽略了$step要大于零，还有算法错了。请大家再看看。。有什么错误的地方请大家指出。
\D的意思是匹配除任意数字的字符。

the_threeeyes

#!/usr/bin/perl -w

。。。。。      
#假设确定用户输入的是数字，并且分别保存在$init，$tem， $step
#表示开始，结束和增值

SWITCH:{
   last if {$init<-459.69;}  #小于绝对零度，退出
   last if {$tem<=$init;}    #结束温度要大于开始温度
   last if {$step<=0;}       #增值要大于零
   do {
     print "Fahrewhietinit",'    ';  #打印开始温度（华氏）
     $c=($init-32)/1.8;                #求对应摄氏温度  
     print "Celciusc\n";             #打印摄氏温度值，新行
     $init+=$step;                     #增值后的温度
       }
   while ($init>=$tem){                #温度大于结束温度停
     print "Fahrewhiettem",'    ';   #打印结束温度
     $c=($tem-32)/1.8;                 #求摄氏
     print "Celciusc\n";             #打印结束温度
     }
  }

这样的话每一行打印出的是华氏和对应的摄氏，然后换行。
没有设计开始的输入开始，结束和增值温度，及没有确保用户输入的是数字，小数或浮点数。
有遗漏的地方请大家指导

devel

应该对每一个参数都分别检查，请看看上一贴。。

the_threeeyes

可能是对题意理解的不一样，我是这样理解的：
例如，输入开始温度0度，结束100度，增值11度（均为华氏）
得出这样的输出：
   Fahrenheit    Celcius
      0           ....
     11           ....
     22           ....
     ..            ..
     99           ....
    100           ....
我的意思就是要满足三个条件才计算并输出，开始温度不小于绝对温度，结束温度要高于开始温度，增值要大于零，三个条件同时满足才开始计算并循环。否则就视为用户捣蛋，不为他计算输出：P

the_threeeyes

应该象列表那样对齐的

777

不能推出while(){} 循环阿。。看上去没什么问题了，怎么推出while(){}循环呢？？？请教高手！！

libinary

我的，大概测试了一下，还行，不保证没有错误

1. 
   
2. #! /usr/bin/perl -w
   
3. 
   
4. while(2){
   
5.   if(!defined($begin = getInput("begin"))){
   
6.     next;
   
7.   }
   
8.   if(!defined($end = getInput("end"))){
   
9.     next;
   
10.   }
    
11.   if(!defined($step = getInput("step"))){
    
12.     next;
    
13.   }
    
14.   if($begin > -459.69 && $begin < $end && $step > 0){
    
15.     last;
    
16.   }else{
    
17.     print "error\n";
    
18.   }
    
19. }
    
20. print "  No.  Fahrenheit   Celsius\n";
    
21. for($i = 1, $f = $begin; $f <= $end; $f += $step, $i++){
    
22.   $c = ($f - 32) / 1.8;
    
23.   write;
    
24. }
    
25. 
    
26. sub getInput{
    
27.   my $name = $_[0];
    
28.   print "${name}: ";
    
29.   my $num = <>;
    
30.   if(!defined($num)){ [color=red]# Ctrl+d 退出[/color]
    
31.     print "\n";
    
32.     exit;
    
33.   }
    
34.   chomp $num;
    
35.   if(!isNumber($num)){
    
36.     print "error\n";
    
37.     undef $num;
    
38.   }
    
39.   return $num;
    
40. }
    
41. 
    
42. sub isNumber{
    
43.   my $n = $_[0];
    
44.   if($n =~ /^[+-.]+$/){ [color=red]# 如果只包含+-.则返回假[/color]
    
45.     return 0;
    
46.   }
    
47.   [color=red]# 判断是否是数字，可接受的形式有-2、.3、-.6、3.7、+50等等[/color]
    
48.   if($n =~ /^[+-]?\d*\.?\d*$/){
    
49.     return 1;
    
50.   }
    
51.   return 0;
    
52. }
    
53. 
    
54. format STDOUT=
    
55. @####  @######.##  @####.##
    
56. $i, $f, $c
    
57. .
    

复制代码