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

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