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


Just another Perl shrine
	PerlMonks

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

by Cristoforo (Curate)

on Jul 26, 2020 at 18:55 UTC ( [id://11119838]=note: print w/replies, xml )

Need Help??

in reply to Re^2: Removing a string-element from an array of strings
in thread 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]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://11119838]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others wandering the Monastery: (4)

As of 2024-04-24 18:44 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found