小编geo*_*rea的帖子

我需要在我的 Windows Server 2016 中安排一个任务每分钟运行一次，如何实现？我试过任务计划程序->创建任务，但最少是每 5 分钟一次，是否可以每分钟安排一次任务（运行 exe）？有任何想法吗？谢谢！

我正在建立哈希哈希.如何使用while获取每个值？

my %users = ();

while ( my $row_ref = $select_sth->fetchrow_hashref() ) {

    $id     = $row_ref->{uid};
    $name   = $row_ref->{name};
    my $loc = $row_ref->{loc };

    $users{$loc}{$name} = $id;
}

while ( my ($user, $val) = each(%users) ) {

    # how to get name, loc, id?

    my $uname = ??
    my $uloc  = ??
    my $uid   = ??
}

在Perl 5.26.2中我得到:

Experimental each on scalar is now forbidden at a.plx line 67.
Type of arg 1 to each must be hash or array (not private variable) at a.plx   
line 67, near "$val)"
Execution of a.plx aborted due to compilation errors.

第67行是其中的

 67 while (my ($ip, $val2) = each($val))
 68 {
       ......
    }

我在文本文件中有一个netflow信息报告，我想将它们导出为csv格式，如何在Perl中做到这一点？我是Perl的新手，只是开始学习它。

这是文本文件：

Duration    Flags    
10.10.10.1      10.10.11.11    51251    445      2019-03-05 11:59:29.008   29.156     ......
10.10.10.2      10.10.11.22    51234    123      2019-03-05 11:40:29.008   30.156     .A..SF

我想将其导出为ex​​cel格式，如下所示。

10.10.10.1,10.10.11.11,51251,445,2019-03-05 11:59:29.008,29.156,......  
10.10.10.2,10.10.11.22,51234,123,2019-03-05 11:59:29.008,30.156,.A..SF  

我试图做如下

use strict;
use warnings;

open my $fh, '<', 'file.txt';
open my $fo, '>', 'file.csv';
while (<$fh>) {
   next if ($. == 1);
   s/\b \b/,/g;
   my $text = (join ',', (split /\s+/, $_))."\n";
   print $fo $text;
}

但结果是开始的每一行都会再加上一个'，'，如下所示，

,10.10.10.1,10.10.11.11,51251,445,2019-03-05 11:59:29.008,29.156,......  
,10.10.10.2,10.10.11.22,51234,123,2019-03-05 11:59:29.008,30.156,.A..SF  

这就是我想要的，我的代码有什么问题？

10.10.10.1,10.10.11.11,51251,445,2019-03-05 11:59:29.008,29.156,......  
10.10.10.2,10.10.11.22,51234,123,2019-03-05 11:59:29.008,30.156,.A..SF  

无论如何这样做？谢谢。

我对使用 Perl 编写脚本相当陌生。我正在尝试 ssh 进入服务器并执行一些命令。我必须提供用户名和密码。我尝试在 perl 中使用 Net::SSH::Expect ，但是当我运行我的 perl 程序时，我尝试了这个，

curl -L http://cpanmin.us | perl - --sudo App::cpanminus
cpanm Net::SSH::Perl 

但仍然收到如下错误消息，

Can't locate Net/SSH/Expect.pm in @INC (you may need to install the Net::SSH::Expect module) (@INC contains: /etc/perl /usr/local/lib/x86_64-linux-gnu/perl/5.30.0 /usr/local/share/perl/5.30.0 /usr/lib/x86_64-linux-gnu/perl5/5.30 /usr/share/perl5 /usr/lib/x86_64-linux-gnu/perl/5.30 /usr/share/perl/5.30 /usr/local/lib/site_perl /usr/lib/x86_64-linux-gnu/perl-base) at /home/hsuan/inms/get/get_mac.plx line 9.

BEGIN 失败 - 编译在 /home/hsuan/inms/get/get_mac.plx 第 9 行中止。

有没有比下载、解压、制作等更简单的安装方法？

我想检查我的变量$ id是否等于497或等于200,如果$ id不等于497或$ id不等于200则邮件,但是当我运行下面的示例时,我手动设置$ id = 497,但运行代码,它的打印"不等于\n";

my $id = 497;
if($id != 497 || $id != 200)
   {
      print "not equal\n";
   }
else
  {
      print "equal , not to mail\n";
   }

我在一个文本文件中有一个信息报告，我想将它们导出为CSV格式，并且仅导出为IPv4格式的那些行（按第一列）。我如何在Perl中做到这一点？

10.10.10.1      10.10.11.11    51251    445      2019-03-05 11:59:29.008   29.156     ......
10.10.10.2      10.10.11.22    51234    123      2019-03-05 11:40:29.008   30.156     .A..SF
2001:288:8900:c400:2018:8ce:1ca8:9cb0                  2404:6800:4012:1::200e  62105    443 2019-03-04 23:59:32.458     0.340 17    ......   0        8     4763     1
2001:288:8001:c200:3171:3abcd:28af:7e8f                  2404:6800:4008:c04::bc  50286    443 2019-03-04 23:59:32.471     0.000 6     .A....   0        1       61     1

我只想获取如下IPv4格式的行，

10.10.10.1      10.10.11.11    51251    445      2019-03-05 11:59:29.008   29.156     ......
10.10.10.2      10.10.11.22    51234    123      2019-03-05 11:40:29.008   30.156     .A..SF

我的代码

open my $fh, '<', 'in.txt';
open my $fo, '>', 'out.csv';
while (<$fh>) {
    next if ($. == 1);
    s/^\s+//; …

我有一个目录将创建像'2018-08-14-9-22-4'这样的日常文件，创建的文件名是yyyy-mm-dd-hms，如何通过像'2018-这样的子字符串检查文件是否存在08-14'？并获取文件全名和文件大小？

my $file =  "$yy-$mm-$dd-$hh-$mm-$ss";
my $path = '/home/httpd/doc/$user/$year/[every day file]'