Show
Ignore:
Timestamp:
11/23/07 14:46:16 (6 years ago)
Author:
tokuhirom
Message:

CommentGetter: trim the space.

Location:
lang/perl/WWW-CommentGetter/trunk/WWW-CommentGetter
Files:
2 modified

Legend:

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

    r1930 r1934  
    1818 
    1919sub trim { 
    20     my ($self, $text) = @_; 
    21     $text =~ s/^\s*//; 
    22     $text =~ s/\s*$//; 
    23     return $text; 
     20    local $_ = shift; 
     21    s/^\s*//; 
     22    s/\s*$//; 
     23    return $_; 
    2424} 
    2525 
     
    3333            my $x = shift; 
    3434            while (my ($key, $xpath) = each %{$siteinfo->{attributes}}) { 
    35                 process $xpath, $key, 'TEXT'; 
     35                process $xpath, $key, sub { 
     36                    my $element = shift; 
     37                    trim $element->as_text; 
     38                }; 
    3639            } 
    3740        }; 
  • lang/perl/WWW-CommentGetter/trunk/WWW-CommentGetter/t/01_basic.t

    r1930 r1934  
    2626--- expected 
    2727- 
    28   body: ' コンニチハ' 
     28  body: コンニチハ 
    2929- 
    30   body: ' ぶうふぃい' 
     30  body: ぶうふぃい 
    3131 
    3232=== yahoo blog 
     
    3434--- expected 
    3535-  
    36   body: ' おこんちは。ちはちは。 ' 
     36  body: おこんちは。ちはちは。 
    3737 
    3838=== ameblo