我真的需要使用类似于Single方法的东西,其中:
返回序列的唯一元素,如果序列中没有一个元素,则抛出异常。
显然,为方便起见,我可以添加扩展/细化。
但类似的东西已经存在吗? 也许在ActiveSupport或其他库中?
答案 0 :(得分:2)
不,标准库中没有任何内容(我相信也不是ActiveSupport),但很容易实现。
#!/usr/bin/perl
$interval = 300; # seconds.
$epoch = `date +%s`;
$epoch -= $interval;
$time = `date -d \@$epoch +%H:%M:00`;
$dom = `date +%d`;
chomp($time,$dom);
system("sar -f /var/log/sysstat/sa$dom -B -s $time 300 1");