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;
}

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

次のHTML タグと属性が使えます: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>