1#!/usr/bin/env perl 2 3use warnings; 4 5undef $/; 6open IN, "util/cpp_version spl-data.h|" or die "Can't read spl-data.h\n"; 7$_ = <IN>; 8close IN; 9 10for (/\{\s*SPELL_\w+,\s*"([^"\n"]+)"/sg) 11{ 12 next if /^[a-z]/; # dummy spells start with lowercase 13 next if $_ eq "Random Effects"; # wand-only spell 14 print "$_\n"; 15} 16