How to replace a variable string within /* variable_string */ with x for each character in string?

[Victor]

How to replace a variable string within /* variable_string */ with x
for each character in string?

The string may span on multiple lines.

for eaxmple:

/* string */ ->
/* xxxxxx */

/* stringstring */ ->
/* xxxxxxxxxxxx */

/* string1
string2
*/ ->

/* xxxxxxx
xxxxxxx
*/

Thanks,
Victor

[Matija Papec]

X-Ftn-To: Victor

[email]gvictor97@yahoo.com[/email] (Victor) wrote:

>How to replace a variable string within /* variable_string */ with x
>for each character in string?
>
>The string may span on multiple lines.
>
>for eaxmple:
>
>/* string */ ->
>/* xxxxxx */
>
>/* stringstring */ ->
>/* xxxxxxxxxxxx */
>
>/* string1
> string2
>*/ ->
>
>/* xxxxxxx
> xxxxxxx
>*/

$code =~ s{/\*(.+?)\*/}{
(my $com = $1) =~ s/\S/x/g;
"/*$com*/";
}ges;


--
Matija

[Abigail]

Victor (gvictor97@yahoo.com) wrote on MMMDCLXIII September MCMXCIII in
<URL:news:ab759f.0309111049.48aafe05@posting.googl e.com>:
^^ How to replace a variable string within /* variable_string */ with x
^^ for each character in string?
^^
^^ The string may span on multiple lines.
^^
^^ for eaxmple:
^^
^^ /* string */ ->
^^ /* xxxxxx */
^^
^^ /* stringstring */ ->
^^ /* xxxxxxxxxxxx */
^^
^^ /* string1
^^ string2
^^ */ ->
^^
^^ /* xxxxxxx
^^ xxxxxxx
^^ */


use Regexp::Common;

$str =~ s{$RE{comment}{C}{-keep}}{my $x = $3; $x =~ s!\S!x!g; "/*$x*/"}ge;


Abigail
--
sub _ {$_ = shift and y/b-yB-Y/a-yB-Y/ xor !@ _?
exit print :
print and push @_ => shift and goto &{(caller (0)) [3]}}
split // => "KsvQtbuf fbsodpmu\ni flsI " xor & _

[Victor]

Thanks Matija your help.
--Victor

Abigail <abigail@abigail.nl> wrote in message news:<slrnbm1u0o.6v3.abigail@alexandra.abigail.nl> ...

> Victor (gvictor97@yahoo.com) wrote on MMMDCLXIII September MCMXCIII in
> <URL:news:ab759f.0309111049.48aafe05@posting.googl e.com>:
> ^^ How to replace a variable string within /* variable_string */ with x
> ^^ for each character in string?
> ^^
> ^^ The string may span on multiple lines.
> ^^
> ^^ for eaxmple:
> ^^
> ^^ /* string */ ->
> ^^ /* xxxxxx */
> ^^
> ^^ /* stringstring */ ->
> ^^ /* xxxxxxxxxxxx */
> ^^
> ^^ /* string1
> ^^ string2
> ^^ */ ->
> ^^
> ^^ /* xxxxxxx
> ^^ xxxxxxx
> ^^ */
>
>
> use Regexp::Common;
>
> $str =~ s{$RE{comment}{C}{-keep}}{my $x = $3; $x =~ s!\S!x!g; "/*$x*/"}ge;
>
>
> Abigail

[Victor]

Thanks Matija for your help.
--V

Matija Papec <mpapec@yahoo.com> wrote in message news:<16j1mvoj9dvddd3ehdovma1ke10hnn3o0m@4ax.com>. ..

> X-Ftn-To: Victor
>
> [email]gvictor97@yahoo.com[/email] (Victor) wrote:

> >How to replace a variable string within /* variable_string */ with x
> >for each character in string?
> >
> >The string may span on multiple lines.
> >
> >for eaxmple:
> >
> >/* string */ ->
> >/* xxxxxx */
> >
> >/* stringstring */ ->
> >/* xxxxxxxxxxxx */
> >
> >/* string1
> > string2
> >*/ ->
> >
> >/* xxxxxxx
> > xxxxxxx
> >*/

>
> $code =~ s{/\*(.+?)\*/}{
> (my $com = $1) =~ s/\S/x/g;
> "/*$com*/";
> }ges;