Looking for lidt hjælp. Jeg har brug for at søge efter en streng af ord, men desværre er disse ord ligger på separate linjer.

for eksempel teksten output er:

United
Chanmpions
Ronaldo
Liverpool
Tabere
Torres


og min script kode er

print ( "Debug - kontrol fil besked");
while (<FILE>) (
$ line \u003d $ _;

if ($ line \u003d ~ / United /) (
print ( "\ nAbout til at sende e-mail \ n");
sendEmail ($ kontakter,
"",
"Kontrol",
"\ nVenligst være klar over, at der er et problem."
"",
"");
)

ovenstående script vil sende en e-mail, når det lokaliserer Forenede, men jeg er nødt til at sende en e-mail, når det bliver United Champions Ronaldo.

Jeg tænkte noget i retning af
if ($ line \u003d ~ / United / n Champions / n Ronaldo /)

Men ingen held.

Nogen forslag til, hvordan man kan gå om.

$ line \u003d ~ / (Forenede | Chanmpions | Ronaldo | LiverpoolLosers | Torres) / i

Hi photon, Tak for svaret.
Men ikke helt, hvad jeg forsøger at gøre, jeg problemer kunne have forklaret det lidt bedre.

Mit problem er, at jeg kun ønsker at sende en e-mail, hvis linjer
United
Champions
Ronaldo
forekomme direkte efter hinanden som i.

prøve tekstfil

United
Chanmpions
Ronaldo
Liverpool
Tabere
Torres


I dont vil sende en e-mail kun hvis ordene er placeret i filen f.eks I dont vil sende en e-mail, hvis tekstfil er

United
Champions
Torres
Liverpool
Tabere
Ronaldo

som linjerne im interesserede dont forekomme i den rigtige rækkefølge.

$ line \u003d ~ / [United]? \ s? [Chanmpions]? \ s? [Ronaldo]? \ s? /

Ovenstående kode er forkert, da det er en forkert brug af karakter klasser: [], som matcher nogen af de tegn, inde i kantede parenteser i vilkårlig rækkefølge. Du kan ikke bruge dem til at matche hele ord, i hvert fald ikke let eller effciently eller i den måde, de anvendes ovenfor. Plus at ville se også kun en linje i filen på et tidspunkt.

Jeg har ændret det, var at bruge en foring regulære udtryk i stedet for at bruge hashes og sløjfer og få alle komplekse. Jeg ville ønske jeg havde tid til at teste alle min kode, men jeg er på arbejde tid.

To metoder ....

1. Søg efter et af de ord på hver linje og hver gang du finder en, skal du føje den til en hash ... f.eks $ somehash ( "Renaldo") \u003d 1;

Når du er færdig med at scanne hele dossier, kontrollerer den resulterende hash for eksistensen af alle de ord ....

if (findes $ somehash ( "Renaldo") & & findes $ somehash ( "loosers") & & findes ...) (sende e-post ... )

Noget i den retning ....

ELLER ....

Du kan prøve et mønster som

$ FILEBUFFER \u003d ~ / (A | B | C | D). + (A | B | C | D). + (A | B | C | D ).... / er

Du skal blot gentage alternativer igen og igen adskilt af en eller flere af alle tegn, og på den måde du fange dem alle, hvis der ikke er ligegyldigt hvad den rækkefølge .... Du er nødt til at prøve den resulterende fange for at se, om alle ord er til stede ... Bemærk de "er" i slutningen af det mønster ... "I" årsager tilfælde bliver ignoreret, og "s", siger at tælle en newline som en af de "tegn", som giver dig mulighed for at matche hele linjer ... Bemærk, at i dette tilfælde $ FILEBUFFER indeholder samtlige sagsakter (se READ ()), ikke en linje ....