#!/usr/bin/perl

$filename = shift;

if ( ! -f "$filename" ) {
	print "\nIl faut donner le nom d'un fichier existant comme argument !\n\n";
	exit;
}

$ll = `ls -l $filename`;

print "\nAffichage produit par la commande 'ls -l $filename' : \n\n";

print $ll;
print "\n";
chomp $ll;
@ll = split (/ /,$ll);

print "\nAffichage du contenu des composantes du vecteur produit par un split sur cet affichage,\n";
print "précédé de l'indice de ces composantes : \n\n";
$cpt = 0;
# initialisation à zéro, sinon sera interprété comme string vide 
# à l'affichage de la ligne 26
# avant que l'incrémentation (ligne 28) n'impose le contexte numérique
foreach (@ll) {
	print "$cpt\t$_";
	print "\n";
	$cpt++;
}

$length = $ll[4]; 
print "\nAffichage du contenu de la composantes d'indice 4 : \n";
print "C'est la longueur du fichier en question : \n";
print "\n";
print $length;
print "\n";
print "\n";

$name = $ll[7]; 
print "\nAffichage du contenu de la composantes d'indice 7 : \n";
print "C'est le nom du fichier en question : \n";
print "\n";
print $name;
print "\n";
print "\n";