Here are a couple of ways:

First, transliteration:

$string =~ tr{/}{\};
[download]

Or with the substitution operator:

$string = s{/}{\}g;
[download]

tr/// is going to be a little faster, but s/// would let you create more complex matching and replacing criteria.

For further reading, see perlop. There you'll find an explanation of the s/// and tr/// operators. Also see perlre for a more detailed discussion of what you can do with the s/// operator.

Update:Oops... yes, those pesky backslash characters need to be doubled up thanks to the gory details of quote parsing. tr{/}{\\}, for example. Sorry about that. ;)

See this thread.

Thank you for answer. But it seem doesn't work. $string = 'c:/windows/'; $string =~ tr{/}{\}; print $string; Am I right?? But when I run I get this message "Transliteration replacement not terminated at AIFF_test.pl" why?

The \ needs to be quoted. It is an 'escape' character that allows you to treat special characters normally and normal characters specially. In this case it is quoting the }, which is not what you want.

use warnings;
use strict;

my $str = 'c:/windows/';

$str =~ tr{/}{\\};
print $str;
[download]

Prints:

c:\windows\
[download]

---

DWIM is Perl's answer to Gödel

If you plan on using that directory as part of a filename, you could always give File::Spec a try. Not only will it do what you want by converting C:/windows to C:\windows, it helps you write portable code.

use File::Spec;
use strict;
use warnings;

my $dir = 'c:/temp';
my $file = 'tempfile';

my $path = File::Spec->catfile($dir, $file);
print $path, "\n";
[download]