Email cimek keresese szoveges fajlokban

március 28th, 2009 | Category: Perl

Feladat: 
Készíts scriptet, ami szövegfile-okban e-mail címeket keres! A script dolgozza fel a parancssori paraméterként megadott nevű file-okat, gyűjtse ki belőlük az e-mail cím alakú szövegeket, és írja ki mindet a standard outputra (minden címet külön sorba).

 
Script:

if ($#ARGV < 0)
{
    print("Tul keves parameter");
    exit(1);
}

while ($line = <>)
{
    # Az osszes email cim alaku szoveg kiirasa ami az adott sorban talalhato
    while ($line =~ m{ S+@S+.[a-zA-z]{2,4} }xg)
    {
        print $&."n";
    }
}
Comments are off for this post