删除文件代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】删除文件

作者:dezai / 发布于2014/9/12/ 774


	#!/usr/bin/perl
	 $file1=$ARGV[0];
	 @tests=(1,2,3,4,5,6,7,8,9,'A','B','C','D','E','F','G','H','I','G','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
	 foreach $test(@tests) {
	 $file=$file1.$test;
	 @chars=(0,1,2,3,4,5,6,7,8,9,'A','B','C','D');
	 foreach $char(@chars) {
	 `rm $file$char*`;
	 }
	 `rm $file*`;
	 }
	
	 `rm $file1*`;

　　

试试其它关键字

　删除文件　

同语言下

可能有用的

dezai贡献的其它代码(1065)

Copyright © 2004 - 2024 dezai.cn. All Rights Reserved 站长博客粤ICP备13059550号-3