«

Hi does someone could clear my mind and tell me what would mean :

$loop_hs =~ s/\$HTML{\'$noteval\'}/\*HTML{\'$noteval\'}/g;

thx in advance

Alexandre Jaquet <> writes:
> Hi does someone could clear my mind and tell me what would mean :
>
> $loop_hs =~ s/\$HTML{\'$noteval\'}/\*HTML{\'$noteval\'}/g;

It assumes that the variable $noteval has a value; let's say it contains
"foo".

Then the statement takes the string $loop_hs and in it replaces all
occurrences of the character '$' with '*' when they are followed by
"HTML{'foo'}".

I imagine "noteval" is to be read "not eval[uate]".

I don't know if that will clear your mind...

Arndt Jonasson wrote:
> Alexandre Jaquet <> writes:
>> Hi does someone could clear my mind and tell me what would mean :
>>
>> $loop_hs =~ s/\$HTML{\'$noteval\'}/\*HTML{\'$noteval\'}/g;
>
> It assumes that the variable $noteval has a value; let's say it contains
> "foo".
>
> Then the statement takes the string $loop_hs and in it replaces all
> occurrences of the character '$' with '*' when they are followed by
> "HTML{'foo'}".

Since there are several redundant backslashes, i.e.

$loop_hs =~ s/\$HTML{'$noteval'}/*HTML{'$noteval'}/g;

would do the same, it also means that the programmer isn't very good at
regular expressions in Perl.

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

Alexandre Jaquet <> wrote in comp.lang.perl.misc:
> Hi does someone could clear my mind and tell me what would mean :
>
> $loop_hs =~ s/\$HTML{\'$noteval\'}/\*HTML{\'$noteval\'}/g;

Where did you get that? Whoever wrote it doesn't know Perl very well,
evidenced by the use of unnecessary escapes. "'" is not special in a
regex, so

s/\$HTML{'$noteval'}/\*HTML{'$noteval'}/g;

would do the same thing.

What it *means* is impossible to say without context.

What it *does* is basically change dollar signs ($) to asterisks (*)
if the conditions are right. The conditions depend on the content of
$loop_hs and $noteval.

Example for the right conditions:

my $loop_hs = q($HTML{'XXX'});
my $noteval = 'XXX';
print "$loop_hs -> ";
$loop_hs =~ s/\$HTML{'$noteval'}/\*HTML{'$noteval'}/g;
print "$loop_hs\n"; # $HTML{'XXX'} -> *HTML{'XXX'}

Anno

Anno Siegel a écrit :
> Alexandre Jaquet <> wrote in comp.lang.perl.misc:
>
>>Hi does someone could clear my mind and tell me what would mean :
>>
>>$loop_hs =~ s/\$HTML{\'$noteval\'}/\*HTML{\'$noteval\'}/g;
>
>
> Where did you get that? Whoever wrote it doesn't know Perl very well,
> evidenced by the use of unnecessary escapes. "'" is not special in a
> regex, so
>
> s/\$HTML{'$noteval'}/\*HTML{'$noteval'}/g;
>
> would do the same thing.
>
> What it *means* is impossible to say without context.
>
> What it *does* is basically change dollar signs ($) to asterisks (*)
> if the conditions are right. The conditions depend on the content of
> $loop_hs and $noteval.
>
> Example for the right conditions:
>
> my $loop_hs = q($HTML{'XXX'});
> my $noteval = 'XXX';
> print "$loop_hs -> ";
> $loop_hs =~ s/\$HTML{'$noteval'}/\*HTML{'$noteval'}/g;
> print "$loop_hs\n"; # $HTML{'XXX'} -> *HTML{'XXX'}
>
> Anno

thanks guyz =)

Abigail <> wrote in comp.lang.perl.misc:
>
> I'd write it as:
>
> $loop_hs =~ s/\$(?=HTML{'$noteval'}/*/g;

You'd close the parenthesis:

$loop_hs =~ s/\$(?=HTML{'$noteval'})/*/g;

Anno