root/trunk/jps2ps/filtre-file.pl

#!/usr/bin/perl  

## enleve d'un fichier postscript la fonte dont le nom est passe en parametre
## syntaxe :
## cat test.ps | ~/src/perl/filtre-file.pl '%%BeginFont: CMR7' '%%EndFont'

$tem = 0;
$debut = $ARGV[0];
$fin = $ARGV[1];
open (SRC, "-");
while (<SRC>) {
    $ligne = $_;
    if ($ligne =~ /^$debut.*/) {
        $tem= 1;
    }
    if ($tem =~ 0) {
        print (STDOUT $ligne);
    }
    if (($tem =~ 1) and ($ligne =~ /^$fin.*/)) {
        $tem = 0;
    }
};
close (SRC);

1;