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,11 +13,14 @@ $sth = $dbh->prepare("select subject from videos");
|
||||||
$sth->execute();
|
$sth->execute();
|
||||||
while(($subject) = $sth->fetchrow_array())
|
while(($subject) = $sth->fetchrow_array())
|
||||||
{
|
{
|
||||||
@subject = split(',', $subject);
|
@subject = split(' ', $subject);
|
||||||
foreach my $val (@subject)
|
foreach my $val (@subject)
|
||||||
{
|
{
|
||||||
$val =~ s/^\s*(.*?)\s*$/$1/;
|
$val =~ s/^\s*(.*?)\s*$/$1/;
|
||||||
%hash->{$val}++;
|
if(length($val) >= 4)
|
||||||
|
{
|
||||||
|
%hash->{$val}++;
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
$sth->finish();
|
$sth->finish();
|
||||||
|
|
Loading…
Reference in a new issue