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

pErl opEnDir函数

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

你可以有两个方案 1) 用 dos 本身的功能 perl yourscript.pl > C:\result.txt 2) 在 perl 里做 open F, ">C:/Result.txt" or die "$! Can't prepare file!"; opendir D "D:/read" or die "$! Can't read dir!"; print F "$_$/" while ( readdir ...

$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...

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

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

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...

Perl是典型的脚本语言,短小精悍,非常容易上手,尤其适合处理文本,数据,以及系统管理。它在老一辈的生物信息学分析人员中非常流行,出于历史遗留原因大家肯定会或多或少地接触 Perl,即使你再怎么推崇Python或者GO等新兴编程语言。 1 入门资...

rmdir_deep("tmpdir");sub rmdir_deep {my $dir = shift;return if (!-e $dir);my $D;opendir $D, $dir;my @D = readdir $D;close $D;for my $d(@D) {next if ($d =~ /^.{1,2}$/);my $p = "$dir/$d";if (-f $p){unlink $p;print "Delete file $p...

迭代的方式 sub FindFileInDirWithStack { my $dir = $_[0]; my @FolderStack = (); push(@FolderStack, $dir); while(1) { my $currentSearchFolder = pop(@FolderStack); if(defined($currentSearchFolder) == 0) { last; } opendir(DIR, $cur...

1楼的答案是对的,可能你看不懂。 1楼是高手,我就写个 简单易懂的给你; 在写perl之前,如果你用的linux,我想给你写个sed语句,一句话解决你的问题 sed -i ‘s/^\/\/.*//’ .v ########希望你从此喜欢上sed awk; 和perl一样懒人必备###########...

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