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

Question

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？

相关文章：

linux - 元数据库返回被杀死

linux - Linux shell 和文件系统如何识别 Unicode？

linux - 如何从 shell 脚本中触发延迟系统关闭？

Bash 脚本 - if 和 else if 语句

bash - 使用 Bash 从字符串变量中删除括号分隔的子字符串

c - 对 libncurses 中函数的 undefined reference

linux - *nix 中的等效 win API

perl - 在 Perl 中，如何确定已加载的特定模块的模块版本？

perl - 草莓 perl 和 pp 文件扩展名

arrays - 使用逗号或点对 Perl 中的数组/列表进行排序以进行字符串连接

Answer 1

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

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