[12956] in Perl-Users-Digest
Perl-Users Digest, Issue: 366 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Aug 4 14:07:29 1999
Date: Wed, 4 Aug 1999 11:05:09 -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, 4 Aug 1999 Volume: 9 Number: 366
Today's topics:
Re: $/ for cross platform text files? (Bart Lateur)
Re: [offtopic]RE:Quot St and the Jeop Gm (llornkcor@earthlink.net)
Re: [was]Re: reg expression <aqumsieh@matrox.com>
chomp not working jembow@my-deja.com
Hash (Robert Saunders)
Re: How can I know what modules are installed on server <flavell@mail.cern.ch>
Re: How to access only last field of a split ? <sweather@fastenal.com>
Re: How to compare two files and get the differences ? <andycha@globalnet.co.uk>
Re: looking for XML comments <cassell@mail.cor.epa.gov>
Re: Matching (Michel Dalle)
Nevermind <perlking@hotmail.com>
Newbie: how do I send shell script output to my perl pr <russell.zah@tellabs.com>
PDF file not rendered on Explorer <kumar_ratna@hotmail.com>
Perl/ld issues under AIX (Re: BerkeleyDB on AIX) <kanala@sc2a.unige.ch>
Re: Possible to get a HTML file from somewhere and use <cassell@mail.cor.epa.gov>
Re: Reading the binary files in Perl <doughera@lafayette.edu>
Re: Repetition in RE substitutions (Larry Rosler)
Re: server-side databases <cassell@mail.cor.epa.gov>
SET interface <eisfach@my-deja.com>
Re: socket.ph (Malcolm Ray)
Re: truncating decimals <paulm@dirigo.com>
Re: truncating decimals <Allan@due.net>
Re: Using CGI.pm to Retrieve Image <dsparling@my-deja.com>
Where to post this? <jamie@hbe.ca>
Re: Why is it.... (Ben Coleman)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 04 Aug 1999 17:36:00 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: $/ for cross platform text files?
Message-Id: <37aa78a2.3410567@news.skynet.be>
Rolf Howarth wrote:
>Think HTML and HTTP for example, all
>the relevant RFCs state that any of \012, \015 or \015\012 are equally
>valid as end of line delimiters.
Now we're on that subject...
Do you know what trick SGML (mother of HTML) uses to accept CR, LF and
CRLF as line terminators? Sorry, I call it a trick. There's no other
word for it.
Well: CR is recognized as a line end, RE (Record End) in SGML lingo. LF
is recognized as line start, RS (Record Start). Either is optional,
implied. So a line starts with and optional LF, and ends with an
optional CR. Of course, you need at least one of either, to separate the
lines.
The odd thing is, of course, that DOS and Unix files that neatly end
each line with CR+LF or LF, seem to have an empty line at the end...
Which is ignored, of course. ;-)
Bart.
------------------------------
Date: 04 Aug 1999 10:48:33 -0600
From: llornkcor@earthlink.net (llornkcor@earthlink.net)
Subject: Re: [offtopic]RE:Quot St and the Jeop Gm
Message-Id: <wkyafrv6e6.fsf@earthlink.net>
lr@hpl.hp.com (Larry Rosler) writes:
>> Maybe you don't know how to use 'perldoc'. Or perhaps you work on a
>> winblows machine that doesn't offer little useful utilities such as
>> 'grep'.
hmm, maybe there isn't very good info on using perldoc? Oh, there's a
few explainations on perldoc perl, but where's perldoc perldoc??? :o)
my windlows system has grep...
and also ls, sort and a bunch of unix commands.
but I am not talking about a windblows system, I am talking linux.
------------------------------
Date: Wed, 4 Aug 1999 11:30:48 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: [was]Re: reg expression
Message-Id: <x3yvhavd0lz.fsf@tigre.matrox.com>
llornkcor <llornkcor@earthlink.net> writes:
> but I digress. I just feel bad for people coming here for help, and
> getting
> dug into to read the FAQ. While I admit, is good advice, not everyone
> has time,
> nor wants to delve full throttle into the multitudes of perl FAQ's, to
> find
> one seemingly simple answer. When you, with your vast amount of perl
> knowledge,
> could give a solid answer in a line or two, but choose not too.
Ok .. so you are assuming that some people's time is more valuable
than others. Just because some people know Perl very well, then they
should spend all their time answering to questions that were answered
millions of time before. And for free!!
Does this make sense to you? This is precisely the kind of attitude
that ticks off most regulars on this ng, and rightly so!
The FAQs were written for this purpose. Use them.
> And about teaching... you teach here just by sharing your knowledge.
The FAQs were written for this purpose. Use them.
> Perhaps having an intermediate/advanced ng and a separate newbie perl
> ng
> might help. I dunno.
No. Perhaps teaching newbies some respect to the others and some FAQ
reading skills might help. I know.
And, your newsreader is broken again. Please configure it to wrap up
at 72 characters or so. If helps a lot.
Ala
------------------------------
Date: Wed, 4 Aug 1999 10:51:21 -0700
From: jembow@my-deja.com
To: "comp.lang.perl.misc@list.deja.com" <comp.lang.perl.misc@list.deja.com>
Subject: chomp not working
Message-Id: <v04210107b3ce2de2f91e@[206.169.190.24]>
Just learning Perl, each time i try to use chomp i get the following error:
""chomp" may clash with future reserved word at ./chomp_test line
3syntax error i
n file ./chomp_test at line 3, next 2 tokens "chomp("
Execution of ./chomp_test aborted due to compilation errors."
I'm using perl5.00502 on FreeBSD 2.2.8
Any explainations/ suggestions?
TIA, johnne
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 04 Aug 1999 17:16:26 GMT
From: robert@iminet.com (Robert Saunders)
Subject: Hash
Message-Id: <EAA137524E29D0D7.5EFC838768483E0F.9A8154663B7E4DA4@lp.airnews.net>
I am new to working with hashes.
I have read all the documentation I can find on hashes, but I just
don't quiet understand it yet..
When I do a..
my $packet_info = Dumper( $obj );
Below is what it returns in the variable $packet_info.. what would be
the easiest way to access the variables in SEQNUM.. or SESSIONID..
$VAR1 = bless( {
'value' => {
'SEQNUM' => bless( {
'value' => 5337
}, 'WDDX::String' ),
'SESSIONID' => bless( {
'value' => 998
}, 'WDDX::String'
),
}
}, 'WDDX::Hash' );
Robert Saunders
robert@iminet.com
------------------------------
Date: Wed, 4 Aug 1999 18:52:48 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: How can I know what modules are installed on server?
Message-Id: <Pine.HPP.3.95a.990804184825.494H-100000@hpplus03.cern.ch>
On 3 Aug 1999, 99% Energy wrote:
> In your striving for perfect internet etiquette you forget the main point of
> the internet in the first place: comunication.
Pot, kettle, black. In your determination to impose a sub-standard
communication style, even when the well-honed customs are pointed out to
you, _you_ are the one who is reponsible for the impaired communication
that you are bleating about. Now please, move this discussion to the
news.admin.* hierarchy where it belongs, and when you've convinced them
over there of the benefits of your new rules, we can all join in.
Meantime, while you're here, kindly fit yourself in.
> I don't care if you get so offended
We'd noticed. You're for the killfile.
[f'up]
------------------------------
Date: Wed, 4 Aug 1999 12:14:34 -0500
From: "Sam Weatherhead" <sweather@fastenal.com>
Subject: Re: How to access only last field of a split ?
Message-Id: <7o9sdl$c2@enews3.newsguy.com>
If I'm understanding you right, when you do a split the results get thrown
into an array.
If you then want to access only the last element of the array, just use the
name of the
array but with a $# in front of it as the subscript.
Example:
$String = "1,2,3,4,5,6,7,8,9,10";
@Simple_Array = split( "," , $String );
$Last_Field = $Simple_Array[ $#Simple_Array ];
print "\nLast Field is: ", $Last_Field, "\n";
RESULT:
Last Field is: 10
Sam Weatherhead
Fastenal
John Hennessy <john@hendigital.com.au> wrote in message
news:01bedc97$7a0d0a80$f34f39cb@stingray...
> Hi, I am wanting to access only the last field of a split line.
> Is there a quick way of doing this keeping in mind I won't know
> how many fields will be returned in the line.
>
> Example line...
>
> word.10.word.20.30.40.50
>
>
> Thanks
>
> John.
------------------------------
Date: Wed, 4 Aug 1999 18:41:34 +0100
From: "Andy Chantrill" <andycha@globalnet.co.uk>
Subject: Re: How to compare two files and get the differences ?
Message-Id: <7o9u8k$l9q$1@gxsn.com>
Heh, I just wrote a script to compare hundreds of thousands of files on my
machine... it's not so hard.
If you need help in writing it, lemme know.
Thanks,
Andy.
Abigail wrote in message ...
>Yeong Mo/Director Hana co. (factory@factory.co.kr) wrote on MMCLXIII
>September MCMXCIII in <URL:news:7o7pjc$3ht$1@news1.kornet.net>:
>,, Thank you and sorry for bother all you guys.
>,, Unfortunatly, It is too hard for me. I can't handle this through your
>,, directions.
>,, Let me get more advice for this , please.
>
>Here's some more advice, specially for you:
>
> - Hire professional help!
> - Hire someone with a clue!
> - Step away from the keyboard!
>
>
>
>Abigail
>--
>sub camel
(^#87=i@J&&&#]u'^^s]#'#={123{#}7890t[0.9]9@+*`"'***}A&&&}n2o}00}t324i;
>h[{e
**###{r{+P={**{e^^^#'#i@{r'^=^{l+{#}H***i[0.9]&@a5`"':&^;&^,*&^$43##@@####;
>c}^^^&&&k}&&&}#=e*****[]}'r####'`=437*{#};::'1[0.9]2@43`"'*#==[[.{{],,,1278
@#@);
>print+((($llama=prototype'camel')=~y|+{#}$=^*&[0-9]i@:;`"',.|
|d)&&$llama."\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: Wed, 04 Aug 1999 10:57:15 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: looking for XML comments
Message-Id: <37A87EFB.C3A0C5E0@mail.cor.epa.gov>
Abigail wrote:
>
> Chris Denman (chris@inta.net.uk) wrote on MMCLXIII September MCMXCIII in
> <URL:news:7o6e43$22dj$1@news2.vas-net.net>:
> ||
> || [XML stuff]
> ||
> || Comments would be greatly appreciated.
>
> As you might know, this is comp.lang.PERL.misc. Perl. The programming
> language Perl. We do not discuss marbles here. We do not discuss the
> Roman empire here. Nor do we discuss moose mousse.
Can we still discuss the Spanish Inquisition?
Can we at least apply to certain posters?
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Wed, 04 Aug 1999 17:07:57 GMT
From: michel.dalle@usa.net (Michel Dalle)
Subject: Re: Matching
Message-Id: <7o9s69$ght$1@news.mch.sbs.de>
In article <7o9l8s$1794$1@nnrp01.ops.uunet.co.za>, "Romiko" <rvdd@iafrica.com> wrote:
>I have one flat file which contains:
>CIF NO|CUSNO|NAME |ACCOUNTNO |Name
>
>The first three fields acually came from a seperate file and I merge the two
>files to give the following format.
[mind-boggling explanation snipped]
Not a very good idea, IMHO.
You have two parts that have absolutely no relationship in your
original flat file, and this is a BAD THING(tm).
Here's my $0.02 in solving this little problem. Remember, there
are many ways to do things in Perl (and mine is certainly not
the best one).
File 1 = dbmerge1:
100249|565 |OLDS
100250|566 |BOBS
100251|568 |JOES
100252|570 |BOGS
File 2 = dbmerge2:
0290100566/51|BOBS
0290100568/11|JOES
0290200568/12|JOES
0290100570/31|BOGS
0290100571/61|NEWS
The script = dbmerge.pl:
#!/usr/local/bin/perl -w
use strict;
my(%file1,%file2,%seen);
open(FILE,"<dbmerge1") || die "Can't open dbmerge1 : $1\n";
while (<FILE>) {
chomp;
my ($cifno,$cusno,$name) = split(/\|/);
$cusno =~ s/\s+$//;
$file1{$cusno} = $_; # take care $_ doesn't get replaced above !
}
close(FILE);
open(FILE,"<dbmerge2") || die "Can't open dbmerge2 : $1\n";
while (<FILE>) {
chomp;
my ($accountno,$name) = split(/\|/);
$file2{$accountno} = $_; # take care $_ doesn't get replaced above !
}
close(FILE);
# find customer numbers corresponding to account numbers
while (my ($key,$val) = each %file2) {
my $cusno = substr($key,7,3);
if (exists($file1{$cusno})) {
print "$file1{$cusno}|$val\n";
$seen{$cusno}++;
}
else {
print ' ' x 33, "|$val\n";
}
}
# only if you want to keep old customer numbers
while (my ($key,$val) = each %file1) {
if (!exists($seen{$key})) {
print "$val\n";
}
}
exit;
The output :
100251|568 |JOES |0290100568/11|JOES
100251|568 |JOES |0290200568/12|JOES
100250|566 |BOBS |0290100566/51|BOBS
100252|570 |BOGS |0290100570/31|BOGS
|0290100571/61|NEWS
100249|565 |OLDS
I'll leave the one-liners to the Perl hackers :-)
HTH,
Michel.
------------------------------
Date: Wed, 04 Aug 1999 13:44:46 EDT
From: "Perl King" <perlking@hotmail.com>
Subject: Nevermind
Message-Id: <19990804174446.31423.qmail@hotmail.com>
#!/usr/local/bin/perl -w
use strict;
print <<EOT;
This is only a test.
EOT
_______________________________________________________________
Get Free Email and Do More On The Web. Visit http://www.msn.com
------------------------------
Date: Wed, 04 Aug 1999 13:47:31 -0400
From: Russell Zah <russell.zah@tellabs.com>
Subject: Newbie: how do I send shell script output to my perl program?
Message-Id: <37A87CB3.F1804D4B@tellabs.com>
Hi,
How do I send a shell script's output to my perl program for processing?
It's sort of complex because my boss had me write a shell program to get
data out of an SQL database, then take that data and use the perl
program to format it and put it up on a webpage.
Thanks,
Russell
------------------------------
Date: Wed, 04 Aug 1999 13:32:15 -0400
From: Ratna Kumar <kumar_ratna@hotmail.com>
Subject: PDF file not rendered on Explorer
Message-Id: <37A8791F.7A88@hotmail.com>
Hi,
I have a perl script that renders a PDF file on the browser.
I am able to see it alright on Netscape . When I try to
access the same from explorer , it launches the acrobat 3.0
but comes up with a blank page. I am using explorer version 4.0.
However when I directly open the pdf file in explorer it shows me
data.
The cammand I am using in perl is
print "Location: $file_name\n\n";
Any help is appreciated..
------------------------------
Date: Wed, 04 Aug 1999 19:04:31 +0200
From: Roman Kanala <kanala@sc2a.unige.ch>
To: taggor@yahoo.com, chuck-rickard@reliantenergy.com
Subject: Perl/ld issues under AIX (Re: BerkeleyDB on AIX)
Message-Id: <37A8729F.8DCE7657@sc2a.unige.ch>
taggor@yahoo.com wrote:
>
> I'm trying to build the Perl module BerkeleyDB version 0.06 on AIX
> Version 4. I have Berkeley DB version 2.7.5 built. I'm getting errors
> when I'm doing the "make test". Here are the errors I'm getting:
>
> PERL_DL_NONLAZY=1 /usr/local/bin/perl -I./blib/arch -I./blib/lib -
> I/usr/local/lib/perl5/a
> ix/5.00404 -I/usr/local/lib/perl5 -e 'use Test::Harness qw(&runtests
> $verbose); $verbose=0; runte
> sts @ARGV;' t/*.t
> t/btree.............dubious
> Test returned status 0 (wstat 132, 0x84)
> test program seems to have generated a core
> t/env...............Transaction Manager not enabled at t/env.t lineOn Tue, 03 Aug 1999 21:44:51 GMT, taggor@yahoo.com
wrote to comp.lang.perl.misc:
> I'm trying to build the Perl module BerkeleyDB version 0.06 on AIX
> Version 4. I have Berkeley DB version 2.7.5 built. I'm getting errors
> when I'm doing the "make test". Here are the errors I'm getting:
>
> PERL_DL_NONLAZY=1 /usr/local/bin/perl -I./blib/arch -I./blib/lib -
> I/usr/local/lib/perl5/a
> ix/5.00404 -I/usr/local/lib/perl5 -e 'use Test::Harness qw(&runtests
> $verbose); $verbose=0; runte
> sts @ARGV;' t/*.t
> t/btree.............dubious
> Test returned status 0 (wstat 132, 0x84)
> test program seems to have generated a core
This is what I get everytime I am using dynamic loading option in
Perl compiled with gcc up to 2.8.1 under AIX 4.2.1.0. and I get it
with just any Perl module that needs recompiling in C.
It seems that ld code has some flaws that make it unstable under
AIX. I have read many messages (about 1-2 a week) about the same
topic in comp.lang.perl.*, comp.unix.aix, ...
One solution is to compile Perl statically. It helps, Perl works then
fine but one has to recompile it every time a new module is added.
This is suggested in Perl doc but nothing is said about how to
statically
link the needed libraries.
An another solution was to install an older Perl 5.00302 from
http://www.bull.de and all the modules that can be found there.
Since this seems to be a FAQ, if someone has a better solution please
post it to these newsgroups with keywords that will allow one to find
the thread when searching in Deja News.
Thanks in advance
Roman Kanala
> 133. dubious
> Test returned status 2 (wstat 512, 0x200)
> DIED. FAILED tests 3, 22-49
> Failed 29/49 tests, 40.82% okay
> t/filter............dubious
> Test returned status 0 (wstat 132, 0x84)
> test program seems to have generated a core
> t/hash..............dubious
> Test returned status 0 (wstat 132, 0x84)
> test program seems to have generated a core
> t/unknown...........dubious
> Test returned status 0 (wstat 132, 0x84)
> test program seems to have generated a core
>
> Any help would be greatly appreciated.
> Chuck Rickard
> chuck-rickard@reliantenergy.com
>
> Sent via Deja.com http://www.deja.com/
> Share what you know. Learn what you don't.
------------------------------
Date: Wed, 04 Aug 1999 11:03:30 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Possible to get a HTML file from somewhere and use it as string?
Message-Id: <37A88072.41D85D45@mail.cor.epa.gov>
lpwong@my-deja.com wrote:
>
> Hi,
>
> I'm a newbie of writting Perl/CGI.
Then let me help. Perl and CGI are two very different thingies.
Perl is a programming language which is used for a very large
number of different purposes, one of which is web programming.
CGI is simply a protocol for an interface.
> Recently i want to write a simple
> CGI (hopefully) to extract some links from a HTML located in other
> server. Is it possible to get the HTML using Perl/CGI and then convert
> it into a string for pre-format before display? thanks in advance.
Yes. You probably want to look at the LWP::Simple module.
It may even be on the machine you're using. If it is,
you can type this:
perldoc LWP::Simple
and get the documentation. For some really nifty but
short examples of gobbling up a webpage and then re-formatting
it for output, look in issue #13 of The Perl Journal,
which you can subscribe to by going to www.tpj.com .
HTH,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Wed, 4 Aug 1999 13:02:40 -0400
From: Andy Dougherty <doughera@lafayette.edu>
Subject: Re: Reading the binary files in Perl
Message-Id: <Pine.GSU.4.05.9908041248540.6627-100000@newton.phys>
On Thu, 29 Jul 1999 bidyut@yahoo.com wrote:
> I have a problem here. I have to use Perl to read a binary file (that
> is produced by a C program) and parse the data out of it. Also to
> The problem is I am able to get all the string data, but unable to
> get any integer or float or short etc.
> For the analysis, I am showing the code there..
[but without the data or the expected output:-[
In general, you can read binary files in perl, but you have to be very
very careful about the input template and annoying issues of hardware
alignment and "endianness". For example, if the binary data represent C
structures, you have to know whether or not those structures are padded or
not. For example, if you have a structure such as
struct { char a; int b; } s;
then sizeof(s) could well be something like 8 (1 byte for the initial
character, 3 bytes of padding, and 4 bytes for the integer b). The type
of padding (if any) is likely to be quite system-dependent, and may even
vary with different compilers or different compiler options! Very
early on, your template has an odd number of characters -- depending
on how the file was written, this looks to me like a likely place for
a misalignment of some sort to creep in.
> $template="S S S S c41 c21 c9 I S c16 S S c9 c27 l c16 l c16 c16 c16
In short, you need to look long and hard at the binary data (e.g. with
od(1)) to be sure it is what you think it is.
> # read the file by 2188bytes of record length
> read(TNTFILEHANDLE, $buffer, 2188) || die "short record\n";
Lastly, you really ought to check the actual numeric value returned by
read(), not just whether or not it was 0.
Hope this helps,
Andy Dougherty doughera@lafayette.edu
Dept. of Physics
Lafayette College, Easton PA 18042
------------------------------
Date: Wed, 4 Aug 1999 10:24:41 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Repetition in RE substitutions
Message-Id: <MPG.121217377a39aec3989dbd@nntp.hpl.hp.com>
In article <x73dxzk1i1.fsf@home.sysarch.com> on 04 Aug 1999 11:29:42 -
0400, Uri Guttman <uri@sysarch.com> says...
...
> the trick you missed is that $1 is also read only so you have to assign
> it to a temp var to modify it.
>
> so to fix that code you would do this:
>
> s/(\d+(-\d+)*)/ ($tmp = $1) =~ tr{-}{} /eg
I hate to call you out in the midst of such a nice article [catcalls in
the background -- yeah, sure you hate to :-], but that produces a count
of the dashes, not a deletion. And there's more you would have to do to
get what was requested.
But you went on to do it much better, anyway.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 04 Aug 1999 10:58:30 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: server-side databases
Message-Id: <37A87F46.98A62704@mail.cor.epa.gov>
Abigail wrote:
>
> David Cassell (cassell@mail.cor.epa.gov) wrote on MMCLXIII September
> MCMXCIII in <URL:news:37A76804.C090AF48@mail.cor.epa.gov>:
> ::
> :: Well, Perl will make a good front end for database queries. But
> :: it is not your only option. Still, you ought to consider some native
> :: RDBMS [anything from DB_File up to Sybase] with a decent language
> :: for the connection.
>
> Uhm, if we're going to call 'DB_File' a RDBM, don't we hollow out
> both the R and the M?
Definitely. But then I so seldom work with anything which
really puts the 'R' back in RDBMS...
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Wed, 04 Aug 1999 17:34:09 GMT
From: Eisfach <eisfach@my-deja.com>
To: zeusinteractive@gmx.net
Subject: SET interface
Message-Id: <7o9tih$n1s$1@nnrp1.deja.com>
Hello forum.
We're about to develop a low-cost e-commerce solution providing access
to online auctions, shopping carts etc.
Transactions are supposed to be done through SET (Secure Electronic
Transaction,) however, even after intense research on the web we
couldn't find a common (gateway) interface, accessible from perl (CGI)
or even better PHP3. (The only thing we found was that 600-pages manual
at www.setco.org)
Can anyone help with code snippets or sample applications?
Any suggestions are welcome. Thanks in advance.
Jason Cumberstone
ZEUS Interactive, CEO
--
Replies to eisfach@my-deja.com or zeusinteractive@gmx.net
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 4 Aug 1999 17:19:59 GMT
From: M.Ray@ulcc.ac.uk (Malcolm Ray)
Subject: Re: socket.ph
Message-Id: <slrn7qgthv.4gt.M.Ray@carlova.ulcc.ac.uk>
On Wed, 4 Aug 1999 11:43:44 -0500, Eric Stevens <stevenej@uwec.edu> wrote:
>Could somebody please email me the socket.ph file? I need it to write a ftp
>script.
>
>Thanks
>Eric
socket.ph is system-specific, so you should build it on the system concerned
rather than picking one up from a different OS. The h2ph kludge^W utility
is used for this. 'perldoc h2ph' will tell you about it.
Are you using Net::FTP for this script?
--
Malcolm Ray University of London Computer Centre
------------------------------
Date: Wed, 04 Aug 1999 17:01:57 GMT
From: Stone Cold <paulm@dirigo.com>
Subject: Re: truncating decimals
Message-Id: <7o9rlt$lin$1@nnrp1.deja.com>
In article <7o9jfa$e5k$1@nntp9.atl.mindspring.net>,
"Allan M. Due" <Allan@due.net> wrote:
> Stone Cold wrote in message <7o9hnj$dnk$1@nnrp1.deja.com>...
> [snip]
>
> :The data is being pulled from an Access database. Is there any way,
> :via perl, to only include 2 decimal places in the output?
>
> Please see Perlfaq4:
>
> Why am I getting long decimals (eg, 19.9499999999999) instead of the
> numbers I should be getting (eg, 19.95)?
>
> which concludes with: "To get rid of the superfluous digits, just use
a
> format (eg, printf("%.2f", 19.95)) to get the required precision. See
> perlop. "
Can this work in a foreach loop that I've setup? Can we specify the
"printf" statement at the beginning of the foreach?
>
> HTH
>
> AmD
> --
> $email{'Allan M. Due'} = ' All@n.Due.net ';
> --random quote --
> Empiricism is dead, it seems...
> - Sean McAfee (responding in cplm to a classic what would happen
if...
> question)
>
>
--
Paul R. Mesker
System Engineer
Dirigo Inc.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 4 Aug 1999 13:28:58 -0400
From: "Allan M. Due" <Allan@due.net>
Subject: Re: truncating decimals
Message-Id: <7o9ti1$rs7$1@nntp9.atl.mindspring.net>
Stone Cold wrote in message <7o9rlt$lin$1@nnrp1.deja.com>...
:In article <7o9jfa$e5k$1@nntp9.atl.mindspring.net>,
: "Allan M. Due" <Allan@due.net> wrote:
:> Please see Perlfaq4:
:> which concludes with: "To get rid of the superfluous digits, just use
:> format (eg, printf("%.2f", 19.95)) to get the required precision. See
:> perlop. "
:
:Can this work in a foreach loop that I've setup? Can we specify the
:"printf" statement at the beginning of the foreach?
Not to be trying to be snippy but what happened when you tried it? Did
you take a look at the info about printf in perlfunc? (Actually,
reading about sprintf is probably at least equally important.) Anyway,
printf works just like print except you have control over the format.
See the sprintf and printf sections in perlfunc for more on format
options, then take it for a test spin.
HTH
AmD
--
$email{'Allan M. Due'} = ' All@n.Due.net ';
--random quote --
You have to be very careful if you don't know where you are going,
because you might not get there.
- Yogi Berra
------------------------------
Date: Wed, 04 Aug 1999 17:02:55 GMT
From: Douglas Sparling <dsparling@my-deja.com>
Subject: Re: Using CGI.pm to Retrieve Image
Message-Id: <7o9rnn$lj9$1@nnrp1.deja.com>
In article <7o8c1o$a48$1@news.monmouth.com>,
"Matt" <splinter@monmouth.com> wrote:
> Hi,
>
> I have a few questions about using CGI.pm to have a user upload an
image to
> a site.
>
> The form allows the user to pick a file off of his hard drive.
> The user presses submit.
> The image gets stored in an associative array ( say $FORM{'image'} )
> Now what?
>
> I suppose I do...
>
Run, don't walk, to your nearest bookstore and buy Lincoln Stein's
book "Official Guide to Programming with CGI.pm". There's a section on
file uploads.
> use CGI;
>
> but now what? How do I save it to a specific directory as an image
file?
>
> Any help appreciated ...thanks!
>
> -Matt
>
>
--
Douglas Sparling
Web Programmer
Universal New Media
http://www.uexpress.com
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 04 Aug 1999 13:44:18 -0400
From: Jamie LeTual <jamie@hbe.ca>
Subject: Where to post this?
Message-Id: <37A87BF2.D9E9D15A@hbe.ca>
In the interest of not getting flamed like a marshmallow at a
campsite...
I work for a Montreal software company, and was told to 'find people'
who programmed in modperl and who were comfortable with DBI for
immediate contract work . It is not the case that I wanted to spam this
on a bunch of mailing lists, because even though its an interesting
offer, it is nonetheless unsolicited. So, the point here is, does
anybody have any suggestions as to where I can post the information for
these jobs?
If this is a good place, see my sig for contact information. The person
to talk to is Peter Bailey.
s/war/peace/g
Jamie LeTual
-----------------------------------------------------------------------------------
Hard Boiled Egg Interactive V (514)
876-7881
http://www.hbe.ca/ F (514)
876-9223
------------------------------
Date: Wed, 04 Aug 1999 18:00:38 GMT
From: tnguru@termnetinc.com (Ben Coleman)
Subject: Re: Why is it....
Message-Id: <37a87f24.76166912@news.mindspring.com>
On Wed, 04 Aug 1999 16:49:04 GMT, bart.lateur@skynet.be (Bart Lateur)
wrote:
>Chris Goodwin wrote:
>
>>why is it that I, who have only been hacking Perl for ~3 days, can read
>>through the documentation and the previous newsgroup postings ...
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
>>while other people around here, who apparently have been
>>hacking Perl for longer than I, have to come in and ask the same questions
>>over and over?
>
>Because it's not always the same people? Yes, *different* people come
>here and ask those same questions.
I think he's aware of that. What's keeping those people from checking out
the group via Deja.com or checking out the FAQ before they post questions
that have already been asked many times before?
Ben
--
Ben Coleman
Senior Systems Analyst
TermNet Merchant Services, Inc.
Atlanta, GA
------------------------------
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 366
*************************************
