Perl

Perl RSS

Perl: how to replace character '/' with '\'

Please support our Perl advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Oct 2009

Posts: 3

Reputation: alan_123 is an unknown quantity at this point

Solved Threads: 0

alan_123

Offline

Newbie Poster

Perl: how to replace character '/' with '\'

Oct 9th, 2009

I am new to perl.
In a string How do I replace a backward slash with a forward slash?
when I call the following perl api $FindBin::Bin; I get the path as follows
$myPath = c:/perl/test
I would like to covert this to
c:\perl\test
I did try the following and get errors
#$myPath=~ tr/\//\/c;

•

Join Date: Sep 2009

Posts: 40

Reputation: d5e5 is an unknown quantity at this point

Solved Threads: 6

d5e5

Offline

Light Poster

Oct 9th, 2009

 Help with Code Tags 
 perl Syntax (Toggle Plain Text) 
#!/usr/bin/perl -w
#ReplaceBackslashWithSlash.pl
use strict;
 
my $myPath = 'c:\perl\test'; # Example string containing backslashes
print "\nOriginal string is: $myPath\n\n";
 
# The following command substitutes backslashes with forward slashes
# You need to escape the backslash and slash with backslash
$myPath =~ s/\\/\//g;
print "Modified string is: $myPath\n";
#!/usr/bin/perl -w
#ReplaceBackslashWithSlash.pl
use strict;

my $myPath = 'c:\perl\test'; # Example string containing backslashes
print "\nOriginal string is: $myPath\n\n";

# The following command substitutes backslashes with forward slashes
# You need to escape the backslash and slash with backslash
$myPath =~ s/\\/\//g;
print "Modified string is: $myPath\n";

•

Join Date: Oct 2009

Posts: 3

Reputation: alan_123 is an unknown quantity at this point

Solved Threads: 0

alan_123

Offline

Newbie Poster

Oct 9th, 2009

Thanks for the replay,
Sorry I made a mistake. the source string is
'c:/perl/test'
would like to convert as
c:\perl\test

•

Join Date: Sep 2009

Posts: 40

Reputation: d5e5 is an unknown quantity at this point

Solved Threads: 6

d5e5

Offline

Light Poster

Oct 10th, 2009

Sorry, I read your example wrong. This should do it. Too bad the substitute command uses slashes to delimit the two strings. It confuses me, but it should work this time.

 Help with Code Tags 
 perl Syntax (Toggle Plain Text) 
#!/usr/bin/perl -w
#ReplaceSlashWithBackslash.pl
use strict;
 
my $myPath = 'c:/perl/test'; # Example string containing backslashes
print "\nOriginal string is: $myPath\n\n";
 
# The following command replaces forward slashes with backslashes
# You need to escape the backslash and slash with backslashes
$myPath =~ s/\//\\/g; #There must be a better way, but I don't know it.
print "Modified string is: $myPath\n";
#!/usr/bin/perl -w
#ReplaceSlashWithBackslash.pl
use strict;

my $myPath = 'c:/perl/test'; # Example string containing backslashes
print "\nOriginal string is: $myPath\n\n";

# The following command replaces forward slashes with backslashes
# You need to escape the backslash and slash with backslashes
$myPath =~ s/\//\\/g; #There must be a better way, but I don't know it.
print "Modified string is: $myPath\n";

•

Join Date: Oct 2009

Posts: 1

Reputation: rocky martin is an unknown quantity at this point

Solved Threads: 1

rocky martin rocky martin is offline

Offline

Newbie Poster

about ur topic

Oct 10th, 2009

•

Originally Posted by d5e5

Help with Code Tags

perl Syntax (Toggle Plain Text)
#!/usr/bin/perl -w
#ReplaceBackslashWithSlash.pl
use strict;
 
my $myPath = 'c:\perl\test'; # Example string containing backslashes
print "\nOriginal string is: $myPath\n\n";
 
# The following command substitutes backslashes with forward slashes
# You need to escape the backslash and slash with backslash
$myPath =~ s/\\/\//g;
print "Modified string is: $myPath\n";
#!/usr/bin/perl -w #ReplaceBackslashWithSlash.pl use strict; my $myPath = 'c:\perl\test'; # Example string containing backslashes print "\nOriginal string is: $myPath\n\n"; # The following command substitutes backslashes with forward slashes # You need to escape the backslash and slash with backslash $myPath =~ s/\\/\//g; print "Modified string is: $myPath\n";

why have u not write in 4th and 7th line

•

Join Date: Sep 2009

Posts: 40

Reputation: d5e5 is an unknown quantity at this point

Solved Threads: 6

d5e5

Offline

Light Poster

Oct 10th, 2009

Blank lines won't make any difference to how the program runs. Since I'm new to Perl I probably don't have a good sense of style yet. But I was trying to separate my code into three sections: introductory lines that appear in all programs, followed by setting up and printing the test string, followed by modifying and printing the resulting string.