Perl Script Problem

Shell Programming and Scripting
1

Hi Perl Gurus,
I have a very simple problem.
This command perfectly runs in Unix Shell:

[EMAIL="dlv_mng@hpp309:/delivery/dlv/dlv/dlv_mng"]

 
dlv_mng@hpp309:/delivery/dlv/dlv/dlv_mng> echo 7.5.1.2.25 | sed -n 's^\(.\).\(.\).\(.*\).\(.*\).\(.*\)^\1.\2^p'

7.5

[/EMAIL]

However, when I run this inside a perl script, it fails.

 
        $version = `echo $hotfix | sed -n 's^\(.\).\(.\).\(.*\).\(.*\).\(.*\)^\1.\2^p'`;
        print "V: $version";

I get a blank value in $version.
Can you please explain why?

Thanks,
Som

2

Don't shell out. Use Perl

$ cat ./hotfix.pl
#!/usr/bin/perl

use strict;
use warnings;

my $hotfix;
my $version;

$hotfix = '7.5.1.2.25';

($version) = $hotfix =~ m/^(\d.\d).*$/;

print "Version = $version\n";

exit 0;

$ ./hotfix.pl
Version = 7.5