On 13.7.2016 10:37, Cizek Milan wrote:
přesně tohle je ono, tento postup s využitím open mne nenapadl.

Me taky ne. Ja perl nerad a neumim. Ale Google nejlip vi co clovek potrebuje

;-)

Dan


---------- Původní zpráva ----------
open(DAT,"/bin/df -T |") || die "Could not open the file";
while(<DAT>){
next if $. < 2; # Skip first line
my @line = split;
print "$line[1]|$line[6]\n";
}
close(DAT);



--
FreeBSD mailing list ([email protected])
http://www.freebsd.cz/listserv/listinfo/users-l

Odpovedet emailem