In einem Perl-String nach Zeichenketten suchen?

Recht einfach ist es in einem Perl-String nach Zeichenketten zu suchen, hier gibt es verschiedene Vorgehensweisen!

 
# Wenn Sie in einem Perl-String nach Zeichenketten suchen möchten, anstatt in einer Datei, können Sie dies mit dem regulären Ausdruck tun. Hier ist ein einfaches Perl-Skript, das dies zeigt:
 
#In einem Perl-String nach Zeichenketten zu suchen. Hier ist ein Beispiel, wie Sie dies tun können:
 
##-----------------
#!/usr/bin/perl
 
# Der Zeichenketten, in der gesucht werden soll
my $text = "Dies ist ein Beispieltext, in dem wir nach einer Zeichenkette suchen.";
 
# Die zu suchende Zeichenkette
my $suchwort = 'Zeichenkette';
 
# Suche nach der Zeichenkette im Text mit einem regulären Ausdruck
if ($text =~ /$suchwort/){
    print "Die Zeichenkette wurde gefunden.\n";
} else {
    print "Die Zeichenkette wurde nicht gefunden.\n";
}
#In diesem Beispiel wird der reguläre Ausdruck /Zeichenkette/ verwendet, um nach der Zeichenkette "Zeichenkette" im Text zu suchen. Wenn die Zeichenkette gefunden wird, wird "Die Zeichenkette wurde gefunden." ausgegeben, andernfalls wird "Die Zeichenkette wurde nicht gefunden." ausgegeben.
 
#Perl bietet umfangreiche Möglichkeiten zur Verwendung von regulären Ausdrücken. Sie können auch Metazeichen und Quantoren verwenden, um komplexere Suchmuster zu erstellen, z.B.:
 
 
if ($text =~ /Zeich[aeiou]nkette/) {
    print "Die Zeichenkette wurde gefunden (Zeichankette oder Zeichenkette).\n";
}
 
##-----------------
 
# Dieses Beispiel sucht nach "Zeichankette" oder "Zeichenkette" im Text.
 
# Sie können reguläre Ausdrücke auch für fortgeschrittenere Suchanforderungen verwenden, wie das Extrahieren von Teilen des Textes, das Ersetzen von Zeichenketten und vieles mehr. Die Perl-Dokumentation enthält ausführliche Informationen zu regulären Ausdrücken und deren Verwendung in Perl.
 
# Hier ist ein einfaches Perl-Skript, das nach Zeichenketten in einer Textdatei sucht und die Zeilen ausgibt, in denen die Zeichenkette gefunden wurde:
 
##-----------------
#!/usr/bin/perl
 
# Dateiname der Textdatei, in der gesucht werden soll
my $dateiname = 'textdatei.txt';
 
# Die zu suchende Zeichenkette
my $suchwort = 'Suchbegriff';
 
# Öffne die Textdatei zum Lesen
open(my $datei, '<', $dateiname) or die "Kann $dateiname nicht öffnen: $!";
 
# Schleife, um die Datei Zeile für Zeile zu durchsuchen
while (my $zeile = <$datei>) {
    if ($zeile =~ /$suchwort/)
    {
        print $zeile;
    }
}
 
# Schließe die Datei
close($datei);
 
##-----------------
 
#Ersetzen Sie 'textdatei.txt' durch den tatsächlichen Namen Ihrer Textdatei und 'Suchbegriff' durch die Zeichenkette, nach der Sie suchen möchten.
 
#Speichern Sie dieses Skript in einer Datei mit der Erweiterung .pl (z.B. suche.pl) und führen Sie es auf Ihrem System aus. Das Skript liest die angegebene Textdatei Zeile für Zeile, sucht nach der angegebenen Zeichenkette und gibt die Zeilen aus, in denen die Zeichenkette gefunden wurde.
 
#Bitte beachten Sie, dass dieses Skript eine einfache Methode zur Zeichensuchung in Textdateien darstellt. Für komplexere Anforderungen könnten Sie zusätzliche Funktionen hinzufügen, wie das Ignorieren von Groß- und Kleinschreibung oder das Ausgeben der Zeilennummer, in denen die Zeichenkette gefunden wurde.