linux-l: Fontname importieren und extrahieren

[Manuel Tennert]

Hi...

ich habe folgendes kleines Perl-Script geschrieben:

#!/usr/bin/perl
open INPUT, "<j0000045.emu";
open OUTPUT, ">test.txt";
while (<INPUT>) {
 $string = $_;
 if ($string =~ /\/FontName(.*?)\/(.*?)\//g) {
  $i = $1;
  $name = $2;
 }
print OUTPUT $name;
}

Dieses kleine Script soll mir eine Datei öffnen. In dieser Datei taucht
ein Fontname auf, diesen will ich extrahieren. Leider aber bei der
Ausgabe der Variable $name schreibt der Computer mir den Namen 2x in die
Datei. Im Quelltext steht der Name nur einmal drin....wo liegt also das
Problem und wie kann ich es lösen ??


Manuel