You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

15 lines
210 B

#!/usr/bin/perl -w
use strict;
my $nb=0;
open(LS,"ls -l |") || die "$!";
while (<LS>)
{
print ;
$nb++;
}
close(LS);
$nb--; # à cause de la première ligne qui indique le total
print "nb d'objets : $nb\n";