sub get_MD5
  {
   my $md5=Digest::MD5->new;
   my $id;
   my $filename;

  $filename=shift;

  if (open(FF, $filename))
  {
    binmode(FF);
    $md5=Digest::MD5->reset;
    $id = $md5->addfile(*FF)->hexdigest;
    close(FF);
    return $id;
    $md5=Digest::MD5->reset;
  } else
  {
    return "";
  }

Tabelle1 :
 ID      filename
 1        text


Wie soll ich dann mein filename innerhalb meine Procedure deklariren damit ich die MD5 von der String "text " berechnen kann?


danke[CODE]

my $stmt = "SELECT filename FROM tabelle";
my $sth = $dbh->prepare($stmt) or die $dbh->errstr();
$sth->execute() or die $dbh->errstr();

while(my ($text) = $sth->fetchrow_array()){
    print get_MD5($text);
}

sub get_MD5 {
    my ($text) = @_;
    my $md5=Digest::MD5->new;
    $md5->add($text);
    return $md5->hexdigest();
}