Chris Zampese wrote: > > From: "John W. Krahn" <[EMAIL PROTECTED]> > > > > use File::Copy; > > > > open OLD, "< $old" or die "Cannot open '$old' $!"; > > binmode OLD; > > open NEW, "> $new" or die "Cannot open '$new' $!"; > > binmode NEW; > > copy( \*OLD, \*NEW ) or die "Cannot copy '$old' to '$new' $!"; > > This worked the first time, but when I tried it again, it copied one less > line than it should?? Could it be something to do with newlines or eof or > something?? Very confused!
Did you close the file handles before the second time? I'm not running Windows so I can't test it. John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
