ファイルからデータを読み込んで配列に格納するには

読んでいただいてありがとうございます。

Perlをはじめたばかりなのと　プログラミング自体もまだまだですので
困っております。

テキストデータ　例えば

apple りんご
banana バナナ
orange オレンジ

などというファイルから読み込んで、

my $data ={
my @english,
my @japanese,
};

などの、配列の構造体に格納するにはどのようにしたら
よいのでしょうか。

最初、本を少し読んだだけの知識で、

use strict;
use warnings;

my $filename = 'data.txt';

my $data = {
my @english,
my @japanese
};

open(IN,$filename) or die "$filename: $!";
while(my $line=<IN>){
for(my $i=0;$i<N;$i++){
($data->{@english}[$i],$data->{@japanese}[$i])=split(/ /,$line);
print "$data->{@english}[$i]\n";
}
}
close(IN);
}

などと書いて、

apple
banana
orange

と表示されるのを期待したのですが、
ダメでした。

参考までに私の誤ったプログラムものせましたが、
全然違っているかもしれませんので、まったく新たに
アドバイスしていただいてもかまいません。

これを応用したものを使いたいので　ぜひともどなたかお教え
いただければと思います。
よろしくお願いします。

No.3 ベストアンサー 回答者： kodomo55 回答日時： 2008/12/18 21:35

#1です。

大した回答になっていなかったので、再投稿します。
Perlを学んで数日ということで、サンプルコードを載せておきます。

use strict;
use warnings;

my (@english, @japanese);
open IN, "<data.txt" or die $!;
flock IN, 1;
while (<IN>) {
chomp;
split(/\s+/);
push @english, $_[0];
push @japanese, $_[1];
}
close IN;

my $data = { english => [@english], japanese => [@japanese] };
print $data->{japanese}[1];

最初は、@english と @japanese それぞれの配列に入れています。
最後に、お望みの形にする為に、$dataに格納しています。

No.4 回答者： y0OilIo1lm 回答日時： 2008/12/20 11:35

"...などの、配列の構造体に格納"ということから、

恐らく、ハッシュ（いわゆる連想配列）に格納したい、
ということのなのでしょうね。

ハッシュ変数は頭に "%" をつけたものです。
もしそれをご存知ないようでしたら
まずそこまで勉強されるのがよいでしょう。

ハッシュに特化した関数がいろいろあり簡単に記述できます。

No.2 回答者： Werner 回答日時： 2008/12/18 02:38

テキストデータから読み込まずに

Perlコードに直書きで配列に格納した状態にすることはできますか？
なんか、そのコード見てると読み込む以前の所から怪しい気がしたもので…。

この回答へのお礼

そうなのです。。。Perl初めて２、３日なもので。。。その状態で
プログラムを書いていると
何があっていて何が間違っているのか分からず。。。

今は例というか　練習として上記のような少しのデータでしたが、
実際に扱うことになるのは大量のデータが入ったファイルなので
ファイルから読み込んで配列に格納するということがしたかったのです
(>_<)

お礼日時：2008/12/18 09:17

No.1 回答者： kodomo55 回答日時： 2008/12/17 22:10

このプログラムには致命的な点があります。

$data = { } の意味をもう一度学習されると良いでしょう。
これは、無名ハッシュのリファレンスです。

ハッシュなのに my @english, my @japanese を格納しても意味がありませんので、
ここは、$data = { english => undef, japanese => undef } などとして、$data->{english}[$i] 等として使うと良いかもしれません。
ややこしいなら、リファレンスを使わずに書いてみましょう。