MD5 EINES ARRAY: MD5 (Allgemeines zu Perl)

[thread]8634[/thread]

MD5 EINES ARRAY: MD5

nour

2007-01-10 17:03

User since
2006-11-15
108 Artikel
BenutzerIn
[default_avatar]

hallo Leute ,

Code: (dl )

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();
}

der obere skript funktioniert .

ich habe versucht ind der Oberen CODE "$text" mit "@output" zu ersetzten nun Leider Habe ich immer ein fehler bekommen .

ich habe im Internet gesucht ob man an einem Array einen Funktion übergeben kann . aber habe ich leider nichts gefunden!!!

HAt jemandem von euch eine Ahnun wie kann ich den oberen Programm im Laufe bringen , sodass er mir die MD5 von der @output berechnet.

Danke im voraus

bloonix

2007-01-10 17:08

User since
2005-12-17
1615 Artikel
HausmeisterIn

Code: (dl )

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

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.

esskar

2007-01-10 17:17

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

über was willst du den MD5 denn berechnen?

nour

2007-01-10 17:17

User since
2006-11-15
108 Artikel
BenutzerIn
[default_avatar]

ja das habe ich gemacht
ich habe es in meinem Mail geschrieben dass ich habe $text mit @output ersetzt und es berechnet für mich kein MD5!!!!!

deswegen will ich fragen ob ich im "PERL" einen Array an eine Funktion übergeben???

Danke

nepos

2007-01-10 17:43

User since
2005-08-17
1420 Artikel
BenutzerIn

Bitte versuch endlich mal, dein Problem verständlich zu formulieren.
Ich lese mir deine Texte durch und verstehe mit jedem Posting nur noch mehr Bahnhof.
Außerdem solltest du dir mal einiges der oft schon vorgeschlagenen Literatur zu Gemüte führen!

Zu deiner Fragen wegen Perl und Array: klar kannst du das.
Eines der Codebeispiele oben macht genau das.\n\n

bloonix

2007-01-10 17:54

User since
2005-12-17
1615 Artikel
HausmeisterIn

my @output = @{$_[0]};
oder
$md5->add("@$text");\n\n

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.

esskar

2007-01-10 18:18

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

nein; die frage ist doch
wo kommt @output her?

in deinem script steht nix von @output

@opi:

Code: (dl )

C:\Dokumente und Einstellungen\sk>perl
my @o = ("a", "b");
print "@o";
^Z
a b

da entstehen leerzeichen
das kann nicht der sinn sein.
ich denke, nour meint etwas anderes
er/sie/es weiß es nur noch nicht

renee

2007-01-10 18:26

User since
2003-08-04
14371 Artikel
ModeratorIn

$text ist ja kein Array. Zeig uns, wie Du das Array bekommst und wir zeigen Dir, wie man dafür den MD5-Wert berechnen kann...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

bloonix

2007-01-10 19:39

User since
2005-12-17
1615 Artikel
HausmeisterIn

[quote=renee,10.01.2007, 17:26]$text ist ja kein Array. Zeig uns, wie Du das Array bekommst und wir zeigen Dir, wie man dafür den MD5-Wert berechnen kann...[/quote]
hmmm das nicht, aber eine Arrayreferenz? Hätte jetzt darauf getippt, aber
es können natürlich AoAs sein.

while(my ($text) = $sth->fetchrow_array()){

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.

MisterL

2007-01-10 20:06

User since
2006-07-05
334 Artikel
BenutzerIn
[default_avatar]

Guten Abend.
<offtopic>

Quote
Ich lese mir deine Texte durch und verstehe mit jedem Posting nur noch mehr Bahnhof.

Es streichelt ja das eigene Selbstbewusstsein, dass Defizite im Verstehen von Fragestellungen nicht auf fehlenden Perlkenntnissen beruhen...;-)
Was nicht heisst, dass das Studium der Sprache deswegen überflüssig wäre.</offtopic>

Nun denn, in der Literatur ISBN 3-8273-2053-4 findet sich etwas zum Thema. Vielleicht kann man da auch einen Blick reinwerfen (auch wenn das konkrete Problem dort auf den ersten Blick nicht zu finden ist. Aber vielleicht kann man den Code umgestalten...).

Gruss MisterL (jetzt auch Besitzer des "Perl Kochbuch")

“Perl is the only language that looks the same before and after RSA encryption.”

View all threads created 2007-01-10 17:03.