tags are now seperated by spaces
git-svn-id: http://yolanda.mister-muffin.de/svn@208 7eef14d0-6ed0-489d-bf55-20463b2d70db
This commit is contained in:
parent
61542c25df
commit
1968a6c066
1 changed files with 5 additions and 2 deletions
|
@ -13,12 +13,15 @@ $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();
|
||||
|
||||
|
|
Loading…
Reference in a new issue