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

IT-庸才

文件里面有一行字符  10 30 st mmmmm     行首和行尾都有可能有空格，中间是空格分开，如何写才能达到输出效果如下：
10
30
st
mmmmm

求教  

dgtnk

1. say join("\n", split);

复制代码

IT-庸才

楼上确实达到了效果，楼主本意是想将他们分别作为一个元素入数组的，还有其他办法么？~非常感谢~

ioerr

用split不行么？是不是mm中间没有空格？正则表达式使用s///和^$配合下去掉开头结尾的空格。代码我写不出，得查书去

顺便抗议2楼头像，眼疼

IT-庸才

回复 4# ioerr


    是的，mm之间没有空格，split努力了几次搞不定~

ioerr

回复 5# IT-庸才


    循环下，给每个数组数据加个“\n”或者输出的时候加不行么？我这法子笨，呵呵，自己初级莫笑

IT-庸才

回复 6# ioerr


    试过了，join 出来后他直接以一个元素的形式赋值了

ioerr

回复 7# IT-庸才


    把你代码贴出来我看看行么？

IT-庸才

回复 8# ioerr


    open LIST,"/home/filelist" or die "can't open it!";
    foreach my $str (<LIST>{
    my @str_ar=join("\n",split(/\s+/,$str));
    foreach (@str_ar){
    print "$_\n";
    }
    }

打印出来你会发现只有最后一个输出时有一个换行，每个元素之间是没有换行的，求解~
PS:filelist是例如上面的行字符

Kitaisky

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

  open LIST,"/home/filelist" or die "can't open it!";
       foreach my $str (<LIST> {
       $str=~s/^\s+//; $str=~/\s+$//;
       my @str_ar = map "$_\n", split();
       # print for (@str_ar);
   }