SVG::Metadata 0.18 release Re: [Clipart] Keys in flags and svg_annotate feature request

[Jonadab the Unsightly One]

Christian Fredrik Kalager Schaller <uraeus at linuxrising.org> writes:

> Ok a plead from me then to any perl hackers in the openclipart community
> for a patch to do interactive prompting. I have what I guess is about
> 250 flags with different authors that I need to annotate. My current
> solution of using svg_annotate with a random name and then using vi on
> the svg file afterwards to correct the names, it is rather
> timeconsuming. 
>
> So if someone out there takes pity on me and implements a prompting
> patch I would be very grateful :)

What about a script that for each file prompts you for the author and
then calls svg_annotate for just that one file?

Something along the lines of this...

perl -e ' for $file (<*.svg>) {
   print "Enter author for $file: \n";
   my $author = <STDIN>; chomp $author;
   my ($title) = $file =~ /(.*?)[.]svg/i;
   system("svg_annotate", "-a=$author",
          "-t=$title", # Other arguments here
          );
   } '

-- 
$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,"ten.thgirb\@badanoj$/ --";$\=$ ;-> ();print$/