#!/usr/bin/perl -W

# TP texte en perl
#
# Question I - 1
# version naïve
# 
# Antoine Miné
# 26/01/2007

if ($#ARGV<0) 
{
    # on n'a pas d'argument
    while ($line = <STDIN>) { print $line; }
}
else
{
    # on a des arguments => on boucle dessus
    for $i (@ARGV) 
    {
	# si open échoue, on affiche la cause de l'erreur
	open (FILE,"$i") or die "$i :$!";
	# on boucle maintenant sur les lignes du fichier
	while ($line = <FILE>) { print $line; }
	close FILE
    }
}
