Newbie basic help

[bluegroper]

Whats a nicer way to write line 1 of this snippet ?

my $version = `basename $0`; chomp $version; $version = "$version vx.x";
print "$version\n";

TIA's

 

[rharsh]

You can use the standard basename module. It's two lines instead of just one, but it's easy enough to use:

use File::Basename;
my $version = basename($0) . 'vx.x';

 

[bluegroper]

Guess I was hoping for a neat one-liner.
But the 2 liner will prolly be more platform independent (eg windoze will work too.)
Thx.
Any others ??