Changeset 13578 for lang/perl/WWW-Wassr

Show
Ignore:
Timestamp:
06/09/08 12:16:23 (7 years ago)
Author:
likk
Message:

lang/perl/trunk/WWW-Wassr: add _todo_parse method

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/WWW-Wassr/trunk/lib/WWW/Wassr.pm

    r13577 r13578  
    186186        { 
    187187                my $data = $self->{'wm'}->get("$self->{site_root}/my/todo/?page=$page"); 
    188                 my $todo_list = $self->_todo_parce($data); 
     188                my $todo_list = $self->_todo_parse($data); 
    189189                my $s         = 0; 
    190190                eval { $s = scalar(@$todo_list) }; 
     
    420420} 
    421421 
     422sub _todo_parse 
     423{ 
     424        my $self    = shift; 
     425        my $data    = shift; 
     426        my $scraper = scraper 
     427        { 
     428                process 'ul.ToDoList>li>span', 
     429                  'tid[]'  => '@id', 
     430                  'todo[]' => 'TEXT'; 
     431                result 'tid', 'todo'; 
     432        }; 
     433        my $result = $scraper->scrape( $data->{_content} ) || ''; 
     434        my $tlist = (); 
     435        for ( 0 .. $#{ $result->{tid} } ) 
     436        { 
     437                my $line = {}; 
     438                my $tid  = $result->{tid}->[$_]; 
     439                next if !defined $tid or $tid eq ''; 
     440                $tid =~ s{^todo_}{}; 
     441                $line->{tid}  = $tid; 
     442                $line->{todo} = $result->{todo}->[$_]; 
     443                push @$tlist, $line; 
     444        } 
     445        return $tlist; 
     446} 
     447 
    422448#===act=== 
    423449sub update