#!/usr/bin/perl -W

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


if ($#ARGV<0) 
{ 
    # cas sans argument
    # - est un nom de fichier spécial correspondant à l'entrée standard
    @ARGV = ("-"); 
}

for $i (@ARGV) 
{
    open (FILE,"$i") or die "$i :$!";
    while (<FILE>) 
    { 
	# la variable $_ est utilisée par défaut dans <FILE> et dans print
	print; 
    }
    close FILE
}