A script to indicate issues with .craft files

fix_craft.pl

#!/usr/local/bin/perl

use strict;
use warnings;

open(my $fh, '<:encoding(UTF-8)', $ARGV[0])
	or die "Could not open craft file $ARGV[0]";
my (@parts, @links, @line);
my $index = 0;

foreach(<$fh>) {
	$index++;
	if (/part =/) {
		@line = split '_';
	} elsif (/partName =/) {
		push(@parts, {lineNumber => $index, partID => $line[1], partType => (split ' = ')[1]});
	} elsif (/link =/) {
		push(@links, {lineNumber => $index, partID => (split '_')[1], partType => 'link', good => 0});
	}
} close $fh;

foreach (@links) {
	for (my $i = 0; $i < @parts && %$_{good} == 0; $i++) {
		if ($parts[$i]->{partID} == %$_{partID}) {
			$_->{good} = 1;
		}
	}
	
	if (!%$_{good}) {
		print "Unlinked part found at line $_->{lineNumber}.\n";
	}
}