gistfile1.pl

open ATTR, "<attribute.txt" or die "open: $!";
@attr = ();
$i =0;
	
while ($line = <ATTR>) { #属性示唆単語読込み
	if ($line =~ /^#/) {
		next;
	}
	elsif ($line eq "\n") {
		$i++;
	}
	else {
		chomp $line;
		push @{$attr[$i]}, $line;
	}
}
	
close ATTR;
	
for ($i =0; $i < @attr; $i++) {
	foreach $line (@{$attr[$i]}) { #対応単語の表記を変更
		$$document =~ s($line)(<u>$line</u>)g;
	}
}