On Fri, Aug 10, 2018 at 8:16 PM, ToddAndMargo <toddandma...@zoho.com> wrote:
Hi All,

I was thinking of doing a

$ p6 'my $x="a\nb\nc\nd\n"; say "$x\n"; $x ~~ s/ .*?c /c/; say "$x";'
a
b
c
d


c
d


Except the real deal will be across 1460 lines.  Am I pushing the
limits?

There are other ways of doing what I want.


Many thanks,
-T


On 08/10/2018 08:29 PM, yary wrote:
> 1460 lines, at an average of say, oh, 70 characters per line, that's
> oh 100k or so? Sounds like a piece of cake... try it and see
> -y
>
>

Hi Yary,

I will.

This is what I am after:

            <div class="form-group  version_row">
<label for="" class="col-lg-4 control-label">Version:<span class="require">*</span></label>

                <div class="col-lg-8">
                    <select name="version" class="form-control">
<option value="9.2.0.9297" >9.2.0.9297</option><option value="8.3.6.35572" >8.3.6.35572</option>
                    </select>
                </div>
            </div>


$WebPage ~~ s/ . * '<div class="form-group  version_row">'//;
$WebPage ~~ s/ '</div>' .* //;


Then

( $NewRev  = $Webpage ) ~~ s/ .*? '<option value="'//;
$NewRev ~~ s/ '"' .* //;

I may have to fuss with the escapes.

I do so adore Perl!

:-)

-T

Reply via email to