关于perl 读取文件的疑惑：

Question

（附件程序可运行）
程序目的：在运行程序后出现的上图中点击“load”按钮后，在文本宽内显示出当前文件路径以及文件名称。
问题：运行后点击“load”，只能显示出当前路径中的部分文件。why？？

use Tk;
use strict;
use Encode;
use Cwd;

my $name =decode("cp936","不能打开文件，请输入正确的文件名称！");
my $name1=decode("cp936","正在打开文件，请稍等 ………");
my $name2=decode("cp936","文件正在保存 ………");
my $name3=decode("cp936","文件已保存!");

my $info;
my $filename;
my $dir = getcwd;
my $n = 0;
my @file;
my $file_t;

my $mw = MainWindow->new;
$mw -> title("file-operation");
my $f = $mw->Frame->pack(-side => 'top', -fill => 'x');
$f->Label(-text => "Filename:", -font=>[-size=>12])->pack(-side => 'left', -anchor => 'w');
$f->Entry(-textvariable => \$filename, -font=>[-size=>10])
->pack(-side => 'left', -anchor => 'w', -fill => 'x', -expand => 1);
$f->Button(-text => "Exit", -font=>[-size=>12], -command => sub { exit; } )
->pack(-side => 'right');
$f->Button(-text => "Save", -font=>[-size=>12], -command => \&save_file)
->pack(-side => 'right', -anchor => 'e');
$f->Button(-text => "Load", -font=>[-size=>12], -command => \&get_dir)
->pack(-side => 'right', -anchor => 'e');
$mw->Label(-textvariable => \$info, -relief => 'ridge', -font=>[-size=>10])
->pack(-side => 'bottom', -fill => 'x');
my $t = $mw->Scrolled("Text", -font=>[-size=>10] )
->pack(-side => 'bottom',-fill => 'both', -expand => 1);

MainLoop;

sub load_file {
$info = "$name1";
$t->delete("1.0", "end");
if (!open(FH, "$filename")) {
$t->insert("end", "$name");
return;
}
while (<FH>) { $t->insert("end", $_); }
close (FH);
$info = "$name1";
}

sub save_file {
$info = "$name2";
open (FH, ">$filename");
print FH $t->get("1.0", "end");
$info = "$name3";
}

sub get_dir {

readsub($dir);

$t->insert("end", $n."\n");
$t->insert("end", @file);

}

sub readsub {
my ($file_t) = @_;

if (-f $file_t) {
$n++;
$file_t = sprintf "$file_t\n";
push @file,$file_t;
}

if (-d $file_t) {
opendir(AA,$file_t) || return;
my @list = readdir(AA);
closedir (AA);
my $file_to_act;

foreach $file_to_act (sort @list) {
if ($file_to_act =~ /^\.|\.$/) { next; }
else { readsub("$file_t/$file_to_act"); }
}
}
}
修改了子函数如下：
sub get_dir {
opendir(DIR,$dir) || return;
foreach my $files (readdir DIR) {
push @file,$files."\n";
}
closedir (DIR);
$t->insert("end", @file);
}
此函数独立运行没问题，在点击“load”按钮时文件名还是显示不完全，不知道TK的-command在调用get_dir时是怎样的机理？

Answer 1

Dir--File1
Subdir --File2
File3
Subdir2--File4

因为你进了 Subdir 就没再出来过；所以显示不全
&get_dir 逻辑有问题; 用 File::Find

追问

谢谢两位的回答！

应该是逻辑错误。
在文本框内显示出来的文件是有规则的间隔出现，但只运行readsub 这个函数是完全没问题的，可以打印出当前目录下的文件数量和文件list。

Answer 2

open(FILE,"+<a.xml");
while(<FILE>){
chomp;
s/<\/Database>/<\/user>/g;
print $_."\n";
}
close(FILE);
看看这样，也该行。 xml操作，为什么不用模块呢？ 这样单行处理，可能会误操作替换阿。