[12308] in Perl-Users-Digest
Perl-Users Digest, Issue: 5908 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jun 7 05:07:59 1999
Date: Mon, 7 Jun 99 02: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 Mon, 7 Jun 1999 Volume: 8 Number: 5908
Today's topics:
Re: "Premature end of Script Headers," Error in Perl CG (Abigail)
(multithread) lock & unlock? (GEMINI)
Re: Afraid to ask about Y2K! (Abigail)
Re: Afraid to ask about Y2K! <gellyfish@gellyfish.com>
Amazon-like Restaurant Review/Rating Script Needed <drexcel@drexcel.com>
Re: Anyone know what is this script line meaning ?? <gellyfish@gellyfish.com>
Re: Can V 4 and V.5 run concurrently? <gellyfish@gellyfish.com>
CGI and SSI in perl <sharma@tsd.neca.nec.com.au>
Re: CGI.pm & submit butt...ons <unclelui@grin.net>
Re: Coloring text in DOS console? <fruffet@kaptech.com>
Re: damn F@#$(*)@ unix (*%$#&!* pipes <outlaw_torn@mailexcite.com>
Re: Get Date in Perl (Hasanuddin Tamir)
Re: Get Date in Perl <outlaw_torn@mailexcite.com>
Re: Get Date in Perl <uri@sysarch.com>
Getting old values <simon@isiab.se>
Re: Help needed and much appreciated (Stuart Wright)
How to start a script and give it some variables ? <captain_mag@hotmail.com>
Re: Looking for special upload script <cyberjeff@sprintmail.com>
Re: mail problems... still :) (final resolvement) <office@asc.nl>
Re: mail problems... still :) <office@asc.nl>
Re: mail problems... still :) <office@asc.nl>
Re: mail problems... still :) <fruffet@kaptech.com>
Re: newbie question about displaying digits. (Abigail)
Re: Password Generator <mh@graphnet.fr>
Re: PC carriage returns ( ^M ) in form fields. (Ethan H. Poole)
Re: Perl Editor... <gellyfish@gellyfish.com>
Regular Expressions slegarre@ireste.fr
Setting Numlock in a Perl script <erd@umr.edu>
Re: Total Newbie Question (Abigail)
Unzipping Files for WebTV (Tiffany Silver)
Re: using MIME::Lite to send attachments <fruffet@kaptech.com>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 6 Jun 1999 23:33:22 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: "Premature end of Script Headers," Error in Perl CGI Script
Message-Id: <slrn7lmj9m.rki.abigail@alexandra.delanet.com>
aaron@preation.com (aaron@preation.com) wrote on MMCV September MCMXCIII
in <URL:news:7jetg7$7r2$1@nnrp1.deja.com>:
!! The Error that I get is the typical 500 Internal
!! Server Error, it then says "Premature end of
!! Script Headers"
That's not a Perl error.
Goodbye.
Abigail
--
perl -MLWP::UserAgent -MHTML::TreeBuilder -MHTML::FormatText -wle'print +(
HTML::FormatText -> new -> format (HTML::TreeBuilder -> new -> parse (
LWP::UserAgent -> new -> request (HTTP::Request -> new ("GET",
"http://work.ucsd.edu:5141/cgi-bin/http_webster?isindex=perl")) -> content))
=~ /(.*\))[-\s]+Addition/s) [0]'
-----------== 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: 7 Jun 1999 07:20:23 GMT
From: dennis@info4.csie.nctu.edu.tw (GEMINI)
Subject: (multithread) lock & unlock?
Message-Id: <7jfrrn$q7q$1@netnews.csie.NCTU.edu.tw>
the perldoc Thread
provides too few information
to understand the multithread programming on perl.
If I wish to synchronize the access to
a variable, how should I do?
the document only mentioned about "lock" function,
but how about "unlock"? Is there an unlock function?
besides, can I find any sample for the perl
multithread programming on the internet?
thanks.
------------------------------
Date: 6 Jun 1999 23:34:02 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Afraid to ask about Y2K!
Message-Id: <slrn7lmjau.rki.abigail@alexandra.delanet.com>
Steve Bean (sbean@iex.net) wrote on MMCV September MCMXCIII in
<URL:news:7jept3$69h$2@news.iex.net>:
\\ But i WILL anyway. I can't believe someof the flameout answers to good
\\ questions about Y2K in this section.
\\
\\ ARE THERE PROBLEMS WITH Y2K AND PERL?
Yes, you.
Abigail
--
perl -MLWP::UserAgent -MHTML::TreeBuilder -MHTML::FormatText -wle'print +(
HTML::FormatText -> new -> format (HTML::TreeBuilder -> new -> parse (
LWP::UserAgent -> new -> request (HTTP::Request -> new ("GET",
"http://work.ucsd.edu:5141/cgi-bin/http_webster?isindex=perl")) -> content))
=~ /(.*\))[-\s]+Addition/s) [0]'
-----------== 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: 7 Jun 1999 09:08:25 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Afraid to ask about Y2K!
Message-Id: <375b7df9@newsread3.dircon.co.uk>
Steve Bean <sbean@iex.net> wrote:
> But i WILL anyway. I can't believe someof the flameout answers to good
> questions about Y2K in this section.
>
I cant believe that we have got to this stage in the game and
people are still asking this question - what precisely is it that
prevents from going to <http://www.deja.com> and searching for 'Y2K'
in this group ? It found 6500 hits just now.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
------------------------------
Date: Sun, 6 Jun 1999 23:19:09 -0400
From: "Dr. Excel" <drexcel@drexcel.com>
Subject: Amazon-like Restaurant Review/Rating Script Needed
Message-Id: <7jfdoo$lv4$1@holly.prod.itd.earthlink.net>
I'm dying to find a script that can handle my needs.
I have a database of local restaurants. I want a amazon.com-like
system to be able to search, rate, and review them. I want people
who come to my web site to be able to rate and/or review the
restaurants. I also want to allow readers to search based on name,
address, cuisine, rating (i.e. rated 3 stars or above).
The more customizable the better.
I'd be willing to sacrifice some functionality to save some $$$, but
am willing to pay to get what I want...
P.S. Please respond via email to events@leecoevents.com, particularly if you
are offering services...
Jason Szumlanski
Lee County Events, Inc.
http://leecoevents.com
------------------------------
Date: 7 Jun 1999 09:43:31 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Anyone know what is this script line meaning ??
Message-Id: <375b8633@newsread3.dircon.co.uk>
kevin <kevin@nospam.co.uk> wrote:
> On Mon, 31 May 1999 07:59:47 GMT, an opinion was expressed by
> tvn007@my-deja.com stating:
>
>>Be Kind to others please
>>
>>You do not have to reply to him/her with such answer.
>>
> Do you know what, some (not all) of the posters i have seen
> in this ng, are IMO at times real ignorant. Much more so than any
> other programming related ng i have personally seen.
No one is forcing anyone else to read this group - 'cause I dont see you
making any great contribution here.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
------------------------------
Date: 7 Jun 1999 09:23:49 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Can V 4 and V.5 run concurrently?
Message-Id: <375b8195@newsread3.dircon.co.uk>
Steve Bean <sbean@iex.net> wrote:
> Using solaris 2.5 and 2.6 and version 4 and 5.003 of perl. Does anyone
> know of any problems with running the two versions concurrently. Like,
> are there solaris files that collide or calls that collide? Or any other
> problems that come to mind. No practice machine.
>
No problem - a lot of the machines here have both. Of course you will
want to have the executables called different things or you will get
confused.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
------------------------------
Date: Mon, 07 Jun 1999 17:30:32 +1000
From: Sharma Madiraju <sharma@tsd.neca.nec.com.au>
Subject: CGI and SSI in perl
Message-Id: <375B7517.BAA4BECC@tsd.neca.nec.com.au>
Hi netters,
I am using a perl cgi script to generate html file which uses
server side includes. But the server is not processing SSIs in my
html code written to stdout with mimetype text/html. I am not
even getting the error usually we get for error in processing message.
Is it possible to use SSI in html documents generated using
CGI scripts?
thanks in advance.
sharma
------------------------------
Date: Sun, 06 Jun 1999 23:48:50 -0700
From: "Luis F. Salas" <unclelui@grin.net>
Subject: Re: CGI.pm & submit butt...ons
Message-Id: <375B6B52.9C8@grin.net>
Hi,
[for the last time] :-)
> You're calling moveon() from the function which outputs the submit
> buttons in question. Neither button will have been pressed when
> moveon() is called, because the buttons were just output in the same
> invocation.
Oooooooooooooooh... I see....
Why books never talk about this?
Since you feel generous, let me abuse and ask:
* the name of the submit button on the 2nd page is the same as on
the first one (i.e. 'abutton'). That's ok, right? It seems to me
that that IS the way to do it.
* I moved the moveon() to main, but it goes through it without
waiting for the user to click either button on the second page.
In other words, page displays fine, but it won't wait for the user
to press the buttons on the 2nd page (so it can go to a third page,
depending which button (i.e Change or Send) was cliked on).
Why???!!!!
##main
if (param())
reflectdata; # new buttons are here...
moveon(); # when asked to print value of submit still show old
value.
else
crateform();
Real code:
=========
...
$submit = param('abutton');
...
sub createform {
...
td( submit(-NAME=>'abutton', -VALUE=>'Sign Guestbook')),
## click here and reflectdata() is invoked
...
}
...
sub reflectdata {
print p("name: $name");
print p("email: $email");
print p("comments: $comments");
print start_form();
print table({-BORDER=>'1'},
Tr(td({-COLSPAN=>2,-ALIGN=>'center'})),
Tr(td({-ALIGN=>'right'},submit(-NAME=>'abutton',-VALUE=>'Send')),
td({-ALIGN=>'left'},submit(-NAME=>'abutton',VALUE=>'Change')),
)),
end_form();
}
...
sub moveon {
if ($submit eq "Send") {
print p("sending to book...");
sendtobook();
} elsif ($submit eq "Change") {
print p("changing...");
changebook();
} else { print "submit is $submit";} old value (gets printed
}
...
if (param()) {
reflectdata();
moveon(); ##### where should this go then? :-(
} else {
createform(); # creates form, submit leads to reflectdata()
Either way, this is the last time I bug you with this project.
Thank you for your help.
Luis
------------------------------
Date: Mon, 7 Jun 1999 09:45:36 +0200
From: "Fred Ruffet" <fruffet@kaptech.com>
Subject: Re: Coloring text in DOS console?
Message-Id: <7jftbb$h44$1@gatekeeper.ornano.kapt.com>
>> - How can I color the output of a Perl program in a MS-DOS shell.
>> - How can I reposition the cursor in a MS-DOS shell.
>Probably the same way that you do for a non-Perl program. You almost
>certainly output some special codes that tell your system what you want it
>to do. The docs, FAQs, and newsgroups about MS-DOS may be able to help you
>here. Good luck!
Right ! And, even if it's not a perl question, let me tell you that typing
"help" in a dos shell will help you. Note that Microsoft was a bit more
logic that it's now : you had to type "help" to get help, and not to click
"start" to stop your computer... Anyway, I don't remember which command you
need to look help on, but I know there's something about the escape codes
you need in the help on a command which deals with video modes or something
like that.
Good search !
Fred
------------------------------
Date: Mon, 07 Jun 1999 06:17:00 GMT
From: outlaw_torn <outlaw_torn@mailexcite.com>
Subject: Re: damn F@#$(*)@ unix (*%$#&!* pipes
Message-Id: <7jfo4m$fcm$1@nnrp1.deja.com>
Hi all
Just wanted to thank everyone for their replies. All were helpful and
my problem has now been solved.
Cheers
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 7 Jun 1999 19:16:45 GMT
From: hasant@trabas.co.id (Hasanuddin Tamir)
Subject: Re: Get Date in Perl
Message-Id: <slrn7lmkou.teg.hasant@borg.intern.trabas.co.id>
On Mon, 07 Jun 1999 04:52:41 GMT, Mark Robinson <plasmoid@iname.com> wrote:
> How can get the system date in PERL?
>
Use localtime() function:
perldoc -f localtime
-hasan-
uhm, no more sig(h)
------------------------------
Date: Mon, 07 Jun 1999 06:28:57 GMT
From: outlaw_torn <outlaw_torn@mailexcite.com>
Subject: Re: Get Date in Perl
Message-Id: <7jfor2$fi5$1@nnrp1.deja.com>
In article <375B4F9C.4C656FE@iname.com>,
Mark Robinson <plasmoid@iname.com> wrote:
> How can get the system date in PERL?
>
>
Try:
@current_time = locatltime(time);
The array then holds a lot of info all broken up. I can't remember
which parts are which at the moment, but I can basically remember that
$current_time[3] is the day of the month, $current_time[4] is the month
of the year (0-11) and $current[5] is a 2 digit year. I think elements
0 and 1 are the hour and minutes.
Just print out the whole array and figure out which bits are which.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 07 Jun 1999 03:38:58 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Get Date in Perl
Message-Id: <x7btes8not.fsf@home.sysarch.com>
>>>>> "ot" == outlaw torn <outlaw_torn@mailexcite.com> writes:
ot> In article <375B4F9C.4C656FE@iname.com>,
ot> Mark Robinson <plasmoid@iname.com> wrote:
>> How can get the system date in PERL?
ot> Try:
ot> @current_time = locatltime(time);
^
spelling^
^^^^
time is not needed since localtime defaults to that
ot> The array then holds a lot of info all broken up. I can't remember
ot> which parts are which at the moment, but I can basically remember that
ot> $current_time[3] is the day of the month, $current_time[4] is the month
ot> of the year (0-11) and $current[5] is a 2 digit year. I think elements
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
ot> 0 and 1 are the hour and minutes.
that should be $current_time[5] and it is not a 2 digit year. you have
just propogated a y2k bug. the year value is an offset from 1900 which
you would have know had you consulted the documentation.
why do you post answers which are not correct? why are you guessing what
the values are?
ot> Just print out the whole array and figure out which bits are which.
why don't you rtfm instead of suggesting an empirical analysis which
will undoubtedly be wrong?
and of course, this is an FAQ which is answered in perl's fine FAQ.
ot> Share what you know. Learn what you don't.
as i have said that should be:
share what you don't know. don't learn what you need to.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: 7 Jun 1999 02:18:43 -0500
From: "SiFo" <simon@isiab.se>
Subject: Getting old values
Message-Id: <375b6443@discussions>
Hello.
I4ve got a form that I stores the data from
in a plain text file. To access this form I
use a simple login script that prompts for
username and password. I do want useres to
be able to see their old responses before
submitting the data...is this hard to do?
Best regards Simon Forsell
--Posted from EarthWeb Discussions. http://discussions.earthweb.com
------------------------------
Date: Mon, 07 Jun 1999 08:48:38 GMT
From: stuw@dial.pipex.com.remove.everything.after.com (Stuart Wright)
Subject: Re: Help needed and much appreciated
Message-Id: <375b842b.2016088@news.demon.co.uk>
On Sun, 06 Jun 1999 22:51:32 GMT, michel.dalle@usa.net (Michel Dalle)
wrote:
[first of all - many thanks for replying]
>In article <375b4df9.50085786@news.dial.pipex.com>, stuw@dial.pipex.com.remove.everything.after.the.com wrote:
>>foreach $rp (sort {$a->{$sort_on} cmp $b->{$sort_on}} values %record){
>>
>>similar to that found here
>>http://webreview.com/wr/pub/98/10/23/perl/index.html
>>for some reason causes a 500 error as does
>>$new_rec = $rp->{key};
>>
>>I think it's the '->' bit.
>
>What's in %record ? The same thing as in the example you mention ?
Yep. it's a basic sort function on the results of a search.
I run www.homecinemachoice.com in which there is a large and growing
archive of home theatre hardware reviews. I want to be able to search and
sort on any of the visible fields on the flat file database.
The field to sort on will be passed in the $sort_on variable.
>
>Seems a bit 'heavy' if you don't know much about Perl (or even if you do,
>for that matter).
(I don't - I have to do perl programming about twice a year. I avoid it
wherever possible ! After 10 years programming professionally for business
apps, 90% of the perl I use is gobbledygook to me, and I do it the hard way
with wordpad and uploading to a remote web server for testing. If a script
doesn't work, I comment out all the lines and uncomment each line,upload
and test 'till I find the bug. It's usually an omitted semi-colon or
squiggly bracket. Rediculous.
I *have* tried to get a local webserver working, but never succeeded.)
>This looks like a candidate for the (in)famous Schwartzian
>Transform. Here is what Tad McClellan posted somewhere in april
>(somewhat adapted for this problem) :
>
>#!/usr/local/bin/perl -w
>use strict;
>
>my $sort = 1;
>my @unsorted = <DATA>;
>chomp @unsorted;
>
>$sort++; # key is the first field here
>
>my @sorted = # Schwartzian transform
> map { $_->[0] }
> sort {
> $a->[$sort] cmp $b->[$sort]
> }
> map {
> [ $_, split(/\|/) ]
> } @unsorted;
>
>foreach (@sorted) {
> print "$_\n";
>}
>
>__DATA__
>key1|field1-3|field2-1|field3-1
>key2|field1-2|field2-2|field3-3
>key3|field1-1|field2-3|field3-2
>
>I'm not really up to this stuff, so I would have built an intermediate hash
>with the keys and sorting field... (but certainly not that $record stuff).
>Anyway, replace your sortdb routine with the my @sorted stuff, rename
>@unsorted to @results and it should work...
Will do - many thanks for your help. So I set $sort to be the number of
the column I want to sort on ?
My database is
001|Philips|56DBV|3.|0|499|199902|http://www.homecinemachoice.com/tried&tested/Televisions/Philips/Philips56DBV.shtml
where the columns are :
key (not used for anything other than reference), manufacturer, model,
rating (in stars '.' indicates half a star), best buy 1 or 0, price, review
date and review url.
I will want to sort on one from manufacturer, model, rating, price and
date.
Many thanks again.
>
>>When I comment these lines out, the script works. Perl locally
>>doesn't complain about these lines.
>
>But does the script give you the right answer in command line ?
>
>>Can anyone suggest why it might not be working and an alternative so I
>>can get this script working (and then go back to not having anything
>>to do with CGI and Perl)?
>
>All of the above is probably worthless anyway, since a 500 error probably
>means you can't even access the database file or something like that, and
>may not be due to a script error at all. But don't loose faith :-)
>
>Michel.
--
Stuart Wright stu-w@usa.net.remove.everything.after.net
Software Developer,
Web author for the Hi-Fi and Home Cinema Industries,
MIDI sequencer, Drummer and Motorcyclist.
Visit my web site http://ds.dial.pipex.com/town/road/xmk67/
------------------------------
Date: Mon, 07 Jun 1999 00:13:13 -0800
From: Mag <captain_mag@hotmail.com>
Subject: How to start a script and give it some variables ?
Message-Id: <928743194.25955@www.remarq.com>
Hi!
I need to start several scripts with one starting script.
(This first one starts other scripts and pipes them.
These other scripts now need some information that should be
supplied by the first script.
Now:
How do I get my first script to start the others and give
them this information?
I know how to do this via Browser:
http:......fireball.pl?URL=testurl&QUE=querystring&FIN=50
but whenever I try to get this started by the script, it
won't work:
open FIREBALL, "./fireball.pl
URL=$in_url&QUE=$in_query&FIN=$FINDER_depth 2>&1 |" or die
"Fireball:can't fork; $!";
Can anybody help me?
**** Posted from RemarQ - http://www.remarq.com - Discussions Start Here (tm) ****
------------------------------
Date: Mon, 07 Jun 1999 00:55:11 -0400
From: Jeff Thies <cyberjeff@sprintmail.com>
Subject: Re: Looking for special upload script
Message-Id: <375B50AF.E2003213@sprintmail.com>
This isn't really a perl issue, but I have done this. Add file:/// (at
least on win95) and you can view the file locally. I write it to a div
using javascript, but you could use a frame or write a new window with
the image in it.
Jeff
> Hello,
> befor starting to hack my own: anybody knows of an file upload script which
> offers a preview function for Gifs and Jpegs to be uploaded via the browser?
> Tips are greatly appreciated.
> Regards from Heidelberg
> Martin
> --
> __________________________
> Martin Knapp
> martin.knapp@adf.de
------------------------------
Date: Mon, 7 Jun 1999 09:02:43 +0200
From: "Bastiaan S van den Berg" <office@asc.nl>
Subject: Re: mail problems... still :) (final resolvement)
Message-Id: <7jfqul$6pv$1@zonnetje.NL.net>
sorry you guys
the program was working 100% , it was a problem with the mail account ..
somehow , the account was unable to recieve non-smtp sent mails from perl
scripts
as soon as i changed the mail address to my own account , all worked fine ,
so sorry for your time , and tnx for the support :)
cul8r
buZz
------------------------------
Date: Mon, 7 Jun 1999 08:44:01 +0200
From: "Bastiaan S van den Berg" <office@asc.nl>
Subject: Re: mail problems... still :)
Message-Id: <7jfpqa$64i$1@zonnetje.NL.net>
how???
i don't have root access , neither will my isp allow me to get it..
can you install modules from a ftp account? if so , how??
cul8r
buZz
Abigail heeft geschreven in bericht ...
>Bastiaan S van den Berg (office@asc.nl) wrote on MMCIII September
>MCMXCIII in <URL:news:7j7rpm$rtu$1@zonnetje.NL.net>:
>() i don't use module x because my isp only has 2 modules installed , cpan
db
>() and some other db variant..
>
>
>Then install the modules yourself. Djees.
>
>
>Abigail
>--
>perl -MLWP::UserAgent -MHTML::TreeBuilder -MHTML::FormatText -wle'print +(
>HTML::FormatText -> new -> format (HTML::TreeBuilder -> new -> parse (
>LWP::UserAgent -> new -> request (HTTP::Request -> new ("GET",
>"http://work.ucsd.edu:5141/cgi-bin/http_webster?isindex=perl")) ->
content))
>=~ /(.*\))[-\s]+Addition/s) [0]'
>
>
> -----------== 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: Mon, 7 Jun 1999 08:46:33 +0200
From: "Bastiaan S van den Berg" <office@asc.nl>
Subject: Re: mail problems... still :)
Message-Id: <7jfpv1$672$1@zonnetje.NL.net>
> perl -wle 'print "\usr\bin\sendmail"'
> Sinsendmail
sorry , i can't figure this out , what does it do?
>__ close(MAIL);
>
>You never checked the return value of close.....
i made some code to check it , but when i used that and uploaded it to my
server , i recieved server errors..
no , i can't look in the logs , because my isp is to stupid to allow me
access to them..
cul8r
buZz
------------------------------
Date: Mon, 7 Jun 1999 09:58:34 +0200
From: "Fred Ruffet" <fruffet@kaptech.com>
Subject: Re: mail problems... still :)
Message-Id: <7jfu3l$he2$1@gatekeeper.ornano.kapt.com>
Bastiaan,
Well, if the system administrator don't want to make is job, just do it for
him. You don't have right to install modules ? It's no problem ! MIME::Lite
is not a big module with many files and so on... Just download it,
decompress it in your own directory (the one you run your scripts in) and
call it ! I swear it'll work, and that it'll be easier.
Regards,
Fred
------------------------------
Date: 6 Jun 1999 23:35:29 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: newbie question about displaying digits.
Message-Id: <slrn7lmjdl.rki.abigail@alexandra.delanet.com>
3WHD (WOR130@email.msn.com) wrote on MMCVI September MCMXCIII in
<URL:news:etel$QHs#GA.406@cpmsnbbsa02>:
~~
~~ I'm totally new to perl but I have to modify some existing scripts.
~~ My question is that How can I display $10000 as $10,000 ?
RTFFAQ!
Abigail
--
sub f{sprintf$_[0],$_[1],$_[2]}print f('%c%s',74,f('%c%s',117,f('%c%s',115,f(
'%c%s',116,f('%c%s',32,f('%c%s',97,f('%c%s',0x6e,f('%c%s',111,f('%c%s',116,f(
'%c%s',104,f('%c%s',0x65,f('%c%s',114,f('%c%s',32,f('%c%s',80,f('%c%s',101,f(
'%c%s',114,f('%c%s',0x6c,f('%c%s',32,f('%c%s',0x48,f('%c%s',97,f('%c%s',99,f(
'%c%s',107,f('%c%s',101,f('%c%s',114,f('%c%s',10,)))))))))))))))))))))))))
-----------== 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: Sun, 06 Jun 1999 20:45:12 +0200
From: Michael Hallgren <mh@graphnet.fr>
Subject: Re: Password Generator
Message-Id: <375AC1B8.F2EABE7A@graphnet.fr>
Bill Jones wrote:
> In article <slrn7lgove.jgo.abigail@alexandra.delanet.com>,
> abigail@delanet.com (Abigail) wrote:
>
> > Bill Jones (bill@fccj.org) wrote on MMCIII September MCMXCIII in
> > <URL:news:37571f74.0@usenet.fccj.cc.fl.us>:
> > **
> > ** Easy to remember and secure do not
> > ** really go together :)
> >
> >
> > Neither does hard to remember and secure.
> >
>
> People aren't perfect - why expect a computer to be?
Use RSA (as proposed by SSH) :)
mh
>
>
> -Sneex- :]
> __________________________________________________________________
> Bill Jones | FCCJ DSS | Life is a 'Do it yourself' thing...
> http://www.fccj.org/cgi/mail?dss
>
> Jacksonville Perl Mongers
> http://jacksonville.pm.org
> jax@jacksonville.pm.org
>
> 'Be not the first by whom the new are tried,
> nor yet the last to lay the old aside...'
--
Michael Hallgren, http://mh.graphnet.fr
------------------------------
Date: Mon, 07 Jun 1999 02:58:32 -0400
From: ehpoole@ingress.com (Ethan H. Poole)
Subject: Re: PC carriage returns ( ^M ) in form fields.
Message-Id: <9SkpnMLs#GA.91@rejz.ij.net>
[Posted and Emailed] In article
<MPG.11c477b535dc548b989680@news.dt1.sdca.home.com>, zgott@hotmail.com
says...
>
>I've got a script running on a linux machine that takes intput from a
>form textarea and writes it to an html file. problem is the damn pc
>carraige returns are printed out as ^M I want to replace them with \n<BR>
>before writting to the file. for some reason s/\^M/\\n<BR>/; doesn't
>work. Anyone have any ideas.
Make your script much more robust... because your current script would really
choke if the submission came from a mac... and your proposed solution would
double space each line if submitted from a win/dos platform machine.
$text =~ s/\r\n|\r|\n/<BR>\n/g;
--
Ethan H. Poole | Website Design and Hosting,
| CGI Programming (Perl & C)..
========Personal=========== | ============================
* ehpoole @ ingress . com * | --Interact2Day, Inc.--
| http://www.interact2day.com/
------------------------------
Date: 7 Jun 1999 09:11:34 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Perl Editor...
Message-Id: <375b7eb6@newsread3.dircon.co.uk>
Darrick Wolfe <bravo@bravodesign.com> wrote:
> http://www.petes-place.com/ and try CodeMagic. It still needs some work, but
> it's a pretty good IDE. and it is totally free.
>
> Also www.incatec.com CodeWiz has Perl support
>
No. One goes to <http://reference.perl.com/query.cgi?editors> and makes
ones one mind up - no-one else is interested in peoples preference in
editors.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
------------------------------
Date: Mon, 07 Jun 1999 07:03:31 GMT
From: slegarre@ireste.fr
Subject: Regular Expressions
Message-Id: <7jfqs1$g1g$1@nnrp1.deja.com>
Hello,
I have a string of characters like bellow:
125 Jean-Paul Gaultier 45 rue Champs Elysee 75 001 Paris
I want to make some tests, on the first number(125).
How regular expression can I use.
I tried this one but it doesn't work:
(.*?)(/d)
Thank you for your answers
Steven
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 07 Jun 1999 00:21:19 -0500
From: Erich Douglass <erd@umr.edu>
Subject: Setting Numlock in a Perl script
Message-Id: <375B56CF.3C4E8AAD@umr.edu>
I'm writing this Perl appliation that takes input from the 10-Key keypad
part of the keyboard. Since the script expects to get numbers as input
when the keys are pressed, i have to manually turn on NumLock before i
use the application. I was wondering if anyone knew of a Perl module or
something that would let me turn on NumLock with a function call. Any
help is appreciated... Please reply via e-mail.
Erich Douglass
--
"In the beginning, the Universe was created... This made a lot of people
angry
and has been widely regarded as a bad move."
- The Hitchhikers Guide to the Galaxy
------------------------------
Date: 6 Jun 1999 23:32:16 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Total Newbie Question
Message-Id: <slrn7lmj7j.rki.abigail@alexandra.delanet.com>
webb meister (webbmeister@riofrio.net) wrote on MMCV September MCMXCIII
in <URL:news:375ac2e6.233358326@news.argolink.net>:
<> Where should the cgi bin reside on my hosts server. Should it be in my
<> directory. They say it is in "c:\usr\bin\perl" which is not in my
<> directory and I cannot access. I know this is a dumb question but I
<> have to start somewhere.
Read the config files of your server. And ask somewhere else, as your
question has absolutely nothing to do with Perl. I suggest chile.comics.
Don't you think calling yourself 'webb meister' is a little premature?
Abigail
--
perl -e '$_ = q *4a75737420616e6f74686572205065726c204861636b65720a*;
for ($*=******;$**=******;$**=******) {$**=*******s*..*qq}
print chr 0x$& and q
qq}*excess********}'
-----------== 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: Mon, 7 Jun 1999 01:07:52 -0400 (EDT)
From: NiceTiffany@webtv.net (Tiffany Silver)
Subject: Unzipping Files for WebTV
Message-Id: <8366-375B53A8-5@newsd-111.bryant.webtv.net>
I have access to a server that allows full cgi scripting, including
permissions.
The server allows access to a GUNZIP program. The program is located at:
/usr/contrib/bin/gunzip
I want to write a short perl script to allow me to unzip files on the
server. I cannot do it in my client workstation because it is a WebTV.
I am able to FTP zip files from their places on the Web to my server.
WHAT is the perl statement that allows me to unzip? Exactly HOW do I
include the /usr/contrib/bin/gunzip file in my program?
------------------------------
Date: Mon, 7 Jun 1999 09:28:15 +0200
From: "Fred Ruffet" <fruffet@kaptech.com>
Subject: Re: using MIME::Lite to send attachments
Message-Id: <7jfsaq$gjm$1@gatekeeper.ornano.kapt.com>
Well, I had some problems with multi-part too, and I would change you're
code to be :
use MIME::Lite;
$msg = new MIME::Lite (
From =>'x@x.xxx',
To =>'x@x.xxx',
Subject =>'A message with 2 parts...',
Type =>'TEXT',
Data =>"Hello\n",);
attach $msg (
Disposition=>'attachment', # I've also tried leaving this field out
Type =>'application/octet-stream',
Path =>'file.pl',
Filename =>'attach');
$msg->send;
Just forget the multipart, send your text mail, and attach your file... I
don't say, it's the only solution. It's a one which works. For the theory,
it's different. In a practical way, it's the same...
Regards,
Fred
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 5908
**************************************
