in reply to I need to read data from an array and write into a text file

See open for info on opening a file.

my @array = qw(some data you want to print to a file);
open(my $fh, '>', '/path/to/a/text/file.txt') || die "could not open o
+utput file : $!\n";
print $fh @array;
close($fh);

[download]

That will wirte the array to the file. If you'd like to append data to the end of the file rather than over writing it:

open(my $fh, '>>', '/path/to/a/text/file.txt') || die "could not open 
+output file : $!\n";

[download]

Hope that helps

A truely compassionate attitude towards other does not change, even if they behave negatively or hurt you

—His Holiness, The Dalai Lama

Replies are listed 'Best First'.
Re^2: I need to read data from an array and write into a text file
by Anonymous Monk on Mar 11, 2005 at 20:12 UTC
    Thanks your help, that worked great... The only thing I need to do is to add a NewLine for every data. I couldn't handle with that print statement. Thanks your help again.
[reply]

      This will add the new lines between each element of the array.

      my @array = qw(some data you want to print to a file);
open(my $fh, '>', '/path/to/a/text/file.txt') || die "could not open o
+utput file : $!\n";
print $fh join("\n", @array);
close($fh);

      [download]

      See join

      Update: you could also do this:

      my @array = qw(some data you want to print to a file);
open(my $fh, '>', '/path/to/a/text/file.txt') || die "could not open o
+utput file : $!\n";
{
   local $, = "\n";
   print $fh @array;
}
close($fh);

      [download]

      See: perlvar. Sorry I had the wrong variable there originally... hence the update.

      A truely compassionate attitude towards other does not change, even if they behave negatively or hurt you

      —His Holiness, The Dalai Lama

[reply]
[d/l]
[select]
        Thanks very much for your help, now everything works great...
[reply]

In Section Seekers of Perl Wisdom