mxey · December 5, 2010 15:37
diff --git a/xspf3m3u.pl b/xspf3m3u.pl
 #!/usr/bin/env perl
 use Modern::Perl;
 use XML::XSPF;

 my $playlist = XML::XSPF->parse($ARGV[0]);

 for my $track ($playlist->trackList) {
    say $track->location if $track->location;
 }
	#!/usr/bin/env perl
	use Modern::Perl;
	use XML::XSPF;

	my $playlist = XML::XSPF->parse($ARGV[0]);

	for my $track ($playlist->trackList) {
	say $track->location if $track->location;
	}
No results found