Perl can't catch bzip2 console output

Question

I have some difficulties with my perl + gtk GUI app. Why can't perl catch bzip2's output text from console? Instead of being catched into variable, output is just printed in console. I have no problem with any other program - it's just bzip2.

My code:

wypisz($cmd);
my $out = `$cmd`;
wypisz($out);
wypisz("end");

Result: $cmd and "end" printed properly - nothing more. Bzip2's output is just printedwypisz() is my function used to put the text into gtkTextView:

sub wypisz {
    my $text = shift;
    my $textbuffer = $::Glade->get_widget( 'v_console' )->get_buffer;
    my $textiter = $textbuffer->get_end_iter;
    $textbuffer->insert($textiter,"$text\n");
    $::Glade->get_widget( 'v_console' )->set_buffer($textbuffer)
}

check if bzip's writing to stderr. if it is, then you'd have to `$cmd 2>1` to redirect stderr to stdout. — Marc B, Jan 16 '15 at 17:49

score 3 · Accepted Answer · answered Jan 16 '15 at 17:54

3

Try

my $out = `$cmd 2>&1`;

to redirect stderr to stdout

answered Jan 16 '15 at 17:54

FunkyShu

138
5

This is it, thank you! :) @MarcB proposed similar thing in one of the comments, but without the ampersand, so it didn't work. – Rafał Swacha Jan 16 '15 at 17:57
1

@RafałSwacha Without the ampersand, you will redirect your output to a file named `1`. – ThisSuitIsBlackNot Jan 16 '15 at 17:58

Perl can't catch bzip2 console output

1 Answers1