[31326] in Perl-Users-Digest
Perl-Users Digest, Issue: 2571 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Aug 27 14:09:42 2009
Date: Thu, 27 Aug 2009 11:09:07 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 27 Aug 2009 Volume: 11 Number: 2571
Today's topics:
Re: Another way of resizing an Image? <graham.stow@stowassocs.co.uk>
Re: Another way of resizing an Image? <rvtol+usenet@xs4all.nl>
Re: Another way of resizing an Image? <graham.stow@stowassocs.co.uk>
Re: Another way of resizing an Image? <rvtol+usenet@xs4all.nl>
DBI (with Oracle) 'out of memory' error <dn.perl@gmail.com>
Re: DBI (with Oracle) 'out of memory' error <glex_no-spam@qwest-spam-no.invalid>
Re: DBI (with Oracle) 'out of memory' error <hjp-usenet2@hjp.at>
help on regular expression <pathexplorer@gmail.com>
Re: help on regular expression <pathexplorer@gmail.com>
Re: help on regular expression <someone@example.com>
Re: help on regular expression (Randal L. Schwartz)
Re: help on regular expression <cartercc@gmail.com>
Re: help on regular expression <jurgenex@hotmail.com>
module installation through VC++ <zeeshan2ahmed@gmail.com>
Re: module installation through VC++ <sisyphus359@gmail.com>
Re: Preventing lines from printing sln@netherlands.com
unicode characters with PerlMagick <guba@vi-anec.de>
Re: unicode characters with PerlMagick <RedGrittyBrick@spamweary.invalid>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 26 Aug 2009 08:12:09 +0100
From: "Graham" <graham.stow@stowassocs.co.uk>
Subject: Re: Another way of resizing an Image?
Message-Id: <kYKdnbNxZ9bTfQnXnZ2dnUVZ8qednZ2d@bt.com>
"Graham" <graham.stow@stowassocs.co.uk> wrote in message
news:AbKdnU4bKYLvjAnXnZ2dnUVZ8mednZ2d@bt.com...
>
> "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid> wrote in message
> news:4a93ffe2$0$89386$815e3792@news.qwest.net...
>> Graham wrote:
>>>[...] I suppose it could be finding the
>>> module with one or both of these paths but because the GD Package is not
>>> pure-perl and has not been compiled, this is causing the error (all I
>>> get is 'Internal Server Error'). It looks like this is beyond me, so I
>>> guess I really need to nag the ISP into installing the Image::Resize and
>>> its dependancies. The trouble is you can only contact these poeple by
>>> tickets through their web site, and if they want to ignore you, they
>>> will.
>>
>> Your whole script is:
>>
>> use lib qw(/var/www/cgi-bin/mymodules/);
>> use Image::Resize;
>>
>> And that gives you 'Internal Server Error'?
>> Check the Web server's error log. You do need the header,
>> when running that as a CGI.
>>
>> If all else fails, install everything on your own machine, resize
>> the images there and put them on the server.
>
> Actually, that's the perfect answer! I now know that the guy who's taking
> the images can only take them 2592 x 1944 - far too big to sensibly upload
> to the server anyway. So I'll write a script that will resize them to 800
> x 600 on my machine and also create 160 x 120 thumbs too, then upload the
> lot to the server. Job done!
OK so I installed Image::Resize and ran the following test script
*****************
#!/usr/bin/perl
use Image::Resize;
$image = Image::Resize->new("DSCN1265.JPG");
$gd = $image->resize(160, 120);
open(FH, '>DSCN1265_thumb.jpg');
print FH $gd->jpeg();
close(FH);
*******************
The result? A corrupted thumbnail. Repeated with other image sizes and other
images and again it corrupted. So I removed Image::Resize and re-installed
it. Same problem. Any ideas anyone?
------------------------------
Date: Wed, 26 Aug 2009 10:29:52 +0200
From: "Dr.Ruud" <rvtol+usenet@xs4all.nl>
Subject: Re: Another way of resizing an Image?
Message-Id: <4a94f281$0$190$e4fe514c@news.xs4all.nl>
Graham wrote:
> open(FH, '>DSCN1265_thumb.jpg');
If on a Windows system, try
my $fname = "DSCN1265_thumb.jpg";
open my $fh, ">:raw", $fn or print "Error with '$fname': $!";
Then see also `perldoc -f binmode`.
--
Ruud
------------------------------
Date: Wed, 26 Aug 2009 20:28:34 +0100
From: "Graham" <graham.stow@stowassocs.co.uk>
Subject: Re: Another way of resizing an Image?
Message-Id: <m5SdnaNWFbp3EQjXnZ2dnUVZ8t6dnZ2d@bt.com>
"Dr.Ruud" <rvtol+usenet@xs4all.nl> wrote in message
news:4a94f281$0$190$e4fe514c@news.xs4all.nl...
> Graham wrote:
>
>> open(FH, '>DSCN1265_thumb.jpg');
>
> If on a Windows system, try
>
> my $fname = "DSCN1265_thumb.jpg";
>
> open my $fh, ">:raw", $fn or print "Error with '$fname': $!";
>
>
> Then see also `perldoc -f binmode`.
>
> --
> Ruud
the line
open my $fh, ">:raw", $fn or print "Error with '$fname': $!";
didn't work
but a similar line
open (FH, ">:raw", $fname) or print "Error with '$fname': $!";
did work!
I must admit I don't particularly understand why, but many thanks for your
invaluable assistance Ruud!
Graham
------------------------------
Date: Wed, 26 Aug 2009 21:46:20 +0200
From: "Dr.Ruud" <rvtol+usenet@xs4all.nl>
Subject: Re: Another way of resizing an Image?
Message-Id: <4a95910c$0$185$e4fe514c@news.xs4all.nl>
Graham wrote:
> Dr.Ruud:
>> Graham:
>>> open(FH, '>DSCN1265_thumb.jpg');
>> If on a Windows system, try
>>
>> my $fname = "DSCN1265_thumb.jpg";
>>
>> open my $fh, ">:raw", $fn or print "Error with '$fname': $!";
>>
>>
>> Then see also `perldoc -f binmode`.
>
> the line
> open my $fh, ">:raw", $fn or print "Error with '$fname': $!";
> didn't work
> but a similar line
> open (FH, ">:raw", $fname) or print "Error with '$fname': $!";
> did work!
>
> I must admit I don't particularly understand why, but many thanks for your
> invaluable assistance Ruud!
Ah yes, I edited $fn to $fname, unless its second occurence.
See also `perldoc -f open` for the ":raw" part.
But `perdoc -f binmode` should be your primary source of new knowledge.
In short: on Windows, any LF in your data becomes CR-LF in your file,
unless you tell not to.
--
Ruud
------------------------------
Date: Thu, 27 Aug 2009 02:12:50 -0700 (PDT)
From: "dn.perl@gmail.com" <dn.perl@gmail.com>
Subject: DBI (with Oracle) 'out of memory' error
Message-Id: <2e90d4a8-c7fb-42e0-a6ce-f5fb38c82832@o9g2000prg.googlegroups.com>
I am using perl 5.6 on FreeBSD. (This is perl, v5.6.1 built for i386-
freebsd).
DBI version 1.48 .
I am running a select command which returns 355,000+ rows. While
reading it into a hash, I should have 280,000+ hash-keys when I am
done constructing the hash.
But the script is aborting with message: Out of memory!
What might be wrong? If I can keep the hash-size down (deal with a
key, complete all calculations assoiated with that key, then undef
it), will it help?
$$rh_result{field01}{field02} = 2 ;
do calculations for this hash-key
undef $$rh_result{field01} ; # I do not know the syntax to undef,
but will find it out.
Please advise.
------------------------------
Date: Thu, 27 Aug 2009 11:18:17 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: DBI (with Oracle) 'out of memory' error
Message-Id: <4a96b1ca$0$48227$815e3792@news.qwest.net>
dn.perl@gmail.com wrote:
> I am using perl 5.6 on FreeBSD. (This is perl, v5.6.1 built for i386-
> freebsd).
> DBI version 1.48 .
>
> I am running a select command which returns 355,000+ rows. While
> reading it into a hash, I should have 280,000+ hash-keys when I am
> done constructing the hash.
>
> But the script is aborting with message: Out of memory!
>
> What might be wrong? If I can keep the hash-size down (deal with a
> key, complete all calculations assoiated with that key, then undef
> it), will it help?
>
> $$rh_result{field01}{field02} = 2 ;
> do calculations for this hash-key
> undef $$rh_result{field01} ; # I do not know the syntax to undef,
$rh_result->{ 'field01' } is more readable.
> but will find it out.
perldoc -f undef
>
> Please advise.
>
Please show us the relevant code.
In short, you should probably be doing:
Prepare SQL
Execute
Bind columns
Iterate over each row using while and fetch.
Using the binded variables, do calculations, store results
Finish
Disconnect
If you're doing that and it runs out of memory, then we really
really need to see your code.
------------------------------
Date: Thu, 27 Aug 2009 19:21:47 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: DBI (with Oracle) 'out of memory' error
Message-Id: <slrnh9dg5c.i0n.hjp-usenet2@hrunkner.hjp.at>
On 2009-08-27 09:12, dn.perl@gmail.com <dn.perl@gmail.com> wrote:
> I am using perl 5.6 on FreeBSD. (This is perl, v5.6.1 built for i386-
> freebsd).
Perl 5.6 is really old. 5.10 is the current release.
> DBI version 1.48 .
>
> I am running a select command which returns 355,000+ rows. While
> reading it into a hash, I should have 280,000+ hash-keys when I am
> done constructing the hash.
>
> But the script is aborting with message: Out of memory!
Since your perl is very old, I assume your computer is rather old, too.
Hashes need a lot of memory. With 280k hash keys, I estimate that your
hash needs at least 60 MB. If your hash has multiple levels, it can be a
lot more.
Also you don't say how you run the select command. If you use one of
the selectall_* methods you'll get a nested data structure with 355,000+
times the number of colums elements - probably a few million elements in
total, which would use another few hundred MB ...
How much memory does your script use just before it runs out of memory?
Is it near the available virtual memory? Do you have any resource limits
set?
> What might be wrong? If I can keep the hash-size down (deal with a
> key, complete all calculations assoiated with that key, then undef
> it), will it help?
Yes, that will help. But if you can process your data one key at a time,
why store them in a hash in the first place?
hp
------------------------------
Date: Wed, 26 Aug 2009 22:36:28 -0700 (PDT)
From: Tao Li <pathexplorer@gmail.com>
Subject: help on regular expression
Message-Id: <64939966-59a8-4937-85e9-8b98f6f84ace@n11g2000yqb.googlegroups.com>
I have been thinking the problem for a while, please help me.
There is a log file. Its format is like this:
send ........
send ........
................
............
send..........
...................
................
send..........
heartbeat..........
...............
send........
...........
.........
send..........
send.........
send..........
heartbeat..........
....
send...
.....
heatbeat....
....
I want to find all the "send line" before "heartbeat line"=EF=BC=8C
send...
send...
heartbeat...
doesn't include anything like this:
send...
.....
send...
heartbeat..........
------------------------------
Date: Wed, 26 Aug 2009 22:37:31 -0700 (PDT)
From: Tao Li <pathexplorer@gmail.com>
Subject: Re: help on regular expression
Message-Id: <655a44ec-d6b0-4bd1-8597-8ec5a4200ea7@w41g2000yqb.googlegroups.com>
if you can do it with one-liner, that would be wonderful.
On Aug 27, 12:36=C2=A0am, Tao Li <pathexplo...@gmail.com> wrote:
> I have been thinking the problem for a while, please help me.
>
> There is a log file. Its format is like this:
>
> send ........
> send ........
> ................
> ............
> send..........
> ...................
> ................
> send..........
> heartbeat..........
> ...............
> send........
> ...........
> .........
> send..........
> send.........
> send..........
> heartbeat..........
> ....
> send...
> .....
> heatbeat....
> ....
>
> I want to find all the "send line" before "heartbeat line"=EF=BC=8C
>
> send...
> send...
> heartbeat...
>
> doesn't include anything like this:
>
> send...
> .....
> send...
> heartbeat..........
------------------------------
Date: Wed, 26 Aug 2009 23:18:12 -0700
From: "John W. Krahn" <someone@example.com>
Subject: Re: help on regular expression
Message-Id: <Ayplm.268611$E61.203946@newsfe09.iad>
Tao Li wrote:
> I have been thinking the problem for a while, please help me.
>=20
> There is a log file. Its format is like this:
>=20
> send ........
> send ........
> ................
> ............
> send..........
> ...................
> ................
> send..........
> heartbeat..........
> ...............
> send........
> ...........
> .........
> send..........
> send.........
> send..........
> heartbeat..........
> ....
> send...
> .....
> heatbeat....
> ....
>=20
> I want to find all the "send line" before "heartbeat line",
>=20
> send...
> send...
> heartbeat...
>=20
> doesn't include anything like this:
>=20
> send...
> .....
> send...
> heartbeat..........
perl -ne'
if ( /^send/ ) { push @buff, $_ }
elsif ( /^heartbeat/ ) { print @buff, $_ }
else { @buff =3D () }
'
John
--=20
Those people who think they know everything are a great
annoyance to those of us who do. -- Isaac Asimov
------------------------------
Date: Wed, 26 Aug 2009 23:53:44 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: help on regular expression
Message-Id: <86fxbdn3wn.fsf@blue.stonehenge.com>
>>>>> "Tao" == Tao Li <pathexplorer@gmail.com> writes:
Tao> if you can do it with one-liner, that would be wonderful.
If I had a pony, it'd also be wonderful.
If I was six foot tall at my current weight, my BMI would be proper,
and that'd also be wonderful.
Why do you care if it's a one-liner?
print "Just another Perl hacker,"; # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion
------------------------------
Date: Thu, 27 Aug 2009 07:03:32 -0700 (PDT)
From: ccc31807 <cartercc@gmail.com>
Subject: Re: help on regular expression
Message-Id: <fc6a1af3-bbf1-458b-8b66-25affac8327c@z24g2000yqb.googlegroups.com>
On Aug 27, 1:36=C2=A0am, Tao Li <pathexplo...@gmail.com> wrote:
> I want to find all the "send line" before "heartbeat line"=EF=BC=8C
I don't see this as a RE problem at all, although you would use REs.
You can very easily create an algorithm to do what you want by simply
stepping through the file by hand. You might want to do something like
this:
assign the current line to var1
for each line -
assign the next line to var2
print var2 if var1 /^send/ and var2 /^heartbeat/
assign var2 to var1
Yes, this is a simplistic and crude way to do this, but all other
things being equal, the best way is usually the simplest and crudest
way, rather than a more complex and complicated way.
CC
------------------------------
Date: Thu, 27 Aug 2009 09:27:09 -0700
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: help on regular expression
Message-Id: <jpcd95td2a6ntmaf8q3jad04nk8ec79ep1@4ax.com>
ccc31807 <cartercc@gmail.com> wrote:
>On Aug 27, 1:36 am, Tao Li <pathexplo...@gmail.com> wrote:
>> I want to find all the "send line" before "heartbeat line"?
>
>I don't see this as a RE problem at all, although you would use REs.
Actually no, or only if identifying the line(s) requires a RE.
Otherwise a simpler index() call is more appropriate and doesn't require
a \Q....\E esacape.
jue
------------------------------
Date: Tue, 25 Aug 2009 22:25:02 -0700 (PDT)
From: zeeshan <zeeshan2ahmed@gmail.com>
Subject: module installation through VC++
Message-Id: <1ffdad91-7998-4a6a-94c2-fe8238ceaf85@r42g2000yqj.googlegroups.com>
Hi All,
Im trying to install perl html::strip module using visual C++ express
edition. I was able to do it comfortably on my laptop without any
problems but now im stuck on the server.
Im able to nmake it...but whn i type "nmake test" it gives me error
Cant load `blib\arch/auto/HTML/Strip/Strip.dll' for module
HTML::Strip: load_file: The specified module could not be found at
D:/.../Dynaloader.pm line 230. at test.pl line 10
Compilation failed in require at test.pl line 10.
BEGIN failed --compilation aborted at test.pl line 10.
NMAKE : fatal error U1077: `D:\..\bin\perl.exe' : return code `0x2'
Stop.
Is this machine specific problem? How can i get this done.
Can anyone help me out with this...thanks in advance.
------------------------------
Date: Wed, 26 Aug 2009 08:36:51 -0700 (PDT)
From: sisyphus <sisyphus359@gmail.com>
Subject: Re: module installation through VC++
Message-Id: <c1b5ded9-de01-415d-b9fd-73a3baa3ce3d@13g2000prl.googlegroups.com>
On Aug 26, 3:25=A0pm, zeeshan <zeeshan2ah...@gmail.com> wrote:
> Im trying to install perl html::strip module using visual C++ express
> edition.
Which version of HTML::Strip are you trying to install.
Using VC 7.0 to build HTML-Strip-1.06 (perl-5.10.1), I find that
'nmake' fails:
.
.
strip_html.c
strip_html.c(38) : warning C4013: 'strcasecmp' undefined; assuming
extern returning int
.
.
.
Creating library blib\arch\auto\HTML\Strip\Strip.lib and object blib
\arch\aut
o\HTML\Strip\Strip.exp
strip_html.obj : error LNK2019: unresolved external symbol _strcasecmp
referenced in function _check_end
blib\arch\auto\HTML\Strip\Strip.dll : fatal error LNK1120: 1
unresolved external
s
NMAKE : fatal error U1077: 'link' : return code '0x460'
Stop.
Also which version of perl do you have ? (Best if you can give us the
entire output of running 'perl -V'.)
Cheers,
Rob
------------------------------
Date: Wed, 26 Aug 2009 11:08:36 -0700
From: sln@netherlands.com
Subject: Re: Preventing lines from printing
Message-Id: <lssa95ltndu0kflb1rqq3ab79d58pkd33j@4ax.com>
On Mon, 24 Aug 2009 15:33:01 +0000 (UTC), tmcd@panix.com (Tim McDaniel) wrote:
>In article <87ocq5zvhu.fsf@quad.sysarch.com>,
>Uri Guttman <uri@StemSystems.com> wrote:
>>>>>>> "TM" == Tim McDaniel <tmcd@panix.com> writes:
>>
>> TM> In article <87ocq61b6b.fsf@quad.sysarch.com>,
>> TM> Uri Guttman <uri@StemSystems.com> wrote:
>> >>>>>>> "TM" == Tim McDaniel <tmcd@panix.com> writes:
>> >>
>> TM> #! /usr/bin/perl -wan
>> TM> BEGIN { $sum = 0; $count = 0; }
>> >>
>> >> no need to initialize those to 0 as += won't warn when adding to
>> >> undef. same is true for ++ and .= .
>>
>> TM> I like explicit initialization to the correct value, even if
>> TM> the default works the same way. I don't like touching undef
>> TM> (except with defined, which doesn't really touch it), even in
>> TM> contexts where it works.
>>
>>do you also assign hash/array refs before you add things to them? the
>>above is the same thing, autovivification. this saves lots of dumb
>>boring newbie code that does it like other langs, check if
>>initialized to something and if not initialize, then mung it.
>
>If I omit initialization, it might be because I'm happy with the
>default, but alternately, it may be that I've forgotten a necessary
>assignment, and it's all too easy to just forget something entirely.
>Doing an initialization answers the question (leaving open the
>question of whether it's *correct*, of course).
>
>It adds hardly any extra semantic or visual clutter to have
>initializations like
> my $running_total = 0;
> my @bug_numbers = ();
>especially because it's already standard to have other assignments
>doing things like
> my $use_bash = 1;
> my @final_states = ('RESOLVED', 'VERIFIED', 'CLOSED');
>
>
>I had seen the term "autovivification", but never really thought about
>it. Now that you mention it, something like
> if (! exists $dependencies{$_}) {
> $dependencies{$_} = [];
> }
> push @{$dependencies{$_}}, $bug_number;
>*does* add semantic and visual clutter, and a non-trivial chance of
>buggy initialization. I think I'll use autovivification in the
>future -- though maybe with a comment that I'm using it?
>
>Thank you for the prompting. I write Perl code for me and don't
>generally see other people's Perl code, so I don't have the chance to
>pick up idioms by osmosis.
I wouldn't worry about autovivification. When you need to initialize
a array or hash reference, just do it. Don't worry about if they're
defined or exist. Most people re-use them so they are cleared (re-initialized)
at different places throughout, depending on the scope.
Autovivification on arrays takes place when you read/write from/to an element.
For hashes, its the keys.
The existance of hash keys is a check, but not usually used for initialization.
Clearing/initalization is just done at points where you want it to happen.
Garbage collection takes care of allocation based reference count.
Example:
# Clear, then add elements
@{$dependencies{$_}} = ();
push @{$dependencies{$_}}, $bug_number;
The only thing you have to worry about is if you are dereferencing an uninitialzed value
without context or an initialzed value with the wrong context.
It does seem kind of weird though that a bunch of scalars are initialized and a few aren't
in a block far away from where it is used. But since scalars can be reused, they can
contain different context, so its ambigous to initialize them at that location.
Variable names suck so thats no help.
Don't take all this too seriously. Larger programs have many different needs, and there
are many ways to accomodate them. In reality, you are writing the program for others
to read. Mostly is you but you want to make it easy on yourself later.
-sln
{
no strict;
use warnings;
my $aref; # autov on element Read
print !$aref->[0] ? "aref\) '@{$aref}'\n" : "won't see this\n";
my $bref;
print "bref) '@{$bref}'\n"; # no autov, error undef value in array deref (read)
my $cref;
$cref->[0] = 'hello'; # autov on element Write
print "cref) '@{$cref}'\n";
print "\n";
my %hash; # autov hash keys on Read or Write
print "hash> '@{[%hash]}'\n" if !$hash{'key'};
# autov on element Read
print !$hash{'Akey'}->[0] ? "Akey\) '@{$hash{'Akey'}}'\n" : "won't see this\n";
print "Bkey) '@{$hash{'Bkey'}}'\n"; # no autov, undef value in array deref (read)
$hash{'Ckey'}->[0] = 'hello'; # autov on element Write
print "Ckey) '@{$hash{'Ckey'}}'\n";
my @array = @{$hash{'Dkey'}}; # no autov, error undef value in array deref (read)
@{$hash{'Ekey'}} = (); # same as $hash{'Ekey'} = []
print "Ekey) '@{$hash{'Ekey'}}'\n";
print "$hash{'Ekey'} = ".\@{$hash{'Ekey'}}."\n";
}
------------------------------
Date: Wed, 26 Aug 2009 02:30:04 -0700 (PDT)
From: "guba@vi-anec.de" <guba@vi-anec.de>
Subject: unicode characters with PerlMagick
Message-Id: <f1134f0d-726b-4c33-9900-814896dca926@g31g2000yqc.googlegroups.com>
Hello,
I want to write unicode characters with the Annotate method
in ImageMagick/PerlMagick (Ubuntu)
$image->Annotate(font => $font_name,
text => $text,
pointsize => ...,
gravity => ...,
fill => ...);
How can I put a character code like U+0E84 in the variable $text
so that it is recognized and what font should I install/specify?
Thank you very much!!
guba
------------------------------
Date: Wed, 26 Aug 2009 12:00:45 +0100
From: RedGrittyBrick <RedGrittyBrick@spamweary.invalid>
Subject: Re: unicode characters with PerlMagick
Message-Id: <4a9515e1$0$2532$da0feed9@news.zen.co.uk>
guba@vi-anec.de wrote:
> Hello,
>
> I want to write unicode characters with the Annotate method
> in ImageMagick/PerlMagick (Ubuntu)
>
> $image->Annotate(font => $font_name,
> text => $text,
> pointsize => ...,
> gravity => ...,
> fill => ...);
>
> How can I put a character code like U+0E84 in the variable $text
$text = "...\x{0E84}...";
See perldoc perlunicode
> so that it is recognized
I'd check the docs for PerlMagick for Unicode support. I suspect it will
just work.
> and what font should I install/specify?
Any font that contains the Lao characters you want to include.
I'd Google for "Lao Font". YMMV.
--
RGB
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 2571
***************************************
