Day: 2012年6月2日

Windowsのurlファイルを開くやつ。

Posted on

ubuntuとかgnomeの環境でWindowsで作られるurlファイルを開いてくれるの作ったよ。あんまり変わらんけどね。備忘録程度に。

#!/usr/bin/perl

if(!($ARGV[0] =~ /\.url/)) {
print “Usage:$0 .url File”;
exit;
}

if(!(open(IN,”$ARGV[0]”)) ) {
print “Usage:$0 .url File”;
exit;
}
my @tmp=;
close(IN);
my url=””;

if($tmp[0] =~ /InternetShortcut/) {
chomp($url=$tmp[1]);
} else {
print “ERROR”;
exit;
}