some-usable-scripts/tube.pl

15 lines
210 B
Perl
Raw Normal View History

2011-02-03 13:47:29 +01:00
#!/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";