WEB相談室

Webページ作成に関しての何でも掲示板です。

タイトル:PerlでのファイルOPEN

0:[投稿] つぐみ [2003/02/26 18:17 ][環境:UNIX UNIX,Perl]

Perlにてファイルをオープンする際に特定の行数だけを読み
込みたいと思い、次のようにしてみました。

例:上から10行目まで読み込む

open(IN, "test.tsv");
   while ($i <= 10 ) {
       $i ++;
       ($name, $tel) = split (/\t+/, $_);
       print "$_\n";
   }
close(IN);

しかし変数 $_ の中には何も入っていません・・・
特定の行数だけ読み込ませたい場合どのようにすれば
良いのでしょうか?ご存知の方ご教授お願いしますm(__)m


1:[回答] やじうま1号 [2003/02/26 18:22 ]

ファイルを開いただけでは、読み込んでいないのです。
これを、
open(IN, "test.tsv");
  while(<IN>){
      last if($i <= 10);
      $i ++;
      ($name, $tel) = split (/\t+/, $_);
      print "$_\n";
  }
close(IN);

とすれば、うまくいきます。

#while($_ = <IN>){ 〜 }
#と同じ事です。


2:[完了] つぐみ [2003/02/26 18:51 ]

やじうま1号さん〜

ご回答ありがとうございます。
めちゃ早くご回答頂けたので、とってもうれしかったです。

ご教授頂いた方法で解決しましたー(^ ^)!

回答(必須): 状態:

お名前(必須):

e-mail:

URL:




[戻る]

ChaichanPAPA's World