MTGO CSV Exporter Converter to MagicCards.info links

dc.pl

use v5.10;
use strict;
use warnings;

my $fname = $ARGV[0];
my $FHi, my $FHo;

open ($FHi, '<', $fname) or die $!;
open ($FHo, '>', $fname . '.out') or die $!;

while(<$FHi>){
	chomp;
	
	if($_ =~ /^(?<qt>\d*)x\s(?<name>.*)$/){
		say $FHo $+{qt} . 'x <a href="http://magiccards.info/autocard.php?card=' . $+{name} . '" target="_blank">' . $+{name} . '</a>';
	}
	elsif($_ =~ /^(?<qt>\d*),(?<name>.*)$/){
		say $FHo $+{qt} . 'x <a href="http://magiccards.info/autocard.php?card=' . $+{name} . '" target="_blank">' . $+{name} . '</a>';
	}
	else{
		say $FHo $_;
	}
}

close $FHi;
close $FHo;