PerlGtk.pl

Programy pracujące w Naszym systemie, często zapisują informacje w plikach tekstowych, traktując wiersz jako rekord. Starają się umieścić w jednym wierszu maksymalną ilość informacji dla danej jednostki logicznej, która podzielona jest na fizyczne grupy oddzielone

znakiem dzielenia :

Każda z tych grup dotyczy innego obszaru informacji, jednak zapisana w wierszu stanowi spójną całość i tak powinna być przetwarzana. Poniżej krótki przykład wyszukiwania

#!/usr/bin/perl

while (<DATA>) {
    
    @wiersz = split(":",$_);
    
    print $wiersz[0],"\n" if $wiersz[1] =~ /66-/    
    
}


__DATA__
Jan Wielki:32-145-785-372:Kobyłkowo
Paweł Duży:66-154-836-987:Janikowo
Janina Dobra:22-569-895-785:Nizinno
Anastzja Pierwsza:33-589-965-754:Górkowo