> Hi DJ, Yes please I would like to have that script. Ian.
#!/usr/bin/perl
# -*- perl -*-
$need_prolog = 1;
$pageno = 0;
for $ps (@ARGV) {
open(PS, $ps);
$print = $need_prolog ? 1 : 0;
while (<PS>) {
if (/%%Page: \d/) {
$pageno++;
$_ = "%%Page: $pageno\n";
$print = 1;
}
$print = 0 if /^%%End/;
print if $print;
}
close PS;
$need_prolog = 0;
}
print "%%End\n";
_______________________________________________
geda-user mailing list
[email protected]
http://www.seul.org/cgi-bin/mailman/listinfo/geda-user
