0

我想创建一个脚本，它将接收 2 个参数（小时和分钟）（HH1:MN1 和 HH2:MN2）

  • 如果#ARGV = 2，它必须有效
  • 验证提供的时间是否正确（小时在 0 到 200 之间，分钟在 0 到 59 之间）
  • 添加这些时间并打印到结果
  • 如果打印 Nbday 超过 24 小时；HH:分钟
  • 如果超过 7 天，它将打印周；第二天；HH：最小。

我从这个开始，但不知道如何继续计算欢迎任何帮助或想法谢谢

#!/usr/bin/perl

if ($#ARGV != 2)
{
print STDERR "Erreur Parameters have to be 2\n";
exit (-1);
}
if ($ARGV[0] = ~ / ([0-9] | 1 [0-9] ? [0-9] | 200 ) : ( [0-5] ? [0-9] ) /)
{
$heures1 = $1;
$minutes1 = $2;
}
else 
{
print STDERR "first parameter invalid\";
exit (-1);
}
if ($ARGV[1] = ~ / ([0-9] | 1 [0-9] ? [0-9] | 200 ) : ( [0-5] ? [0-9] ) /)
{
$heures2 = $3;
$minutes2 = $4;
}
`else `
{
print STDERR "Second parameter  invalid\";
exit (-1);
$heures = $heures1 + $heures2;
$minutes = $minutes1 + $minutes2'
4

2 回答 2

2

验证代码非常简单：

sub usage {
   print STDERR $_[0] if @_;
   print STDERR "usage: ...\n";
   exit(1);
}

usage() if @ARGV != 2;

my ($hours1, $minutes1) = $ARGV[1] =~ /^([0-9]+):([0-9]+)\z/ or usage();
my ($hours2, $minutes2) = $ARGV[1] =~ /^([0-9]+):([0-9]+)\z/ or usage();

0 <= $hours1   && $hours1   <= 200 or usage("Invalid number of hours for first argument\n");
0 <= $minutes1 && $minutes1 <=  59 or usage("Invalid number of minutes for first argument\n");
0 <= $hours2   && $hours2   <= 200 or usage("Invalid number of hours for second argument\n");
0 <= $minutes2 && $minutes2 <=  59 or usage("Invalid number of minutes for second argument\n");

范围检查可以通过正则表达式完成，但它容易出错且不可读。

/^0*(0|1[0-9]{0,2}|2(?:00?|[1-9])?|[3-9][0-9]?):0*(0|[1-5][0-9]?|[6-9])\z/

（正则表达式可能更简单一些，但它实际上是为了消除回溯的可能性。）

你已经问过了，我们优雅地为数学部分提供了解决方案，那你为什么还要问呢？

my ($hours1, $minutes1) = split /:/, $arg1;
my ($hours2, $minutes2) = split /:/, $arg2;

my $hours   = $hours1   + $hours2;
my $minutes = $minutes1 + $minutes2;

$hours   += ($minutes - ($minutes % 60)) / 60;  $minutes %= 60;
my $days  = ($hours   - ($hours   % 24)) / 24;  $hours   %= 24;
my $weeks = ($days    - ($days    %  7)) /  7;  $days    %=  7;

至于输出部分，你应该可以自己管理。一个有用的提示：

sprintf('%02d', $minutes)   # 0-padded to two digits
于 2013-03-27T20:44:48.743 回答
0 
#!/usr/bin/perl

die "Erreur Parameters have to be 2" if (scalar(@ARGV) != 2) 

if ($ARGV[0] =~ /^([0-9]|1[0-9]?[0-9]|200):([0-5]?[0-9])$/) {
    $heures1 = $1;
    $minutes1 = $2;
} else {
    die "first parameter invalid";
}

if ($ARGV[1] =~ /^([0-9]|1[0-9]?[0-9]|200):([0-5]?[0-9])$/) {
    $heures2 = $3;
    $minutes2 = $4;
} else {
    die "Second parameter invalid";
}

$heures = $heures1 + $heures2;
$minutes = $minutes1 + $minutes2'
于 2013-03-27T20:50:43.927 回答