Ad:

Perl Discussion Thread
Unsolved
Views: 4680

Apr 4th, 2007

String replacement in a file

Expand Post »

I have a very specific problem.

Does s/// work with strings that are contained in single quotes? I've been debugging and I'm trying to replace a string that contains a $ in it. If I use double quotes, it works for the string up until the $. If I use single quotes, it does not work with any string.

Here is my code; it involves file access, and file.data contains the string "testing $my string."

Perl Syntax (Toggle Plain Text)
#!/usr/bin/perl
 
$s1 = "testing $my string";
$s2 = "testing $your string";
 
local ($^I, @ARGV) = ('.bak', 'file.data');
while (<>) {
        s/$s1/$s2/g;
  print;
}
#!/usr/bin/perl

$s1 = "testing $my string";
$s2 = "testing $your string";

local ($^I, @ARGV) = ('.bak', 'file.data');
while (<>) {
        s/$s1/$s2/g;
  print;
}

Similar Threads

Search string in a text file in C
Read a string from a binary file into a C or C++ string in C++
Read in a string from a text file in C
New User in C

nanodano

Reputation Points: 36

Solved Threads: 2

Junior Poster in Training

Offline

78 posts
since Feb 2005

Permalink

Apr 4th, 2007

Re: String replacement in a file

Perl Syntax (Toggle Plain Text)
#!/usr/bin/perl
 
$s1 = "testing $my string";
$s2 = "testing \$your string";
 
local ($^I, @ARGV) = ('.bak', 'file.data');
while (<>) {
        s/\Q$s1\E/$s2/g;
  print;
}
#!/usr/bin/perl

$s1 = "testing $my string";
$s2 = "testing \$your string";

local ($^I, @ARGV) = ('.bak', 'file.data');
while (<>) {
        s/\Q$s1\E/$s2/g;
  print;
}

KevinADC

Reputation Points: 246

Solved Threads: 67

Practically a Posting Shark

Offline

898 posts
since Mar 2006

Permalink

Apr 5th, 2007

Re: String replacement in a file

I added an escape \ to $s1 like you did to $s2 and it worked great, thanks!

nanodano

Reputation Points: 36

Solved Threads: 2

Junior Poster in Training

Offline

78 posts
since Feb 2005

Permalink

Apr 5th, 2007

Re: String replacement in a file

Ahh, now that I think about it \Q does not affect $ in a regexp, so you would use the quotemeta() function or add the escape character manually like you did.

KevinADC

Reputation Points: 246

Solved Threads: 67

Practically a Posting Shark

Offline

898 posts
since Mar 2006

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Perl Forum Timeline: hi i have prob solve it plz

Next Thread in Perl Forum Timeline: Multiple scripts in one file

DaniWeb Message

Cancel Changes

User Name
Password