Converting to uppercase and wrapping ''

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Converting to uppercase and wrapping '' by wind (Priest) on May 02, 2011 at 04:57 UTC
Do you want single quotes or double quotes around it? Either way, use qq as your string qualifier and just use your preferred quotes within: `my $up = uc qq{'$folder'};` [download]	[reply] [d/l]
Re^2: Converting to uppercase and wrapping '' by Anonymous Monk on May 02, 2011 at 05:20 UTC
I tried above ,in the below code for me if $mk matches 'DATA' it should ignore all the subsequent statements,why is it printing "IN"?Please advise `$folder= "data"; my $up=uc qq{'$folder'}; print "\n$up"; my $mk= 'DATA'; next if $mk =~ /uc qq{'$folder'}/i; print "\nIN"; --->prints,ideally if above line matches it should not p +rint this line` [download]	[reply] [d/l]
Re^3: Converting to uppercase and wrapping '' by jwkrahn (Abbot) on May 02, 2011 at 05:29 UTC
`next if $mk =~ /uc qq{'$folder'}/i;` [download] You want: `next if $mk eq $up;` [download]	[reply] [d/l] [select]
Re^3: Converting to uppercase and wrapping '' by wind (Priest) on May 02, 2011 at 07:02 UTC
Why do you want to put quotes around $folder? Are you really just wanted to test if $folder and $mk are equal except for case? If so just do the following: `next if uc $mk eq uc $folder;` [download]	[reply] [d/l]
Re: Converting to uppercase and wrapping '' by anonymized user 468275 (Curate) on May 02, 2011 at 12:08 UTC
single quotes suppress the evaluation of the contained expression, whereas you want the double quotes, so you need to separate them from the variable expression to allow evaluation, e.g: `my $up = '"' . uc($folder) . '"';` [download] One world, one people	[reply] [d/l]
Re: Converting to uppercase and wrapping '' by MoFiddy (Sexton) on May 02, 2011 at 13:52 UTC
This seems to work. `my $folder = "data"; my $up = '\'' . uc($folder) . '\''; print $up . "\n";` [download]	[reply] [d/l]
Re^2: Converting to uppercase and wrapping '' by Anonymous Monk on May 02, 2011 at 14:12 UTC
`my $folder = "data"; print qq{'\U$folder\E'\n}; printf "'%s'\n", uc $folder; __END__ 'DATA' 'DATA'` [download]	[reply] [d/l]