On Mon, 18 Feb 2002 16:18:27 +0200, [EMAIL PROTECTED] (Bruce Ambraal) wrote:
>Hi > >Could someone help? > >the following code is not working. > >open(INPUT_FILE,"+>fixed.dat") || die "Could not open filename"; >while (<STDIN>) { >print INPUT_FILE "bruce\n"; >} >close(INPUT_FILE); Try unquoting bruce: open(INPUT_FILE,"+>fixed.dat") || die "Could not open filename"; while (<STDIN>) { print INPUT_FILE bruce,"\n"; } close(INPUT_FILE); you can get your STDIN instead of "bruce" with open(INPUT_FILE,"+>fixed.dat") || die "Could not open filename"; while (<STDIN>) { print INPUT_FILE $_,"\n"; } close(INPUT_FILE); -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]