Djoko Priyono wrote:
>
> Franck, maybe you can try below :
>
> #!/usr/bin/perl -w
>
> open(FIC,"/home/collineau/Perl/Programmes/01_informatique/sauve/c0111_05.htm")
> || die "Impossible d'ouvrir $!\n";
> @template = <FIC>;
> close FIC;
> open (TEMP,">/home/collineau/Perl/Programmes/01_informatique/sauve/temp.htm")
> || die "Impossible d'ouvrir $!\n";
>
> foreach $template(@template) {
> print (TEMP,$template);
^
print() doesn't expect a comma after the file handle.
> }
> close TEMP;
Or more simply:
#!/usr/bin/perl -w
use strict;
open(FIC,"/home/collineau/Perl/Programmes/01_informatique/sauve/c0111_05.htm")
|| die "Impossible d'ouvrir $!\n";
open(TEMP,">/home/collineau/Perl/Programmes/01_informatique/sauve/temp.htm")
|| die "Impossible d'ouvrir $!\n";
print TEMP <FIC>;
close TEMP;
close FIC;
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
