Re: Check last character of a string

[Perlbotics]

Do you mean  $location .= '\\' unless $location =~ m(\\$); ? (Variations: chomp and m(\\\Z) )

[theroninwins]

Well it fails as in I need the string to end with \ because I use it as a folder name adding filenames to it. So when the ARGV does not end with \ the adding goes wrong.

[Corion]

Have you thought about using File::Spec->catfile instead?

[Perlbotics]

Hi, for me this works:

#!/usr/bin/perl

use strict;

my @tests = qw( path1 paht2\ );

for my $location (@tests) {
        print "before: '$location'\n";
        $location .= '\\' unless $location =~ m(\\$);
        print "after:  '$location'\n";
}

__END__

before: 'path1'
after:  'path1\'
before: 'paht2\'
after:  'paht2\'

[theroninwins]

yes but now i add it if it is there or not. I only need to add it when it is not there.