One thing your example you'll lose the second <\div>.
ff is great for working though lines of data. Going back to your previous
example say we have a file like.
A
B
C
D
E
F
G
And we want to print the lines from C to F we can write.
for "file".IO.lines {
print if /C/ ff /F/;
}
Each line in the file is assigned to $_. If ff has not seen the LHS (so C)
yet it will compare the line to that if it matches (and it doesn't match
the RHS) it returns True. It continues to return True until the line
matches the RHS. At which point I *think* it resets to Looking for the LHS
and returning False.
The more I think about ff and fff the more I'm mind blown, operators that
remember state? Whacky.
But anyway I hope that helped a bit. The gather example might be closer to
what you're looking for, putting lines into an array for further looking at.
Or.... Take a look at DOM::Tiny which might also help you out.
Hope that helped, I should get up and start the drive to Scotland soon.
On Sat, 11 Aug 2018, 06:41 ToddAndMargo, <toddandma...@zoho.com> wrote:
> On 08/10/2018 08:59 PM, ToddAndMargo wrote:
> >
> >> 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
>
>
> I have done this with two web pages already. Perl 6
> eat its lunch!
>
> --
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> Computers are like air conditioners.
> They malfunction when you open windows
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>
--
Simon Proctor
Cognoscite aliquid novum cotidie
