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

MikoPiko

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

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

eyalbd

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

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