Ad:

Perl Discussion Thread
Marked Solved
Views: 13897

Oct 9th, 2009

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

Expand Post »

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;

Similar Threads

Replace character at a particular position in JavaScript / DHTML / AJAX
Search/Replace in MS SQL
Index of a character array in C++
Unicode - character printing probelm in Java
Replace Chars in String Problem in JavaScript / DHTML / AJAX

alan_123

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

3 posts
since Oct 2009

Permalink

Oct 9th, 2009

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

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";

d5e5

Reputation Points: 153

Solved Threads: 142

Master Poster

Offline

740 posts
since Sep 2009

Permalink

Oct 9th, 2009

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

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

alan_123

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

3 posts
since Oct 2009

Permalink

Oct 10th, 2009

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

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.

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";

d5e5

Reputation Points: 153

Solved Threads: 142

Master Poster

Offline

740 posts
since Sep 2009

Permalink

Oct 10th, 2009

about ur topic

Click to Expand / Collapse Quote originally posted by d5e5 ...

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

rocky martin

Reputation Points: 10

Solved Threads: 1

Newbie Poster

Offline

1 posts
since Oct 2009

Permalink

Oct 10th, 2009

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

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.

d5e5

Reputation Points: 153

Solved Threads: 142

Master Poster

Offline

740 posts
since Sep 2009

Permalink

Oct 13th, 2009

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

Thank you all for your support

alan_123

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

3 posts
since Oct 2009

Permalink

Oct 28th, 2009

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

no i have no any idea about this. i am thankful to you for this topic. i like it very much.

maaria

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

2 posts
since Oct 2009

Permalink

Dec 16th, 2011

Sed or Perl Help

Hey guys I'm stuck. I have been trying to write a sed or perl script to change the below. But each time I run the sed script or perl it completely zeros out the file.

I want to change this
/opt/dragon/bin/runit

to this
cd /opt/dragon/bin; /opt/dragon/bin/runit

dozierc

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

2 posts
since Dec 2011

Permalink

Dec 17th, 2011

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

Welcome to Daniweb. Please start a new thread to ask your question. When you ask your question in a new thread, it will help if you list the script that you tried. Then maybe someone can advise you why your script didn't give you the result you wanted.

d5e5

Reputation Points: 153

Solved Threads: 142

Master Poster

Offline

740 posts
since Sep 2009

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

Previous Thread in Perl Forum Timeline: split for multiple delimiters

Next Thread in Perl Forum Timeline: Sed or Perl Help

DaniWeb Message

Cancel Changes

User Name
Password