blsn.net
当前位置:首页 >> pErl opEnDir函数 >>

pErl opEnDir函数

确认别人电脑里也是这个目录?也是用的""? 双引号里的字符是要转义的,\l \p都是转义符,修改如下: opendir(in,'D:\learning\perl');

$path='D:\1'; #路径$path=~s/\\/\//g; opendir D, "$path" or die $!; open O,">name.txt" or die $!;@filename=grep(!/\.\.?$/, readdir D); @files = sort{ -M "$path/$b" -M "$path//$a" } @filename;foreach $file (@files) {print O "$fil...

有两种方法如果递归的找子目录可以用下面的files函数,只是找文件夹下面的glob就可以实现了my @files;files('.', \@files);print "$#files @files\n";my @local;@local = glob("./*");print "$#local @local\n";sub files {my $path = shift;my ...

opendir(DIR,'d:/www'); while(my $file = readdir(DIR)){ print $file,"\n"; } closedir(DIR);

最简单的是直接去 perldoc 点 org. 左边的 reference 就已替您分好类. 在本机的话, 最快捷的就是在指令窗口输入: perldoc -f 你想查的指令 ( 如: opendir ) perldoc -m 你想查的模块 ( 如: MIME::Base64 ) 其他还有 perldoc perldoc ( 教你怎样...

my @res = filter_dir(".", "=" => sub {$cur - $_[0] >= $sec},"

不知道你这里读取具体指什么,我就把文件名打印出来,把文件内容打印出来吧。(程序指定两个参数,第一个参数是指定的文件夹名,每二个参数是指定的扩展名。) #!/usr/bin/perl use strict; use warnings; die "Usage: $0 \n" unless @ARGV == 2...

sub gDirTree { my $dir=shift; my @gFile=(); if (!-d "$dir" && -e "$dir") { push(@gFile,$dir); return @gFile; } return if (!-d "$dir" || $dir =~ /\.$/); my @files=grep {!(/^\./)} glob("$dir/*"); for my $nextname(@files ) { if(-d...

$path='C:\Users\' ; #路径opendir D1, "$path" or die $!; @array=grep(!/\.\.?$/, readdir D1); print @array;

因为 $dir_file="/test/file_log.txt"; 这是一个 file, 不是一个 dir opendir 需要的只是 "/test/"

网站首页 | 网站地图
All rights reserved Powered by www.blsn.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com