luk
9742f6dab2
将 .sh/.bat 脚本与 .js/.plist/.Dockerfile 等文件中以 - 分隔的文件名 改为 _ 分隔，dcloud-renew 目录改为 dcloud、script_nuance 目录改为 nuance，并同步更新脚本内部引用与 README 路径。 Co-Authored-By: AtomCode (deepseek-v4-flash) <noreply@atomgit.com>
32 lines
541 B
Perl
32 lines
541 B
Perl
use File::Find;
|
|
use File::Copy;
|
|
|
|
@files = glob "$ARGV[0]/*";
|
|
|
|
open XML, ">Favorites.html" or die;
|
|
#print XML "<?xml version=\"1.0\" encoding=\"UTF-8\" ?>\n<resource>\n";
|
|
|
|
foreach $file (@files)
|
|
{
|
|
if (-f $file)
|
|
{
|
|
open URL, "$file" or die;
|
|
$url = '';
|
|
while (<URL>)
|
|
{
|
|
if (m|URL=(.*)|)
|
|
{
|
|
$url = $1;
|
|
last;
|
|
}
|
|
}
|
|
$file =~ s|Favorites/||;
|
|
$file =~ s|\.url||;
|
|
$url =~ s|&|&|g;
|
|
print XML "<a href=\"$url\">$file</a><br>\n";
|
|
close URL;
|
|
}
|
|
}
|
|
|
|
#print XML "</resource>\n</xml>\n";
|