linux-l: Fontname importieren und extrahieren

[Steffen Dettmer]

* Manuel Tennert wrote on Mon, May 28, 2001 at 16:00 +0200:
> #!/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;
> 	}
> }

> Im Quelltext steht der Name nur einmal drin....  wo liegt also
> das Problem und wie kann ich es lösen ??

Dein print war in der Schleife, aber nicht im bedingten Block.
Nach Treffer eine Ausgabe je Eingabezeile (oder so) :)

oki,

Steffen

-- 
Dieses Schreiben wurde maschinell erstellt,
es trägt daher weder Unterschrift noch Siegel.