读入一行，如何分割（已解决，谢谢大家）

rubyish

回复  IT-庸才


    my @str_ar=join("\n",split(/\s+/,$str));

IT-庸才 发表于 2011-10-20 16:58

    my @str_ar=join("\n",split(/\s+/,$str));

1. my $str_ar = join( "\n", split( /\s+/, $str ) );    # 生成 a string
   
2. my @str_ar = split /\s+/, $str;                     # 生成 an array

复制代码

perlnewbie

1. my @array=map {split}<DATA>;

复制代码

IT-庸才

--不知是否理解对了LZ的意思~~

  open LIST,"/home/filelist" or die "can't open it!";
       foreac ...
Kitaisky 发表于 2011-10-21 01:20

    非常感谢 啊~map 可以的 问题解决了~