Syntax
Die Syntaxen der Länge () -Funktion von Perl sind unten angegeben.
Im nächsten Teil dieses Tutorials wurden verschiedene Verwendungen des Perl -Skripts gezeigt.
Beispiel 1: Zählen Sie die Länge der $ _ Variablen
Erstellen Sie eine Perl -Datei mit dem folgenden Code, der die Gesamtzahl der Zeichen des in der Skalarvariablen gespeicherten Zeichenfolgewerts zählt. In der Skalarvariablen wurde ein Stringwert gespeichert. Der drucken Der Bediener wurde verwendet, um den Wert der Skalarvariablen zu drucken. Der Länge() Funktion ohne Argument wurde verwendet, um die Länge der Skalarvariablen zu zählen. Als nächstes der Rückgabewert der Länge() Funktion wurde gedruckt.
Druck "den Wert der Skalarvariablen: \ n";
# Definieren Sie die spezielle Variable $ _
$ _ = "Willkommen bei LinuxHint \ n";
# Drucken Sie den Wert von $ _
drucken;
# Zählen Sie die Länge von $ _
$ insgesamt = Länge;
# Drucken Sie die Gesamtzahl der Zeichen
Druck "Gesamtzahl der Zeichen: $ Total \ n";
Ausgang:
Die folgende Ausgabe wird nach der Ausführung des obigen Codes angezeigt.
Beispiel-2: Zählen Sie die Länge der String-Variablen
Erstellen Sie eine Perl -Datei mit dem folgenden Code, der die Gesamtzahl der Zeichen der Zeichenfolgevariablen zählt. Der Benutzername und das Passwort werden vom Benutzer entnommen und in zwei Variablen gespeichert, $ Benutzername und $ Passwort. Die Chomp () -Funktion wurde verwendet, um die neue Zeile aus den Variablen zu entfernen. Die Länge () -Funktion wurde hier verwendet, um die Länge des $ userernamen- und $ Passwort -Werte zu zählen. Wenn die Länge des $ usernamennamens weniger als 6 beträgt, dann die Nachricht, „Der Benutzername muss 6 Zeichen enthalten.” wird gedruckt. Wenn die Länge des $ -Kennworts weniger als 6 und mehr als 12 beträgt, dann ist die Nachricht, „Passwort kann 6 bis 12 Zeichen lang sein.” wird gedruckt. Nach der Validierung der Eingabewerte wird eine Erfolgsnachricht gedruckt. Andernfalls wird eine Fehlermeldung gedruckt.
# Nehmen Sie die Eingabe vom Benutzer
Druck "Benutzername eingeben: \ n";
$ username = < >;
# Entfernen Sie den neuen Zeichenzeichen
chomp ($ userername);
Druck "Passwort eingeben: \ n";
$ passwort = < >;
# Entfernen Sie den neuen Zeichenzeichen
chomp ($ passwort);
# Überprüfen Sie die Länge der Variablen $ username
if (Länge ($ username) < 6)
Der "Benutzername muss 6 Zeichen enthalten.\N";
if (Länge ($ Passwort) < 6 || length($password) > 12)
Die "Passwort kann 6 bis 12 Zeichen lang sein.\N";
# Überprüfen Sie die Länge der $ Password -Variablen
if ($ userername eq 'fahmida' && $ password EQ 'Geheimnis')
"authentifizierter Benutzer drucken.\N";
anders
Drucken "nicht authentifizierter Benutzer.\N";
Ausgang:
Die folgende Ausgabe wird nach der Ausführung des Codes mit dem gültigen Benutzernamen angezeigt, aber ungültige Kennworteingaben. Der Eingangswert „Fahmida“ ist gültige Daten und der richtige Benutzername. Der Eingangswert "1234" ist ungültige Daten.
Die folgende Ausgabe wird nach der Ausführung des Code mit dem ungültigen Benutzernamen, aber gültiges Passwort angezeigt. Der Eingabewert "Admin" ist ungültige Daten. Der Eingangswert „Geheimnis“ sind gültige Daten und das richtige Passwort.
Die folgende Ausgabe wird angezeigt, nachdem der Code mit dem gültigen Benutzernamen, aber dem falschen Passwort ausgeführt wurde. Der Eingangswert „Fahmida“ ist gültige Daten und der richtige Benutzername. Der Eingabewert "123456" ist gültige Daten, aber ein falsches Passwort.
Die folgende Ausgabe wird angezeigt, nachdem der Code mit dem richtigen Benutzernamen und dem richtigen Kennwort ausgeführt wurde. Der Eingangswert „Fahmida“ ist gültige Daten und der richtige Benutzername. Der Eingangswert „Geheimnis“ sind gültige Daten und das richtige Passwort.
Beispiel-3: Zählen Sie die Länge der String-Variablen in Bytes
Sie müssen die verwenden Bytes Modul, um die Länge der Saiten in Bytes zu zählen. Erstellen Sie eine Perl -Datei mit dem folgenden Code, der das verwendet Bytes Modul zum Zählen der Länge der Stringdaten im hexadezimalen Format. Der ursprüngliche Zeichenfolgewert und die Anzahl der Bytes dieses Zeichenfolgewerts werden später gedruckt.
Bytes verwenden;
# Stringdaten nach HEX -Wert definieren
$ data = "\ x 35 \ x 250 \ x 245 \ n";
# Drucken Sie den Stringwert von Hex -Daten
Druck "Der Zeichenfolgenwert ist", $ Data;
# Drucken Sie die Länge der Zeichenfolge in Bytes
Drucken Sie "Die Länge der Zeichenfolge ist:", Länge ($ data), "Bytes.", "\N";
Ausgang:
Die folgende Ausgabe wird nach der Ausführung des Codes angezeigt.
Beispiel-4: Zählen Sie die Länge jedes Array-Elements
Erstellen Sie eine Perl -Datei mit dem folgenden Code, der die Länge jedes Zeichenfolgewerts des Arrays zählt. Im Code wurde ein Array von 4 Zeichenfolgenwerten definiert. Der für jede Die Schleife wurde hier verwendet, um die Array -Werte und die Länge jedes Arraywerts zu zählen, und die Länge jedes Arraywerts.
# Eine Reihe von Saiten deklarieren
@usernames = ("Nupur22", "Hossainbd", "Kamal12", "Bela89");
# Iterieren Sie die Array -Werte für die Schleife mit
für ($ i = 0; $ i <= $#usernames; $i++)
# Zählen Sie die Länge jedes Arraywerts
$ len = länge ($ usernamen [$ i]);
# Drucken Sie die Länge des Arraywerts
Druck "Die Länge von $ usernames [$ i] ist $ len \ n";
Ausgang:
Die folgende Ausgabe wird nach der Ausführung des Codes angezeigt.
Abschluss
Die Verwendung der Länge () -Funktion zum Zählen der Länge des Zeichenfolgewert. Ich hoffe, dieses Tutorial hilft den Perl -Benutzern, die Funktion Länge () zu verwenden.