Send perl variables to a command and capture the output

Question

I'm attempting to pass perl variables into a system command and then capture the output for later usage, here's my current code:

my $updatedCmd = "|svn diff --summarize $svnOldFull $svnNewFull";
my $updatedUrls = '';
open UPDATES, $updatedCmd or die "Can't get updates";
while(<UPDATES>) {
  print $_;
}

print "THIS_SHOULD_OUTPUT_AT_THE_END\n";

The problem with this is that I get the output:

THIS_SHOULD_OUTPUT_AT_THE_END
A       /test
A       /test2
A       /deployment.txt

I would like to be able to capture all of the command output before allowing my perl script to go any further however.

ruz · Accepted Answer · 2012-02-03 11:09:49Z

5

More modern way to do this is the following:

   my @cmd = qw(svn diff --summarize), $svnOldFull, $svnNewFull;
   open my $pipe, '-|', @cmd or die "oops: $!";
   while (<$pipe>) { ... }

Advantages

no globals
open mode separated from file/command
command as array, so there is no need in shell quoting

answered Feb 3, 2012 at 11:09

ruz

5022 silver badges7 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

mitchnull · Accepted Answer · 2012-02-03 09:37:39Z

3

You placed the pipe on the wrong end of your command. Try this:

my $updatedCmd = "svn diff --summarize $svnOldFull $svnNewFull|";

answered Feb 3, 2012 at 9:37

mitchnull

6,3612 gold badges34 silver badges24 bronze badges

Collectives™ on Stack Overflow

Send perl variables to a command and capture the output

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related