mirror of
https://github.com/KanjiVG/kanjivg.git
synced 2026-07-14 17:50:29 +02:00
Ben Bullock
13 lines
321 B
Perl
Executable File
13 lines
321 B
Perl
Executable File
#!/home/ben/software/install/bin/perl
|
|
use Z;
|
|
my @files = <$Bin/kanji/*.svg>;
|
|
print scalar @files, "\n";
|
|
for my $file (@files) {
|
|
my $text = read_text($file);
|
|
if (! ($text =~ s!(<svg[^>]+)>!$1 xmlns:kvg="https://kanjivg.tagaini.net/">!)) {
|
|
warn "Subs failed for $file";
|
|
}
|
|
write_text($file, $text);
|
|
}
|
|
exit;
|