linux - 如果没有值，则在文件中添加零值。

This question is unlikely to help any future visitors; it is only relevant to a small geographic area, a specific moment in time, or an extraordinarily narrow situation that is not generally applicable to the worldwide audience of the internet. For help making this question more broadly applicable, visit the help center。




                                6年前关闭。


我有一个选择查询，它会提取特定时间的所有订单（对不起，我稍后会复制db2查询），结果将存储在sample.txt文件中

输出如下所示，sample.txt

Time   orders
12 AM  2000
1 AM   1000
2 AM   3000
3 AM   1500
5 AM   1900
6 AM   1000

查询中没有问题，上面的sample.txt中缺少4AM值。实际上，在凌晨4点没有订单，因此从逻辑上讲我的db2查询是正确的

但是我也想添加零订单时间，我希望输出如下

Time   orders
12 AM  2000
1 AM   1000
2 AM   3000
4 AM    0
3 AM   1500
5 AM   1900
6 AM   1000

如果在特定时间没有下订单，我想打印零。我在Unix Shell脚本中使用这个sample.txt。有什么建议可以做到这一点？提前致谢

最佳答案

这个怎么样？它虽然很放纵，但确实有效！

package Time;

use strict;
use warnings;

use overload
  '='  => \&copy,
  '++' => \&increment,
  '""' => \&to_string;

sub new {
  my $class = ref $_[0] || $_[0];
  bless [ split ' ', $_[1] ], $class;
}

sub copy {
  my ($self) = @_;
  my $class = ref $self;
  bless [ @$self ], $class;
}

sub increment {
  my ($self) = @_;
  $self->[0] -= 12 if ++$self->[0] > 12;
  $self->[1] =~ tr/AP/PA/ if $self->[0] == 12;
}

sub to_string {
  my ($self) = @_;
  join ' ', @$self;
}

package main;

use strict;
use warnings;

my $next;

while (<DATA>) {
  if ( /^(\d+\s+[AP]M)\s+(\d+)/ ) {
    $next = Time->new($1) unless $next;
    until ( /^$next/ ) {
      printf "%s %6d\n", $next++, 0;
    }
    $next++;
  }
  print;
}

__DATA__
Time   orders
12 AM  2000
1 AM   1000
2 AM   3000
3 AM   1500
5 AM   1900
6 AM   1000

输出

Time   orders
12 AM  2000
1 AM   1000
2 AM   3000
3 AM   1500
4 AM      0
5 AM   1900
6 AM   1000

关于linux - 如果没有值，则在文件中添加零值。，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/16999891/

上一篇：linux - 如何在 Linux 中编辑文件并添加换行符？

下一篇：linux - 为什么因为内存而选择linux而不是windows？

相关文章：

shell - 如何使用 time 命令但仅对脚本的一部分进行计时

linux - 通过 shell 脚本为用户的 sudoers 添加 sudo 权限

linux - 计算列中的出现次数并获取整行

linux - 如何将出现的短语输出到给定目录的文件中？

python - 如何仅将模型的日期时间字段中的日期与当前日期进行比较？

mysql - 500 内部服务器错误 perl/数据库

perl - 如何在 Template::Toolkit 中分析模板性能？

Perl - 将 lib 与具有依赖关系的 perl 模块一起使用

linux - Shell——将 'od'命令的输出记录到一个变量中

linux - SVN:结帐访问被拒绝