本文最后更新于:星期日, 五月 31日 2020, 2:37 下午

use FindBin qw($Bin);

#遍历文件夹
my $fileReportDir = $Bin;	#出报告所在的文件夹地址
if(-e $fileReportDir){
opendir DIR, $fileReportDir || die "Error in opening dir $fileReportDir\n";
while( my $file = readdir(DIR)){
next if $file eq ".";
next if $file eq "..";
my $fileAll = $fileReportDir."/".$file;
if(!unlink($fileAll)){
print "=====程序终止!=====\n删除表格(".$fileAll.")失败,请手动删除\n";	
#保留黑框
system pause;
#程序停止运行
die;
	    }
	 }
	 closedir DIR;
}

#读取文件内容
open FILE, "<$file" || die "Not Found file: $file\n";
while (<FILE>){
my ($gene,$chr) = (split /\t/,$_)[0,1];
}
close FILE;


本文标题:Perl处理文件及文件夹
文章作者:潘高
发布时间:2017年09月26日 - 13:26:22
最后更新:2020年05月31日 - 14:37:59
原始链接:https://blog.pangao.vip/Perl%E5%A4%84%E7%90%86%E6%96%87%E4%BB%B6%E5%8F%8A%E6%96%87%E4%BB%B6%E5%A4%B9/
许可协议:署名-非商业性使用-禁止演绎 4.0 国际 转载请保留原文链接及作者。

Perl处理Excel 上一篇
Perl的简单联网操作 下一篇
如果这篇文章对你有帮助,或者想给我微小的工作一点点资瓷,请随意打赏。
潘高 微信支付

微信支付

潘高 支付宝

支付宝

 目录