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

代码语言

代码分类

【Perl】删除文件

作者:gogo / 发布于2014/1/17/ 646

#!/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*`;

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

　　

试试其它关键字

　删除文件　

同语言下

可能有用的

gogo贡献的其它代码(7)