Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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;
- }
- }
Add Comment
Please, Sign In to add comment