#!/usr/bin/perl use strict; my $file_name = 'data-uris.txt'; my @item; { open my $file, '<', $file_name; local $/ = undef; @item = split /\n\n#/, <$file>; } sub htescape ($) { my $s = shift; $s =~ s/&/&/g; $s =~ s/ data: URIs

Show all

]; for (@item) { s/^#//; my %prop; for (split /\n#/, $_) { if (s/^([0-9A-Za-z-]+)(?>\n|\z)//s) { $prop{$1} = $_; } } my $id = htescape (get_id ($prop{data})); my $euri = htescape ($prop{data}); print qq[

URI: <$euri>]; for (qw/note conforming non-conforming source/) { next unless defined $prop{$_}; print qq[

]; print qq[Conforming: ] if $_ eq 'conforming'; print qq[Non-conforming: ] if $_ eq 'non-conforming'; print qq[Source: ] if $_ eq 'source'; my $v = htescape ($prop{$_}); $v =~ s[<([^>]+)>][<$1>]g; print qq[] . $v . qq[]; } if (defined $prop{tag}) { my @tag = split /\n/, $prop{tag}; print q[

Tags: ]; print join ', ', map {'' . htescape ($_) . ''} @tag; } print qq[

]; }