Perl array (newbie) question

Seventh · 08-31-2004, 11:20 AM

I'd like to replace some text in an array output. My code is:

Code:

#!/usr/bin/perl

$dirlist = qx(ls $dir);
@complete = split ("\n",$dirlist);

@versions = <*_v.pm">;
@versions = glob("*_v.pm");

my $cnt=0;
foreach $f (@versions){
# print "$cnt $f\n";
$ver = qx(tail -1  $f);
print "$cnt $f $ver\n";
$cnt++;
}

The _v.pm files are version control for CVS. The output of this script looks like:

Code:

0 fbcb2d_v.pm our $Version="0.6.10-Experimental (2004.08.20 14:37)";

1 logd_v.pm our $Version="1.0.8 (2004.08.20 14:34)";

The "our $Version=" is in almost every file. What I'd like to do is replace with with the text "Current Version", and if it's not there, replace $ver with "No version information available".

Any insight appreciated. Thanks.

Seventh · 09-01-2004, 09:07 AM

scissors · 09-01-2004, 10:57 AM

You can say:

Code:

if ($ver=~ /our \$Version\=/){
   $ver=~ s/our \$Version\=/Current Version/;
}else{
   $ver=~ s/our \$Version\=/No version information available/;
}

scissors · 09-01-2004, 10:58 AM

I meant this:

Code:

if ($ver=~ /our \$Version\=/){
   $ver=~ s/our \$Version\=/Current Version/;
}else{
   $ver="No version information available";
}

Seventh · 09-02-2004, 10:24 AM

I trimmed it up a ton and gave that a shot, but I think I'm missing something on the syntax side.

Here's the full script (minus header)

Code:

system("clear");                                #Clear the screen
print "Current CVS Module Versions\n\n";

@module = <*_v.pm>;
@module = glob("*_v.pm");

my $cnt=0;
foreach $f (@module){
# print "$cnt $f\n";
    $ver = qx(tail -1  $f);
    my ($name) = $f =~ /(.*)_v\.pm/;   
    if ($ver=~ /our \$Version\=/){
    my ($rawver) = $ver =~ /\$Version\=\"(.*)/;
    }else{
    $ver="No version information available";
}  
    print "$cnt $name $rawver\n";
    # push (@version,$ver,);

    $cnt++;
}

print "\nFinished -[ Hit Enter ]\n";             #
$_ = <STDIN>;                                    # Blank Variable for CR
                                                 #

The tail command I use gives this:

$ tail -1 adocsd_v.pm
our $Version="2.0.9 (2004.08.20 14:34)";

The whole thing gives me this error:

Code:

0 adocsd
Use of uninitialized value in concatenation (.) or string at version.pl line 41.

Line 41 is this:

Code:

    print "$cnt $name $rawver\n";

Thanks very much for the input.

scissors · 09-02-2004, 12:11 PM

I think it is because you are declaring some variables in the if statement. They will not get initialized if you don't meet the "if" criteria.

So instead of this:

my ($rawver) = $ver =~ /\$Version\=\"(.*)/;

put this up near the top:

my ($rawver);

and then make your statement look like this:

$rawver = $ver =~ /\$Version\=\"(.*)/;