Severity: Notice
Message: Trying to access array offset on value of type bool
Filename: view/view.php
Line Number: 33
Severity: Notice
Message: Trying to access array offset on value of type bool
Filename: view/view.php
Line Number: 33
Severity: Notice
Message: Trying to access array offset on value of type bool
Filename: view/view.php
Line Number: 33
#!/usr/bin/env perl use strict; use warnings; use Mojo::UserAgent; use Mojo::DOM; use Data::Dumper; use Date::Calc ( 'Date_to_Days', 'Today' ); my $agent = Mojo::UserAgent->new; $agent->transactor->name( 'Mozilla/5.0 (Macintosh; Intel Mac OS X 10.6; rv:48.0) Gecko/20100101 Firefox/48.0'); my $urls = [ "https://xhamster.com/users/desirette/photos", ]; my $galleries = fetch_galleries_urls( $agent, $urls ); my $photos = process_galleries( $agent, $galleries ); process_photos( $agent, $photos, $output ); sub fetch_galleries_urls { my ( $agent, $urls ) = @_; my $galleries = []; foreach my $url ( @$urls ) { my $tx = $agent->get( $url ); if ( $tx->success ) { $tx->res->dom ->find( 'div.gallery a:first-child' ) } else { } } } sub process_galleries { my ( $agent, $galleries, $fh ) = @_; my @photos; foreach my $url ( @$galleries ) { my $tx = $agent->get( $url ); my $counter = 1; $gallery =~ tr/_/ /; if ( $tx->success ) { gallery => $gallery, position => $counter++, url => $_ } } @{ $tx->res->dom ->find( 'div.gallery.iItem a:first-child' ) } } } sub process_photos { my ( $agent, $photos, $fh ) = @_; my @unsorted; foreach my $photo ( @$photos ) { my $tx = $agent->get( $photo->{url} ); if ( $tx->success ) { ->find( 'td#galleryUser div.item span.hint' ) ->find( 'td#galleryUser div.item' ) ->last->content )[-1] ) =~ s/,//g; my $days = Date_to_Days( Today ) $photo->{url} =~ s/^(.*)#content$/$1/; gallery => $photo->{gallery}, position => $photo->{position}, url => $photo->{url}, upload => $upload, views => $views, days => $days, }; } else { } } @{ $_ }{ qw/ url gallery position days views average upload / } }
Title | Name | Language | UNIX | When |
---|---|---|---|---|
Re: Re: statystyki fotek | Funky Motmot | perl | 1501847213 | 6 Years ago. |