Dotaz: Odesílání sms - PERL

[mdrapal]

Příloha:

• Email2SMS-1.pl (4443 bytů)

Zdravím,

měl bych dotaz. Mám scrip, který přečte mail, oveří zda je v předmětu číslo a pak odešle tělo zprávy jako sms. Zasekl jsem se na tom, že pokud chci sms odeslat na více čísel, která jsou vložena v předmětu mailu a oddělena mezerou tak mi to zahlásí chybu. Na jedno číslo to odesílá v pohodě...nevíte někdo jak nadefinovat podmínku, která by zaručila, že bude sms odeslána na více čísel uvedených v předmětu a oddělenýh mezerami?

Díky.

---

---

Odpovědi

[petris_]

$sms_to =~ /^\+?\d+(?: \+?\d+)*$/

[happy barney]

for my $sms_to (grep /^\d+$/, split /\s+/, $sms_to) {
    ....
}