Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re: tr operator in eval

by AnomalousMonk (Bishop)
on Sep 26, 2020 at 03:15 UTC ( #11122228=note: print w/replies, xml ) Need Help??

in reply to tr operator in eval -- updated

tr does not interpolate.

Win8 Strawberry (64) Fri 09/25/2020 23:09:19 C:\@Work\Perl\monks >perl my $kards = -99; my $bad='$card$card'; my $card='K'; eval {print "eval is testing for $card in $bad \n"; $kards = $bad =~ tr/$card//; # tried also tr/$card/$card/; same + bad result. }; print "1: Num of $card in $bad = $kards \n"; $king = $bad =~ tr/$card//; print "2: Num of K in $bad is = $king \n"; __END__ eval is testing for K in $card$card 1: Num of K in $card$card = 10 2: Num of K in $card$card is = 10
Here, tr is counting the number of characters in the '$cards' literal character set that are in the $bad string.

Give a man a fish:  <%-{-{-{-<

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (2)
As of 2021-06-20 03:20 GMT
Find Nodes?
    Voting Booth?
    What does the "s" stand for in "perls"? (Whence perls)

    Results (94 votes). Check out past polls.