Opened by sledge77 at 2009-01-14 23:35
Code (perl): (dl
)
1 2 3 4 5 6 7
open(my $ph, "$prg 2&>1 |") or die "Konnte Programm nicht starten ($!)\n"; while( ma $line=<$ph>) { if($line=~/(\d*%)/) { print "$1\n"; } } close($ph) or die "Programm lief nicht ($!)\n";
Das "2&>1" leitet die Error-Meldungen auf die normale Ausgabe um.
"\d" ist das selbe wie "[0-9]"
warum "printf" wenn du eh nichts damit machst?
"\r" solltest du so nicht verwenden, besser ist "\n".