复制内容到剪贴板
代码:
#!/usr/bin/perl -w
$ADDSTR=1;
if(!defined $ARGV[0])
{
print "A dir arg is needed!\n";
exit(1);
} #必需代一个目录名作为参数
$DIRNAME=$ARGV[0];
#读出目录中的文件
if(!opendir(DIR,$DIRNAME))
{
print "No such dir \n";
exit(2);
}
@FILES=readdir(DIR);
closedir(DIR);
foreach $FILE (@FILES)
{
$FILENAME="$DIRNAME/$FILE";
if($FILE ne "." && $FILE ne "..") #去掉 . 和 .. 两个系统目录
{
print "check $FILENAME ...\n";
if(-d $FILENAME) #如果该文件是目录,循环调用此程序
{
system("./dname $FILENAME/");
}
elsif(($pos=index($FILE,".html#"))!=-1)
{
$NEWNAME="$DIRNAME".substr($FILE,0,$pos)."_$ADDSTR".".html"; #构造新名字
system("mv $FILENAME $NEWNAME"); #改名
$ADDSTR=$ADDSTR+1;
}
}
}既然在同一个目录下可以去掉
if(-d $FILENAME) #如果该文件是目录,循环调用此程序
{
system("./dname $FILENAME/");
}