[7627] in Perl-Users-Digest
Perl-Users Digest, Issue: 1253 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Oct 31 05:14:58 1997
Date: Fri, 31 Oct 97 02:00:28 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 31 Oct 1997 Volume: 8 Number: 1253
Today's topics:
Re: Advice on extracting chunks of HTML documents (Tad McClellan)
Re: ANNOUNCE: IndexMaker 2.0: an index.html maker from <rjk@coos.dartmouth.edu>
Re: ANNOUNCE: IndexMaker 2.0: an index.html maker from (Aandi Inston)
Re: Better ways to... (Matti Kinnunen)
Re: Can for loop be condensed using map()? <ase@seanet.com>
Re: Can for loop be condensed using map()? (Toutatis)
Re: Char. set translation routines for HTML, Latin-1/2, (Milivoj Ivkovic)
Re: Execution time in Perl <chds652@botcc.com>
Re: Flowcharting perl code in Java <nathan@cyberservices.com>
log with base 10? <sjlee@nnlab.postech.ac.kr>
Re: log with base 10? (brian d foy)
Re: log with base 10? <eike.grote@theo.phy.uni-bayreuth.de>
Re: Newbie question; how to redirect (brian d foy)
Re: newbie with a perl question (Casper K. Clausen)
Re: Perl Script to tell if browser supports 128-bit enc <seay@absyss.fr>
Re: returning a filhandle from xsub <peter@kkcc.demon.co.uk>
Re: Stating File Systems in Perl (E.None Archibald)
stdin/stdout pipes to a program (Aaron Birenboim)
Re: stdin/stdout pipes to a program (brian d foy)
Re: Sybperl dbuse closing STDOUT? <no_sp.am@agd.nsw.gov.au>
Re: Trouble with multi-part form data in Win32 PERL CGI <nathan@cyberservices.com>
Use DB_FILE? <mortensi@idt.ntnu.no>
Re: Use DB_FILE? (Mike Heins)
Re: Use perl from Visual Basic (Milivoj Ivkovic)
Re: WWW::Search and AltaVista (Kou Sato)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 30 Oct 1997 23:31:36 -0600
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Advice on extracting chunks of HTML documents
Message-Id: <ofqb36.e2e.ln@localhost>
Gary Nielson (gnielson@charlotte.infi.net) wrote:
: I need to be able to grab a chunk of an HTML document daily and
: use that piece in another HTML doc. The beginnings and endings
: remain the same every day. I am a perl novice and am looking for
: advice on how to get perl to open a file, go to the start of a block of text
^^^^^^^^^^^
So then I assume that the HTML file is on the same server that you plan
to run your script on?
If not, then it is not 'open a file', but rather 'get the contents
of a URL'. There are modules that could help with that...
: and then grab all the text up to another point in the document.
: Are there any scripts out there that can do this, or that I can learn from?
while (<>) {
print if /beginnings/ .. /endings/; # ain't perl grand?
}
See 'Range Operator' in the perlop man page.
--
Tad McClellan SGML Consulting
tadmc@flash.net Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 31 Oct 1997 02:50:59 -0500
From: Chipmunk <rjk@coos.dartmouth.edu>
Subject: Re: ANNOUNCE: IndexMaker 2.0: an index.html maker from PDF, HTML and other files
Message-Id: <34598DE3.B35@coos.dartmouth.edu>
Dennis M. Parrott wrote:
>
> Personally, I wish people who wrote tools to process PDF files
> would *always* post here as I have a very short list of NGs
> I follow with any regularity.
Well, I suppose people could remember to post messages that interest you
to the few newsgroups that you read.
Or, you could read the newsgroups which contain the messages you are
interested in.
;-)
Chipmunk
------------------------------
Date: Fri, 31 Oct 1997 08:19:16 GMT
From: quite@dial.pipex.com (Aandi Inston)
Subject: Re: ANNOUNCE: IndexMaker 2.0: an index.html maker from PDF, HTML and other files
Message-Id: <34599476.244163575@news.dial.pipex.com>
Chipmunk <rjk@coos.dartmouth.edu> wrote:
>Dennis M. Parrott wrote:
>>
>> Personally, I wish people who wrote tools to process PDF files
>> would *always* post here as I have a very short list of NGs
>> I follow with any regularity.
>
>Well, I suppose people could remember to post messages that interest you
>to the few newsgroups that you read.
>Or, you could read the newsgroups which contain the messages you are
>interested in.
At the risk of lengthening this discussion even more, it's worth
pointing out that the choice of programming language is not people's
first criterion for looking for a tool. Someone wanting a word
processor doesn't look in C++ announcements; and indeed the people
READING C++ announcements probably aren't that interested to know that
there is yet another spreadsheet. Is it worth having a PDF
announcement group? Probably not yet.
And all those complaining about a waste of bandwidth would do well to
check the list of original groups before posting a reply to all of
them...please!
----------------------------------------
Aandi Inston quite@dial.pipex.com
See http://www.quite.com/books/ for a HALLOWE'EN PDF file
that shows you can have interactive effects without programming.
------------------------------
Date: 28 Oct 1997 13:14:23 +0200
From: matti@universe.pc.helsinki.fi (Matti Kinnunen)
Subject: Re: Better ways to...
Message-Id: <lziuuib0mo.fsf@universe.pc.helsinki.fi>
In article (Shetal N. Patel) writes:
Here's how I'm doing this:
$fmac="123456789abc";
@fmac=($fmac=~/(\S\S)(\S\S)(\S\S)(\S\S)(\S\S)(\S\S)/);
$fmac=join(":",@fmac);
print "$fmac\n";
The print gives me "12:34:45:78:9a:bc" (unless I missed some syntax
above). Any suggestions on how I could do this differently (more
efficiently, faster, simpler, etc).
Simpler :
machine% echo "12ASD3456789" | perl -pe 's/(\S{2})/$1:/g'
12:AS:D3:45:67:89:
machine%
--
* matti.kinnunen@helsinki.fi *
* http://universe.pc.helsinki.fi/~matti/contact.html *
* +358-(0)40-593 50 91 but try first +358-(0)9-191 23978 *
------------------------------
Date: Thu, 30 Oct 1997 22:42:51 -0800
From: "Allen Evenson" <ase@seanet.com>
Subject: Re: Can for loop be condensed using map()?
Message-Id: <63bukl$c3a@q.seanet.com>
=20
Paul L. Lussier wrote in article =
<635igr$r0l@paperboy.corpeast.BayNetworks.COM>...
>
>Hi, I currently have this for loop which takes a hex mac address and =
converts
>it into a dotted quad format and I'm looking for a more efficient way =
of doing
>the same thing:
>
> $mask =3D 'ffffff00'
> for ($i=3D0; $i < length ($mask); $i+=3D2) {
> push (@newmask, hex (substr ($mask, $i,2)));
> }
> $netmask =3D join ('.', @newmask);
>
>Is there a way I can use map to do the same thing? Can I somehow avoid =
the=20
>2 step process of looping through, then joining?
I don't know how efficient this is but it seems to work:
$mask =3D 'ffffff00';
print ( join '.', map { hex } $mask =3D~ /([a-fA-f0-9]{2})/g);
>
>This is more of a curiosity for me than anything else. I've seen map =
used in=20
>so many posts, but trying it myself on this particular problem turned =
up
>nothing. Of course, I was probably using it incorrectly :)
Now if someone could just explain a Swartzian transform to me... Every =
time I see one I
get an ear-splitting headache ;-)
>
>Thanks a lot.
>--
>Seeya,
>Paul
>=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=
=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D=
-=3D-=3D-=3D
>- Paul Lussier =3D It is a good day =3DThe next best thing to doing -
>=3D Baynetworks DOCD - to put slinkies -something smart is not doing =
=3D
>- plussier@lancity.com =3D on escalators =3D something stupid. =
-
>=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=
=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D=
-=3D-=3D-=3D
> =3D Don't take life too seriously, you won't get out alive. =
-
> =
-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=
=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-
-----------------
Allen S. Evenson <ase@seanet.com>=20
PGP fingerprint =3D 79 2F 58 0A EF 44 F9 72 14 27 C1 96 47 B4 E2 7F
------------------------------
Date: 31 Oct 1997 08:42:47 GMT
From: toutatis@_SPAMTRAP_toutatis.net (Toutatis)
Subject: Re: Can for loop be condensed using map()?
Message-Id: <toutatis-ya023180003110970942480001@news.euro.net>
Allen Evenson <ase@seanet.com> wrote:
> Now if someone could just explain a Swartzian transform to me...
> Every time I see one I get an ear-splitting headache ;-)
http://walden.mvp.net/~mike808/LogCarp/schwtr.html
--
Toutatis
------------------------------
Date: Thu, 30 Oct 1997 11:49:06 GMT
From: ivkovic@compuserve.com (Milivoj Ivkovic)
Subject: Re: Char. set translation routines for HTML, Latin-1/2, Unicode
Message-Id: <34586da4.7436553@news.compuserve.com>
>:I'm after:
>:DOS <-> Windows/Latin-1
>:parts of Unicode <-> Latin-2
>:Unicode/Latin-1/Latin-2 <-> plain 7bit / HTML
>:
>
>Have you looked to see if the GNU recode package covers the translations
>you need? See
><URL: ftp://ftp.iro.umontreal.ca/pub/contrib/pinard/pretest/ > for
>the current development copy.
No. I'll try that. Thank you.
Milivoj
------------------------------
Date: Thu, 30 Oct 1997 02:51:18 -0600
From: chds652 <chds652@botcc.com>
Subject: Re: Execution time in Perl
Message-Id: <34584A86.CCC605B2@botcc.com>
cjz wrote:
> Hello,
> I am trying to find a way to time the execution of a script. At this
> time I have implemented something very simple that grabs the "time" in
> seconds at the start of the scripts and grabs it again at the end,
> compares them and prints out the time in seconds.
>
> I am looking for a way to measure the execution time more accurately,
> say in 10ths, 100ths, 1000ths etc. of a second. Please help.
>
> Thanks,
>
> -Eddy
Use the "times" function built into Perl. This function can obtain user
time, system time, child time, and children's system time.
Format:
($user, $system, $cuser, $csystem) = times;
chds652@botcc.com
------------------------------
Date: Fri, 31 Oct 1997 00:30:50 +0000
From: Nathan Stanford <nathan@cyberservices.com>
To: Shoel Perelman <perelman@geometry.cims.nyu.edu>
Subject: Re: Flowcharting perl code in Java
Message-Id: <345926B9.3B2CD2BA@cyberservices.com>
Maybe I'm out of my mind but why.... Why if you know Java wouldn't you
just use Java?
Shoel Perelman wrote:
> I'm looking for a way to display the flow of a perl script in a
> graphical
> manner using Java. I seek Java code that can parse perl code and
> display
> the branching, if/thens, loops, and references to other subroutines in
>
> the form of a simple flowchart.
>
> An added bonus would be the ability to *build* perl code from these
> flowcharts
> if the flowchart package comes with a graphical builder.
>
> Please cc any replies to shoel@shoel.com.
>
> Thanks a lot in advance..
>
> -Shoel Perelman
------------------------------
Date: 31 Oct 1997 04:16:19 GMT
From: Lee Shin Jae <sjlee@nnlab.postech.ac.kr>
Subject: log with base 10?
Message-Id: <63bm2j$4rh@news.postech.ac.kr>
I will attempt to use log_10 not base e. But it seems to me that
it doesn't exist. I have searched the camel book, but I can't find it.
I think, log_10 will be used very often. Could you tell me how can I
use log_10?
Thank you in advance.
--
---
Real Name : Lee,Shin-jae
Phone : 082-0562-279-5634
Email : sjlee@synapse.postech.ac.kr
WWW : http://orion.postech.ac.kr/~sjlee
Mail : CSE Dept. POSTECH Pohang, 790-784, Kyungbuk , Korea
------------------------------
Date: Fri, 31 Oct 1997 03:22:23 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: log with base 10?
Message-Id: <comdog-ya02408000R3110970322230001@news.panix.com>
In article <63bm2j$4rh@news.postech.ac.kr>, Lee Shin Jae <sjlee@nnlab.postech.ac.kr> wrote:
>I will attempt to use log_10 not base e. But it seems to me that
>it doesn't exist. I have searched the camel book, but I can't find it.
there is a base other than e? (as my diff eq. professor used to say) :)
>I think, log_10 will be used very often. Could you tell me how can I
>use log_10?
a simple solution is to remember your base conversions:
#log_a X = (1/log_b a) log_b X
sub log_10
{
return undef if $_ <= 0
return (log $_)/(log 10);
}
#or a little bit more tricky:
sub log_10(@)
{
return map { $_ > 0 ? (log $_)/(log 10) : undef } @_;
}
--
brian d foy <comdog@computerdog.com>
NY.pm - New York Perl M((o|u)ngers|aniacs)* <URL:http://ny.pm.org/>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
log_10 is only good for calculating the decibel level of your stereo
------------------------------
Date: Fri, 31 Oct 1997 09:42:57 +0100
From: Eike Grote <eike.grote@theo.phy.uni-bayreuth.de>
Subject: Re: log with base 10?
Message-Id: <34599A11.167E@theo.phy.uni-bayreuth.de>
Hi,
Lee Shin Jae wrote:
>
> I will attempt to use log_10 not base e. But it seems to me that
> it doesn't exist. I have searched the camel book, but I can't find it.
But I can ... in my Camel (2nd ed.) it can be found on page 480 in
table 7-12 which is about the POSIX functions.
You can use it this way:
use POSIX;
$a = log10(1_000_000);
If you don't want to use the POSIX package you may create your own
function:
sub log_10 { log(shift)/log(10) }
$a = log_10(1_000_000);
Bye, Eike
--
=======================================================================
>>--->> Eike Grote <eike.grote@theo.phy.uni-bayreuth.de> <<---<<
-----------------------------------------------------------------------
Home Page, Address, PGP,...: http://www.phy.uni-bayreuth.de/~btpa25/
-----------------------------------------------------------------------
PGP fingerprint: 1F F4 AB CF 1B 5F 4B 1D 75 A1 F9 C5 7B 3F 37 06
=======================================================================
------------------------------
Date: Thu, 30 Oct 1997 23:05:56 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Newbie question; how to redirect
Message-Id: <comdog-ya02408000R3010972305560001@news.panix.com>
In article <63avtp$1fu@snews1.zippo.com>, wkc@amanda.dorsai.org (Wesley) wrote:
>Say, someone call my perl script from a form. I'm done processing it.
>Now I want to "POST" the result to another web-page. Any idea?
use LWP; #available through CPAN <URL:http://www.perl.com/>
--
brian d foy <comdog@computerdog.com>
NY.pm - New York Perl M((o|u)ngers|aniacs)* <URL:http://ny.pm.org/>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: 31 Oct 1997 10:40:51 +0100
From: ckc@dmi.min.dk (Casper K. Clausen)
Subject: Re: newbie with a perl question
Message-Id: <wvpn2jqgti4.fsf@hobbes.dmi.min.dk>
>>>>> "r" == ryoung <ryoung@asucla.ucla.edu> writes:
r> someone help me? Here is some of the code i'm working with:(I basically
r> need to locate spaces within the 'comments' string and replacing them
r> with "%20" so that i can pass the string in a url without having it chop
r> off where a space occurs.) Thanks!!
You may want to look at the CGI.pm module -- it has functions for
exactly this kind of translation. Meanwhile...
r> if ($CONFIG{'redirect'} =~ /http\:\/\/.*\..*/) {
This match could be improved upon:
m!http://.*\..*/!
^^ ^- Use alternative delimiters to avoid LTS
(Leaning Toothpick Syndrome)
m!^http://.*\..*/!
^--------------- Always (ALWAYS) anchor regexes as much as possible.
Regards,
Kvan.
--
-------Casper Kvan Clausen------ | 'Ah, Warmark, everything that passes
----------<ckc@dmi.dk>---------- | unattempted is impossible.'
Lokal 544 |
I do not speak for DMI, just me. | - Lord Mhoram, Son of Variol.
------------------------------
Date: Fri, 31 Oct 1997 10:25:47 +0100
From: Doug Seay <seay@absyss.fr>
To: eturner@ids.net
Subject: Re: Perl Script to tell if browser supports 128-bit encryption
Message-Id: <3459A41B.35741157@absyss.fr>
[posted and mailed]
Edwin A. Turner wrote:
>
> I'm looking for a way to tell if someone has a perl script that can
> detect wether or not a users' browser supports 128-bit encryption. I
> know how to tell what broswer they are using via the http_agent
> environment variable but don't know all the types that support 128-bit
> encryption. Any help is greatly appreciated.
If the CGI.pm modules doesn't have this, go look around in one of the
www newsgroups (listed in the FAQ) because you're more likely to find
someone who knows this. This isn't really a Perl question as the answer
won't be perl specific (other than the syntax).
- doug
------------------------------
Date: Fri, 31 Oct 1997 09:02:26 -0000
From: "Peter Pickford" <peter@kkcc.demon.co.uk>
Subject: Re: returning a filhandle from xsub
Message-Id: <878288508.5659.0.nnrp-08.c2dec9cf@news.demon.co.uk>
This seems to be due to the use of $$**;$$ as a prototype.
It works if I use $$$$;$$
the I can say $a=rexec($host,$cmd,*io,*err,$user,$pass);
IO and err are ser to filehandles.
What prototypes shoudl I use and why?
Thanks
Peter
------------------------------
Date: 31 Oct 1997 06:59:15 GMT
From: yevgene@xochi.tezcat.com (E.None Archibald)
Subject: Re: Stating File Systems in Perl
Message-Id: <63bvk3$3m3$1@tepe.tezcat.com>
IGuthrie <iguthrie@aol.com> wrote:
: Is there any way to stat a filesystem in perl? The only way that I have found
: is to embed C in Perl using statfs() or statvfs() or to kick off a shell
: process and use df. I am looking for info like blocks used and inodes free,
: etc. Is there any effcient way to do this in Perl without embedding C?
Not that i found...however, embedding it was fairly trivial (and i'm
not exactly a C programmer to speak of) - I needed it for a resource
watcher I wrote. Am writing. Something like that (...the beast, it still
grows, master!)
Write for implementation details if you care to.
--eugene archibald
tezcat communications
Just another perl guy
------------------------------
Date: 30 Oct 1997 23:39:47 GMT
From: aaron@swcp.com (Aaron Birenboim)
Subject: stdin/stdout pipes to a program
Message-Id: <63b5s3$r7c$1@sloth.swcp.com>
I would like to have a perl program have a "conversation" with a program
that uses interractive text questions & responses. (All keyboard
and text output interface)
What would be the easiest way to do this in perl?
I guess that if I were in C I would fork (or something)
to run the new program, with 2 pipes attached to stdin/stdout.
I was hoping that perl might have something really, really easy
to do this.
(like open(IN,OUT,"|myProgram|") or something.
--
Aaron Birenboim | aaron@ptree.abq.nm.us | Albuquerque, NM
http://www.swcp.com/~aaron RESUME> http://www.swcp.com/~aaron/res.html
PearTree Consulting (WWW, UNIX, Scientific Computing,...)
------------------------------
Date: Fri, 31 Oct 1997 03:25:07 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: stdin/stdout pipes to a program
Message-Id: <comdog-ya02408000R3110970325070001@news.panix.com>
In article <63b5s3$r7c$1@sloth.swcp.com>, aaron@swcp.com (Aaron Birenboim) wrote:
>I would like to have a perl program have a "conversation" with a program
>that uses interractive text questions & responses. (All keyboard
>and text output interface)
>
>What would be the easiest way to do this in perl?
>(like open(IN,OUT,"|myProgram|") or something.
the FAQ suggests IPC::Open3
you might also want to look at the perlipc man page.
good luck :)
--
brian d foy <comdog@computerdog.com>
NY.pm - New York Perl M((o|u)ngers|aniacs)* <URL:http://ny.pm.org/>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
thinks Expect might be less painful
------------------------------
Date: Fri, 31 Oct 1997 16:16:43 +1000
From: Anthony Mandic <no_sp.am@agd.nsw.gov.au>
Subject: Re: Sybperl dbuse closing STDOUT?
Message-Id: <345977CB.31F4@agd.nsw.gov.au>
dmorr@software.net wrote:
>
> I'm experiencing this strange intermittent problem with dbuse.
> I have a script which is hitting a Sybase database repeatedly
> throughout the life of the script. At each iteration, it is
> calling $dbh->dbuse('database'); Occasionally, all output from
> the script stops after the last dbuse call.
>
> Or, I should say, all output to STDOUT does not make it to a web
> browser. Printing to a log file still works fine, and the script
> continues on its merry way as long as there are no print statements.
>
> I can't duplicate this on the command line; it also doesn't happen
> every time through a browser. I *can* reliably duplicate it if
> it happens once by reloading the form, but the same series of
> steps will not always produce the error.
>
> I saw a post recently about this in this groupd, but the responses
> had to do with the SYBASE environment variable, which is set before
> and after the dbuse command. Anybody have any other ideas about what's
> going on? I'm pretty puzzled by this one.
I'm not sure if this will be of any help or not, but I've had
similar reports of intermittent problems with dbuse. However,
this was with a C program. Looks like the only thing in
common is that DB-Library was used. I've never been able
to dup the problem. The server version was inconsequential
(only happened on pre System XI servers). In my cases the
dbuse would just fail to work. I think there was also a
post along similar lines earlier this year where the
poster was rapidly issuing dbuse calls and some were
failing. I think his solution was to loop for about
50 times to make sure if succeeded. Not a very elegant
solution.
-am
------------------------------
Date: Fri, 31 Oct 1997 00:33:11 +0000
From: Nathan Stanford <nathan@cyberservices.com>
To: visionary@ns.sympatico.ca
Subject: Re: Trouble with multi-part form data in Win32 PERL CGIs
Message-Id: <34592746.E3C48EDE@cyberservices.com>
Tell me the goal of your script on NT and I can help you find a way to
make it work.
Graham H. Wile wrote:
> I am attempting to write a CGI in PERL for Win32 on a Windows NT
> server. It is called by pressing the submit button on a form that has
> an
> input of TYPE=FILE. When I submit the form (it uses the POST method),
> it
> calls a CGI that executes this statement to read in what was
> submitted:
>
> read(STDIN,$NewIn,$ENV{'CONTENT_LENGTH'});
>
> I believe this same statement is used in the "cgi-lib.pl"
> library in the sub "ReadParse".
>
> The Problem:
>
> If the only input on the form is the file upload "<INPUT
> TYPE=FILE NAME="XXXX">", it works fine. But if I have any additional
> inputs that are of the type:
>
> <INPUT TYPE=TEXT ....
>
> it will still pass in the name value pair for the TYPE=FILE, but it
> will
> not include the name-value pairs from any of the other input fields.
> Therefore, if I print out the contents of "$NewIn", it will show me:
>
> -----------------------------94695187795
> Content-Disposition: form-data; name="excel_file";
> filename="C:\PROGRAM FILES\ONLINE SERVICES\AT&T\RELIABTN.GIF"
> Content-Type: image/gif GIF89a=A2
>
> That is only the name-value pair for the TYPE=FILE input. If I
>
> enter a non-existant file path in this field and submit the form, then
>
> it shows the name-value pairs for all the inputs (Assume my TYPE=FILE
> is
> named "excel_file", and my TYPE=TEXT is named "TXT_TESTING"):
>
> -----------------------------246211681326298
> Content-Disposition: form-data; name="excel_file";
> filename="\FFOGRAM
> FILES\ONLINE SERVICES\AT&T\RELIABTN.GIF" Content-Type:
> image/gif
> -----------------------------246211681326298 Content-Disposition:
> form-data; name="TXT_TESTING" ggggggg
> -----------------------------246211681326298--=20
>
> Why would the
>
> -----------------------------246211681326298
> Content-Disposition: form-data; name="TXT_TESTING"
> ggggggg
> -----------------------------246211681326298--=20
>
> get chopped off if I enter a valid file path in the "excel_file" input
>
> field?
>
> This works fine on UNIX, by the way - so why not on NT?
------------------------------
Date: 31 Oct 1997 09:12:03 GMT
From: Morten Simonsen <mortensi@idt.ntnu.no>
Subject: Use DB_FILE?
Message-Id: <63c7d3$jj8$1@due.unit.no>
Hi
I wrote this little test-program:
----------------------
#!/usr/local/bin/perl
use DB_FILE;
tie %hash, "DB_FILE", "database", 0644;
----------------------
and I get this error-message when trying to "compile" it:
----------------------
Can't locate DB_FILE.pm in @INC at ././miniDB.pl line 3.
BEGIN failed--compilation aborted at ././miniDB.pl line 3.
----------------------
Still, I think that some DB-variant must work, because:
----------------------
#!/usr/local/bin/perl
dbmopen(%database,"database",0644);
---------------------
works well.
If I use "use AnyDBMFile" I get no error-messages, but when I try to
use DB_FILE or whatever in the tie-function, then an error-message
pops up. I have tried this program at three different servrers, where
as two of them definitly should have some DB support, they are
university servers. Can somebody help me, or else I will be stuck
with dbmopen().
Thanks in advance
Morten Simonsen
------------------------------
Date: 31 Oct 1997 09:40:15 GMT
From: mheins@prairienet.org (Mike Heins)
Subject: Re: Use DB_FILE?
Message-Id: <63c91v$2o0$1@vixen.cso.uiuc.edu>
Morten Simonsen (mortensi@idt.ntnu.no) wrote:
: Hi
:
: I wrote this little test-program:
: ----------------------
: #!/usr/local/bin/perl
: use DB_FILE;
: tie %hash, "DB_FILE", "database", 0644;
: ----------------------
: and I get this error-message when trying to "compile" it:
: ----------------------
: Can't locate DB_FILE.pm in @INC at ././miniDB.pl line 3.
: BEGIN failed--compilation aborted at ././miniDB.pl line 3.
: ----------------------
That is because it is DB_File, not DB_FILE.
--
Regards,
Mike Heins
This post reflects the
opinion of my employer.
------------------------------
Date: Thu, 30 Oct 1997 11:49:07 GMT
From: ivkovic@compuserve.com (Milivoj Ivkovic)
Subject: Re: Use perl from Visual Basic
Message-Id: <34596e7e.7654683@news.compuserve.com>
>>So, I would like to be able to include perl code into VBA code. I
>>don't know if/how I can call the PerlIIS.dll from VB and get the
>>return values.
>You probably wont be able to call the perl dll as the isapi dlls are
>slightly different from normal ones ( just as vb controls are ) but a
>brave programmer (not me ) could make a perl control for VB.
Let's hope some "brave programmer" will try to do something. Or maybe
the perlIIS.dll 's source can be hacked to a more standard dll?
Actually, a mini-perl.dll would be enough for this sort of things; it
would just have the main features which we don't get elsewhere:
regexps, join, split, grep and a few like these?
------------------------------
Date: 31 Oct 1997 03:47:56 GMT
From: k-sato@res.otaru-uc.ac.jp (Kou Sato)
Subject: Re: WWW::Search and AltaVista
Message-Id: <K-SATO.97Oct31124756@canal.res.otaru-uc.ac.jp>
In article <62scbt$7d2$3@srv38s4u.cas.org> lvirden@cas.org writes:
> Anyone have an idea of other ideas on how to do this type of thing. John's
> doing the best he can to build interfaces to WWW search engines, and
> the folk on the search engines are doing the best they can to keep upgrading
> things as fast as they can. So it becomes an 'arms race' situation...
I thank the people who write and upgrade WWW::Search. It's really
a neat thing. But I did not think that things change so frequently.
Maybe I should try upgrade it by myself until the official upgrade
is released but I have to begin by learning how to monitor the
http port while I am running a browser. Anyway, I love perl.
-
Koh Sato,
k-sato@res.otaru-uc.ac.jp
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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 V8 Issue 1253
**************************************
