Re: grabbing print output

2005-02-07 Thread Ing. Branislav Gerzo
Bakken, Luke [BL], on Monday, February 7, 2005 at 15:38 (-0800) thinks about: BL> Redirect to a file and read the file: BL> my $filename = '/tmp/output'; BL> open (PIPE, "|-", "convert -negate -modulate 200,0 -negate - pbm:- | gocr - >> $filename 2>&1") or warn "$!\n"; BL> open IN, $filename or d

RE: grabbing print output

2005-02-07 Thread Bakken, Luke
> open (PIPE, "|-", "convert -negate -modulate 200,0 -negate - > pbm:- | gocr -") or warn "$!\n"; > print PIPE $file; #file is image content > close PIPE; > > prints to STDOUT everything I need (it is one line, lets say "This is > test"). How I can grab this, so I have in > $var = "This is te

grabbing print output

2005-02-07 Thread Ing. Branislav Gerzo
Hi all, I have tricky question, and I await answer will be not so simple, here is snippet: open (PIPE, "|-", "convert -negate -modulate 200,0 -negate - pbm:- | gocr -") or warn "$!\n"; print PIPE $file; #file is image content close PIPE; prints to STDOUT everything I need (it is one line, l