gal2/gal-cat-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 strict;
   6 use warnings;
   7
   8 while (<>) {
   9         chomp;
  10         /^#/ && next;
  11         /^$/ && next;
  12         if (/^"(.*)"$/) {
  13                 print "$1\n";
  14         } else {
  15                 die "Error parsing collection: $_";
  16         }
  17 }