perl 文本操作的问题

[Jaccio]

想读取当前文件夹中.log文件的内容
先获取log文件
我的当前路径下只有一个xxxx_123456.log(文件名中间有下划线)

@file = grep/\.log/, readdir DIRHANDLE;

使用foreach $Log(@file)或者 $Log = @{$file}[0];都不是文件的全名


求支招~~~~~~

[Jaccio]

up~ up~

[fibbery]

你把前面的路径自己加上就完了呀！你打开dir的时候不是已经有前缀了嘛。

[panghuhu250]

"@file"的内容对吗? 加上{}?

@file = grep { /\.log/ }, readdir DIRHANDLE;

[Jaccio]

引用 2 楼 panghuhu250 的回复:

"@file"的内容对吗? 加上{}?

@file = grep { /\.log/ }, readdir DIRHANDLE;

print “@file” 显示的是xxxx_123456.log foreach $Log(@file) print $Log 显示的是xxxx 我说的关键就在于显示的不是xxxx_123456.log 而是下划线前面的部分xxxx

[Jaccio]

引用 3 楼 fibbery 的回复:

你把前面的路径自己加上就完了呀！你打开dir的时候不是已经有前缀了嘛。

我说的关键就在于显示的不是xxxx_123456.log 而是下划线前面的部分xxxx 主要意图是文件全名xxxx_123456.log得不到~

[panghuhu250]

在我这儿没问题, 应该是其他地方有错.

opendir(my $dh, "/tmp/test");
@file = grep/\.log/, readdir $dh;
foreach $Log(@file) {
    print "$Log"
}

wind% perl /tmp/x.pl
xxx_123.log%