Удалить значения в массиве

Question

Это наш массив:

my @array = ('?C=N;O=D', 
'?C=M;O=A', 
'?C=S;O=A', 
'?C=D;O=A', 
'/lab/blog/wp-content/', 
'1-list.txt', 
'2014/', 
'2015/', 
'rbxslider/', 
'slideshow-gallery/', 
'uigen_2015/' 
); 

как удалить все значения перед </lab/blog/wp-content/> значением

shift @list until (shift (@list)=~m/wp-contnet/); 

я пытался с этим способом, но без результата

Answer 1

You» re close, когда вы используете правильное имя массива и исправляете опечатку в «wp-content», но это не включает элемент «wp-content», который выглядит так, как будто вы хотите сделать. Следующие проверки первый элемент перед переключением, а не сдвигая его, а затем проверить его:

if (grep /wp-content/, @array){ 
    shift @array until $array[0] =~ /wp-content/; 
} 

print "$_\n" for @array; 

Выход:

/lab/blog/wp-content/ 
    1-list.txt 
    2014/ 
    2015/ 
    rbxslider/ 
    slideshow-gallery/ 
    uigen_2015/ 

Answer 2

my $count = 0; 
my @keep; 
foreach (@array){ 
    $count++ if m|/lab/blog/wp-content/|; 
    push @keep, $_ if $count > 0; 
} 
say foreach @keep; 

---

/lab/blog/wp-content/ 
1-list.txt 
2014/ 
2015/ 
rbxslider/ 
slideshow-gallery/ 
uigen_2015/ 

Answer 3

Другой способ:

@array = grep /wp-content/../(?!)/, @array; 

Answer 4

Закрыть.

shift @array until $array[0] =~ /wp-content/; 

Или, если есть шанс, что не может быть ничего, чтобы удалить,

while ($array[0] !~ /wp-content/) { shift @array; } 

Вы можете убедиться, что вы не цикл навсегда.

while (@array && $array[0] !~ /wp-content/) { shift @array; }