Date: Fri, 18 Jun 2004 20:22:38 -0400 From: Andy Harrison <aharrison@gmail.com> To: barbish3@adelphia.net Cc: "freebsd-questions@FreeBSD. ORG" <freebsd-questions@freebsd.org> Subject: Re: perl ? Message-ID: <a22ff29404061817224475c5a6@mail.gmail.com> In-Reply-To: <MIEPLLIBMLEEABPDBIEGIEDAGDAA.Barbish3@adelphia.net> References: <MIEPLLIBMLEEABPDBIEGIEDAGDAA.Barbish3@adelphia.net>
next in thread | previous in thread | raw e-mail | index | archive | help
On Fri, 18 Jun 2004 16:34:38 -0400, JJB <barbish3@adelphia.net> wrote:
>
> I have $email field that sometimes may not end with alpha character.
>
> How would I code if (last position of $email != alpha) { replace
> last pos of $email with blank }
>
> Or any other coding method to strip off non alpha from $email field
> if present.
>
> Thanks
>
> _______________________________________________
> freebsd-questions@freebsd.org mailing list
> http://lists.freebsd.org/mailman/listinfo/freebsd-questions
> To unsubscribe, send any mail to "freebsd-questions-unsubscribe@freebsd.org"
>
Something along the lines of:
my @foo = split( //, $email );
and then do one of these,
pop @foo unless $foo[-1] =~ /[a-zA-Z]/;
or to really want to replace it with a space,
$foo[-1] =~ " " unless $foo[-1] =~ /[a-zA-Z]
--
Andy Harrison
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?a22ff29404061817224475c5a6>