in reply to In my perl script one of the variable it is giving an extra dot.

Hello Anonymous Monk,

if you want to use the regex be sure to use an anchor to just remove a dot in the beginning of the string:  /^\./ being the dot a special regex char you need to escape it.

For a more robust solution use File::Spec file_name_is_absolute and rel2abs 

# something like..

$path = File::Spec->rel2abs( $path ) unless File::Spec->file_name_is_a
+bsolute( $path )

[download]

L*

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

Replies are listed 'Best First'.
Re^2: In my perl script one of the variable it is giving an extra dot.
by hippo (Archbishop) on May 25, 2022 at 09:23 UTC

    Note that the rel2abs approach will only give the same result if / is the CWD. Otherwise it's a different result:

    #!/usr/bin/env perl
use strict;
use warnings;
use File::Spec;

chdir '/tmp';
my $path = './root/git/common/crt_del/cert/DEFAULT.pem';

$path = File::Spec->rel2abs ($path)
  unless File::Spec->file_name_is_absolute ($path);
print "$path\n";

    [download]

    🦛

[reply]
[d/l]

In Section Seekers of Perl Wisdom