str_replace syntax in perl script

Question

In my below script, the str_replace(rtrim(c_manager),'''','_') doesn't seem to work. I want to replace single quotes with underscores for my arguments. For example:

Input: `S'achin`  
Result: `S_achin`

 $sql = 'select rtrim(f_admin_disabled),'."\n".
       '       convert(varchar,t_password,101),'."\n".
       '       rtrim(c_email),'."\n".
       '       str_replace(rtrim(c_manager),'''','_'),'."\n".
       '       rtrim(c_mgr_email)'."\n".
       '  from tuserprofile'."\n".
       ' where ic_user1 = '."'$user_id'"."\n";

ysth · Accepted Answer · 2014-04-01 06:33:21Z

3

If you want to have single quotes in a single quoted string to produce str_replace(rtrim(c_manager),'''','_'), you need to either escape them:

'       str_replace(rtrim(c_manager),\'\'\'\',\'_\'),'

or use a different delimiter:

q!       str_replace(rtrim(c_manager),'''','_'),!

answered Apr 1, 2014 at 6:33

ysth

99.1k6 gold badges126 silver badges220 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Balakumar · Accepted Answer · 2014-04-02 05:55:58Z

2

to replace a character in string

$string=~s/'/_/g;

Syntax

$string=~s/<string>/<replace_string>/g;

edited Apr 2, 2014 at 5:55

answered Apr 1, 2014 at 5:59

Balakumar

6601 gold badge12 silver badges29 bronze badges

2 Comments

Toto Over a year ago

There're no needs to escape the quote and to have the i modifier.

user977802 Over a year ago

how will use on the above select statement

Pradeep · Accepted Answer · 2014-04-01 06:22:44Z

0

Use this subroutine.

sub str_replace {
  my ($s) = @_;

  $s =~ s/'/_/g;

  return $s;
}

answered Apr 1, 2014 at 6:22

Pradeep

3,14119 silver badges21 bronze badges

Collectives™ on Stack Overflow

str_replace syntax in perl script

3 Answers 3

Comments

2 Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

Comments

2 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related