cat?>?del.pl
#!/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*`;?

?

以上就是武林技術頻道的編輯為您寫的perl的程序刪除，感謝大家的閱讀，更多內容請繼續關注武林技術頻道網站！