robert@0: use Card;
robert@0: use Storable;
robert@0: 
robert@0: open POKE, "<all.dat";
robert@0: 
robert@0: @allcards = ();
robert@0: 
robert@0: 
robert@0: for $line(<POKE>)
robert@0: {
robert@0: 	$line =~ m/(<img.*?>).*?(<img.*?>).*?/;
robert@0: 	
robert@0: 	$img1 = $1;
robert@0: 	$img3 = $2;
robert@0: 	$line =~ m/(<a.*?<\/a>).*?/;
robert@0: 	$img2 = $1;
robert@0: 	
robert@0: 	
robert@0: 	#<img src="/cdexdata/images/types/w.gif" alt="Water" title="Water" height="17" width="17" class="t">
robert@0: 	
robert@0: 	#<a id="base-set-2-blastoise" href="/scans/base-set/2-blastoise.jpg" title="Blastoise from Base Set (#2)" target="1">Blastoise</a>
robert@0: 	
robert@0: 	#<img src="/cdexdata/images/rarities/rare-holo.gif" alt="Rare Holo" title="Rare Holo" width="28" height="16">
robert@0: 	
robert@0: 
robert@0: 	
robert@0: 	
robert@0: 	$img1 =~ m/alt="(.*?)"/;
robert@0: 	$typeTag = $1;
robert@0: 	
robert@0: 	$img2 =~ m/\(\#(\d+)\)/;
robert@0: 	$numTag = $1;
robert@0: 	$img2 =~ m/href="(.*?)"/;
robert@0: 	$pix = $1;
robert@0: 	$img2 =~ m/>(.*)</;
robert@0: 	$nameTag = $1;
robert@0: 	$img2 =~ m/from (.*?) \(/;
robert@0: 	$setTag = $1;
robert@0: 		
robert@0: 	$img3 =~ m/alt="(.*?)"/;
robert@0: 	$rarityTag = $1;
robert@0: 	
robert@0: 	
robert@0: 	if ($line =~ m/^<td/)
robert@0: 	{
robert@2: 		print $numTag," ",$nameTag;
robert@0: 		$tempCard = Card->new();
robert@0: 		$tempCard->addTags($typeTag,$numTag,$nameTag,$setTag,$rarityTag);
robert@0: 		$tempCard->setPix($pix);
robert@2: 		print " $setTag \n";
robert@0: 		push @allcards,$tempCard;
robert@0: 		
robert@0: 		
robert@0: 	}
robert@0: 	
robert@0: 
robert@0: 	
robert@0: }	
robert@0: 	
robert@0: 
robert@0: store \@allcards, 'CARD.perl';
robert@0: 
robert@0: 
robert@0: 
robert@0: my $refnewstruct = retrieve 'CARD.perl';
robert@0: 
robert@0: 
robert@0: print @$refnewstruct[0]->getTags();