如何使用perl获取war文件的统计信息

Question

我有 Perl 脚本，可以获取给定文件的统计信息。但它不适用于 .war 文件。 （该文件具有符号链接。）

我正在传递包含多个文件的文件位置。

$fntxt 指向 /dw/xyz/file1.txt。 file1.txt 包含 /vob/vob1/test.war。

执行 @Stats=stat($ln); 返回 .war 文件的空数组。

open(DAT, $fntxt);
@fnames=<DAT>;
close(DAT);
print "@fnames\n";

foreach $ln (@fnames)
{
    chomp $ln;
    $i = length $ln;   
    if ($i>0)
    {     
    @Stats=stat($ln);
    if (!@Stats)
    {
        print "File [$ln] specified in [$fntxt] does not exist. Correct then rerun.\n";
        exit 255;
    }

    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)
         = localtime((stat($ln))[9]);
    $mon += 1;
    $year += 1900;

    $tstamp = sprintf("%04d%02d%02d%02d%02d.%02d",
        $year,$mon,$mday,$hour,$min,$sec)
}

任何帮助将不胜感激。

Answer 1

使用符号链接（假设某种 unix 风格），您需要链接到的文件的权限，而不是链接的权限。使用 -l 来检测该文件是否是符号链接，并使用 readlink 来找出它链接到的内容。如果有多个链接（即链接到链接...），请跟随它们直到找到该文件。