חיפוש מחרוזת בPERL

[MikoPiko]

חיפוש מחרוזת בPERL

אממ אני מנסה לחבר את הבוט שלי לאיזשהו מקום הבעיה היא שהוא לא מצליח לקבל את הפינג מהשרת בגלל שהוא מערובב עם כל מיני מחרוזות אז אני רוצה לדעת איך אפשר לחפש את המילה PING וככה אני אוכל לקחת את הקוד שאחרי זה ולשלוח PONG חזרה תודה...

 

[eyalbd]

תשתמש באופרטור //m

למשל:

$scalar= "Hello ping"; if ($scalar =~ m/ping/) { reply_to_server("pong"); } else { print "No ping in $scalar\n"; }​