02.12.2012 22:07:00 • Categories: Applescript • Tags: Applescript
AppleScript: Terminal - check mail with pearl
set ret to my email_check("yourmail@domain.xy")
on emailcheck(mailadress)
-- 29. Mai 2009, 1.55 Uhr, erarbeitet von H =:o) L G I und macmissionar@gmail.com
try
return (run script (do shell script "perl -nle 'if (/^[^\,.][A-Z0-9.%+-]+[^\,.]@^\.,[A-Z]{2,4}$/i) {print \"true\"} else {print \"false\"}' <<< " & (quoted form of mailadress)))
on error fehler
return fehler
end try
end email_check