Professional Web Applications Themes

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

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 */ -> /* */ /* stringstring */ -> /* */ /* string1 string2 */ -> /* x x */ Thanks, Victor...

  1. #1

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

    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 */ ->
    /* */

    /* stringstring */ ->
    /* */

    /* string1
    string2
    */ ->

    /* x
    x
    */

    Thanks,
    Victor
    Victor Guest

  2. #2

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

    X-Ftn-To: Victor

    [email]gvictor97[/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 */ ->
    >/* */
    >
    >/* stringstring */ ->
    >/* */
    >
    >/* string1
    > string2
    >*/ ->
    >
    >/* x
    > x
    >*/
    $code =~ s{/\*(.+?)\*/}{
    (my $com = $1) =~ s/\S/x/g;
    "/*$com*/";
    }ges;


    --
    Matija
    Matija Papec Guest

  3. #3

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

    Victor (gvictor97) wrote on MMMDCLXIII September MCMXCIII in
    <URL:news:ab759f.0309111049.48aafe05posting.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 */ ->
    ^^ /* */
    ^^
    ^^ /* stringstring */ ->
    ^^ /* */
    ^^
    ^^ /* string1
    ^^ string2
    ^^ */ ->
    ^^
    ^^ /* x
    ^^ x
    ^^ */


    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 & _
    Abigail Guest

  4. #4

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

    Thanks Matija your help.
    --Victor

    Abigail <abigailabigail.nl> wrote in message news:<slrnbm1u0o.6v3.abigailalexandra.abigail.nl> ...
    > Victor (gvictor97) wrote on MMMDCLXIII September MCMXCIII in
    > <URL:news:ab759f.0309111049.48aafe05posting.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 */ ->
    > ^^ /* */
    > ^^
    > ^^ /* stringstring */ ->
    > ^^ /* */
    > ^^
    > ^^ /* string1
    > ^^ string2
    > ^^ */ ->
    > ^^
    > ^^ /* x
    > ^^ x
    > ^^ */
    >
    >
    > use Regexp::Common;
    >
    > $str =~ s{$RE{comment}{C}{-keep}}{my $x = $3; $x =~ s!\S!x!g; "/*$x*/"}ge;
    >
    >
    > Abigail
    Victor Guest

  5. #5

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

    Thanks Matija for your help.
    --V

    Matija Papec <mpapec> wrote in message news:<16j1mvoj9dvddd3ehdovma1ke10hnn3o0m4ax.com>. ..
    > X-Ftn-To: Victor
    >
    > [email]gvictor97[/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 */ ->
    > >/* */
    > >
    > >/* stringstring */ ->
    > >/* */
    > >
    > >/* string1
    > > string2
    > >*/ ->
    > >
    > >/* x
    > > x
    > >*/
    >
    > $code =~ s{/\*(.+?)\*/}{
    > (my $com = $1) =~ s/\S/x/g;
    > "/*$com*/";
    > }ges;
    Victor Guest

Similar Threads

  1. replace() string
    By dweeres in forum Coldfusion - Getting Started
    Replies: 3
    Last Post: May 1st, 04:26 AM
  2. String replace and comparison
    By navee in forum Macromedia ColdFusion
    Replies: 1
    Last Post: February 24th, 09:29 PM
  3. Replace String
    By Michael42 in forum Macromedia ColdFusion
    Replies: 1
    Last Post: February 22nd, 06:58 PM
  4. Replace value in a string
    By Eric in forum PHP Development
    Replies: 5
    Last Post: October 29th, 02:36 PM
  5. replace string in file
    By Niels Bosboom in forum PHP Development
    Replies: 7
    Last Post: September 29th, 06:41 PM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139