# HG changeset patch # User Matti Hamalainen # Date 1451470860 -7200 # Node ID a4dff42fc40eeef49bd46f39704f339c70c4b7ba # Parent fedf17494a35fbe2ad0d545d45a2ca786834d559 Make alloy parser less verbose. diff -r fedf17494a35 -r a4dff42fc40e materials/parsealloys.pl --- a/materials/parsealloys.pl Wed Dec 30 06:58:48 2015 +0200 +++ b/materials/parsealloys.pl Wed Dec 30 12:21:00 2015 +0200 @@ -44,6 +44,8 @@ my %data = (); my $fumble = 0; my $nline = 0; +my $ignored = 0; + sub addCombo($$$) { @@ -53,7 +55,8 @@ } else { - print STDERR "Ignoring fumbled combo $_[1] + $_[2] = $_[0]\n"; + $ignored++; + #print STDERR "Ignoring fumbled combo $_[1] + $_[2] = $_[0]\n"; } $fumble = 0; } @@ -75,6 +78,8 @@ } } +print STDERR "Ignored ".$ignored." fumbled alloys.\n"; + ### ### Re-format the data into single "ordered" hash, using as