Beefy Boxes and Bandwidth Generously Provided by pair Networks Frank
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Balance Change

by Mago (Parson)
on Feb 08, 2006 at 11:47 UTC ( [id://528842]=note: print w/replies, xml ) Need Help??

This is an archived low-energy page for bots and other anonmyous visitors. Please sign up if you are a human and want to interact.


in reply to Balance Change


perl -e '$_=shift;X while s/\\text(i|b)[tf]\{([^{}]*)\}/<$1>$2<\/$1>/g +;print;' 'abc abc abc \textit{abc abc} abc \textit{abc abc \textbf{ab +c \textbf{abc abc} abc} abc} abc.'


Mago
mago@rio.pm.org


Replies are listed 'Best First'.
Re^2: Balance Change
by MCS (Monk) on Feb 08, 2006 at 13:02 UTC

    Ok, I understand all of this except for the 'x while.' I understand that x is a repetition operator but I've always seen it written like: '"a" x 80.' However here, there is nothing on the left hand side. Could you explain what it does? I'm guessing it repeats the substitution so that it can find the nested cases but I'd be interested in knowing how it works.

      It's not the (lower-case) x operator, it's an (upper-case) unquoted string. Its purpose is to do nothing, but allow there to be a while loop. All the action of the while loop takes place inside its condition.

      Caution: Contents may have been coded under pressure.
      Condition for while, another form would be:

      '1 while' or 'A while' or ...

      ;)

      Mago
      mago@rio.pm.org


      Thanks for the help everyone, I've also found you can write it like this as well:

      while ( <code goes here> ) {}

      The important but being that there's nothing in the {}. This gives us the original one-liner broken up to this:

      #!/usr/bin/perl my $string = 'abc abc abc \textit{abc abc} abc \textit{abc abc \textbf +{abc \textbf{abc abc} abc} abc} abc.'; while ($string =~ s/\\text(i|b)[tf]\{([^{}]*)\}/<$1>$2<\/$1>/g) {} print $string;

      Or you could take out the {} and add a 0, X, or whatever in front of the while (...)

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://528842]
help
Sections?
Information?
Find Nodes?
Leftovers?
    Notices?
    hippoepoptai's answer Re: how do I set a cookie and redirect was blessed by hippo!
    erzuuliAnonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.