#!/usr/bin/perl use strict; # https://perlmonks.org/?node_id=11122227 use warnings; my $kards = -99; my $bad="AKQJT98765432KKKK"; my $card='K'; # this next bit works. xtr is just so I can print what eval is eval in +g. my $xtr = "$bad =~ tr/$card//;" ; $kards = eval "\$bad =~ tr/$card//"; # missing \ , no ; needed inside +eval print "xtr kards = $kards from eval cmd : $xtr\n";
In reply to Re: tr operator in eval -- updated
by tybalt89
in thread tr operator in eval -- updated
by pgmer6809
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |