in reply to Check last character of a string

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

Replies are listed 'Best First'.
Re^2: Check last character of a string
by theroninwins (Friar) on Aug 06, 2008 at 09:28 UTC
    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.
[reply]

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

[reply]
[d/l]
      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\'

      [download]
[reply]
[d/l]
Re^2: Check last character of a string
by theroninwins (Friar) on Aug 06, 2008 at 09:43 UTC
    yes but now i add it if it is there or not. I only need to add it when it is not there.
[reply]

In Section Seekers of Perl Wisdom