perl -write values in a file to @array in perl

meghana · #1 (**permalink**) 02-04-2008

Hi

can anyone suggest me how to write a file containing values,... say

19
20
21
22
..
40

to an array @array = (19, 20, ... 40)

-- Thanks

matrixmadhan · #2 (**permalink**) 02-04-2008

Code:

open(FILE, "<", "file");

while(<FILE>) {
  chomp;
  push(@arr, $_);
}

close(FILE);

meghana · #3 (**permalink**) 02-04-2008

thanks for the reply.. but it dint work... do u have any further suggestions???

matrixmadhan · #4 (**permalink**) 02-04-2008

Quote:

Originally Posted by meghana

thanks for the reply.. but it dint work... do u have any further suggestions???

Why it didn't work ?

What is the expected output ?

Do you want to print the array elements ? If so, add the following snippet at the end

Code:

foreach(@arr) {
  print "array element: $_\n";
}

meghana · #5 (**permalink**) 02-04-2008

i dont know but.. this one worked for me...

open(FILE, "<", "tmpfile");
my @values = <FILE>;
close(FILE);

i just wanted to write the values of a file into @array... but still.. ur example helped me as a start point... appreciate it.. thanks again...

meghana · #6 (**permalink**) 02-04-2008

can you help me on this... i try to print them($count, $last_rec) in two different lines but they get printed in one line if i use this script.....

open (fh,">>","file");
print fh "$count";
print fh "$last_rec";
close(fh);

can you suggest any solution for this...thanks

matrixmadhan · #7 (**permalink**) 02-04-2008

Quote:

Originally Posted by meghana

i dont know but.. this one worked for me...

open(FILE, "<", "tmpfile");
my @values = <FILE>;
close(FILE);

i just wanted to write the values of a file into @array... but still.. ur example helped me as a start point... appreciate it.. thanks again...

Well, this is also one of the way to do that.

The other one I had posted should also work

More UNIX and Linux Forum Topics You Might Find Helpful
Thread	Thread Starter	Forum	Replies	Last Post
How to store values into variable in perl	chittiprasad15	Linux	3	05-08-2008 12:21 AM
Need help to write a Perl script	user_prady	Shell Programming and Scripting	10	03-26-2008 02:38 AM
how to get last value in an array in perl	meghana	Shell Programming and Scripting	7	02-04-2008 05:12 PM
formating array file output using perl	seismic_willy	Shell Programming and Scripting	4	03-22-2007 02:23 AM
need help to write perl code	getdpg	Shell Programming and Scripting	0	09-20-2006 09:24 AM

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode	Rate This Thread: