#!/usr/bin/perl
#Put your pricelist directory path here
$homedir = '/home/username/pricelists';
@AtoZ = ('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');
$links = "";
for ($i = 0; $i < 26; $i++) {
$let = $AtoZ[$i];
$uLet = uc $let;
unlink("$homedir/simple-magic-$let.html");
$links .= qq($uLet );
}
open (MAGIC, "$homedir/current-magic");
@magicPrices = ;
close (MAGIC);
for ($i = 2; $i < $#magicPrices; $i++) {
$thisLine = $magicPrices[$i];
$thisLine =~ s/^(.*?)(,\s+)(\d+?\.\d\d),.*/$1\|\|$3/;
($Name, $Price) = split(/\|\|/, $thisLine);
$fl = lc substr($Name, 0, 1);
open (MAGIC, ">>$homedir/simple-magic-$fl.html");
if ($written{$fl} ne "true") {
print MAGIC qq(Magic Prices\nMagic Prices
$links\n| Card Name | Price |
\n
|
\n);
$written{$fl} = "true";
}
print MAGIC qq(| $Name | $Price |
\n);
print MAGIC qq(
|
\n);
close (MAGIC);
}
for ($i = 0; $i < 26; $i++) {
if (-e "$homedir/simple-magic-$AtoZ[$i].html") {
open (MAGIC, ">>$homedir/simple-magic-$AtoZ[$i].html");
print MAGIC qq(
\n$links\n);
close (MAGIC);
}
}