היי!!
אני קצת תקועה ואשמח אם תוכלו לעזור לי. אני צריכה לפרויקט שלי לכתוב סקריפט ב-PERL. אני צריכה לבדוק האם במחרוזת יש תבנית כזו: .xxx@ כאשר ה-XXX יכולים להיות כל התווים, ואם כן אני צריכה לשמור את החלק הזה (ה-XXX) במחרוזת אחרת ולהדפיס אותה. מישהו יודע איך אני עושה את זה???
תודה!

מקווה שזה עונה לדרישות...

קוד:

#!/usr/bin/perl

$txt='whatever @xyz vfdvf';

$re='.*\@(...)';

if ($txt =~ m/$re/is)
{
    $result = $1;
    print "Our extracted string is: '$result' \n";
}

נמאס לכם לזכור סיסמאות? לחצו כאן!