Dear All:
Question:
How come the length of Chinese word I print shows “ 3 “.
Isn’t it supposed to 2 bytes?
Program:
---
$str=”我”;
$str_len = length($str);
Print $str_len, “\n\n”;
The result is 3
I took a pictur
’?
What for?
What is the benefit?
Thanks again.
_
From: Thomas Yan [mailto:[EMAIL PROTECTED]
Sent: Wednesday, May 16, 2007 2:14 PM
To: Neil; beginners@perl.org
Subject: Re: Chinese word problem
'我' takes 2 bytes '\0' takes 1 byte , so "我“
It's wired!
I did the same thing and got the result of 3
perl -le 'print length("我")'
3
Pls see the attachment
Thank you.
-Original Message-
From: Jeff Pang [mailto:[EMAIL PROTECTED]
Sent: Wednesday, May 16, 2007 2:40 PM
To: Thomas Yan
Cc: Neil; beginners@perl
rd locale ("C").
3
[EMAIL PROTECTED] perlPratice]#
---
-Original Message-
From: Jeff Pang [mailto:[EMAIL PROTECTED]
Sent: Wednesday, May 16, 2007 3:22 PM
To: Neil
Cc: 'Thomas Yan'; beginn
computer's (all intel x86) all got the
same result 3
, so I still got no clued.
Thank you.
Best Regard
Neil
-Original Message-
From: Jeff Pang [mailto:[EMAIL PROTECTED]
Sent: Thursday, May 17, 2007 10:22 AM
To: Perl Beginners
Subject: Re: Chinese word problem
Neil 写道:
> I did chec
Use 'mail [EMAIL PROTECTED] -s Subject:whatever'
cheers
Neil Fryer
Solaris Systems Administrator
[EMAIL PROTECTED]
-Original Message-
From: Mohammed Maraikayar [mailto:[EMAIL PROTECTED]]
Sent: 26 July 2001 02:48
To: [EMAIL PROTECTED]
Subject: SENDMAIL
anyone has an idea h
open(FH,"your_file.txt") || die $!;
my @tmp = readline(*FH); #this will read each line in your file
my @second_row = split(/,/,join('',$tmp[1]),"\n"); #just look at the
second row
print($second_row[2]); #third element in array
close(FH);
-Original Message-
From: [EMAI
And greets from Johannesburg in South Africa as well.
Regards
Neil Fryer
[EMAIL PROTECTED]
On Tuesday 13 November 2001 09:21 am, Robert Graham wrote:
> Good morning from Pretoria, in sunny South Africa
>
> > By reading the messages everyday I can guess most of us are from Unite
Greetings,
This is my first post on the group, so here it goes
What are the best resources for a young developer beginning to develop
web applications with Perl?
Respectfully,
Neil
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http
(<>) {
if (/^begin$/) {
die "begin inside block!\n" if $in_block;
$in_block = 1;
push(@blocks, '');
next;
}
if (/^end$/) {
die "end outside of a block!\n" unless $in_block;
$in_block = 0;
next;
}
$blocks[-1] .= $_ if $in_block;
}
Cheers,
Neil
by changing your
print line to:
print $1 // $2, "\n";
Another suggestion: the regex is easier to read if you use a different regex
delimiter:
m!ldap:///(.+)|mailto:(.+)!;
Cheers,
Neil
I agree about starting with Learning Perl. It so happens that a new
edition is about to become available. The following URL is from The
Learning Perl website:
https://www.learning-perl.com/2016/08/pre-order-learning-perl-7th-edition/
On Thu, Sep 1, 2016 at 1:03 PM, Hao Wu wrote:
> https://w
Mike,
Do what's best for you and enjoy Simon's Cozens book. I always liked the
way he wrote as well.
On Thu, Sep 1, 2016 at 1:49 PM, Walker, Michael E <
michael.e.walk...@boeing.com> wrote:
>
>
>
>
> *From:* Walker, Michael E
> *Sent:* Thursday, September 01, 2016 12:47 PM
> *To:* 'Aaron Wells'
Pd, and whether he plans to address them, and is open to your help
:-)
Hope this helps,
Neil
14 matches
Mail list logo
