module File::Copy

[COLLINEAU Franck FTRD/DMI/TAM]

Hello!

I have a problem with this code:

#!/usr/bin/perl -w
use File::Copy;
open (CONCAT,"lmi/concat.htm") || die "impossible d'ouvrir concat.htm:
$!\n";
open (CONCAT2,">lmi/concat2.htm") || die "impossible d'ouvrir concat2.htm:
$!\n";
while(<CONCAT>)
{
        s/<CENTER>//i;
        print (CONCAT2 $_);
}
 close (CONCAT);
 close (CONCAT2);
copy("lmi/concat.htm","lmi/concat2.htm");
unlink("lmi/concat2.htm");


there are two problems: the instruction s/<CENTER>//i doesn't work and
copying files doesn't work too.

can anybody help me ?

Thanks 

Franck

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]