程序允许30分钟，期间要求用户输入来模拟车辆进入、出去的行为
输入的内容为一串字符串，每个不同的字符串代表一辆车.
纪录所有车每次进出的时间，计算时间、次数和价格.
价格依照价格表，阶梯定价：头10分钟5元，超过10分钟的每分钟5元
程序运行30分钟自动退出，程序退出前还没出库的车，收费200元
程序最后统计所有车辆的情况：次数，每次时间，总时间，总价

code:

 
  
  1. #!/usr/bin/perl  
  2. use strict;  
  3. use warnings;  
  4. use Data::Dumper;  
  5. use Time::Local;  
  6. use POSIX qw{strftime};  
  7. my (%hash,%count)=();  
  8. my $start_time = time;  
  9. sub p_money{  #计算费用  
  10.     my $time = shift;  
  11.    return 5 if $time <= 600;  
  12.    if ($time>600 and $time<1800){  
  13.     my $min;  
  14.      $time%60==0?$min = ($time-600)/60:$min= int( ($time-600)/60 +1);  
  15.         my $mon_minute = 5+$min*5;  
  16.        return $mon_minute;  
  17.    }  
  18. }  
  19. my (@arr,$end_time);  
  20. while(1){  
  21.     my ($start);  
  22.    $end_time=time;  
  23. print  "Car Number :";  
  24.    eval{  
  25. local $SIG{ALRM}=sub {die "timeout\n";};  
  26.   alarm(5);  
  27.     chomp( $start = <>);        #此处设施中断  5秒内没有用户输入就继续循环，  
  28.     push @{$hash{$start}},time;  
  29.     $count{$start}++ if defined $start;  
  30.     alarm(0);  
  31.    };  
  32. if ($end_time-$start_time>20){   #这里程序运行20秒，则退出循环，打印车辆的费用  
  33.         for (sort keys %hash){  
  34. my $stop_time = time()-$hash{$_}[0];  
  35.         my $car_start_time = strftime("%Y-%m-%d %H:%M:%S", localtime($hash{$_}[0]));  
  36.         my $car_stop_time = strftime("%Y-%m-%d %H:%M:%S", localtime(time));  
  37.         push @arr,"$_\t$car_start_time $car_stop_time $stop_time\t200\n";  
  38.         }  
  39.    print "\n车号\t开始时间\t离开时间\t停车时间\t价格\n";  
  40.    print @arr;  
  41.         exit;  
  42.     }  
  43.    if(defined $start  and  ($count{$start}||0) >1 ){  
  44.         push @{$hash{$start}},time;  
  45.         my $stop_time = $hash{$start}[-1]-$hash{$start}[0];  
  46.         my $car_money = p_money $stop_time;  
  47.         my $car_start_time = strftime("%Y-%m-%d %H:%M:%S", localtime($hash{$start}[0]));  
  48.         my $car_stop_time = strftime("%Y-%m-%d %H:%M:%S", localtime($hash{$start}[-1]));  
  49.         push @arr, "$start\t$car_start_time $car_stop_time $stop_time\t$car_money\n";  
  50.         delete $count{$start}; #删除 出库车辆  
  51.         delete $hash{$start};  
  52.         redo;  #继续等待用户输入  
  53.     }else{  
  54.         redo;  
  55.     }  
  56. }  
 
  
结果：