目錄問題請教

68930089

使用my $dir = '/tsmhafs'; 時程式執行正常
換成
my $dir = '/tsmhafs/c3sac01/baclient'; < -- 失敗
出現add number of elements in hash assignment at test.pl line 19.

請問一下該如何解這個問題

climby

回复 1# 68930089


    根据错误提示，要看你的源程序才能明确指出问题。 程序片段呢

68930089

#! /usr/bin/perl



#use strict;

use warnings;
use Net::SMTP;


use constant SLEEP_TIME => 60;



my $dir = '/tsmhafs/c3sac01/baclient';

my @files = map { (my $x = $_) =~ s/\n//; $x } `ls $dir`;

my %file_access = map { $_, (stat($_))[9] } @files;
while (1) {

  sleep SLEEP_TIME;



  foreach (@files) {

    my $file = $_;

    my $last_modify = (stat($file))[9];

    if ($file_access{$file} != $last_modify) {

      print "\t", $file, "\n";

      $file_access{$file} = $last_modify;

   }

  }

}

zhlong8

Odd number of elements in hash assignment

(W misc) You specified an odd number of elements to initialize a hash, which is odd, because hashes come in key/value pairs.

%hash = (1,2,3) 奇数个值创建 hash 是逻辑错误。

shs867

错误信息应该是Odd number of elements in hash assignment 吧？

检查一下hash里面是否是奇数个元素

68930089

怪了…測試結果只要是目錄只有一層就ok
到第二層就掛了

Perlvim

我经常遇到在 Windows 系统下能正常运行的程序，但到了 Linux 下就出问题。除了目录分隔符问题，还有行末换行问题，还有文件格式问题，甚至还有编码问题，其实不是操作系统的问题。

68930089

這個會跟檔案數量多少有關嗎?
還是檔名有重復比如
12345
12345.aa
12345.bb

會導致程式判斷問題嗎?

shs867

和档案的数量应该没有关系,感觉问题还是出在hash assignment

1. my %file_access = map { $_, (stat($_))[9] } @files;

复制代码

可以check一下每个$_和stat($_) 的值

68930089

Use of uninitialized value in string ge at test.pl line 39.
Use of uninitialized value in string ge at test.pl line 39.
Use of uninitialized value in string ge at test.pl line 39.
        bkup
Use of uninitialized value in string ge at test.pl line 39.
        chabeprc
Use of uninitialized value in string ge at test.pl line 39.
Use of uninitialized value in string ge at test.pl line 39.

出現錯誤訊息了