初学求助：将文档内容存入数组

jjwjack

1. ex.txt:
   
2. aa
   
3. 11
   
4. bb
   
5. 22
   
6. cc
   
7. 33
   
8. dd
   
9. 44

复制代码

代码：

1. #!perl -w
   
2. use strict;
   
3. my $name = "name.txt";
   
4. open IN, "< $name", or die "can not open $name";
   
5. while (<IN>)
   
6. {
   
7.         my @name = split /\n/, $_;
   
8.         print $name[1];#报错
   
9.         #这里是print $name[0]的话就输出aa11bb22cc33dd44
   
10. }

复制代码

我是想把ex.txt文件中的每行数据作为一个元素存入@name这个数组，但是用split处理回车后，生成的好像是把所有行合并的一个元素“aa11bb22cc33dd44”，split不是查找回车进行分割，变成一个个元素存入数组吗？

jason680

回复 1# jjwjack


1. read file data to an array directly
  my @name = <IN>;
  # chomp @name;

2. read file data each line and push it to an array
  my @name;
  while (<IN>){
    # chomp;
    push @name, $_;
    ...
  }
   

jjwjack

谢谢！每次看你的回复都会有很多启发 回复 2# jason680


   

旋转小马

2楼大神，不管什么问题一律都耐心给大家解答，学习！！！