http://qs321.pair.com?node_id=95793


in reply to File Input and Output

need small help, when i am trying to read from the file and write to the file it is working perfect, but when i am trying to read from the key board and write to the file the file is not being written. There are no problems with opening files i guess. can u help.. sorry for asking such trivial question. and if u know of any message board for perl please let me know so that i may post my questions there in future.. n here is my code... _______________ 

#!/usr/bin/perl -w

#open(IN, "input.txt");
open(OUT, ">out.txt");

while( <STDIN>)
{
        print $_;
        print OUT $_;
}

#close (IN);
close (OUT);

[download]
______________________ thanks Gariki.

Replies are listed 'Best First'.
Re: Re: File Input and Output
by marlowe (Beadle) on Feb 06, 2002 at 02:10 UTC 
    try this.

#!/usr/bin/perl -w

use strict;

my $output_file = "out.txt";
my $user_input = "";
my $quit_code = "quit\n";

open(OUTPUT, ">$output_file) ||
   die "Unable to open $output_file for writing: $!\n";

while ($user_input ne $quit_code)
{
   print "Enter some text: ";
   $user_input = <STDIN>;
   print OUTPUT $user_input;
}

close(OUTPUT) ||
   die "Unable to close $output_file: $!\n;

    [download]
[reply]
[d/l]

In Section Tutorials