In Array suchen und vergleichen

Computer: Software & Programmierung Perl & CGI
#1

Hallo,

ich wollte einmal eine Datei in ein Array einlesen wie z.B.

@mach0 = /(.*?)/gsm;

und in diesem Array jetzt z.B. nach einem Wort suchen wie Hallo, wenn dieses Wort gefunden wird, soll einfach wahr und sonst falsch ausgegeben werden!

Vielen Dank im Voraus und Gruss

#2

Hallo,

ich wollte einmal eine Datei in ein Array einlesen wie z.B.

@mach0 = /(.*?)/gsm;

Ich hoffe, du liest nicht so Dateien ein, übliches Vorgehen wäre z.B.

open(my $in, "datei.dat") or die "Can't read datei.dat: $!;
my @mach0 = ;
close $in;

und in diesem Array jetzt z.B. nach einem Wort suchen wie
Hallo, wenn dieses Wort gefunden wird, soll einfach wahr und
sonst falsch ausgegeben werden!

if (grep(m/Hallo/, @mach0)){
 return 1;
} else {
 return 0;
}

Grüße,
Moritz

#3

Hi,
erstmal danke für die schnelle Antwort,
doch jetzt kommt die folgende Fehlermeldung in Dos raus:

Can’t return outside a subroutine at search.pl line 53.
Damit ist die Zeile mit return 1; gemeint!

Weisst du was damit gemeint wird?

if (grep(m/Hallo/, @mach0)){
return 1;
} else {
return 0;
}

#4

Hi,
hat sich erledigt, ich habe aus return --> print gemacht und nun läuft alles perfekt, nochmals DANKEEEEEEE!

GRUSS