index
:
thoughtroam
main
website: student project to explore semantic web for learning aid
Jonas Smedegaard
summary
refs
log
tree
commit
diff
log msg
author
committer
range
path:
root
/
.perltidyrc
Age
Commit message (
Collapse
)
Autho
# replace whitespace and surrounding XMP boilerplate with XML boilerplate
$xml =~ s,\s*<\?xpacket [^>]+>\s*,,;
$xml =~ s,<x:xmpmeta [^>]+>,<?xml version="1.0" encoding="utf-8"?>,;
# strip trailing boilerplate
$xml =~ s,\s*</x:xmpmeta>,,;
$xml =~ s,\s*<\?xpacket [^>]+>,,;
say $xml;
1;