我需要搜索以特定模式开头的文件,例如“abc”。我还需要消除结果中以“.xh”结尾的所有文件。我不知道如何在Perl中做这件事。 我有这样的事情: opendir(MYDIR, $newpath);
my @files = grep(/abc\*.*/,readdir(MYDIR)); # DOES NOT WORK
我还需要消除的结果,与结尾的所有文件 “·XH” 感谢,碧
我有这样的功能: if (is_dir($dir)) {
//are we able to open it?
if ($dh = opendir($dir)) {
//Let's cycle
while (($subdir = readdir($dh)) !== false) {
if ($subdir != "." && $su
嗯,我知道这是另一个新手问题,但我非常沮丧,我期待再次开悟。在你们的指导下,我已经学会了如何使用glob函数来读取目录中每个文件的内容。现在我正在尝试readdir-foreach组合来做同样的事情,但我一直收到“无法打开文件:权限被拒绝”的错误。为什么这会发生在与管理员相同的目录,相同的文件和相同的我。有人可以告诉我我做错了什么吗?谢谢。 下面的代码使用的glob功能,它的工作原理: #! pe
我有一个文件夹,里面有很多子文件夹。在这些子文件夹中,我有很多需要阅读的.html文件。我写了下面的代码来做到这一点。它打开父文件夹,也是第一个子文件夹,它只打印一个.html文件。它显示错误: NO SUCH FILE OR DIRECTORY
我不想更改整个代码。现有代码中的任何修改对我都有好处。 use FileHandle;
opendir PAR_DIR,"D:\\PERL\\pe