Recht einfach kann man in Perl Zufalls-String ohne Zusatz Module generieren, hier ein schlichtes kostenloses Beispiel!
Inhalt:
1.) ... Perl-Skript zum generieren von Zufalls-Zeichenfolgen!
2.) ... Erklärung zum Perl-Skript zum generieren von zufälligen Zeichenfolgen
1.) Perl-Skript zum generieren von Zufalls-Zeichenfolgen!
Die Rutine (Unterfunktion) &RandStr(12); generier 12 Zeichen langen Zufalls String (Wort) aus den Zeichen:
0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ
use strict;
use CGI::Carp qw(fatalsToBrowser);
#START
print "Content-type: text/html\n\n";
my $string1="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";
my @RA=split("",$string1);
#Zufalls String Rutine
sub RandStr()
{
#Für die Rückgabe vom String
my $str="";
#Lenge vom Zufalls String
my $len=$_[0];
#Anzahl der Zeichen
my $cnt=@RA;
for (my $i=0;$i<$len;$i++)
{
#Zufallszeichen generieren
my $random_nummer=int(rand($cnt));
#Zufallszeichen zum gesamt String hinzufügen
$str.=$RA[$random_nummer];
}
return $str;
}
#Zufalls String Rutine-Ende
#Test Schleife
for(my $i=0;$i<1000;$i++)
{
my $ppp=&RandStr(12);
$ppp=sprintf("%02d %s",$i,$ppp);
print "$ppp";
}
2.) Erklärung zum Perl-Skript zum generieren von zufälligen Zeichenfolgen
Der Perl-Skript generiert zufällige Zeichenfolgen und gibt sie auf einer Webseite mithilfe des CGI-Moduls aus. Das Skript erzeugt 1000 zufällige Zeichenfolgen, jede mit einer Länge von 12 Zeichen, und fügt ihnen eine zweistellige Nummer hinzu. Die generierten Zeichenfolgen werden dann auf der Webseite angezeigt.
Hier ist eine Aufschlüsselung Ihres Perl-Skripts:
use strict; aktiviert den strengen Modus, der strengere Regeln für Variablen und Syntax in Ihrem Perl-Code durchsetzt.
use CGI::Carp qw(fatalsToBrowser); aktiviert die Funktion fatalsToBrowser aus dem Modul CGI::Carp, die bei der Anzeige von Perl-Fehlermeldungen im Webbrowser hilft.
print "Content-type: text/html\n\n"; sendet einen HTTP-Header, der den Inhaltstyp als HTML angibt. Dies ist für die Ausgabe auf der Webseite notwendig.
Das Skript definiert ein Array @RA, das die Zeichen '0' bis '9' und 'A' bis 'Z' enthält.
Es definiert eine Unterprozedur RandStr, die zufällige Zeichenfolgen generiert. Sie nimmt die gewünschte Länge als Argument und gibt eine zufällige Zeichenfolge dieser Länge zurück.
Innerhalb der Unterprozedur RandStr wird eine Schleife verwendet, um zufällige Zeichen zu generieren und sie zur Zeichenfolge $str hinzuzufügen.
Das Skript startet dann eine Schleife, um 1000 zufällige Zeichenfolgen mit einer zweistelligen Nummer zu generieren und anzuzeigen.
Es generiert jede zufällige Zeichenfolge, fügt sie mit einer zweistelligen Nummer (gegebenenfalls mit führenden Nullen) zusammen und gibt sie auf der Webseite aus.
Das Skript generiert keine HTML-Markup, daher wird die Ausgabe eine Abfolge von zufälligen Zeichenfolgen mit Zahlen sein, die vom Webbrowser als einfacher Text angezeigt werden.
Wenn Sie spezifische Fragen haben oder weitere Hilfe bei diesem Skript benötigen, lassen Sie es mich bitte wissen.
