如何刪除數(shù)組中的空元素？

macgradywk

如何刪除數(shù)組中的空元素？

mcshell

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

復(fù)制代碼

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

這個(gè)有意思, 學(xué)習(xí)了！{:2_172:}
回復(fù) 3# bikong0411


   

TrishaTie

這樣沒(méi)有刪除數(shù)組空元素吧？還是存在的：

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

OUT：sdf sdfx   abd

pitonas

謝謝 {:2_172:} 是沒(méi)有刪除

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

復(fù)制代碼

回復(fù) 8# TrishaTie


   

bikong0411

回復(fù) 8# TrishaTie


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