Kurze Frage - #111897 (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

renee

2008-07-06 16:22

User since
2003-08-04
14371 Artikel
ModeratorIn

Gast+2008-07-06 14:07:42--
Wenn mir jemand noch sagen kann weshalb das Teil jetzt so fliegt wäre ich komplett glücklich. :-P

Das Skript war vorher so langsam, weil Du den <...>-Operator verwendet hast. Dein <@salts> wird behandelt als <$salts[0] $salts[1] ...>, was wiederum ein glob-Aufruf ist. Und je nachdem wie viele Worte da drin stehen, kann das schonmal länger dauern und Du verwendest es noch zusätzlich in einer Schleife - d.h. das glob wird immer und immer wieder ausgeführt.

Übrigens kannst Du das Skript noch (etwas) schneller machen, wenn Du das chomp an eine andere Stelle packst. Jeder Aufruf einer Funktion kostet Zeit...

Code: (dl )

#!/usr/bin/perl
  use strict;
  use warnings;

open (SALT, "salts.txt") or die $!;
 my @salts = <SALT>;
close (SALT);

open (DATEI, "worte.txt") or die $!;
 my @daten = <DATEI>;
close (DATEI);

chomp( @salts, @daten );

foreach  my $salt (@salts)
{
  foreach my $pwd (@daten)
     {
      print crypt($pwd,$salt)."\n";
     }
}

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/