Perl - P°φklad 10
11. listopadu 1998 xskrivan@fi.muni.cz


Zadßnφ

Je dßn textov² soubor s nßsledujφcφ strukturou °ßdk∙:
Jan:Novßk:xnovak87
Petr:Nov²:xnovy46
Ji°φ:NovßΦek:xnovac18

jednotlivΘ zßznamy jsou na ka₧dΘm novΘm °ßdku, polo₧ky jsou od sebe odd∞leny dvojteΦkou.
NapiÜte program, kter² tento soubor vypφÜe ve formßtu:
U₧ivatel Novßk Jan mß login xnovak87
U₧ivatel Nov² Petr mß login xnovy46
atd.


╪eÜenφ

 
 #!/usr/bin/perl

 open SOUBOR, 'seznam.txt' or die "Nelze otev°φt soubor seznam.txt \n";

 while (<SOUBOR>) {
  
  ($jmeno, $prijmeni, $login) = split /:/;
  print "U₧ivatel $jmeno $prijmeni mß login $login \n";
 }

 close SOUBOR;






[Zp∞t] [Zm∞na k≤dovßnφ] [Domovskß strßnka] á[StromeΦek]