- Timestamp:
- Sep 20, 2011, 11:15:31 PM (13 years ago)
- Branches:
- master, release-1.10, release-1.9
- Children:
- eb20731
- Parents:
- 4b23009
- git-author:
- Edward Z. Yang <ezyang@mit.edu> (06/21/11 10:19:16)
- git-committer:
- Edward Z. Yang <ezyang@mit.edu> (09/20/11 23:15:31)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm
r77d1ef1 rb49aaf8 23 23 # stupidly pick the longest one, and only return one. 24 24 my $sentence = shift; 25 $sentence =~ s/[[:punct:]] //g;25 $sentence =~ s/[[:punct:]]+/ /g; 26 26 my @words = split(' ', lc($sentence)); 27 27 return () unless @words; … … 207 207 my @keywords = keywords($post->{name} || $post->{message}); 208 208 my $topic = $keywords[0] || 'personal'; 209 $topic =~ s/ /-/g; 209 210 $self->{topics}->{$post_id} = $topic; 210 211 # XXX indexing is fragile
Note: See TracChangeset
for help on using the changeset viewer.