Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: Efficient selection mechanism?

by ikegami (Pope)
on Jan 14, 2014 at 17:13 UTC ( #1070577=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my $AoA = pack 'C*', map @$_, @AoA;
    
    ...
    my $pat = '[^'.( join '', map quotemeta, pack 'C*', @$omit ).']{4}';
    my $re = qr/\G(?:.{4})*?($pat)/s;
    my @matches = map [ unpack 'C*', $_ ], $AoA =~ /$re/g;
    
  2. or download this
    my $AoA = pack '(C4S)*', map { @{ $AoA[$_] }, $_ } 0..$#AoA;
    
    ...
    my $pat = '[^'.( join '', map quotemeta, pack 'C*', @$omit ).']{4}';
    my $re = qr/\G(?:.{6})*?$pat(..)/s;
    my @matches = @AoA[ map unpack 'S', $AoA =~ /$re/g ];
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1070577]
help
Chatterbox?
[ambrus]: Corion: as for that, I talked with schmorp, and looked a bit more at Prima
[ambrus]: Corion: from the docs, it definitely looks like it would be possible to write an AnyEvent driver for it using Prima::File and Prima::Timer.
[ambrus]: (I haven't found an idle event.)
[ambrus]: However, I also looked at the internals, and found two interesting things:
[marto]: stupid xpath question, I have a xpath copied from the browser, is the * wildcard supposed to work for IDs? e.g. '//*[@id="*"]/ div/div/header/p/a '?
[ambrus]: The main loop for unixish systems is in https://metacpan. org/source/ KARASIK/Prima-1. 49/unix/apc_app.c. It is a hand-rolled select loop, but also always spins at least once every 0.2 seconds for some reason.
[ambrus]: marto: no, not that way. if you just want to test for an existing id attribute, then write *[@id] , or you can match a regexp to the value of that attribute like *[@id=~/something/ ]
[marto]: ambrus, thanks I ended up going with '//*[starts- with(@id, "thread_")]...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (6)
As of 2016-12-08 10:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (140 votes). Check out past polls.