Thank you.
Based on your Posting I have extend the Script to the following:
#!/usr/bin/perl -w
use strict;
my @part0;
my @o_part0;
my $erg0;
my @o_part1;
my $erg1;
my $sver;
if (open (SQUID, "/usr/sbin/squid -v |"))
{
@part0 = ;
@o_part0 = split (/\s/,$part0[0]);
$erg0 = $o_part0[3];
@o_part1 = split (/\./, $erg0);
$erg1 = $o_part1[0] . $o_part1[1];
$sver = $erg1;
}
else
{
$sver = "-.-";
}
close SQUID;
print "\nVersion: $sver \n";
I think I work fine.
Any suggestions?
Günter