Karyn Williams wrote:
> This is probably very simple, but I'm not seeing it. I want to do the
> following:
>
>
> my $lfirst = $first;
> $lfirst =~ s/[^a-zA-Z]//g;
>
> in one line. I tried :
>
> my $lfirst = ($first =~ s/[^a-zA-Z]//g);
>
> but it returned either a blank or null.
>
> I want to
> -Original Message-
> From: Karyn Williams [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, April 17, 2007 15:14
> To: Perl Beginners
> Subject: substitute and assign in one line
>
> This is probably very simple, but I'm not seeing it. I want to do the
> following:
>
>
> my $lfirst = $first;
This is probably very simple, but I'm not seeing it. I want to do the
following:
my $lfirst = $first;
$lfirst =~ s/[^a-zA-Z]//g;
in one line. I tried :
my $lfirst = ($first =~ s/[^a-zA-Z]//g);
but it returned either a blank or null.
I want to maintain the state of $first and store the alpha
On Mon, 16 Apr 2007 11:04:09 +0800
"Jeff Pang" <[EMAIL PROTECTED]> wrote:
> I wrote a simple socket server which get the listen socket like below,
>
> my $socket = IO::Socket::INET->new(
>LocalAddr => xxx.xxx.xxx.xxx,
>
