1#!/usr/bin/perl 2 3# Strip out stuff that doesn't belong in the Gimp distribution. 4 5foreach $file (@ARGV) { 6 $output = ""; 7 $do_output = 1; 8 $tmpfile = "$file.tmp"; 9 open INPUT, $file or die "Can't open $file: $!\n"; 10 while (<>) { 11 if (/@-@-@-@-@ NO-GIMP @-@-@-@-@/) { 12 $do_output = 0; 13 } elsif (/@-@-@-@-@ YES-GIMP @-@-@-@-@/) { 14 $do_output = 1; 15 } elsif ($do_output) { 16 $output .= $_; 17 } 18 } 19 close INPUT; 20 open OUTPUT, ">$tmpfile" or die "Can't open $tmpfile: $!\n"; 21 print OUTPUT $output or die "Can't write to $tmpfile: $!\n"; 22 close OUTPUT or die "Can't close $tmpfile: $!\n"; 23 rename $tmpfile, $file or die "Can't rename $tmpfile to $file: $!\n"; 24} 25 26