josch/yolanda
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

tags are now seperated by spaces

Browse source 
git-svn-id: http://yolanda.mister-muffin.de/svn@208 7eef14d0-6ed0-489d-bf55-20463b2d70db
This commit is contained in:
josch 2007-12-18 00:41:02 +00:00
parent 61542c25df
commit 1968a6c066
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
trunk/tools/tagcloud.pl
View file

@ -13,13 +13,16 @@ $sth = $dbh->prepare("select subject from videos");
$sth->execute();
while(($subject) = $sth->fetchrow_array())
{
@subject = split(',', $subject);
@subject = split(' ', $subject);
foreach my $val (@subject)
{
$val =~ s/^\s*(.*?)\s*$/$1/;
if(length($val) >= 4)
{
%hash->{$val}++;
}
}
}
$sth->finish();
@sorted = sort {$hash{$b} cmp $hash{$a}} keys %hash;