Software-OK
≡... News | ... Home | ... FAQ | Impressum | Kontakt | Gelistet bei | Danke |

  
HOME ► Windows Tip - Perl ► «««« 02 / 07 »»»»

Perl Zufall String ohne Zusatz Module!!


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.



Aktualisiert am: 30 Oktober 2023 11:26 Windows
Keywords: perl, zufalls, string, ohne, zusatz, module, einfach, zufall, generieren, schlichtes, kostenloses, beispiel


Ähnliche Informationen auf der Seite

Windows

... Mit Perl die korrekte Zeit abfragen, ausgeben


In diesem Tipp erhalten Sie grundlegende Informationen zum Verarbeiten und Bearbeiten von Datums- und Uhrzeitangaben in Perl. Wenn Sie die Funktion localtime
Windows

... Papierkorb löschen mit und ohne Bestätigung auf Windows 11?


Einfach das Dialog zur Bestätigung des Löschvorgangs auf neuem Microsoft Windows 11 aktivieren, oder deaktivieren   Öffnen Sie den Papierkorb von Windows
Windows

... So installieren Sie Windows 10 ohne Bloatware einfach neu


Es ist einfach das MS Windows 10 OS ohne Bloatware einfach neu zu installieren Jeder weiss inzwischen was Bloatware ist. Um die Bloatware für ein sauberes,
Windows

... Ohne Unterordner in der Datei Explorer Suche suchen Windows 10


Unter MS Windows 10 ist es einfach, die Suche mit und ohne Unterordner im Datei Explorer zu starten Tipp ► Ohne und mit Unterordner in Windows 11 Ein Beispiel:
Windows

... Trim string in cpp?


Mit eigenem Trim-String in CPP oder C einfach Zeichenfolgen individuell Kürzen, um am Anfang des Strings und abschließende Leerzeichen und Tabs zu entfernen
Windows

... Löschen von Daten ohne Dateiendung in allen Unterordnern


Das Löschen von Dateien ohne Dateiendung in allen Unterordnern ist auf Windows 11, 10, und MS Server einfach und unkompliziert. Dies kann direkt aus
Windows

... Zufalls Toto-Gewinnzahlen für die nächste Ziehung


Um Zufallsgewinnzahlen für die nächste Toto-Ziehung zu generieren, klicken Sie einfach auf die Schaltfläche "TOTO" Information: Mit diesem Tool können Sie



▲ Zum Anfang ▲



... Perl Tip



3D.Benchmark.OK # AlwaysMouseWheel # AutoHideDesktopIcons # AutoPowerOptionsOK # ClassicDesktopClock # DasSindMeineDateien # DesktopDigitalClock # DesktopNoteOK # DesktopOK # DontSleep # Edge-Chromium # ExperienceIndexOK # Find.Same.Images.OK # FontViewOK # GetPixelColor # GetWindowText # Internet # IsMyHdOK # JavaScript # MatriX.CoronaKO # NewFileTime # OpenCloseDriveEject # OpenGL # Perl # PhotoResizerOK # Q-Dir # QuickMemoryTestOK # QuickTextPaste # Registry # ShortDoorNote # SicherLoeschen # StressMyPC # System # TheAeroClock # Tools # WinScan2PDF #




  

  + Freeware
  + Ordnung am PC
  + Dateiverwaltung
  + Automatisierung
  + Office Tools
  + PC-Test-Tools
  + Deko und Spaß
  + Desktop-Uhren
  + Security

  + SoftwareOK Pages
  + Micro Staff
  + Freeware-1
  + Freeware-2
  + Freeware-3
  + FAQ
  + Downloads

  + Top
  + Desktop-OK
  + The Quad Explorer
  + Don't Sleep
  + Win-Scan-2-PDF
  + Quick-Text-Past
  + Print Folder Tree
  + Find Same Images
  + Experience-Index-OK
  + Font-View-OK


  + Freeware
  + Zigarettenschachtel-Spr ...
  + DesktopSchneeFree
  + MeineCPU
  + FavoritenFreund
  + WinScan2PDF
  + DontSleep
  + GetPixelColor
  + MagicMouseTrails
  + QuickTextPaste
  + PAD-s


Home | Danke | Kontakt | Link | FAQ | Settings | Windows 2015 | eBlog | English-AV | Impressum | Translate | PayPal | PAD-s

 © 2025 by Nenad Hrg ERR2: softwareok.de • softwareok.de • softwareok.com • softwareok.eu


► Ich habe aus Versehen die Desktop Notizen geschlossen, was kann ich machen? ◄
► Wenn ich es schaffe alle Viren zu entfernen, ist mein Windows PC Viren frei? ◄
► KO Timer mehr Optionen für den Prozess und APP Killer auf Windows 11, 10, ...! ◄
► Hilfe Windows 11 hat keinen Gerätemanager, warum? ◄


Diese Webseite speichert keine personenbezogenen Daten. Allerdings werden Drittanbieter verwendet, um Werbung zu schalten.
Diese wird von Google verwaltet und entspricht dem IAB Transparency and Consent Framework (IAB-TCF).
Die CMP-ID lautet 300 und kann am Seitenende individuell angepasst werden.
mehr Infos & Datenschutz

....