Re^3: Removing a string-element from an array of strings

As LanX said, you need to use quotemeta(or \Q) for the parentheses.

Here might be what you want.

#!/usr/bin/perl
use strict;
use warnings;

my @history = ( "Cache::SizeAwareMemoryCache(3)" , "dhcp-options(5)" ,
+ "BN_add_word(3)" , "audit-packages(8)" );
my $choice = "dhcp-options(5)";

@history = grep !/\Q$choice\E/, @history; # '\Q' to quotemeta
push @history, $choice;

print "@history";
[download]

Prints:


C:\Old_Data\perlp>perl test3.pl
Cache::SizeAwareMemoryCache(3) BN_add_word(3) audit-packages(8) dhcp-o
+ptions(5)
C:\Old_Data\perlp>
[download]

Comment on Re^3: Removing a string-element from an array of strings Select or Download Code

Replies are listed 'Best First'.
Re^4: Removing a string-element from an array of strings by AnomalousMonk (Archbishop) on Jul 26, 2020 at 21:35 UTC
`push @history, $choice;` What if the `$choice` was not found in the `@history` array? Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]