Kohichi Aoki drikin

drikin / sapphire-metadta.pl

Created June 3, 2009 06:36 — forked from miyagawa/sapphire-metadta.pl

	#!/usr/bin/perl
	use strict;
	use warnings;
	use File::Basename qw(basename);
	use LWP::Simple;

	for my $file (@ARGV) {
	my $meta = meta_file($file);

	if (my $info = parse_info($file)) {