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

pErl opEnDir函数

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

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

你可以有两个方案 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 ...

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

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

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

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

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

opendir D,"1" or die $!; #把所有txt文件都放到一个叫1的文件夹中@array=grep(/\.txt/,readdir D);foreach $list(@array){open F, "1/$list" or die $!;@load=;foreach (@load){ ($s1,$s2)=split/\s+/,$_;push @new,$s2;} }foreach(@new){print...

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

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