ddlld345 / Computer / perl脚本:更改桌面图标名称

分享

   

perl脚本:更改桌面图标名称

2015-03-23  ddlld345

#!/usr/bin/perl -w
use strict;
use warnings;
use 5.016;

my @shortcuts = glob "*";
#for(@shortcuts){
#    my $filename = $_;
#    rename $_, $filename if $filename =~s/(.*)\.exe\.lnk/$1\.lnk/g;
#    rename $_, $filename if $filename =~s/(.*)\.exe - 快捷方式\.lnk/$1\.lnk/g;
#    rename $_, $filename if $filename =~s/(.*) - 快捷方式\.lnk/$1\.lnk/g;
#    rename $_, $filename if $filename =~s/(.*) (?:\(\d+\))\.lnk/$1\.lnk/g;   
#} 
#&shortcutrename(@shortcuts);

sub shortcutrename{
    my @shortcuts = @_;
    for(@shortcuts){
        my $filename = $_;
        rename $_, $filename if $filename =~s/(.*)\.exe\.lnk/$1\.lnk/g;
        rename $_, $filename if $filename =~s/(.*)\.exe - 快捷方式\.lnk/$1\.lnk/g;
        rename $_, $filename if $filename =~s/(.*) - 快捷方式\.lnk/$1\.lnk/g;
        rename $_, $filename if $filename =~s/(.*) (?:\(\d+\))\.lnk/$1\.lnk/g;   
    }  
}

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多
    喜欢该文的人也喜欢 更多

    ×
    ×

    ¥.00

    微信或支付宝扫码支付:

    开通即同意《个图VIP服务协议》

    全部>>