Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re^2: Removing chars from a word from an array

by blazar (Canon)
on Jan 24, 2006 at 16:20 UTC ( #525226=note: print w/ replies, xml ) Need Help??


in reply to Re: Removing chars from a word from an array
in thread Removing chars from a word from an array

my @list= qw(a b c a c); my $w="kandabbbc"; while (my $a=shift(@list)) { $w=~s/\Q$a//; @list = grep {!/\Q$a/} @list; } print $w;

OMG! while and grep to iterate over @list... ok, TMTOWTDI, but then how 'bout a for loop? Also, who told you that @list has duplicates? In any case, if so, then a technique a la'

my %saw; for (@list) { next if $saw{$_}++; # ... }

would suffice. Also, don't you think s///g would be better suited to remove chars from his string?

Incidentally to remove charachters, the best tool would be tr///d a.k.a y///d, but unfortunately it does not interpolate - I don't know if it would be worth to use the usual eval trick to work around this limitation. The OP may still want to know just in case he really knew @list in advance and did not need to delete chars dinamically.

my @list= qw(a b c a c); my $re = join '|', @list;

How 'bout using a charachter class instead? That is:

my $re=join "", @list; $re="[$re]";


Comment on Re^2: Removing chars from a word from an array
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://525226]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (5)
As of 2014-09-20 21:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (163 votes), past polls