bin/gal-from-gqview

   1 #!/usr/bin/perl
   2 # UCW Gallery: Extract image list from GQview collection
   3 # (c) 2004--2012 Martin Mares <mj@ucw.cz>
   4
   5 use common::sense;
   6
   7 while (<>) {
   8         chomp;
   9         /^#/ && next;
  10         /^$/ && next;
  11         if (/^"(.*)"$/) {
  12                 print "$1\n";
  13         } else {
  14                 die "Error parsing collection: $_";
  15         }
  16 }