--- "Mumia W." <[EMAIL PROTECTED]>
wrote:
> On 09/28/2006 08:16 AM, Derek B. Smith wrote:
> > --- "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.
> >
> >
>
> What does your input data look like, and what do you
> want the output to
> look like?
>
>
>
******************************************
The input data is a 6 character randomized string that
could start with a # such as 6FhJ9Z. If it does start
with a number then I need to convert this character
into its cooresponding alpha char, [a-z,A-Z].
The output data from the string 6FhJ9Z should be
[a-z,A-Z]FhJ9Z I guess what I am asking for is not
plausible after looking at the ASCII table b/c there
is no cooresponding letter for number 6. Silly me, ok
then maybe grab any [a-z,A-Z] character.
my $foo = pack("C*", 6); print $foo;
or
chr ('6');
__________________________________________________
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>
