http://qs1969.pair.com?node_id=1171409


in reply to Capturing bash output without displaying STOUT in terminal

You can use the qx operator or backticks to do pretty much the same thing as system, but it'll capture the STDOUT (it doesn't capture STDERR though).

use warnings;
use strict;

my $stdout = qx{ git status }; # or `git status`
...

[download]

See Quote and Quote-Like Operators in perlop.

Replies are listed 'Best First'.
Re^2: Capturing bash output without displaying STOUT in terminal
by edimusrex (Monk) on Sep 08, 2016 at 16:14 UTC
    The issue is using the backticks or qx, the stdout is still diplayed in the console and nothing is captured in the variable. Maybe it's the specific command I am running.
[reply]

      What is the output on screen you get?

      Try running something you know won't error out and write to STDERR instead of STDOUT. For instance:

      my $out = `ls`;

      [download]

      ...should NOT write to STDERR. If that works, but your original command doesn't, I'm pretty certain that something is happening that is writing to STDERR.

      Try doing a git status with backticks and see what happens. Now move the test to a non-repo directory and compare the results (the latter will print to console, the former won't).

[reply]
[d/l]
[select]

        I tried this, and it doesn't work for 'git fetch --tags' for some reason.

        My guess is that using this command produces some sort of 'active' output (for want of a better description) in the terminal, and it isn't a static output like you would get from backticks 'ls' or 'ps ax' etc.

        Now for some reason, once you run 'git fetch --tags', any other time you run it, there is no output - I don't know how to reset it to test - but maybe try saving the command in a text file chmod 755 gitfetch.sh and then use

        my $git = `.\gitfetch.sh`;

        [download]

        BTW, using 'my $git = `git status`; works: 

        :~/git/claws/claws$ perl gittest 
What's here? --- On branch master
Your branch is up-to-date with 'origin/master'.
Untracked files:
  (use "git add <file>..." to include in what will be committed)

    gittest

nothing added to commit but untracked files present (use "git add" to 
+track)

        [download]

        Nick

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom