Perl script replace syntax

Question

Below is my Perl script

str_replace(rtrim(c_manager),'''','_'),'."\n".
 throws error  

str_replace(rtrim(c_manager), '''"

Bad name after _' at pl_recert_output.pl line 262.

Please help to solve this issue:

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

score 3 · Accepted Answer · 2014-03-27 15:52:01Z

3

You have single quotes within your single quoted string.

Single quotes within a quote string must be escaped with \'.

However, you would be better off using the multi-line quoting syntax for cleaner code:

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

This has the intended result without messy escaping and string concatenation.

edited Mar 27, 2014 at 15:52

answered Mar 27, 2014 at 15:46

user1919238

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

Comments

sateesh · Accepted Answer · 2014-03-27 15:48:42Z

0

You need to escape the single quotes in your variable assignment:

my $user_id = 'test';
my $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";

print $sql;

results in :

   select rtrim(f_admin_disabled),
   convert(varchar,t_password,101),
   rtrim(c_email),
   str_replace(rtrim(c_manager),'''','_'),
   rtrim(c_mgr_email)
   from tuserprofile
   where ic_user1 = 'test'

Check if that is the result you expected.

answered Mar 27, 2014 at 15:48

sateesh

28.9k7 gold badges38 silver badges45 bronze badges

3 Comments

user977802 Over a year ago

Canot skip the sinle quoted variable arugument...throws error Incorrect syntax near 'Leary'. (SQL-42000) [state was 42000 now HY000] [MERANT][ODBC Sybase ASE driver][SQL Server]Unclosed quote before the character string ' help for another solution

sateesh Over a year ago

What if you just write last line as: ' where ic_user1 = '.$user_id."\n"; You can print the output from your perl program run on your DB and tweak your variable assignment so that it remains a valid perl script and emits correct DB query.

user977802 Over a year ago

str_replace(rtrim(c_manager),\'\'\'\',\'_\'),'."\n" these lines throws the same error canot skip the single quoted variable arugument..... ex :in the c_manager column values are 'S'achin' inside the single quotes variable name replaces script ie.,S_achin as i want.....help

Collectives™ on Stack Overflow

Perl script replace syntax

2 Answers 2

Comments

3 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

3 Comments

Your Answer

Sign up or log in

Post as a guest

Related