[22246] in Perl-Users-Digest
Perl-Users Digest, Issue: 4467 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jan 26 03:05:49 2003
Date: Sun, 26 Jan 2003 00:05:08 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 26 Jan 2003 Volume: 10 Number: 4467
Today's topics:
Re: @$x array scalar question (Jay Tilton)
CGI - DATABASES and FORK...oh my <steve@baselines.com>
Re: Changing the context of a code block <eric.anderson@cordata.net>
Re: Changing the context of a code block <uri@stemsystems.com>
Re: Checking IP Ranges in one line <abigail@abigail.nl>
Re: fork confusion <phwashington@attbi.com>
Re: newbie perl pattern processing question (Sol Linderstein)
Re: newbie perl pattern processing question (Tad McClellan)
Output to text file and console <angoraspruce@hotmail.com>
Re: Output to text file and console <bongie@gmx.net>
Re: Output to text file and console (Ben Morrow)
Re: Output to text file and console (Ben Morrow)
Re: Output to text file and console <angoraspruce@hotmail.com>
perl code to "fix" VBR mp3s with bogus time information (Scott Evans)
Re: Perl script to access directory <alex@alexbanks.com>
Re: Perl script to access directory <me@privacy.net>
Re: Perl script to access directory (Tad McClellan)
problem loading GD.pm <phwashington@attbi.com>
Re: problem loading GD.pm <phwashington@attbi.com>
script <pons@gmx.li>
Re: Split question <me@privacy.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 26 Jan 2003 01:47:31 GMT
From: tiltonj@erols.com (Jay Tilton)
Subject: Re: @$x array scalar question
Message-Id: <3e333a22.119644347@news.erols.com>
"Michael Peuser \(h\)" <post@mpeuser.de> wrote:
: "Jay Tilton" <tiltonj@erols.com> schrieb im Newsbeitrag
: news:3e327d3c.71279110@news.erols.com...
: > "Michael Peuser \(h\)" <post@mpeuser.de> wrote:
: >
: > $sca = \( "Sue", "Black", "29" );
: > Making a reference to a list like that is creating a list of
: > references to the items in the list, i.e.
: > $sca = ( \"Sue", \"Black", \"29" );
: > The list assignment in scalar context puts \"29" into $sca.
:
: I think I understand a bug now I met 2 years ago ;-)
That one bites everybody in the ass at least once. It's like a rite
of passage into understanding the difference between lists and arrays,
which baffles people all too often.
: Let's say then:
: $sca = ["Sue", "Black", "29"];
: has a similar result as
: @sca = ("Sue", "Black", "29");
: $sca =\@sca;
Or even
@$sca = ("Sue", "Black", 29);
The stringified 29 was getting a little annoying. :)
------------------------------
Date: Sun, 26 Jan 2003 01:16:16 GMT
From: "Steve Keith" <steve@baselines.com>
Subject: CGI - DATABASES and FORK...oh my
Message-Id: <AFGY9.1442$Gj3.888@nwrddc02.gnilink.net>
Hi there -
I plan to set up some testing, but wanted to get some input before going
down that road. I have a medium volume inventory system that is controlled
via a CGI interface. I use MLDBM to store hashes. I use MLDBM::Sync to
handle file locking. All this works great, but there is one nagging fear in
the back of my mind. I try to manipulate everything in the script to
prepare several records for committing at the same time. I create a hash
throughout the process, of database names, the keys to update and the
references that hold the record data for that key. I may pile up 5 - 6
databases that all need to be updated for the transaction. This is all done
via a web page, and my fear has always been that something bad will happen
if the user hits the STOP button at the exact time the updates are being
done. I have text transaction files that I can roll back to, but what a
pain that would be.
So my thought is that once I get everything ready to commit, I fork off a
new process to do the database update. I've never done this before, but
have been reading about it. Here are my questions:
1 - If I fork off the update and the user STOPS the browser, what really
happens? Does the main process die and the child keep running?
2 - Can I pass this hash of references to the child and count on them to be
there, and not to be 'Pet Semataried' ? :-)
3 - When the parent is stopped, will I be able to kill off the children at
the appropriate time?
Thanks for any help,
Steve
------------------------------
Date: Sat, 25 Jan 2003 19:31:22 -0500
From: "Eric Anderson" <eric.anderson@cordata.net>
Subject: Re: Changing the context of a code block
Message-Id: <pan.2003.01.26.00.31.20.416012@cordata.net>
On Fri, 24 Jan 2003 19:46:26 +0000, Tad McClellan wrote:
> An XY problem is when you want to do X, but you ask how to do Y
> instead, because you've decided that Y is the best way to accomplish X.
> ----------------------------------------
>
>
> Brian is asking what the ultimate problem that you are trying to solve is
> (X), it might be that you don't really need to do "silly package tricks"
> (Y), but we can't tell unless we know what the X is.
Well, my X is that I want to have a easy interface (i.e. methods and
object) to allow manipulation of the object model in perl. The interface
would allow one to manipulate the defination of an object at runtime
without having a full understanding of the Perl symbol table.
This is part of a larger project that I am working on. I'm still trying to
develop the basic idea of what I want to do, so it is part
experimentation. Therefore their is a good change I have an XY problem,
but until I understand for myself what I want to accomplish a bit more I
won't really know. You could kind of look at this as a prototype so that I
can see if what I am thinking will really satisfy my needs.
So my current issue is that I want to be able to have some code pass me a
code block, and then my function will define that code block in the
context of the specified package. I want it to work the exact same as if
the code had actually been defined in a file that defines that package.
Thanks for all your help
--
Eric Anderson
------------------------------
Date: Sun, 26 Jan 2003 04:21:32 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Changing the context of a code block
Message-Id: <x7d6mkilro.fsf@mail.sysarch.com>
>>>>> "EA" == Eric Anderson <eric.anderson@cordata.net> writes:
EA> On Fri, 24 Jan 2003 19:46:26 +0000, Tad McClellan wrote:
>> An XY problem is when you want to do X, but you ask how to do Y
>> instead, because you've decided that Y is the best way to accomplish X.
>> ----------------------------------------
>>
>>
>> Brian is asking what the ultimate problem that you are trying to solve is
>> (X), it might be that you don't really need to do "silly package tricks"
>> (Y), but we can't tell unless we know what the X is.
EA> Well, my X is that I want to have a easy interface (i.e. methods and
EA> object) to allow manipulation of the object model in perl. The interface
EA> would allow one to manipulate the defination of an object at runtime
EA> without having a full understanding of the Perl symbol table.
that makes little sense. you still haven't given a big picture and a
reason why you want it. manipulating an object definition can be easy or
hard depending on the manipulation needed. so you have to be much more
specific and give the proper picture. your internal understanding is
useless to others without properly communicated requirements.
EA> This is part of a larger project that I am working on. I'm still
EA> trying to develop the basic idea of what I want to do, so it is
EA> part experimentation. Therefore their is a good change I have an
EA> XY problem, but until I understand for myself what I want to
EA> accomplish a bit more I won't really know. You could kind of look
EA> at this as a prototype so that I can see if what I am thinking
EA> will really satisfy my needs.
that isn't a good idea. playing with what works and doesn't is not the
way to clarify a fuzzy specification. just because you can do something
doesn't mean it is something you should do or it is the best way to do
it. that is the whole XY problem. you think Y is the solution and you
want help with it but you never told us what the original X problem
is. you still haven't told us X.
EA> So my current issue is that I want to be able to have some code
EA> pass me a code block, and then my function will define that code
EA> block in the context of the specified package. I want it to work
EA> the exact same as if the code had actually been defined in a file
EA> that defines that package.
so, that is just installing a code ref into a package's symbol
table. nothing more. your strange package code had nothing to do with
that. you don't need the package command to do this.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
----- Stem and Perl Development, Systems Architecture, Design and Coding ----
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
Damian Conway Perl Classes - January 2003 -- http://www.stemsystems.com/class
------------------------------
Date: 25 Jan 2003 23:50:54 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: Checking IP Ranges in one line
Message-Id: <slrnb368mu.6dg.abigail@alexandra.abigail.nl>
Charles R. Thompson (charlest@indysoft.com) wrote on MMMCDXXXIII
September MCMXCIII in <URL:news:v339lsl11iiib6@corp.supernews.com>:
## It's gonna take me awhile to wrap my brain around that :) . From first few
## tests though it doesn't appear to be working. Again.. I need to really look
## at it before I even venture to hard what's not quite right. At first glance
## though...
##
## $ipblock =~ /^64\.(\d+)\.
##
## Shouldn't that be...
##
## $ipblock =~ /^64\.
##
## It appears there are 4 .'s instead of three in the regexp.
##
## Just a dummy first look :)
The *last* \. should be removed.
And please, please, don't post Jeopardy style again. Next time,
I won't bother to answer - you'll just go to the killfile.
Abigail
--
perl -wle'print"Êõóô áîïôèåò Ðåòì Èáãëåò"^"\x80"x24'
------------------------------
Date: Sun, 26 Jan 2003 04:40:08 GMT
From: Philip Washington <phwashington@attbi.com>
Subject: Re: fork confusion
Message-Id: <3E3367AE.20200@attbi.com>
Tassilo v. Parseval wrote:
> Also sprach Philip Washington:
>
>
>>I have the following code where I am trying to run a program for a given
>>length of time. Kill it, run another program and restart the original.
>>The first progam will run indefinitely if allowed. I have not added the
>>second program because I thus far have not been able to cleanly kill the
>>first.
>>
>>The programs which are run under exec(" ") or system(" ") appear to
>>create another child, but when I run
>>kill "INT",$kidpid
>>they do not seem to be affected.
>>
>>Any better ideas on how to accomlish this will be gratefully accepted.
>>
>>
>>#!/usr/bin/perl
>>my $kidpid;
>>
>>if (!defined($kidpid = fork())) {
>> #fork returned undef, so failed
>> die "Cannot fork: $!";
>> } elsif ($kidpid == 0) {
>> # fork returned 0, so this branch is child
>> exec("sh Runfilter.sh");
>> # if exec fails, fall through to the next statement
>> die "can't exec date: $!";
>> } else {
>> # fork returned 0 nor undef
>> # so this branch is parent
>> sleep(10);
>> my $result=kill "INT",$kidpid;
>
>
> Out of curiosity, why are you sending sigint (keyboard interrupt)?
> sigterm would seem more plausible to me.
>
> Tassilo
stupid mistake.
Philip
------------------------------
Date: 25 Jan 2003 19:35:31 -0800
From: slinderstein@yahoo.com (Sol Linderstein)
Subject: Re: newbie perl pattern processing question
Message-Id: <e435b329.0301251935.29b50ee@posting.google.com>
Excellent! This was the trick I was looking for. This is one of those
things I love/hate about perl. There's a trick for everything if you
only know what it is! The piece I was missing was the fact that you
can do pattern substitution that invokes a function. I only knew about
substitution patterns with strings. I guess you can replace a pattern
with an expression.
Very slick!
Thank you!
Sol
> if you want to
> live dangerously, this can be a starting point:
>
> $html =~ s/<<(.+?)>>/process($1)/eg;
>
> sub process {
> my $stuff_to_process = shift;
> ...
> }
>
> hth-
------------------------------
Date: Sat, 25 Jan 2003 23:23:13 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: newbie perl pattern processing question
Message-Id: <slrnb36s61.jvs.tadmc@magna.augustmail.com>
[ Please do not top-post. Please provide an attribution when
you quote someone. Lines rearranged into a sensible order.
]
Sol Linderstein <slinderstein@yahoo.com> wrote:
>Some unattributed being wrote:
>> if you want to
>> live dangerously, this can be a starting point:
>>
>> $html =~ s/<<(.+?)>>/process($1)/eg;
>>
>> sub process {
>> my $stuff_to_process = shift;
>> ...
>> }
> Excellent! This was the trick I was looking for.
It is not a trick. It is merely a (documented) feature.
> This is one of those
> things I love/hate about perl. There's a trick for everything if you
> only know what it is!
And you only know what it is if you read the docs for
the operator that you are using.
> The piece I was missing was the fact that you
> can do pattern substitution that invokes a function. I only knew about
> substitution patterns with strings. I guess you can replace a pattern
> with an expression.
Why guess, when it is so easy to *know* ?
perldoc perlop
-----------------------------------
=item s/PATTERN/REPLACEMENT/egimosx
...
e Evaluate the right side as an expression.
...
A "e" will cause the
replacement portion to be treated as a full-fledged Perl expression
and evaluated right then and there.
...
s/\d+/sprintf("%5d",$&)/e; # yields 'abc 246xyz'
...
s/(\$\w+)/$1/eeg;
-----------------------------------
You can pretty much count on missing out on the gold if you
never pick up a shovel.
Use the docs, Luke.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 26 Jan 2003 01:11:34 GMT
From: David Bolton <angoraspruce@hotmail.com>
Subject: Output to text file and console
Message-Id: <aBGY9.34944$Ve4.4379@sccrnsc03>
I'm crunching some numbers, then placing the output to both the console and a
text file. Basically I'm doing something like:
open(OUTPUT, ">dataout.txt");
printf "%.3f", $time;
printf (OUTPUT "%.3f", $time);
The program's written and works fine, but isn't there a better way than having
to use two print statements, one for the console and one for the file?
Thanks in advance,
David
--
Whatsoever thy hand findeth to do, do it with thy might.
- Ecclesiastes 9:10
------------------------------
Date: Sun, 26 Jan 2003 02:23:04 +0100
From: "Harald H.-J. Bongartz" <bongie@gmx.net>
Subject: Re: Output to text file and console
Message-Id: <30711395.IHsScRkJkL@nyoga.dubu.de>
David Bolton wrote:
> I'm crunching some numbers, then placing the output to both the
> console and a text file. Basically I'm doing something like:
>
> open(OUTPUT, ">dataout.txt");
> printf "%.3f", $time;
> printf (OUTPUT "%.3f", $time);
See some hints in perldoc -q 'more than one file':
How do I print to more than one file at once?
(in perlfaq5)
Ciao,
Harald
--
Harald H.-J. Bongartz <bongie@gmx.net>
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
I am one who delights in all manifestations of the Terpsichorean muse,
and when that won't do, regex-sadomasochism.
-- Jeff 'japhy' Pinyan in alt.perl
------------------------------
Date: Sun, 26 Jan 2003 01:28:17 +0000 (UTC)
From: mauzo@mimosa.csv.warwick.ac.uk (Ben Morrow)
Subject: Re: Output to text file and console
Message-Id: <b0vdjh$4ot$1@wisteria.csv.warwick.ac.uk>
angoraspruce@hotmail.com wrote:
>I'm crunching some numbers, then placing the output to both the console and a
>text file. Basically I'm doing something like:
>
> open(OUTPUT, ">dataout.txt");
> printf "%.3f", $time;
> printf (OUTPUT "%.3f", $time);
>
>The program's written and works fine, but isn't there a better way than having
>to use two print statements, one for the console and one for the file?
Use Tie::FileHandle::MultiPlex.
Ben
------------------------------
Date: Sun, 26 Jan 2003 01:33:49 +0000 (UTC)
From: mauzo@mimosa.csv.warwick.ac.uk (Ben Morrow)
Subject: Re: Output to text file and console
Message-Id: <b0vdtt$4sb$1@wisteria.csv.warwick.ac.uk>
"Harald H.-J. Bongartz" <bongie@gmx.net> wrote:
>David Bolton wrote:
>
>> I'm crunching some numbers, then placing the output to both the
>> console and a text file. Basically I'm doing something like:
>>
>> open(OUTPUT, ">dataout.txt");
>> printf "%.3f", $time;
>> printf (OUTPUT "%.3f", $time);
>
>See some hints in perldoc -q 'more than one file':
> How do I print to more than one file at once?
>(in perlfaq5)
I feel Tie::FileHandle::MultiPlex should be added to that answer.
Ben
------------------------------
Date: Sun, 26 Jan 2003 03:21:48 GMT
From: David Bolton <angoraspruce@hotmail.com>
Subject: Re: Output to text file and console
Message-Id: <gvIY9.36566$VU6.33530@rwcrnsc52.ops.asp.att.net>
Harald H.-J. Bongartz <bongie@gmx.net> wrote:
> David Bolton wrote:
>
>> I'm crunching some numbers, then placing the output to both the
>> console and a text file. Basically I'm doing something like:
>>
>> open(OUTPUT, ">dataout.txt");
>> printf "%.3f", $time;
>> printf (OUTPUT "%.3f", $time);
>
> See some hints in perldoc -q 'more than one file':
> How do I print to more than one file at once?
> (in perlfaq5)
Thanks Harald,
Worked like a charm! E.g....
open (STDOUT, "| tee dataout.txt") or die "Teeing off: $!\n";
printf "%.3f", $time or die "Writing: $!\n";
close(STDOUT) or die "Closing: $!\n";
David
--
The most beautiful experience we can have is the mysterious. Whoever does not
know it and can no longer wonder, no longer marvel, is as good as dead.
- Albert Einstein
------------------------------
Date: 25 Jan 2003 23:50:43 -0800
From: gse@antisleep.com (Scott Evans)
Subject: perl code to "fix" VBR mp3s with bogus time information?
Message-Id: <ac991c1.0301252350.90966f5@posting.google.com>
Some Fraunhoffer-based mp3 encoders put bogus song length information
in the encoded mp3 when you use VBR. There's a Windows program called
"vbrfix" to correct this problem:
http://www.willwap.btinternet.co.uk/programs/vbrfix.htm
But I'll really like to do it using perl. Anyone know of any existing
code?
--
scott evans :: www.antisleep.com
------------------------------
Date: Sat, 25 Jan 2003 23:59:31 -0000
From: "Alex Banks" <alex@alexbanks.com>
Subject: Re: Perl script to access directory
Message-Id: <3e3324e8$0$234$cc9e4d1f@news.dial.pipex.com>
ah i see. apologies all - am new to the newsgroup lingo
and i guess as nobody can help me this time, it's a sleepless night
searching for examples of Net::IO code...
ttfn, alex
"David H. Adler" <dha@panix2.panix.com> wrote in message
news:slrnb360b1.lg6.dha@panix2.panix.com...
> In article <3e32d8ca$0$233$cc9e4d1f@news.dial.pipex.com>, Alex Banks
wrote:
> > i know. sorry. in fact i'm so desperate to get an answer that i may even
> > post it in the alt.chips.salt-n-vinegar newsgroup...
>
> Ah, but that's just *off-topic* posting.
>
> I'm pretty sure Jürgen meant that you posted multiple times to multiple
> groups, rather than cross-posting a single message.
>
> dha
>
> --
> David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
> Its a whole new kind of boredom.
> - Ash (The ICT Tech with a soul)
------------------------------
Date: Sun, 26 Jan 2003 16:37:44 +1100
From: "Tintin" <me@privacy.net>
Subject: Re: Perl script to access directory
Message-Id: <b0vs79$j3tll$1@ID-172104.news.dfncis.de>
"Alex Banks" <alex@alexbanks.com> wrote in message
news:3e3324e8$0$234$cc9e4d1f@news.dial.pipex.com...
[top posts again and again and again....]
> "David H. Adler" <dha@panix2.panix.com> wrote in message
> news:slrnb360b1.lg6.dha@panix2.panix.com...
> > In article <3e32d8ca$0$233$cc9e4d1f@news.dial.pipex.com>, Alex Banks
> wrote:
> > > i know. sorry. in fact i'm so desperate to get an answer that i may
even
> > > post it in the alt.chips.salt-n-vinegar newsgroup...
> >
> > Ah, but that's just *off-topic* posting.
> >
> > I'm pretty sure Jürgen meant that you posted multiple times to multiple
> > groups, rather than cross-posting a single message.
>
> ah i see. apologies all - am new to the newsgroup lingo
Then you should read the posting guidelines for this group.
and read through http://www.cs.tut.fi/~jkorpela/usenet/xpost.html
------------------------------
Date: Sat, 25 Jan 2003 23:35:46 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Perl script to access directory
Message-Id: <slrnb36sti.jvs.tadmc@magna.augustmail.com>
Alex Banks <alex@alexbanks.com> wrote:
> am new to the newsgroup lingo
http://www.catb.org/~esr/jargon/html/The-Jargon-Lexicon.html
[snip TOFU]
Looks like you haven't learned the proper way to quote a followup either:
http://web.presby.edu/~nnqadmin/nnq/nquote.html
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 26 Jan 2003 06:30:39 GMT
From: Philip Washington <phwashington@attbi.com>
Subject: problem loading GD.pm
Message-Id: <3E338196.2010401@attbi.com>
When I try to load GD.pm on a RH8 system I get the following errors.
Can anyone tell me what this means?
make
gcc -c -I/usr/local/include -I/usr/local/include/gd -D_REENTRANT
-D_GNU_SOURCE -fno-strict-aliasing -D_LARGEFILE_SOURCE
-D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm -O2 -march=i386 -mcpu=i686
-DVERSION=\"2.06\" -DXS_VERSION=\"2.06\" -fpic
"-I/usr/lib/perl5/5.8.0/i386-linux-thread-multi/CORE" GD.c
cc1: warning: changing search order for system directory
"/usr/local/include"
cc1: warning: as it has already been specified as a non-system directory
GD.xs: In function `newDynamicCtx':
GD.xs:345: structure has no member named `gd_free'
GD.xs: In function `gd_cloneDim':
GD.xs:365: structure has no member named `alpha'
GD.xs:365: structure has no member named `alpha'
GD.xs:371: structure has no member named `thick'
GD.xs:371: structure has no member named `thick'
GD.xs: In function `XS_GD__Image_newFromPngData':
GD.xs:499: structure has no member named `gd_free'
GD.xs: In function `XS_GD__Image_newFromGdData':
GD.xs:518: structure has no member named `gd_free'
GD.xs: In function `XS_GD__Image_newFromGd2Data':
GD.xs:535: structure has no member named `gd_free'
GD.xs: In function `XS_GD__Image_newFromWBMPData':
GD.xs:580: structure has no member named `gd_free'
GD.xs: In function `XS_GD__Image_copyRotate90':
GD.xs:933: invalid lvalue in assignment
GD.xs:933: invalid lvalue in assignment
GD.xs: In function `XS_GD__Image_copyRotate180':
GD.xs:954: invalid lvalue in assignment
GD.xs:954: invalid lvalue in assignment
GD.xs: In function `XS_GD__Image_copyRotate270':
GD.xs:975: invalid lvalue in assignment
GD.xs:975: invalid lvalue in assignment
GD.xs: In function `XS_GD__Image_copyFlipHorizontal':
GD.xs:996: invalid lvalue in assignment
GD.xs:996: invalid lvalue in assignment
GD.xs: In function `XS_GD__Image_copyFlipVertical':
GD.xs:1017: invalid lvalue in assignment
GD.xs:1017: invalid lvalue in assignment
GD.xs: In function `XS_GD__Image_copyTranspose':
GD.xs:1038: invalid lvalue in assignment
GD.xs:1038: invalid lvalue in assignment
GD.xs: In function `XS_GD__Image_copyReverseTranspose':
GD.xs:1059: invalid lvalue in assignment
GD.xs:1059: invalid lvalue in assignment
GD.xs: In function `XS_GD__Image_rotate180':
GD.xs:1079: invalid lvalue in assignment
GD.xs:1079: invalid lvalue in assignment
GD.xs:1080: invalid lvalue in assignment
GD.xs:1080: invalid lvalue in assignment
GD.xs: In function `XS_GD__Image_flipHorizontal':
GD.xs:1097: invalid lvalue in assignment
GD.xs:1097: invalid lvalue in assignment
GD.xs:1098: invalid lvalue in assignment
GD.xs:1098: invalid lvalue in assignment
GD.xs: In function `XS_GD__Image_flipVertical':
GD.xs:1115: invalid lvalue in assignment
GD.xs:1115: invalid lvalue in assignment
GD.xs:1116: invalid lvalue in assignment
GD.xs:1116: invalid lvalue in assignment
make: *** [GD.o] Error 1
------------------------------
Date: Sun, 26 Jan 2003 08:02:38 GMT
From: Philip Washington <phwashington@attbi.com>
Subject: Re: problem loading GD.pm
Message-Id: <3E339727.5080306@attbi.com>
Nevermind, I had the wrong libgd version.
Okay, Okay, its my week to be the nit.
Philip Washington wrote:
> When I try to load GD.pm on a RH8 system I get the following errors.
> Can anyone tell me what this means?
>
> make
> gcc -c -I/usr/local/include -I/usr/local/include/gd -D_REENTRANT
> -D_GNU_SOURCE -fno-strict-aliasing -D_LARGEFILE_SOURCE
> -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm -O2 -march=i386 -mcpu=i686
> -DVERSION=\"2.06\" -DXS_VERSION=\"2.06\" -fpic
> "-I/usr/lib/perl5/5.8.0/i386-linux-thread-multi/CORE" GD.c
> cc1: warning: changing search order for system directory
> "/usr/local/include"
> cc1: warning: as it has already been specified as a non-system directory
> GD.xs: In function `newDynamicCtx':
> GD.xs:345: structure has no member named `gd_free'
> GD.xs: In function `gd_cloneDim':
> GD.xs:365: structure has no member named `alpha'
> GD.xs:365: structure has no member named `alpha'
> GD.xs:371: structure has no member named `thick'
> GD.xs:371: structure has no member named `thick'
> GD.xs: In function `XS_GD__Image_newFromPngData':
> GD.xs:499: structure has no member named `gd_free'
> GD.xs: In function `XS_GD__Image_newFromGdData':
> GD.xs:518: structure has no member named `gd_free'
> GD.xs: In function `XS_GD__Image_newFromGd2Data':
> GD.xs:535: structure has no member named `gd_free'
> GD.xs: In function `XS_GD__Image_newFromWBMPData':
> GD.xs:580: structure has no member named `gd_free'
> GD.xs: In function `XS_GD__Image_copyRotate90':
> GD.xs:933: invalid lvalue in assignment
> GD.xs:933: invalid lvalue in assignment
> GD.xs: In function `XS_GD__Image_copyRotate180':
> GD.xs:954: invalid lvalue in assignment
> GD.xs:954: invalid lvalue in assignment
> GD.xs: In function `XS_GD__Image_copyRotate270':
> GD.xs:975: invalid lvalue in assignment
> GD.xs:975: invalid lvalue in assignment
> GD.xs: In function `XS_GD__Image_copyFlipHorizontal':
> GD.xs:996: invalid lvalue in assignment
> GD.xs:996: invalid lvalue in assignment
> GD.xs: In function `XS_GD__Image_copyFlipVertical':
> GD.xs:1017: invalid lvalue in assignment
> GD.xs:1017: invalid lvalue in assignment
> GD.xs: In function `XS_GD__Image_copyTranspose':
> GD.xs:1038: invalid lvalue in assignment
> GD.xs:1038: invalid lvalue in assignment
> GD.xs: In function `XS_GD__Image_copyReverseTranspose':
> GD.xs:1059: invalid lvalue in assignment
> GD.xs:1059: invalid lvalue in assignment
> GD.xs: In function `XS_GD__Image_rotate180':
> GD.xs:1079: invalid lvalue in assignment
> GD.xs:1079: invalid lvalue in assignment
> GD.xs:1080: invalid lvalue in assignment
> GD.xs:1080: invalid lvalue in assignment
> GD.xs: In function `XS_GD__Image_flipHorizontal':
> GD.xs:1097: invalid lvalue in assignment
> GD.xs:1097: invalid lvalue in assignment
> GD.xs:1098: invalid lvalue in assignment
> GD.xs:1098: invalid lvalue in assignment
> GD.xs: In function `XS_GD__Image_flipVertical':
> GD.xs:1115: invalid lvalue in assignment
> GD.xs:1115: invalid lvalue in assignment
> GD.xs:1116: invalid lvalue in assignment
> GD.xs:1116: invalid lvalue in assignment
> make: *** [GD.o] Error 1
>
------------------------------
Date: Sun, 26 Jan 2003 08:34:42 +0200
From: "Pons" <pons@gmx.li>
Subject: script
Message-Id: <b0vv6u$tgjsb$1@ID-172702.news.dfncis.de>
Greetings
I am gonna switch to new AIX Orcale system with load balance,
due to that I have to change the Alias and HOST IP in all
tnsnames files (tnsname.txt) of my Win2k remote users,
I do not want to do it manually. I want to write a script
to search for tnsnames file tnsnames.txt on remote windows
win2k machines C: and D: and replace it with a new tnsnames,
then I am going place the script on my FreeBSD Intranet web server
to be accessd by double click in order to replace the file.
any help in this issue.
-Pons
pons@gmx.li
------------------------------
Date: Sun, 26 Jan 2003 12:25:14 +1100
From: "Tintin" <me@privacy.net>
Subject: Re: Split question
Message-Id: <b0vdds$sn4gj$1@ID-172104.news.dfncis.de>
"Thomas Brooks" <tombrooks.nospam@hotmail.com> wrote in message
news:NLudnb_Hi8uKm6-jXTWc3Q@comcast.com...
[repeat of yet another multi-posted question in alt.perl]
Please read up http://www.cs.tut.fi/~jkorpela/usenet/xpost.html before you
next post.
------------------------------
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.
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 V10 Issue 4467
***************************************
