--- "Derek B. Smith" <[EMAIL PROTECTED]>
wrote:
> I need to substitute a conversion using chr, but
> have
> failed on multiple attempts. Basically if the first
> element contains a # then convert it. Will anyone
> advise?
>
> thank you
> derek
>
> #if first char is a-z then print it else warn
> #chop string into individual characters
>
> my @chars = unpack
> ("A1" x length($password),$password);
>
> if ($chars[0] =~ /^\D/) {
> print "Your new string is:\t",@chars,"\n";
> }
> else {
> print "string starts with number, now
> converting\n",
> @chars, "\n";
> substr($chars[0],0,1) =~
> s/\Q{$chars[0]}/{chr($chars[0]}\E/;
> print @chars;
> }
>
I will try to use the /e modifier as such:
s/(\$\w+)/$1/e;
An explanation is below:
/e
Righthand side of a s/// is code to eval
/ee
Righthand side of a s/// is a string to eval, then
run as code, and its return value eval'led again.
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
