unfool

unfool / opml2org.pl

Created August 1, 2013 17:07 — forked from alandipert/opml2org.pl

	#!/usr/bin/perl
	# Usage: perl opml2org.pl "My OPML File.opml"
	use XML::Parser;
	binmode STDOUT, ":utf8";
	$xp = new XML::Parser();
	$xp->setHandlers(Start => \&start, End => \&end);
	$xp->parsefile($ARGV[0]);

	$indent = 0;