4

[Perl] hash and while loop - output not right

view full story
linux-howto

http://www.linuxquestions.org – 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" ;     } Curre (HowTos)