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);
}
close TEMP;
--
Djoko Priyono
System Programmer
PT Dyviacom Intrabumi Tbk.
Batavia Tower 6th Floor
Jl. KH Mas Mansyur Kav. 126
Jakarta - Indonesia
On Tuesday 20 November 2001 08:57 pm, you wrote:
> Hi!
>
> I have the follwing code:
>
> #!/usr/bin/perl -w
> open(FIC,"/home/collineau/Perl/Programmes/01_informatique/sauve/c0111_05.ht
>m")
>
> || die "Impossible d'ouvrir $!\n";
>
> open
> (TEMP,">/home/collineau/Perl/Programmes/01_informatique/sauve/temp.htm")
>
> || die "Impossible d'ouvrir $!\n";
>
> while (<FIC>)
> {
> print (TEMP $_);
>
> }
>
>
>
> The temp.htm file is empty !!
>
> Can anybody help me ?
>
>
> Franck
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
