[12652] in Perl-Users-Digest
Perl-Users Digest, Issue: 61 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jul 7 15:17:17 1999
Date: Wed, 7 Jul 1999 12:06:13 -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 Wed, 7 Jul 1999 Volume: 9 Number: 61
Today's topics:
Modifying a variable inside a sub sshark97@my-deja.com
Re: Modifying a variable inside a sub (Gary O'Keefe)
Re: Modifying a variable inside a sub (elephant)
My last hope (J. J. Goodrich)
Re: My last hope (Andreas Fehr)
Re: My last hope <mike@crusaders.no>
Re: Need to install perls DBI for NT gene158@my-deja.com
Re: Need to install perls DBI for NT (Andreas Fehr)
NewBie question <nickf@pacific.net.sg>
Re: NewBie question <martin@adoma.se>
Re: NewBie question <qpkasha@epk.ericsson.se>
Re: NewBie question (Brian Pontz)
Newbie: Get all directories in a directory: (Rory C-L)
Re: Newbie: Get all directories in a directory: <rgz@soft-mountain.com>
Re: NT DBI Install Problem gene158@my-deja.com
Re: NT DBI Install Problem (Andreas Fehr)
opening a pipe (Brian Orpin)
Re: Perl and Borland C++ Builder 4 on Win98 <dchristensen@california.com>
Re: Perl Expert Systems?? <jsjensen@Paramin.COM>
PERL for mainframe SMF data? dtruslow@my-deja.com
Re: PERL for mainframe SMF data? <cassell@mail.cor.epa.gov>
Re: PERL for mainframe SMF data? (Abigail)
Re: Perl interpreter not invoked (Abigail)
Re: perl string <makky@hongkong.com>
Perl/CGI Combined file upload & e-mail ameldridge@gecapital.com
Re: Perl/CGI Combined file upload & e-mail <jukka.juslin@cern.ch>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 07 Jul 1999 08:17:45 GMT
From: sshark97@my-deja.com
Subject: Modifying a variable inside a sub
Message-Id: <7lv2f3$716$1@nnrp1.deja.com>
I want to modify modify a variable inside a sub. E.g.
$apple = 'red'
print "$apple\n";
emptyIt(\%apple);
print "$aplle\n";
sub emptyIt() {
$h = shift;
$h = 'blue';
}
First 'red' is printed, and SUPPOSINGLY 'blue' is gonna be printed
but 'red' is printed for the second time. How do I change $apple
to 'blue'.
Thanks
/lim/
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 07 Jul 1999 09:54:37 GMT
From: gary@onegoodidea.com (Gary O'Keefe)
Subject: Re: Modifying a variable inside a sub
Message-Id: <37831f5b.4356805@news.hydro.co.uk>
On Wed, 07 Jul 1999 08:17:45 GMT, sshark97@my-deja.com wrote:
>I want to modify modify a variable inside a sub. E.g.
>
>$apple = 'red'
>print "$apple\n";
>emptyIt(\%apple);
This IS NOT how to reference a scalar. This creates a reference to a
hash. Which doesn't exist anyway. Use perl -w for goodness sake. RTFF.
>print "$aplle\n";
>
>sub emptyIt() {
> $h = shift;
> $h = 'blue';
$h is supposed to be a reference. In order to assign a value to the
variable it refers to you have to dereference it first.
>}
phys-nhhdasrvr:nhhdaba> cat test.pl
#!/usr/local/bin/perl -w # <- check it out
use strict; # <- check this out too
my $apple = 'red';
print ( "$apple\n" );
emptyIt ( \$apple ); # create a reference to the scalar
print ( "$apple\n" );
sub emptyIt {
my $ref = shift;
${ $ref } = 'blue'; # dereference and assign
}
phys-nhhdasrvr:nhhdaba> test.pl
red
blue
Hope this helps
Gary
--
Gary O'Keefe
gary@onegoodidea.com
You know the score - my current employer has nothing to do with what I post
------------------------------
Date: Wed, 7 Jul 1999 19:40:37 +1000
From: e-lephant@b-igpond.com (elephant)
Subject: Re: Modifying a variable inside a sub
Message-Id: <MPG.11edcba2c4e48787989b11@news-server>
sshark97@my-deja.com writes ..
>$apple = 'red'
>print "$apple\n";
>emptyIt(\%apple);
>print "$aplle\n";
>
>sub emptyIt() {
> $h = shift;
> $h = 'blue';
>}
there are so many things wrong with this code
$apple = 'red' # missing semi-colon
print "$apple\n"; # one of three correct lines
emptyIt(\%apple); # check the perlref and perldata manuals you're
# passing a reference to a new hash called %apple
print "$aplle\n"; # misspelling apple
sub emptyIt() { # second of the three correct lines
$h = shift; # third
$h = 'blue'; # check perlred manual - it really is stated very
# plainly in there
} # no points for this line - too easy
>First 'red' is printed, and SUPPOSINGLY 'blue' is gonna be printed
there's only one person in this newsgroup who would suppose that
--
jason - remove all hyphens for email reply -
------------------------------
Date: Wed, 7 Jul 1999 09:38:55 -0400 (EDT)
From: JJ353@webtv.net (J. J. Goodrich)
Subject: My last hope
Message-Id: <16173-3783586F-8@newsd-199.iap.bryant.webtv.net>
Ok I once saw a script that would automatically retrieve your time zone
some how...It would some how figure out your time zone and display the
time for that time zone on the page does anyone have this script?
------------------------------
Date: Wed, 07 Jul 1999 14:56:39 GMT
From: backwards.saerdna@srm.hc (Andreas Fehr)
Subject: Re: My last hope
Message-Id: <378364fa.32954996@news.uniplus.ch>
On Wed, 7 Jul 1999 09:38:55 -0400 (EDT), JJ353@webtv.net (J. J.
Goodrich) wrote:
>Ok I once saw a script that would automatically retrieve your time zone
>some how...It would some how figure out your time zone and display the
>time for that time zone on the page does anyone have this script?
>
On some systems there is a environment variable (as we call them on
DOS) TZ=MET-1DST
Andreas
------------------------------
Date: Wed, 7 Jul 1999 17:13:03 +0200
From: "Trond Michelsen" <mike@crusaders.no>
Subject: Re: My last hope
Message-Id: <%7Kg3.214$hg4.1851@news1.online.no>
Andreas Fehr <backwards.saerdna@srm.hc> wrote in message
> >Ok I once saw a script that would automatically retrieve your time zone
> >some how...It would some how figure out your time zone and display the
> >time for that time zone on the page does anyone have this script?
> On some systems there is a environment variable (as we call them on
> DOS) TZ=MET-1DST
Uhm - If I got it right he's asking for a way to determine the timezone of
the user that visits the page. AFAIK there are no CGI-variables that will
reveal anything about the timezone of the visitor, so unless he wants to
guesstimate based on IP-address (*shiver*) he'd be better off trying to do
this in javascript.
--
Trond Michelsen
------------------------------
Date: Wed, 07 Jul 1999 13:55:56 GMT
From: gene158@my-deja.com
Subject: Re: Need to install perls DBI for NT
Message-Id: <7lvm96$d89$1@nnrp1.deja.com>
In article <7lj7rh$7p62@news.cyber.net.pk>,
"Faisal Nasim" <swiftkid@bigfoot.com> wrote:
> <gene158@my-deja.com> wrote in message news:7lgfh9
$mis$1@nnrp1.deja.com...
> > I am trying to install a DBI for perl. I tried to do what the readme
> > file said perl Makefile.PL but only makefile.pl works, then make
did
>
> <snip>
>
> If you are using ActivePerl, then use PPM to download DBI.
>
> c:\winnt>ppm
> ppm>install DBI
> do you want to install DBI (y/n)? y
I am using Active perl and I tried it but nothing happened.
Do I have to set my path to set HTTP_proxy=http://proxy:8080
like it said in perl faq for ppm to work?
When I try I still get "fatal error U1073"
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 07 Jul 1999 14:19:18 GMT
From: backwards.saerdna@srm.hc (Andreas Fehr)
Subject: Re: Need to install perls DBI for NT
Message-Id: <378361ae.32111043@news.uniplus.ch>
On Wed, 07 Jul 1999 13:55:56 GMT, gene158@my-deja.com wrote:
>In article <7lj7rh$7p62@news.cyber.net.pk>,
> "Faisal Nasim" <swiftkid@bigfoot.com> wrote:
>> <gene158@my-deja.com> wrote in message news:7lgfh9
>$mis$1@nnrp1.deja.com...
>> > I am trying to install a DBI for perl. I tried to do what the readme
>> > file said perl Makefile.PL but only makefile.pl works, then make
>did
>>
>> <snip>
>>
>> If you are using ActivePerl, then use PPM to download DBI.
>>
>> c:\winnt>ppm
>> ppm>install DBI
>> do you want to install DBI (y/n)? y
>
>I am using Active perl and I tried it but nothing happened.
>Do I have to set my path to set HTTP_proxy=http://proxy:8080
>like it said in perl faq for ppm to work?
>
>When I try I still get "fatal error U1073"
>
>
>
>Sent via Deja.com http://www.deja.com/
>Share what you know. Learn what you don't.
Goto http://www.activestate.com/packages/zips/
and load the DBI zip.
Unzip it and install it with ppm install DBI.ppg
Andreas
------------------------------
Date: Wed, 07 Jul 1999 16:41:00 +0800
From: Nick <nickf@pacific.net.sg>
Subject: NewBie question
Message-Id: <3783129B.41DC917E@pacific.net.sg>
Hi,
I am attempting to write a html file using the CGI module.
Its suppose to say "hello". saved in file hello.pl
However i'd like to know what i'd have to do to view this in a web
browser.
It seems to format out fine in dos mode. ie perl hello.pl shows the
html syntax and all.
Just can't open the darn file in a web browser..
Thanks in advance..
Nick
------------------------------
Date: Wed, 07 Jul 1999 13:59:25 +0100
From: Martin Quensel <martin@adoma.se>
Subject: Re: NewBie question
Message-Id: <37834F2D.5836E63C@adoma.se>
Nick wrote:
>
> Hi,
>
> I am attempting to write a html file using the CGI module.
> Its suppose to say "hello". saved in file hello.pl
> However i'd like to know what i'd have to do to view this in a web
> browser.
> It seems to format out fine in dos mode. ie perl hello.pl shows the
> html syntax and all.
> Just can't open the darn file in a web browser..
Just rename the file hello.pl to hello.txt and open it in your
webbrowser.
I Guess this isent what your after, try this instead.
If you want to exec the program, and have its output in your
webbrowser..then you put it in the cgi-bin directory of your webserver.
If you just want to generate a HTML file you can have your program
writing to a diffrent filehandle, than STDOUT.
Best regards
Martin Quensel
------------------------------
Date: Wed, 07 Jul 1999 14:30:11 +0200
From: Andreas Hagelberg <qpkasha@epk.ericsson.se>
Subject: Re: NewBie question
Message-Id: <37834852.E6351CB9@epk.ericsson.se>
> I am attempting to write a html file using the CGI module.
> Its suppose to say "hello". saved in file hello.pl
> However i'd like to know what i'd have to do to view this in a web
> browser.
> It seems to format out fine in dos mode. ie perl hello.pl shows the
> html syntax and all.
> Just can't open the darn file in a web browser..
You must specify the mime-type of the data you're sending to the
browser. This is done by, before printing anything else, printing
"Content-type: text/html\n\n" (minus the quotes of course). Note the two
linefeeds. If you don't want to output a html-file, but just simple text
you should instead use "Content-type: text/plain\n\n". For a gif-image
you would use image/gif and so on...
______________________________________________________________________
ANDREAS HAGELBERG - Student at "Högskolan i Karlskrona/Ronneby
- IT-consultant at Ericsson Software Technology AB
- Webmaster at AllGlobal (http://allglobal.com)
+ E-mail: tlb@algonet.se or di97aha@student.hk-r.se
+ Web: http://www.algonet.se/~tlb - Visual Systems Check
+ Addres: Stenbocksvägen 6, SE-372 37 Ronneby, SWEDEN
+ ICQ UIN: 128240
+ Tel: +46-(0)457-19141
_______________________________________
------------------------------
Date: Wed, 07 Jul 1999 13:49:48 GMT
From: pontz@channel1.com (Brian Pontz)
Subject: Re: NewBie question
Message-Id: <378359d8.72071566@news2.channel1.com>
On Wed, 07 Jul 1999 14:30:11 +0200, Andreas Hagelberg
<qpkasha@epk.ericsson.se> wrote:
>you should instead use "Content-type: text/plain\n\n".
Shouldnt need to do this if your using the CGI module. You can do
something like this
#!/usr/local/bin/perl
use CGI qw/:standard/; # load standard CGI routines
print header, # create the HTTP header
start_html('hello world'), # start the HTML
h1('hello world'), # level 1 header
end_html; # end the HTML
(Gotten from the module documentation )
Brian Pontz
------------------------------
Date: 7 Jul 1999 14:28:27 GMT
From: campbell-lange@easynet.co.uk (Rory C-L)
Subject: Newbie: Get all directories in a directory:
Message-Id: <campbell-lange-0707991528120001@campbell-lange.easynet.co.uk>
Newbie: Get all directories in a directory:
I'm trying to get the full pathnames of a set of nested directories.
I want the full pathname of each directory if possible.
For my test, I have a directory with the following structure: (Please note
that the directory structure of the Macintosh computers I use has a ':' as
its path step.)
test: <---- directory chosen
test doc1
test doc2
test folder 1: <---- directory in test:
test doc4
test folder 2: <---- directory in test:
test doc3
This is the code I'm trying out (which should recursively open each folder
to find each folder within that folder). Its not working and finishes
after opening only one of the two directories in 'test:'
I believe my problem is a '-d' test problem.
I experience this initially by using this code without line 5, the chdir
function (line 5).
I don't really wan't to use chdir as I want full directory paths, however
if I don't use it the -d test doesn't work.
Help much appreciated
Rory
CODE:
1: sub lookin
2: {
3: my $dir = shift;
4: opendir DIR, $dir or die "Can't open $dir $^E";
5: chdir $dir;
6: my @files = readdir DIR;
7: foreach $f (@files)
8: {
9: ++$count;
10: if (-d $f)
11: {
12: lookin($f);
13: } else {
14: #carry on#;
15: }
16: }
17: }
OUTPUT:
*****
Mr Lange:Desktop Folder:test: Directory listing
1 : test doc1 is NOT a directory
2 : test doc2 is NOT a directory
3 : test folder 1 IS a directory
*****
test folder 1 Directory listing
4 : test doc4 is NOT a directory
* 5 : test folder 2 is NOT a directory
* 5 is incorrect : the -d test failed!
--
Rory Campbell-Lange
The Campbell-Lange Workshop
------------------------------
Date: Wed, 07 Jul 1999 17:28:44 +0200
From: Rafael Garcia-Suarez <rgz@soft-mountain.com>
Subject: Re: Newbie: Get all directories in a directory:
Message-Id: <3783722C.D07288A8@soft-mountain.com>
-d "filename" tests if the file "filename" is a directory, but looks in the
*current* directory to find "filename". So, if you don't chdir, test fails (as
the file doesn't exists). You have to prefix "filename" with $dir.
Here is the code I use on Windows to do smthg similar:
sub deepdir {
my @dirs;
my $dir;
for $dir (@_) {
opendir(DIR,$dir) or die "Can't open directory $dir\n";
$pdir = $dir eq '.' ? '' : "$dir\\";
@dirs = grep { !/^\.\.?$/ && ($_ = "$pdir$_") && -d } readdir DIR;
closedir DIR;
print "$_\n" and &deepdir($_) foreach @dirs;
}
}
Rory C-L wrote:
> Newbie: Get all directories in a directory:
>
> I'm trying to get the full pathnames of a set of nested directories.
> I want the full pathname of each directory if possible.
> This is the code I'm trying out (which should recursively open each folder
> to find each folder within that folder). Its not working and finishes
> after opening only one of the two directories in 'test:'
>
> I believe my problem is a '-d' test problem.
> I experience this initially by using this code without line 5, the chdir
> function (line 5).
> I don't really wan't to use chdir as I want full directory paths, however
> if I don't use it the -d test doesn't work.
>
------------------------------
Date: Wed, 07 Jul 1999 13:21:26 GMT
From: gene158@my-deja.com
Subject: Re: NT DBI Install Problem
Message-Id: <7lvk8a$cd0$1@nnrp1.deja.com>
You said "ppm install DBI" but what directory do you write this?
In article <37600E95.1D01349E@mathworks.com>,
Craig Ciquera <craig@mathworks.com> wrote:
> If you are using the ActiveState PERL, then do this:
>
> ppm install DBI
>
> Craig
>
> George Statham wrote:
>
> > These functions are in kernel32.lib. Get rid of the -nodefaultlib
parameter
> > and it should compile.
> >
> > George
> >
> > wbratton wrote:
> >
> > > I'm attempting to install DBI on NT. I get the link errors below
can
> > > anyone help...
> > >
> > > DBI.c
> > > link -out:blib\arch\auto\DBI\DBI.dll -dll -nologo -
nodefaultlib
> > > -release
> > > -machine:x86 DBI.obj
> > > I:\activeperl\5.00502\lib\MSWin32-x86-object\CORE\perlCA
> > > PI.lib i:\activeperl\5.00502\lib\MSWin32-x86-
object\CORE\PerlCRT.lib
> > > -def:DBI.de
> > > f
> > > Creating library blib\arch\auto\DBI\DBI.lib and object
> > > blib\arch\auto\DBI\DBI
> > > .exp
> > > DBI.obj : error LNK2001: unresolved external symbol
> > > __imp__Perl_no_security
> > > perlCAPI.lib(perlCAPI.obj) : error LNK2001: unresolved external
symbol
> > > __imp__In
> > > itializeCriticalSection@4
> > > perlCAPI.lib(perlCAPI.obj) : error LNK2001: unresolved external
symbol
> > > __imp__De
> > > leteCriticalSection@4
> > > PerlCRT.lib(dllmain.obj) : error LNK2001: unresolved external
symbol
> > > __imp__Disa
> > > bleThreadLibraryCalls@4
> > > blib\arch\auto\DBI\DBI.dll : fatal error LNK1120: 4 unresolved
externals
> > >
> > > NMAKE : fatal error U1077: 'link' : return code '0x19'
> > > Stop.
>
>
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 07 Jul 1999 14:31:26 GMT
From: backwards.saerdna@srm.hc (Andreas Fehr)
Subject: Re: NT DBI Install Problem
Message-Id: <37836451.32785733@news.uniplus.ch>
On Wed, 07 Jul 1999 13:21:26 GMT, gene158@my-deja.com wrote:
>You said "ppm install DBI" but what directory do you write this?
>...
Include the perl/bin directory to your path and run the command
in the directory you have the DBI package.
Andreas
------------------------------
Date: Wed, 07 Jul 1999 14:47:14 GMT
From: abuse@borpin.demon.co.uk (Brian Orpin)
Subject: opening a pipe
Message-Id: <37836617.27142180@news.geccs.gecm.com>
I am trying to run this code
open (PIPE, "rlog -r $file |") or die "could not open PIPE rlog\n";
The open works fine but I am trying to catch the case when the rlog fails
(can't find the file).
At the moment all I get is the text pushed out by rlog to STDERR but the
open appears to succeed. I have checked the manual but cannot see an
example or anything that helps (doesn't mean it isn't there though).
Help please.
In a similar vein I looked at the man on system. In there there is a
suggestion that
system(@args) == 0
or die "system @args failed: $?"
would work.
I tried
system("some_command") == 0 or die "system failed"
Which failed to call the some command. If I changed it to
!system("some_command") or die "system failed"
which I found somewhere else in the manual it worked fine. Is the man
wrong or did I miss something subtle/obvious?
Thanks
--
Brian Orpin **Reply to address is valid***
Selfbuilding and It'll be finished one day.
http://www.borpin.demon.co.uk/
------------------------------
Date: Tue, 6 Jul 1999 12:11:34 -0700
From: "David Christensen" <dchristensen@california.com>
Subject: Re: Perl and Borland C++ Builder 4 on Win98
Message-Id: <3782a331@news5.newsfeeds.com>
"Alan Bellingham" <alanb@episys.com> wrote:
>"David Christensen" <dchristensen@california.com> wrote:
>
>>Hello, World!
>>
>>Has anyone tried compiling Perl with Borland C++ Builder 4 on a
>>Win98 box?
>
>Not yet.
>
>I have compiled Perl using C++ Builder 3 on an NT 4 box.
>
>The code in question _should_ build under C++ Builder 4 (I'm still
using
>3 for existing code, though).
>
>It's mostly doing very slight modifications to the build file
based on
>the Borland C++ 5 settings - one object file is in a different
place,
>since Builder is entirely 32-bit, so doesn't have a separate 16
and 32
>bit variant of the file in question.
>
>(And I'm at home, so I can't remember right now what I did.)
Kewl. I thought it could be done. :-)
>>How about embedding Perl in a Builder application, or vice-versa?
>
>Yes.
>
>One special thing about that - just before the include files for
perl,
>#undef PACKAGE.
OK I'll remember that tip.
>>If it hasn't been done yet, I would be very willing to help with
>>the effort. Is there someone knowledgeable who would be willing
to
>>lead?
>
>I _must_ document what I've done.
Yes, please. :-)
>I'm still waiting for the large shipment of round tuits, though.
round tuits (?)
--
David
dchristensen@california.com
borland.public.cppbuilder.language
comp.lang.perl.misc
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Tue, 06 Jul 1999 15:51:08 -0600
From: "J. S. Jensen" <jsjensen@Paramin.COM>
Subject: Re: Perl Expert Systems??
Message-Id: <37827A4C.117C0D7B@Paramin.COM>
John Warner wrote:
> I don't know of such a beast but it might be fun to write one in my spare
> time.
I was thinking the same.
> It's been a long time since I last looked at Prolog so posting some sample
> Prolog code would help.
Hmmm. All the code is very lengthy, but here goes. I am developing a rating
engine (an engine that will produce insurance rates based on criteria).
rate_riskunits([], CurrRslts, CurrRslts, Premium, Premium).
rate_riskunits([H | T], CurrRslts, Results, CurrentPremium, TotalPremium) :-
rate_riskunit(H, CurrRslts, UnitResults, CurrentPremium, UnitPremium),
rate_riskunits(T, UnitResults, Results, UnitPremium, TotalPremium),
!
Okay. If a query into the above knowledgebase matches a list of rates at the
beginning of a call into rate_riskunits, then what I will do is split that
list into a head and tail [H|T] and run it through a single rate_riskunit, and
run the other remaining rate information (the tail list) recursively through
the same predicate. Otherwise, if the tail list is empty [] then that is
considered to return true (.) If nothing at all matches in this functional
description, then return a false.
That is the beginning of a set of calculations for a risk. Then I can assert
certain relationships like this:
codevalue(covlmt, la, bi, [$10/20$, $15/30$, $20/40$, $25/50$, $50/100$,
$100/300$, $250/500$, $500/1000$, $1000/1000$]).
codevalue(covlmt, la, pd, [$5000$, $10000$, $15000$, $20000$, $25000$,
$50000$, $100000$, $250000$, $500000$, $1000000$]).
codevalue(covlmt, la, md, [$500$, $1000$, $2000$, $5000$]).
codevalue(covlmt, la, um, [$10/20$, $15/30$, $20/40$, $25/50$, $50/100$,
$100/300$, $250/500$, $500/1000$, $1000/1000$]).
which will continually add diferent coverages by limts and liability onto the
knowledgebase. Therefore in my call to a single rate_riskunit (sans the
trailing `s') I can look up these certain aforementioned values. Note however
that I have in the range of 1 megabyte of listings like this and other
predicates.
Am I making any sense here? Basically in Prolog, one asserts certain facts,
then a `query' can be made into those facts and the logic engine will compare
all possible cases of those facts matched with the predicates that are given
(as is done in functional languages) then answer that query with a set of
choices that mathematically formalize the criteria set. (I always hope to get
a conical set of just one response ;-)
Anyway, I was hoping to somehow implement this in Perl with an interesting
matching of hashes in a module. Think its possible?
--
J. S. Jensen
mailto:jsjensen@Paramin.COM
http://www.Paramin.COM
------------------------------
Date: Tue, 06 Jul 1999 22:55:56 GMT
From: dtruslow@my-deja.com
Subject: PERL for mainframe SMF data?
Message-Id: <7lu1hm$rom$1@nnrp1.deja.com>
Has anyone used PERL to process MVS SMF or RMF
data? I'm interested in replacing SAS.
Thanks,
Dave
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 06 Jul 1999 17:01:13 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
To: dtruslow@my-deja.com
Subject: Re: PERL for mainframe SMF data?
Message-Id: <378298C9.D4F8FB40@mail.cor.epa.gov>
[courtesy cc mailed to poster]
dtruslow@my-deja.com wrote:
>
> Has anyone used PERL to process MVS SMF or RMF
> data? I'm interested in replacing SAS.
As far as I know, there is not a port for MVS. VMS, yes.
MVS? Haven't seen it.
But a replacement for SAS? Sure, SAS is expensive, but
do you mean that you don't use SAS for anything except
text/numeric processing and reporting? That seems like
a huge waste. If your company is using SAS to do
serious statistical analysis of your RMF data, then you
might want to re-consider junking SAS until you're ready
to write the statistical computing code. A lot of it is
non-trivial.
> Thanks,
You're welcome,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: 6 Jul 1999 19:49:18 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: PERL for mainframe SMF data?
Message-Id: <slrn7o58vp.tch.abigail@alexandra.delanet.com>
David Cassell (cassell@mail.cor.epa.gov) wrote on MMCXXXVI September
MCMXCIII in <URL:news:378298C9.D4F8FB40@mail.cor.epa.gov>:
{}
{} As far as I know, there is not a port for MVS. VMS, yes.
{} MVS? Haven't seen it.
According to 'man perl', perl runs on OS390 - formerly known as MVS.
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 6 Jul 1999 18:38:04 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Perl interpreter not invoked
Message-Id: <slrn7o54q6.tch.abigail@alexandra.delanet.com>
nunez (anunez@europe.ups.com) wrote on MMCXXXV September MCMXCIII in
<URL:news:7lt8rr$9er2@biko.telecom.ups.com>:
@@ I've installed Apache and Perl on WNT and I do not know how to say Apache
@@ the path were the Perl.exe resides. I've looked at the file httpd.conf and
@@ there is nothing about it. So, whenever i try to invoke a perl program, I
@@ get a 500 internal server error. I have my .pl programs at apache/cgi-bin/
@@ directory. Please, i need urgent help. Thanks in advance.
If you need urgent help, posting in a newsgroup where your question
is off topic is not the smartest thing to do.
I suggest one of the following:
- Read the Apache manual and FAQ.
- Call Apache tech support.
- Find an appropriate newsgroup and post your question there.
The higher on the list, the faster you get your answer.
Abigail
--
package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
print } sub __PACKAGE__ { &
print ( __PACKAGE__)} &
__PACKAGE__
( )
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Tue, 06 Jul 1999 17:09:04 +0000
From: mak <makky@hongkong.com>
Subject: Re: perl string
Message-Id: <37823830.6BFDB0E6@hongkong.com>
Mark-Jason Dominus wrote:
> In article <37811D5F.D2491160@hongkong.com>, mak <makky@hongkong.com> wrote:
> > will a function return faster if it returns a
> >string reference instead of a string.
>
> No.
hi, could you explain it in more detail? why this kind of optimization is
useless? thanks.
-mak
------------------------------
Date: Wed, 07 Jul 1999 10:26:50 GMT
From: ameldridge@gecapital.com
Subject: Perl/CGI Combined file upload & e-mail
Message-Id: <7lva13$94d$1@nnrp1.deja.com>
Hello to all,
I need to be able to have a HTML form/Perl/CGI script that will enable
customers to upload a file from their PC & then will automatically send
me an e-mail inform me of this action (complete with the file details,
size, name etc..).
I have been able to perform both these tasks separately but I need
desperately to combine these scripts.
I’m using cgi-lib (kinda hacked around by myself) for the File Upload &
a mailform script (again hacked about) from Bignosebird.com
Thanks in advance
Aaron
ameldridge@mado.co.uk
ameldridge@gecapital.com
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 07 Jul 1999 18:03:33 +0200
From: Jukka Juslin <jukka.juslin@cern.ch>
Subject: Re: Perl/CGI Combined file upload & e-mail
Message-Id: <37837A54.C842F273@cern.ch>
ameldridge@gecapital.com wrote:
>
> Hello to all,
> I need to be able to have a HTML form/Perl/CGI script that will enable
> customers to upload a file from their PC & then will automatically send
> me an e-mail inform me of this action (complete with the file details,
> size, name etc..).
>
> I have been able to perform both these tasks separately but I need
> desperately to combine these scripts.
>
> I?m using cgi-lib (kinda hacked around by myself) for the File Upload &
> a mailform script (again hacked about) from Bignosebird.com
You can do these things quite easily with CGI.pm module. You dont need
to make any HTML, just make one self-generating page.
Uploading goes like this:
print start_multipart_form(),
"Give the name of uploaded file: ",
filefield(-name=>'uploaded file'),
end_form();
++Jukka
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 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.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 61
************************************
