Win32::Shortcut

Win32系统有一个烦人的地方就在于它的ShortCut，NND，选文件选到这个了，不做另外处理的话，偶的方法就彻底歇菜了...

还好有个方法叫Win32::Shortcut，很好很强大呀！

下面这个就是简单的读取shortcut然后获得源地址的code：

 if($filename =~ m/.lnk$/){                    #判断的应该没问题，就找那个烦人的.lnk文件                                                  
  $link = Win32::Shortcut->new();         #新建个对象
  $link->Load("$filename");                    #load一下你想要处理的还有shortcut的文件路径
  $filename = $link->{'Path'};                 #你只要访问下Path的value就可以搞到源地址了
 }

 

当然一个shortcut除了源地址还有很多其他的，暂时用不上，不看了。

反正知道有问题去Perl Manual那找就可以了。