如何删除数组中的空元素？

macgradywk

如何删除数组中的空元素？

mcshell

1. 
   
2. my  @arr = ("sdf","","sdfx"," ");
   
3. print join "\n",grep{!/^\s*[\r\n]*$/}@arr

复制代码

bikong0411

my  @arr = ("sdf","","sdfx"," ");
print join " ", grep {$_} @arr;

yun456900

my @b=grep(".+",@arr);

yun456900

my @b=grep(/.+/,@a);

yun456900

my @b=grep(/.+/,@a);

pitonas

这个有意思, 学习了！{:2_172:}
回复 3# bikong0411


   

TrishaTie

这样没有删除数组空元素吧？还是存在的：

my  @arr = ("sdf","","sdfx"," ","abd");                  
print join " ", grep {$_} @arr;

OUT：sdf sdfx   abd

pitonas

谢谢 {:2_172:} 是没有删除

1. my @arr = ( "sdf", "", "sdfx", " ", "abd" );
   
2. 
   
3. my @a = grep { /\S/ } @arr;
   
4. my @b = grep( /.+/, @arr );
   
5. my @c = grep( ".+", @arr );
   
6. my @d = grep { !/^\s*[\r\n]*$/ } @arr;
   
7. 
   
8. say join '|', @a;    # sdf|sdfx|abd
   
9. say join '|', @b;    # sdf|sdfx| |abd
   
10. say join '|', @c;    # sdf||sdfx| |abd
    
11. say join '|', @d;    # sdf|sdfx|abd

复制代码

回复 8# TrishaTie


   

bikong0411

回复 8# TrishaTie


    my  @arr = ("sdf","","sdfx"," ","abd");                  
    print join " ", grep {!/^\s*$/} @arr;