I think it's a bug in "any" ...
Try this:
my $_ = 5;
say( (any { $_ eq 7 } (0..10) ) or 'false' );
given (5) {
when (5) {
say( (any { our $_ eq 7 } (0..10) ) or 'false' );
say( join(", ", map { $_ eq 7 } (0..10) ) );
}
}
and it prints:
false
1
, , , , , , , 1, , ,
B
where can I find a how to abou perl?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi all,
I'm trying to change case of UTF-8 strings. I've read a bunch of
documentation, but can't figure out how to do it right. Here is an
example:
=== My code:
use strict;
use utf8;
my $line;
my $letter;
while ($line = ) {
chomp($line);
utf8::upgrade($line);
$line = lc($line);
On 14 abr, 13:25, [EMAIL PROTECTED] (Chas. Owens) wrote:
[...]
> Hmm, the following works for me, but then again I have
>
> export PERL_UNICODE=SDL #Make Perl use UTF-8 for IO
>
> in my .bash_profile.
>
Yes, that made the trick. Thanks. But I wish there was a "Perl only"
way...
--
To unsubs
This is hard I think I need to save a text in rtf format into a
database (mssql)... the problem is what kind of field to use and how to read
back the text without loosing the format...(bold,color,etc,,,).
Does anyone know how to do that? Any idea? JP.
_
