[16135] in Perl-Users-Digest
Perl-Users Digest, Issue: 3547 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jul 10 15:02:20 2000
Date: Mon, 10 Jul 2000 12:02:09 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <963255729-v9-i3547@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 10 Jul 2000 Volume: 9 Number: 3547
Today's topics:
A SQL Base problem <jamesmckay@mailandnews.co.uk>
Re: A SQL Base problem <foo@bar.va>
about mkdir() <lucas@cplhk.com>
Re: about mkdir() <pap@sotonians.org.uk>
Re: about mkdir() (jason)
Re: about mkdir() <graham.wood@iona.com>
Re: about mkdir() <adetalabi@clara.co.uk>
Re: about mkdir() <sariq@texas.net>
Re: about mkdir() (Randal L. Schwartz)
Re: about mkdir() (Bart Lateur)
About setsid() <ildar@mera.ru>
access a func from a nested class <jcwheeler@mediaone.net>
accessing a pm func from a class <jcwheeler@mediaone.net>
Accessing ACLs in Perl <jmoore@image.kodak.com>
Re: Accessing ACLs in Perl (Brandon Metcalf)
Accessing new environmental variables <gene01NOgeSPAM@smalltime.com.invalid>
Re: Accessing new environmental variables <tony_curtis32@yahoo.com>
Re: Accessing new environmental variables (Sam Holden)
Re: Accessing new environmental variables (Abigail)
Re: Accessing new environmental variables <gene01NOgeSPAM@smalltime.com.invalid>
ActivePerl and NT Scheduler <ralph@pcioh.com>
Re: ActivePerl and NT Scheduler <bwalton@rochester.rr.com>
Re: ActiveState Perl installation probs. <murat.uenalan@sietec.de>
Actual directory phil_alex@my-deja.com
Re: Actual directory <Peter.Dintelmann@dresdner-bank.com>
Ad serving question, use php or perl <fakeuw@yahoo.com>
Re: Ad serving question, use php or perl <abouvier@mail.com>
Re: Ad serving question, use php or perl <fakeuw@yahoo.com>
Re: Ad serving question, use php or perl <iltzu@sci.invalid>
AIX and IBM cc and gnu make to compile perl 5-6.0 shapirod112@my-deja.com
RE: AIX and IBM cc and gnu make to compile perl 5-6.0 (H. Merijn Brand)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 5 Jul 2000 11:12:52 -0400
From: James McKay <jamesmckay@mailandnews.co.uk>
Subject: A SQL Base problem
Message-Id: <39696DAA@MailAndNews.com>
Hi All,
I have been unfortunate enough to have be given the task of extracting data
from a Gupta/Centura SQL Base database, for conversion to Oracle. There
appears to be a few untidy, laborious and cumbersome methods of doing this -
mostly involving ODBC. I was wondering if anyone knows of a way of
accomplishing this via Perl?
Thanks in advance
James
James McKay
ORACLE DBA
------------------------------
Date: Wed, 05 Jul 2000 17:41:56 +0200
From: Marco Natoni <foo@bar.va>
Subject: Re: A SQL Base problem
Message-Id: <39635744.767C6918@bar.va>
James,
James McKay wrote:
> I have been unfortunate enough to have be given the task of
> extracting data from a Gupta/Centura SQL Base database, for
> conversion to Oracle.
Condolences... ;)
> There appears to be a few untidy, laborious and cumbersome methods
> of doing this - mostly involving ODBC. I was wondering if anyone
> knows of a way of accomplishing this via Perl?
You can access data via ODBC using an appropriate module called
Win32::ODBC with which you can perform standard SQL query to the
undeling database, even if it is a Gupta product (I think).
Best regards,
Marco
------------------------------
Date: Thu, 6 Jul 2000 23:13:41 +0800
From: "Lucas Tsoi" <lucas@cplhk.com>
Subject: about mkdir()
Message-Id: <8k27ni$ero2@imsp212.netvigator.com>
Hi I met some problem about mkdir()
here is my code:
>mkdir("tmp/$current_usr/product", 077) || message("Cant make directory");
>message("did it");
It tells me "Cant make directory everytime"
but if I write:
>mkdir("tmp/$current_usr", 077) || message("Cant make directory");
>message("did it");
It could "did it" everytime!!!
why?
could anybody tell me?
thanks
------------------------------
Date: Thu, 06 Jul 2000 16:20:40 +0000
From: "Paul Taylor" <pap@sotonians.org.uk>
Subject: Re: about mkdir()
Message-Id: <Xv195.66$_l.3456@nnrp3.clara.net>
In article <8k27ni$ero2@imsp212.netvigator.com>, "Lucas Tsoi"
<lucas@cplhk.com> wrote:
> Hi I met some problem about mkdir() here is my code:
>>mkdir("tmp/$current_usr/product", 077) || message("Cant make
>>directory"); message("did it");
>
> It tells me "Cant make directory everytime"
>
>
> but if I write:
>>mkdir("tmp/$current_usr", 077) || message("Cant make directory");
>>message("did it");
>
> It could "did it" everytime!!!
>
>
> why? could anybody tell me? thanks
>
>
Have you tried calling the mkdir function on tmp/$current_user before
calling it on tmp/$current_user/product?
Perl won't automatically create intermediary directories
if they don't already exist.
Regards,
Pap.
------------------------------
Date: Thu, 06 Jul 2000 15:23:48 GMT
From: elephant@squirrelgroup.com (jason)
Subject: Re: about mkdir()
Message-Id: <MPG.13cf41c91855d03c989773@news>
Lucas Tsoi writes ..
>Hi I met some problem about mkdir()
>here is my code:
>>mkdir("tmp/$current_usr/product", 077) || message("Cant make directory");
>>message("did it");
>
>It tells me "Cant make directory everytime"
>
>
>but if I write:
>>mkdir("tmp/$current_usr", 077) || message("Cant make directory");
>>message("did it");
>
>It could "did it" everytime!!!
the name is a hint .. it's called mkdir .. not mkdirs or mkdirtree or
mkpath
see the documentation .. you can only make one directory - not a whole
path full of 'em
see the File::Path module for how to do what you want in the first code
example
--
jason - elephant@squirrelgroup.com -
------------------------------
Date: Thu, 6 Jul 2000 16:38:32 +0100
From: "Graham Wood" <graham.wood@iona.com>
Subject: Re: about mkdir()
Message-Id: <8k29g4$asd$1@bvweb.iona.com>
Here's a routine that will build whole paths at once, mkdir won't. Mine
uses
system "mkdir"
rather than the native perl thing but tweaking it to use the perl one should
be easy:
usage: &build_path(path you want to build);
sub build_path{ ## create all missing directories in specified path
$wholepath=$_[0]; ## argument is the path you want to make
$wholepath =~ s/^\///; # remove first / (it gets put back in the
loop)
@all_bits=split(/\//,$wholepath);
$built="";
foreach(@all_bits){
$built="$built/$_";
print "adding $_\n";
print "now $built\n";
if( -d $built){
print "already exists\n";
}
else{
system "mkdir $built";
}
}
}
Graham Wood
Lucas Tsoi <lucas@cplhk.com> wrote in message
news:8k27ni$ero2@imsp212.netvigator.com...
> Hi I met some problem about mkdir()
> here is my code:
> >mkdir("tmp/$current_usr/product", 077) || message("Cant make directory");
> >message("did it");
>
> It tells me "Cant make directory everytime"
>
>
> but if I write:
> >mkdir("tmp/$current_usr", 077) || message("Cant make directory");
> >message("did it");
>
> It could "did it" everytime!!!
>
>
> why?
> could anybody tell me?
> thanks
>
>
------------------------------
Date: Thu, 06 Jul 2000 17:34:05 +0100
From: Ade Talabi <adetalabi@clara.co.uk>
Subject: Re: about mkdir()
Message-Id: <3964B4FD.B66E381@clara.co.uk>
Lucas Tsoi wrote:
>
> Hi I met some problem about mkdir()
> here is my code:
> >mkdir("tmp/$current_usr/product", 077) || message("Cant make directory");
> >message("did it");
>
> It tells me "Cant make directory everytime"
>
> but if I write:
> >mkdir("tmp/$current_usr", 077) || message("Cant make directory");
> >message("did it");
>
> It could "did it" everytime!!!
>
> why?
> could anybody tell me?$current_usr
> thankstmp/$current_usr/product
does tmp/$current_usr exist when you tried making
tmp/$current_usr/product? It must exist befofre mkdir works
--
/--------------------------------------------------------------\
| Ade Talabi | Internet : adetalabi@clara.co.uk |
| ::M1ETW:: | Web Page : http://www.net-africa.com |
\--------------------------------------------------------------/
------------------------------
Date: Thu, 06 Jul 2000 13:10:43 -0500
From: Tom Briles <sariq@texas.net>
Subject: Re: about mkdir()
Message-Id: <3964CBA3.FB05A1DE@texas.net>
Paul Taylor wrote:
>
> In article <8k27ni$ero2@imsp212.netvigator.com>, "Lucas Tsoi"
> <lucas@cplhk.com> wrote:
> > Hi I met some problem about mkdir() here is my code:
> >>mkdir("tmp/$current_usr/product", 077) || message("Cant make
> >>directory"); message("did it");
> >
> > It tells me "Cant make directory everytime"
But you should try to find out why. Use $!.
perldoc perlvar
> Have you tried calling the mkdir function on tmp/$current_user before
> calling it on tmp/$current_user/product?
>
> Perl won't automatically create intermediary directories
> if they don't already exist.
perldoc File::Path
- Tom
------------------------------
Date: 06 Jul 2000 13:23:10 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: about mkdir()
Message-Id: <m1puorknyp.fsf@halfdome.holdit.com>
>>>>> "Graham" == Graham Wood <graham.wood@iona.com> writes:
Graham> Here's a routine that will build whole paths at once, mkdir won't. Mine
Graham> uses
Graham> system "mkdir"
Graham> rather than the native perl thing but tweaking it to use the perl one should
Graham> be easy:
There's a shorter one, using only what comes with Perl.
"perldoc File::Path" will tell you the details.
Please stop reinventing the wheel!
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Thu, 06 Jul 2000 20:50:21 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: about mkdir()
Message-Id: <3964ef80.958441@news.skynet.be>
Lucas Tsoi wrote:
>>mkdir("tmp/$current_usr/product", 077) || message("Cant make directory");
>>message("did it");
>
>It tells me "Cant make directory everytime"
Ooh, where did that last word come from?
Anyway: you cannot use mkdir to create a set of nested directories in
one swoop. One at a time.
mkdir "tmp", 0777;
mkdir "tmp/$current_usr", 0777;
mkdir "tmp/$current_usr/product", 0777;
-d "tmp/$current_usr/product"
or die "Damned! directory doesn't exist"
BTW the directory mask is a bit odd. 077? That means the owner can't do
anything in it?
And shouldn't your dirpath be an absolute path, starting with a slash?
--
Bart.
------------------------------
Date: Fri, 07 Jul 2000 12:09:31 +0400
From: Ildar <ildar@mera.ru>
Subject: About setsid()
Message-Id: <3965903A.B7BD87AA@mera.ru>
Hello All !
Does anybody know how to call setsid() syscall inside perl script
without using any external modules, for examply POSIX module
and without using "require syscall.ph;" expression.
setsid needed because script must to disconnect from controlling
terminal (by using fork -setsid -fork sequence).
Maybe exist other methods for disconnecting from controlling terminal
without using setsid() ?
Best regards.
------------------------------
Date: Mon, 10 Jul 2000 08:51:40 -0500
From: John Wheeler <jcwheeler@mediaone.net>
Subject: access a func from a nested class
Message-Id: <3969D4EC.6BBC2CD2@mediaone.net>
I'm trying to access a function in a file called blah.pm (for example).
I have two classes I've defined in to seperate .pm files (lets say
class1.pm and class2.pm). If I try the following
my $newobj = new class1;
$newobj->func();
where func in class1 creates a new instance from class2 as follows:
sub func {
my $self = shift;
my $newobj2 = new class2;
}
class2's "new" looks as follows:
sub new {
my $proto = shift;
my $class = ref ($proto) || $proto;
$self->{field1} = func2();
bless ($self, $class);
return $self;
}
I get an error saying undefined method func2 at class1.pm line ..... you
know the rest.
After the package declaration in class2.pm I also say:
use blah
which contains func2 but does use Export. Not sure if this is my problem
because If I say:
use blah
in class1 I can invoke any of the sub's in blah.pm.
not sure why class1 can "see" these subs, but not class2 if created from
class1. Is there some nesting issue with class creationI don't
understand.
TIA
wheeler
------------------------------
Date: Sun, 09 Jul 2000 16:29:17 -0500
From: John Wheeler <jcwheeler@mediaone.net>
Subject: accessing a pm func from a class
Message-Id: <3968EEAD.D9DAEC17@mediaone.net>
I'm trying to access a function in a file called blah.pm (for example).
I have two classes I've defined in to seperate .pm files (lets say
class1.pm and class2.pm). If I try the following
my $newobj = new class1;
$newobj->func();
where func in class1 creates a new instance from class2 as follows:
sub func {
my $self = shift;
my $newobj2 = new class2;
}
class2's "new" looks as follows:
sub new {
my $proto = shift;
my $class = ref ($proto) || $proto;
$self->{field1} = func2();
bless ($self, $class);
return $self;
}
I get an error saying undefined method func2 at class1.pm line ..... you
know the rest.
After the package declaration in class2.pm I also say:
use blah
which contains func2 but does use Export. Not sure if this is my problem
because If I say:
use blah
in class1 I can invoke any of the sub's in blah.pm.
not sure why class1 can "see" these subs, but not class2 if created from
class1. Is there some nesting issue with class creationI don't
understand.
TIA
wheeler
------------------------------
Date: Thu, 06 Jul 2000 16:12:57 -0400
From: Jim Moore <jmoore@image.kodak.com>
Subject: Accessing ACLs in Perl
Message-Id: <3964E849.8837F569@image.kodak.com>
Is there a way to access ACLs in perl? I am interested in both Solaris
ACLs and NT DACLs.
Thanks in Advance!!!
--
Jim Moore Eastman Kodak Co.
Unix Systems Admin 6/69/RL
716-588-2006 Rochester, NY 14650-1925
jmoore@kodak.com
------------------------------
Date: 7 Jul 2000 06:10:06 GMT
From: bmetcalf@baynetworks.com (Brandon Metcalf)
Subject: Re: Accessing ACLs in Perl
Message-Id: <8k3s7u$d62$1@bcrkh13.ca.nortel.com>
jmoore@image.kodak.com writes:
> Is there a way to access ACLs in perl? I am interested in both Solaris
> ACLs and NT DACLs.
use Solaris::ACL;
not sure about nt.
Brandon
------------------------------
Date: Thu, 06 Jul 2000 14:08:55 -0700
From: gc <gene01NOgeSPAM@smalltime.com.invalid>
Subject: Accessing new environmental variables
Message-Id: <0125a298.c7b1158c@usw-ex0104-033.remarq.com>
I couldn't find this in the FAQ:
Accessing environmental variables present when a perl
script runs is easy enough. What I can't figure out
how to do is to access enivornmental variables that are
set by a system command run within a perl script.
Here is a very simplified example:
system('setenv TESTING 1234');
print $ENV{'TESTING'};
The above doesn't work. Is there a way to do this?
And, obviously, in the example above, I could just directly
set the value of $ENV{TESTING}. In my actual situation,
though the system command is a complex shell script that
sets a variety of variables and I don't wish to duplicate
it within the perl script.
Any ideas?
-----------------------------------------------------------
Got questions? Get answers over the phone at Keen.com.
Up to 100 minutes free!
http://www.keen.com
------------------------------
Date: 06 Jul 2000 16:20:39 -0500
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: Accessing new environmental variables
Message-Id: <87ya3farbs.fsf@limey.hpcc.uh.edu>
>> On Thu, 06 Jul 2000 14:08:55 -0700,
>> gc <gene01NOgeSPAM@smalltime.com.invalid> said:
> I couldn't find this in the FAQ: Accessing environmental
> variables present when a perl script runs is easy
> enough. What I can't figure out how to do is to access
> enivornmental variables that are set by a system command
> run within a perl script. Here is a very simplified
> example:
> system('setenv TESTING 1234'); print $ENV{'TESTING'};
(That's C-shell syntax, system() uses Bourne shell).
> The above doesn't work. Is there a way to do this?
http://www.faqs.org/faqs/unix-faq/faq/part2/
Question 2.8
Also more specifically:
perldoc perlfaq
/environment
[aha!]
perldoc perlfaq8
hth
t
--
"With $10,000, we'd be millionaires!"
Homer Simpson
------------------------------
Date: 6 Jul 2000 21:25:02 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: Accessing new environmental variables
Message-Id: <slrn8m9u9e.rnt.sholden@pgrad.cs.usyd.edu.au>
On Thu, 06 Jul 2000 14:08:55 -0700,
gc <gene01NOgeSPAM@smalltime.com.invalid> wrote:
>I couldn't find this in the FAQ:
>
>Accessing environmental variables present when a perl
>script runs is easy enough. What I can't figure out
>how to do is to access enivornmental variables that are
>set by a system command run within a perl script.
>Here is a very simplified example:
>
>system('setenv TESTING 1234');
>print $ENV{'TESTING'};
perlfaq8: I {changed directory, modified my environment} in a perl
script. How come the change disappeared when I exited the
script? How do I get my changes to be visible?
answers your question, but with the roles reversed - so it is understandable
that you missed it.
>
>The above doesn't work. Is there a way to do this?
Not without modifying the script you are going to call.
>And, obviously, in the example above, I could just directly
>set the value of $ENV{TESTING}. In my actual situation,
>though the system command is a complex shell script that
>sets a variety of variables and I don't wish to duplicate
>it within the perl script.
You could have the script execute 'env' when it is done and have perl grab
that output and split it up and put it into %ENV. The code will be simple
enough, but it will be a bit of a cludge and the performance won't be
as good as doing it all in perl (but in practice shouldn't matter too much).
Another option might be (depending on when the script needs to be run) is to
have the shell script exec the perl script when it is done, that way the
environment will get passed along.
--
Sam
PC's are backwards ... throw them out! Linux is ok though.
--Rob Pike (on the subject of CR/LF etc)
------------------------------
Date: 06 Jul 2000 18:47:00 EDT
From: abigail@delanet.com (Abigail)
Subject: Re: Accessing new environmental variables
Message-Id: <slrn8ma44n.mjo.abigail@alexandra.delanet.com>
gc (gene01NOgeSPAM@smalltime.com.invalid) wrote on MMDI September
MCMXCIII in <URL:news:0125a298.c7b1158c@usw-ex0104-033.remarq.com>:
## I couldn't find this in the FAQ:
##
## Accessing environmental variables present when a perl
## script runs is easy enough. What I can't figure out
## how to do is to access enivornmental variables that are
## set by a system command run within a perl script.
## Here is a very simplified example:
##
## system('setenv TESTING 1234');
## print $ENV{'TESTING'};
##
## The above doesn't work. Is there a way to do this?
No, and that *IS* explained in the FAQ.
## And, obviously, in the example above, I could just directly
## set the value of $ENV{TESTING}. In my actual situation,
## though the system command is a complex shell script that
## sets a variety of variables and I don't wish to duplicate
## it within the perl script.
##
## Any ideas?
Install VMS. ;-)
Abigail
--
perl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %;
BEGIN {% % = ($ _ = " " => print "Just Another Perl Hacker\n")}'
------------------------------
Date: Mon, 10 Jul 2000 11:28:03 -0700
From: gc <gene01NOgeSPAM@smalltime.com.invalid>
Subject: Re: Accessing new environmental variables
Message-Id: <067f1c6a.dcddbdef@usw-ex0104-033.remarq.com>
>##
>## The above doesn't work. Is there a way to do this?
>
>No, and that *IS* explained in the FAQ.
>
The FAQ discusses setting a variable in perl and then having
that variable be accessable after the script has ended. My
question was related but different.
Anyway, the best way I figured out to do this was to create
a shell script that first sources the other shell script that
sets the env vars and then launches the perl script. Why two
scripts? Becuase the key one is not under my control and can
change at any time. Otherwise I'd have done the whole thing in
per
-----------------------------------------------------------
Got questions? Get answers over the phone at Keen.com.
Up to 100 minutes free!
http://www.keen.com
------------------------------
Date: Mon, 03 Jul 2000 11:36:53 -0400
From: Ralph Allan Rice <ralph@pcioh.com>
Subject: ActivePerl and NT Scheduler
Message-Id: <3960B315.77FD9AF3@pcioh.com>
I am using ActivePerl 5.16 and trying to execute a script as a scheduled
task using Win NT's base task scheduler. A console window is created
every time the task is run, and disappears when it is done processing.
This is good when I am at my computer and I am logged in. However, when
the system is locked or I am not logged in, the task never executed. I
presume that since the system is locked, no windows could be created,
leaving the perl process hanging in the Task Manager that cannot be
killed. My question is: can I execute a perl script in the background
without needing a console window?
Thanks,
Ralph.
--
Ralph Allan Rice
System Analyst
Performance Concepts, Inc.
http://www.pcioh.com
------------------------------
Date: Tue, 04 Jul 2000 01:29:24 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: ActivePerl and NT Scheduler
Message-Id: <39613E3A.748A174B@rochester.rr.com>
Ralph Allan Rice wrote:
>
> I am using ActivePerl 5.16 and trying to execute a script as a scheduled
> task using Win NT's base task scheduler. A console window is created
> every time the task is run, and disappears when it is done processing.
> This is good when I am at my computer and I am logged in. However, when
> the system is locked or I am not logged in, the task never executed. I
> presume that since the system is locked, no windows could be created,
> leaving the perl process hanging in the Task Manager that cannot be
> killed. My question is: can I execute a perl script in the background
> without needing a console window?
>
> Thanks,
> Ralph.
>
> --
> Ralph Allan Rice
> System Analyst
> Performance Concepts, Inc.
> http://www.pcioh.com
Ralph, please see the ActiveState "Windows 9X/NT/2000" FAQ, topic "How
do I run a Perl program as a Windows NT service?". That FAQ should be
on your hard drive. You mention Perl version "5.16" above. There isn't
any such version; I assume you mean "5.6". My comment above applies to
ActiveState Perl 5.6 build 613.
Note that when you run as a service, your user environment will not be
present if you are logged out. You may need to add the necessary things
(like a path to Perl) to your system environment.
Note that the question you are asking is really "how do I run a
console-mode program from the NT task scheduler", and as such is not a
Perl question. You may have much better luck with any followup problems
on some Windoze newsgroup somewhere.
--
Bob Walton
------------------------------
Date: Wed, 05 Jul 2000 19:25:31 +0200
From: Murat Uenalan <murat.uenalan@sietec.de>
Subject: Re: ActiveState Perl installation probs.
Message-Id: <39636F8B.EF520315@sietec.de>
Goto to the win32 mailinglist at www.activestate.com/activeperl/
daggins wrote:
> I only get it with the 611 and 613 releases and i've tried on fresh installs
> of both 98SE and W2K. The message i get is the following.
> module C:\Perl\bin\PerlMSG.dll failed to register
> HRESULT -2147023739
>
> I'm pretty sure i've had it installed before without the problem (611 for
> sure) but now i cannot install it no matter what i try.
> Any ideas ?
>
> m@
------------------------------
Date: Wed, 05 Jul 2000 11:44:43 GMT
From: phil_alex@my-deja.com
Subject: Actual directory
Message-Id: <8jv739$25b$1@nnrp1.deja.com>
Hi,
How i can know the directory where my program is running under PERL
WIN32
Regards
Phil
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 5 Jul 2000 14:50:42 +0200
From: "Dr. Peter Dintelmann" <Peter.Dintelmann@dresdner-bank.com>
Subject: Re: Actual directory
Message-Id: <8jvavk$1pj3@intranews.dresdnerbank.de>
Hi,
phil_alex@my-deja.com schrieb in Nachricht <8jv739$25b$1@nnrp1.deja.com>...
>How i can know the directory where my program is running under PERL
>WIN32
there is nothing special about Win32 here.
use FindBin;
Now $FindBin::Bin contains the dir of your script.
Best regards,
Peter Dintelmann
------------------------------
Date: Wed, 5 Jul 2000 08:45:01 -0400
From: "guideclick.com" <fakeuw@yahoo.com>
Subject: Ad serving question, use php or perl
Message-Id: <8jvao2$k14$1@watserv3.uwaterloo.ca>
If you ever use some kinds of ad serving, you might notice that the code for
the hyperlink (A HREF) and the code for IMG must refer to the right ad
Something like:
http://www.domain.com/ad.php?h=host&g=group for link
http://www.domain.com/img.php?h=host&g=group for img src
My question: how the second call (img call) know exactly which link should
it be?
So I saw many places use this technique:
http://www.domain.com/ad.php?h=host&g=group&id=someID
http://www.domain.com/img.php?h=host&g=group&id=someID
So anybody explains this to me please!
--
www.guideclick.com - Selected webmaster resources (affiliate programs, web
design, tips)
www.123finder.com - Free domain name generator. Type in your keywords and
get results
------
Son
------------------------------
Date: Wed, 05 Jul 2000 16:37:16 GMT
From: Anthony Bouvier <abouvier@mail.com>
Subject: Re: Ad serving question, use php or perl
Message-Id: <3963627E.38DBCE49@mail.com>
Perhaps you wish to ask this in a PHP newsgroup?
--
-------------------------------------
Anthony Bouvier
Vagabond Programmer
-------------------------------------
--
------------------------------
Date: Wed, 5 Jul 2000 20:40:52 -0400
From: "guideclick.com" <fakeuw@yahoo.com>
Subject: Re: Ad serving question, use php or perl
Message-Id: <8k3b1d$avm$1@watserv3.uwaterloo.ca>
No, it's a programming question, using Perl or PHP doesn't matter here! I
need the solution/technique, in any language (in English is better!!!)
--
www.guideclick.com - Selected webmaster resources (affiliate programs, web
design, tips)
www.123finder.com - Free domain name generator. Type in your keywords and
get results
------
Son
"Anthony Bouvier" <abouvier@mail.com> wrote in message
news:3963627E.38DBCE49@mail.com...
> Perhaps you wish to ask this in a PHP newsgroup?
>
> --
> -------------------------------------
> Anthony Bouvier
> Vagabond Programmer
> -------------------------------------
> --
>
>
------------------------------
Date: 7 Jul 2000 10:36:38 GMT
From: Ilmari Karonen <iltzu@sci.invalid>
Subject: Re: Ad serving question, use php or perl
Message-Id: <962966077.1325@itz.pp.sci.fi>
In article <8k3b1d$avm$1@watserv3.uwaterloo.ca>, guideclick.com wrote:
>No, it's a programming question, using Perl or PHP doesn't matter here! I
>need the solution/technique, in any language (in English is better!!!)
Then why on earth are you posting in a Perl-specific group??
[followups set to a more appropriate forum]
--
Ilmari Karonen - http://www.sci.fi/~iltzu/
"The screwdriver *is* the portable method." -- Abigail
Please ignore Godzilla and its pseudonyms - do not feed the troll.
------------------------------
Date: Thu, 06 Jul 2000 17:10:46 GMT
From: shapirod112@my-deja.com
Subject: AIX and IBM cc and gnu make to compile perl 5-6.0
Message-Id: <8k2eic$7hb$1@nnrp1.deja.com>
Hello,
I am having a difficult time compiling perl on my AIX 4.3.2.0 box
(workgroup server F40). It stops on pp_sys.c and complains about two
different things from lines 4306-4648. Here are examples of the two
messages:
line 4306.14: 1506-068 (w) Operation between types "struct hostent*"
and "int" is not allowed.
line 4338.21: 1506-285 (S) The indirection operator cannot be applied
to a pointer to an incomplete struct or union.
It ends with an Error 1. Has anybody seen this and overcome it?
I tried this with gcc 2.95.2 and it stops on pp_sys.c too.
Please help.
David
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 6 Jul 00 20:23:12 +0200
From: h.m.brand@hccnet.nl (H. Merijn Brand)
Subject: RE: AIX and IBM cc and gnu make to compile perl 5-6.0
Message-Id: <8F69CD959Merijn@192.0.1.90>
shapirod112@my-deja.com wrote in <8k2eic$7hb$1@nnrp1.deja.com>:
>Hello,
>
>I am having a difficult time compiling perl on my AIX 4.3.2.0 box
>(workgroup server F40). It stops on pp_sys.c and complains about two
>different things from lines 4306-4648. Here are examples of the two
>messages:
>
>line 4306.14: 1506-068 (w) Operation between types "struct hostent*"
>and "int" is not allowed.
>
>line 4338.21: 1506-285 (S) The indirection operator cannot be applied
>to a pointer to an incomplete struct or union.
>
>It ends with an Error 1. Has anybody seen this and overcome it?
>
>I tried this with gcc 2.95.2 and it stops on pp_sys.c too.
>
>Please help.
Did you upgrade to the latest vac version?
If you did, I'd be glad to pass on my config.sh
# lslpp -L | grep -i vac
vac.C 4.4.0.3 C C for AIX Compiler
vac.C.readme.ibm 4.4.0.1 C C for AIX iFOR/LS Information
vac.html.SBCS.search 4.4.0.0 C C for AIX Compiler Documentation
vac.html.common.search 4.4.0.0 C C for AIX Compiler Documentation
vac.html.en_US.C 4.4.0.0 C C for AIX Compiler Documentation
vac.html.en_US.search 4.4.0.0 C C for AIX Compiler Documentation
vac.msg.en_US.C 4.4.0.0 C C for AIX Compiler Messages -
#
--
H.Merijn Brand
using perl5.005.03 and 5.6.0 on HP-UX 10.20, HP-UX 11.00, AIX 4.2, AIX 4.3,
DEC OSF/1 4.0 and WinNT 4.0 SP-6a, often with Tk800.022 and/or DBD-Unify
ftp://ftp.funet.fi/pub/languages/perl/CPAN/authors/id/H/HM/HMBRAND/
Member of Amsterdam Perl Mongers (http://www.amsterdam.pm.org/)
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 3547
**************************************
