[Perl] hash and while loop

noir911 · 11-30-2010, 01:17 AM

I am trying to create a script that will give me the subversion latest revision number for various repositories. But the output I am getting is not coming out in the right format.

Code:

#!/bin/env perl

use strict;
use warnings;
use diagnostics;

my $look = '/usr/bin/svnlook';
my $arg1 = 'youngest';

my %hash = (
lua => '/var/svn/lua',
scheme => '/opt/svn/scheme',
);

while ( my ($key, $value) = each(%hash) ) {
        my $ks = system ("$look $arg1 $value");
        print "$key is in version: $ks\n" ;
    }

Current output:

Code:

# 2590
# lua is in version: 0
# 765
# scheme is in version: 0

Expected output:

Code:

lua is in version: 2590
scheme is in version: 765

Thanks.

estabroo · 11-30-2010, 04:44 AM

you could change the system call to
my $ks = `$look $arg1 $value`;

that would capture the output whereas the system call runs the program but does no capturing of output

another option would be to use open with a | to execute the program, then just read on the filehandle to get the output

something like
open($FH, "$look $arg1 $value |") or { die "couldn't run $look for $key" };
my $ks = <$FH>;
close($FH);