小编mar*_*rio的帖子

我正在尝试使用Perl6 :: Form打印表格数据,但我不确定如何从散列引用输出数据.这是我到目前为止所尝试的:

#!/usr/bin/perl
use Perl6::Form;

my @alerts; 

push @alerts, { site => "192.168.0.1", status => "200", id => "QWE" };
push @alerts, { site => "192.168.0.2", status => "500", id => "QER" };

print form
        ' ====================================== ',
        '| ID          |    SITE    | STATUS    |',
        '|-------------+------------+-----------|',
        '| {[[[[[[[[[} |{[[[[[[[[[} | {>>>>>>>} |',
           \@alerts{id}, \@alerts{site},\@alerts{status},
        ' ====================================== ';

我有日期和事件的日志文件.我想不时检查这个文件,只查看特定时间点的记录,例如上次检查时的最后一次错误.

05/03/2016 23:55:25.142639 user1
05/04/2016 12:55:25.142639 user4
05/04/2016 13:57:25.142639 user3
05/04/2016 13:51:02.236522 user2

我希望在变量中包含日期

variable="05/04/2016 12:55:25.142639"

我试图运行以下命令,但没有成功:

[sdtest tmp]$ sed -n "/$variable/,\$p" logfile.out
sed: -e expression #1, char 5: unknown command: `0'