Could you help I am not doing what I'm surpose to
With the code below I'm trying to do the following:
-Open a file, creating it if necessary
-Print a name in file every time someone presses "enter"
-Print a new line
-Seek to the begining of file without closing file
-and print the file to STDOUT
----------------------------------------------------------------------------------------------------------
#!/usr/bin/perl -w
open(INFILE,"+>>inline") || die "Could not open filename";
open(OUTFILE,"+>>outline") || die "Could not open filename";
my $inline = <STDIN>; chop($inline);
print OUTFILE "$inline\n";
close(INFILE);
close(OUTFILE);
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
