Perl - P°φklad 10 11. listopadu 1998 xskrivan@fi.muni.cz |
#!/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] |