[13627] in Perl-Users-Digest
Perl-Users Digest, Issue: 1037 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Oct 11 06:05:36 1999
Date: Mon, 11 Oct 1999 03:05:12 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <939636312-v9-i1037@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 11 Oct 1999 Volume: 9 Number: 1037
Today's topics:
Re: CGI and perl question tmac@transport.com
Re: character count <jtribbeck@argogroup.com>
Re: character count tmac@transport.com
Re: Deciphering Error Messages: A Lesson <syeates@manuka.cs.waikato.ac.nz>
Re: Do you now an affordable Perl editor for Windows NT (chen shapira)
Help coordinating data flow between perl client and ser cadfael4437@my-deja.com
Re: Help with parsing input <dave@dave.org.uk>
How to post form data with Perl <erikhuiberts@my-deja.com>
Re: How to post form data with Perl <gellyfish@gellyfish.com>
Re: I need some Perl help (Bart Lateur)
Re: I need some Perl help <Mob-Rules@home.com>
Re: Is $$variable allowed like in PHP ? <NukeEmUp@ThePentagon.com>
Re: lookbehind capabilities was [Re: Help - Perl regula (Ilya Zakharevich)
Opening files on Windows NT (jakal)
Re: opening files on Windows NT? (Larry Rosler)
Re: opening files on Windows NT? <mwilliams@europarl.eu.int>
Re: Passing unknown filenames as arguments to another p (Bart Lateur)
Re: Passing unknown filenames as arguments to another p <skilchen@swissonline.ch>
Set password for users pzampier@my-deja.com
Re: Shell and Perl have different $? (Sam Carmalt)
Re: Simple flock question <jeff@vpservices.com>
Re: tool to convert BMPs to GIFs programatically? <syeates@manuka.cs.waikato.ac.nz>
Re: We do complex Perl Programming at very competetive harris_m@my-deja.com
Re: Win32::ODBC - problems accessing database on networ <michel@michel.enter.it>
Re: Y2K and localtime <jtribbeck@argogroup.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 11 Oct 1999 02:07:26 -0700
From: tmac@transport.com
Subject: Re: CGI and perl question
Message-Id: <3801A8CE.8ABC3CC2@transport.com>
The obvious problem is that != is a numeric operator. Use ne instead of !=.
I'm sure that it will work better.
Best to all,
Tim McIntyre
Mob-Rules wrote:
> How do I make it so you have to go through my page before using my cgi?
> I tried $ENV{'HTTP_REFERER'} != "http://mysite.com/page.html" then print
> access denied but I can still do "http://mysite.com/cgi-bin/mycgi.chi"
> and it works.
> Any help?
> Thanks
------------------------------
Date: Mon, 11 Oct 1999 09:29:08 +0100
From: Jason P Tribbeck <jtribbeck@argogroup.com>
Subject: Re: character count
Message-Id: <38019FD4.BE77DE83@argogroup.com>
hakanogren@my-deja.com wrote:
>
> I need help to count the number of times a certain letter appears in a
> string.
> For example if a have a string "HELLO WORLD" i want to know how many
> L's there are in the string.
You could do the following:
my $count=0;
while($string=~m:L:g) {
$count++;
}
print "There are $count 'L's in '$string'\n";
Or:
my $count=$string=~s:L:L:g;
However, I've never done any speed tests to see which is faster. The
first one is, in theory, slower, because there's more intepretation of
the code, but the second does write back to the original string. Also,
the latter may not be as understandable.
--
Jason Tribbeck Argo Interactive
ltd
Senior Design Engineer 7 Dukes Court,
Chichester
West Sussex, PO19
2FX
Tel: +44 1243 815 815 Fax: +44 1243 815 805
England
------------------------------
Date: Mon, 11 Oct 1999 01:30:44 -0700
From: tmac@transport.com
Subject: Re: character count
Message-Id: <3801A034.37221669@transport.com>
Perhaps something like this:
$_ = "hello world";
$l_count = push (@each_l, /(l)/gi);
I'd get a second opinion though:-)
Best to all,
Tim McIntyre
hakanogren@my-deja.com wrote:
> I need help to count the number of times a certain letter appears in a
> string.
> For example if a have a string "HELLO WORLD" i want to know how many
> L's there are in the string.
>
> Would be grateful for answers
> //Hakan
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
------------------------------
Date: 11 Oct 1999 08:28:02 GMT
From: Stuart Yeates <syeates@manuka.cs.waikato.ac.nz>
Subject: Re: Deciphering Error Messages: A Lesson
Message-Id: <939630480.819844@clint.waikato.ac.nz>
Jeff Pinyan <jeffp@crusoe.net> wrote:
<snip>
many thanks for the very good description of a problem and
it's solution
: I guess, just that Perl's errors aren't always as cryptic
: as they sound, if you apply some logic.
isn't it amazing how two people can look at the same input and
give two different outputs ?
i'd suggest that if we want perl to be usable by those who
haven't taken courses in compiler building (or similar) then
error messages could do with some expanding. but then i'm
just a newbie (fortunately a newbie who's done compiler
building).
stuart
-- stuart yeates <s.yeates@cs.waikato.ac.nz> aka `loam'
carpe noctem
X-no-archive:yes
------------------------------
Date: 11 Oct 1999 09:27:38 +0200
From: chen.shapira@usa.net (chen shapira)
Subject: Re: Do you now an affordable Perl editor for Windows NT
Message-Id: <8E5C5F8BFcheneusanet@news.barak.net.il>
KernelKlink@webtv.net wrote in <8732-38011EBF-20@storefull-
215.iap.bryant.webtv.net>:
>if your looking for a GUI
>editor I would recommend that you get one that has the ability to
>automatically add line numbers to your script.
>Some GUI editors will add line numbers but if you cut and paste the
>script, the line numbers do not appear in the paste.
Or you can write an editor in perl, the GUI in TK and have lots of fun :)
And the again you can also hack emacs to do the numbers trick - which is
pretty neat.
anyone thought of writting emacs like scriptable editor in perl - where the
scripts are also written in perl? (which is much more fun then writting in
LISP - with all due respect to RMS)
Just my 0.2$
Chen.
------------------------------
Date: Sun, 10 Oct 1999 19:36:31 GMT
From: cadfael4437@my-deja.com
Subject: Help coordinating data flow between perl client and servers
Message-Id: <7tqprv$g1f$1@nnrp1.deja.com>
I am having problems managing the communications
between a main program, a server and a user.
The main program processes data and then connects
to a server to see if there is any new data to be
processed.
The server maintains a connection to the main
program and the user's client.
When the server receives data from the user's
client it buffers the data. The main program
queries the server to seee if any additional data
is to be processed. If there is new data, the data
is sent across, processed and then the output is
sent back to the server to be shipped back to the
client.
The process seems to work sporadically. It will
run through one or two cycles and then hang.
I am using the IO::Socket module and using TCP-IP.
The user's client is almost verbatim the forking
client in the Perl Cookbook. The server is just
the generic TCP-IP server in the text with two
connections and the main program just opens a
socket to the server.
I'm sure I'm having a problems with blocking and
non-blocking with the send and receives so I
switched the connections to non-blocking through
fnctl but that didn't seem to help. Before
implementing the select server in the Cookbook I
figured I should get some help.
I'd appreciate any and all advice.
Darren Garber
change the email to ddg@rocketmail.com for
responses
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Sun, 10 Oct 1999 10:02:37 +0100
From: Dave Cross <dave@dave.org.uk>
Subject: Re: Help with parsing input
Message-Id: <clUAOG3lgEeDfBXRx+4SUsHRwUyU@4ax.com>
On Sat, 09 Oct 1999 17:03:33 GMT, etexas@my-deja.com wrote:
>We need to be able to parse and read a pipe
>delimited string response from another server and
>take action based on two of the fields by either
>logging the total response string to a flat file
>DB or print an error message to screen.
>
>The response looks like this:
>
>34|hbhf76|755|hf7|||||||||565||33g|y
>
>and the first two fields are the important ones.
>
>We had the script working when resonse was in
><form input name/value pairs format, but how do
>parse a delimited string only with no name value?
>
>Below is our current code:
>**************************
>if ($form_data{'x_response_code'} eq "1")
> {
> $cart_id = $form_data{'x_cart_id'};
> $sc_cart_path =
>"$sc_user_carts_directory_path/${cart_id}.cart";
> &logOrder;
> exit;
> }
>
>elsif ($form_data{'x_response_code'} eq "2" ||
>$form_data{'x_response_code'} eq "3")
> {
> $cart_id = $form_data{'x_cart_id'};
> $sc_cart_path =
>"$sc_user_carts_directory_path/${cart_id}.cart";
> print "I'm sorry, an error has occurred. Please
><a
>href=\"javascript:history.go(-3)\">return to the
>orderform</a>, check
>your data, and try again.";
> exit;
> }
>
>else
> {
> &output_frontpage;
> exit;
> }
>************************
>
>
>Please help!!
You need the split function. Try somthing like this:
my $response = '34|hbhf76|755|hf7|||||||||565||33g|y';
my ($first, $second) = split([\|], $response);
The first two bits of your string are in $first and $second.
If you might later need to use the other bits of the response, then it
will be more flexible to do something lke:
my $response = '34|hbhf76|755|hf7|||||||||565||33g|y';
my @response = split([\|], $response);
Your first two bits will be in $response[0] and $response[1].
hth,
Dave...
--
Dave Cross <dave@dave.org.uk>
<http://www.dave.org.uk>
------------------------------
Date: Mon, 11 Oct 1999 09:06:24 GMT
From: Erik Huiberts <erikhuiberts@my-deja.com>
Subject: How to post form data with Perl
Message-Id: <7ts9ab$g4a$1@nnrp1.deja.com>
Hello there,
I'm quite new to Perl and wondering how I will be able to post a HTML-
form to a webserver using a perl-script.
I've seen tons of examples on how to retrieve the data posted via a
Perl-script, but I'm interested in the post, not the result (for now)...
Anyone got an example for me please?
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 11 Oct 1999 10:52:52 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: How to post form data with Perl
Message-Id: <3801b374_1@newsread3.dircon.co.uk>
Erik Huiberts <erikhuiberts@my-deja.com> wrote:
> Hello there,
>
> I'm quite new to Perl and wondering how I will be able to post a HTML-
> form to a webserver using a perl-script.
> I've seen tons of examples on how to retrieve the data posted via a
> Perl-script, but I'm interested in the post, not the result (for now)...
>
> Anyone got an example for me please?
>
The document lwpcook.pod that comes with libwww-perl has several examples
of doing this using the module LWP::UserAgent.
/J\
--
"I managed to take her completely by surprise" - Prince Edward
------------------------------
Date: Mon, 11 Oct 1999 06:49:16 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: I need some Perl help
Message-Id: <3801878c.855786@news.skynet.be>
Abigail wrote:
>%% One fewer byte in each hash key. :-)
>
>Nah. It's still there. chomp only changes the length field, it
>doesn't actually reallocate a smaller string.
But $hash{$_} uses a (shorter) *copy* of the original string, not the
original string, as the hash key, doesn't it?
>%% Actually, if they're not chomped, the printed output will include
>%% extraneous newlines after each key printed, won't it?
>
>Not if you don't print the "\n" ....
It changes *where* the newline is printed. If you do
print "$_: $hash{$_}";
and $_ contains a newline (not $hash{$_}), your result will look like:
aap
: 12noot:
25
That doesn't look quite right.
--
Bart.
------------------------------
Date: Sun, 10 Oct 1999 21:41:02 GMT
From: Mob-Rules <Mob-Rules@home.com>
Subject: Re: I need some Perl help
Message-Id: <380107F9.217097DC@home.com>
Worked like a champ.
Thanks
Rasmus Rimestad wrote:
> Example:
> @names = ("Jim","Per","Ole","Jim","Smith","Jon","Ole");
>
> foreach $name (@names) {
> $countNames{$name}++;
> }
>
> foreach $name (keys(%countNames)) {
> print("$name occured $countNames{$name} time(s)\n");
> }
>
> Greetings from
> Rasmus Rimestad
> Bullshit Productions: http://bullshitprod.virtualave.net
>
> Mob-Rules wrote in message <3800D57B.2847C103@home.com>...
> >I have a list of names in a file and I need to know how many times each
> >name appears and what the name is but can't figure out how to do it in
> >Perl.
> >Can someone help? Thanks
> >
> >
------------------------------
Date: Mon, 11 Oct 1999 10:22:50 +0100
From: David Cantrell <NukeEmUp@ThePentagon.com>
Subject: Re: Is $$variable allowed like in PHP ?
Message-Id: <K6oBOOCvvTf5wz0YCP+1v20wzsxy@4ax.com>
On 9 Oct 1999 20:20:47 -0000, Jonathan Stowe <gellyfish@gellyfish.com>
said:
>On Fri, 08 Oct 1999 11:59:20 -0700 David Cassell wrote:
>
>> Can PHP be the cause of all these "I want to do $$name = value"
>> questions that show up here?
>
>No I think its the inability of people to analyse the problem they are trying
>to solve sufficiently.
This is not always the case.
> I dont believe I have ever heard anyone who has
>trained as a programmer ask this question.
Cos they know how to read the docs :-)
>I think the question is why people want to do it in Perl and not in C,
>COBOL or BCPL ?
I use $$...=... in CGI scripts which are dealing with _biiiig_ forms,
with up to hundreds of elements. It's a lot less hassle to do:
require 'cgi-lib.pl'; &ReadParse();
for(keys %in) { $$_=$in{$_}; }
and then do stuff to $productID, $userID etc... than it is to have to
type $in{'productID'}, $in{'userID'} each time. I believe it makes my
code _more_ readable, as the variable names in the perl script are
guaranteed to be the same as in the HTML form, and there is less 'line
noise'.
Of course there are times when I still need to look at %in, but the
less I have to type, the less chance of stupid typos.
[Copying newsgroup posts to me by mail is considered rude]
--
David Cantrell, part-time Unix/perl/SQL/java techie
full-time chef/musician/homebrewer
http://www.ThePentagon.com/NukeEmUp
------------------------------
Date: 11 Oct 1999 07:33:19 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: lookbehind capabilities was [Re: Help - Perl regular expression question!]
Message-Id: <7ts3rv$1k$1@charm.magnus.acs.ohio-state.edu>
[A complimentary Cc of this posting was sent to Uri Guttman
<uri@sysarch.com>],
who wrote in article <x77lkump2c.fsf@home.sysarch.com>:
> IZ> Emacs can do it. I do not remember anyone shooting himself with
> IZ> re-backward-search.
>
> that is not a backwards regex. it is a backwards moving search that uses
> a forward matching regex. same as search-backwards also compares
> forwards as it move backwards through the buffer.
How do you know? This is an implementation detail.
> but i am intrigued by the /r modifier. any work being done on it?
It is absolutely trivial to do (as in: to match "cde", first try to
move 3 units backwards, to match [cde], first move one unit backwards,
etc). What scares me is the series of benchmarking to find whether
having additional-branches/additional-checks would actually slow down
things noticably.
[Of course, I assume that for the first implementation one would need
to *write* your REx backwards ;-). Then an auto-inverter should be
written, but this is pretty easy.]
Ilya
------------------------------
Date: Mon, 11 Oct 1999 16:43:35 +0930
From: jakem@camtech.net.au (jakal)
Subject: Opening files on Windows NT
Message-Id: <jakem-1110991643350001@dialup-sa-1-315.uni.camtech.net.au>
I have done a little programming in Perl, mostly on my Macintosh.
I am trying to port a script to a Windows NT machine, and am having
trouble accessing files. my code looks like this:
open(TEST, ">>test.txt")|| die "can't open test.txt";
and the program dies at this point (the first time I try to access a file).
Is this something to do with file permissions or is it a syntax problem??
--
jakal
------------------------------
Date: Mon, 11 Oct 1999 00:30:09 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: opening files on Windows NT?
Message-Id: <MPG.126b31d8cc276ae098a06a@nntp.hpl.hp.com>
In article <jakem-1110991546580001@dialup-sa-1-315.uni.camtech.net.au>
on Mon, 11 Oct 1999 15:46:57 +0930, jakal <jakem@camtech.net.au> says...
...
> open(TEST, ">>test.txt")|| die "can't open test.txt";
>
> and I get the response, "can't open test.txt at
> E:\Students\macjm009\petition.pl line 30."
>
> Is this because my program doesn't have the right permissions, or is it
> something to do with the syntax???
The syntax is OK. Why don't you let Perl tell you what the problem is?
Include $! in the diagnostic message.
Among other potential problems: How do you know what the current
directory is, because that is where you are trying to write.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Mon, 11 Oct 1999 11:20:54 +0200
From: "williams, mark" <mwilliams@europarl.eu.int>
Subject: Re: opening files on Windows NT?
Message-Id: <mKsBOAyOaunl5RS8XsGQyf9+EB=2@4ax.com>
$agent_ini = 'c:/temp/Agent.ini';
if (!open(AI,$agent_ini)) {
$foff_n_die=&warn_and_die("Error: cannot
open file $agent_ini");
}
Or read carefully the manpages.
Bye
On Mon, 11 Oct 1999 15:46:57 +0930, jakem@camtech.net.au (jakal)
wrote:
>opening files on Windows NT?
>
>I have written a few perl programs, mainly on my macintosh.
>I am porting one to a Windows NT machine, and am having trouble opening files.
>
>My code looks like this:
>
> open(TEST, ">>test.txt")|| die "can't open test.txt";
>
>and I get the response, "can't open test.txt at
>E:\Students\macjm009\petition.pl line 30."
>
>Is this because my program doesn't have the right permissions, or is it
>something to do with the syntax???
Wilf Williams
MCSE
http://members.tripod.com/williams_mr
The Opinions expessed are my own (I don't have an employer!)
------------------------------
Date: Mon, 11 Oct 1999 07:14:10 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Passing unknown filenames as arguments to another program
Message-Id: <3802890f.1242238@news.skynet.be>
Steve Cresawn wrote:
> I'm new to perl, and my question is this: I have a directory on a
>linux machine with hundreds of text files, whose filenames all end in
>".seq". I need to be able to create an array that holds the filenames
>for the all the files ending with .seq.
glob() should do it.
@seqfiles = glob("*.seq");
--
Bart.
------------------------------
Date: Mon, 11 Oct 1999 09:36:07 GMT
From: "Samuel Kilchenmann" <skilchen@swissonline.ch>
Subject: Re: Passing unknown filenames as arguments to another program
Message-Id: <bciM3.23466$m4.86626335@news.magma.ca>
Tad McClellan <tadmc@metronet.com> wrote in:
news:r8uqt7.qmr.ln@magna.metronet.com
>
> : I need to be able to create an array that holds the filenames
> ^^^^^^^
> : for the all the files ending with .seq.
>
> Why do you "need to"?
> I don't see that you need to put them into an array, and
> my code works fine without that.
>
Thats an interesting claim and leads to the question:
What is involved in the assignment of a listvalue to an array variable?
Is this a costly operation?
> foreach my $fname ( grep /\.seq$/, readdir DIR) {
You use 2 list values.
------------------------------
Date: Mon, 11 Oct 1999 09:00:49 GMT
From: pzampier@my-deja.com
Subject: Set password for users
Message-Id: <7ts8vs$fqs$1@nnrp1.deja.com>
How can i set a password that i read from one personal file for my NEW
users? I need to insert the strings in the middle of the
system 'passwd' execution, or what else?
thanks for help...?
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 11 Oct 1999 07:14:37 GMT
From: scarmalt@swconsult.ch (Sam Carmalt)
Subject: Re: Shell and Perl have different $?
Message-Id: <38018dc8.410072038@news.iprolink.ch>
Thanks, everyone, for the help. There seems to be something funny
going on between the OS and Perl and I have a workaround in
2>$errfile, which I then read. Because there is a complete software
upgrade, including the OS, scheduled for this machine next month in
order to make it Y2K compliant, I'm going to quit until that's done.
Again, many thanks.
ilya@math.ohio-state.edu (Ilya Zakharevich) wrote:
>[A complimentary Cc of this posting was sent to Philip 'Yes, that's my address' Newton
><nospam.newton@gmx.net>],
>who wrote in article <38007e9e.70253337@news.nikoma.de>:
>> >> $ia = system("rcp $file_to_copy user\@machine:/path/$file_remote");
>> >> print "\$? = $? \$ia = $ia \n";
>> >
>> >I think this is more or less equivalent to
>> >
>> > (rcp file.x user@machine:/path/somedir/copy.x)
>> >
>> >Use multiarg-system() instead.
>>
>> Does this imply that using multi-arg system puts rcp's exit status
>> into $?, whereas single-arg system puts the shell's exit status into
>> $? ?
>
>Definitely.
>
>> In that case, $? == 0 would (sort of) make sense for an rcp
>> failure; after all, the shell itself exited successfully (or does it
>> propage $? ?).
>
>Shells do propagate simple things (when the lower byte is 0). If the
>lower byte of the kid exit status is non-0, shells have no way to
>propagate *this* (unless they kill themselves with the same signal ;-).
>
>Most shells use some funny convention for reporting such things, which
>makes exits from programs in the range 128..255 somewhat unreliable.
>This *is* discussed in the FM.
>
>Ilya
Sam Carmalt
scarmalt@swconsult.ch
------------------------------
Date: 11 Oct 1999 04:13:35 GMT
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: Simple flock question
Message-Id: <380163A7.9AC76E57@vpservices.com>
Warren Bell wrote:
> How would I test for flock?
use constant HAS_FLOCK => eval { flock STDOUT, 0; 1 };
...
if( HAS_FLOCK ) {
# do flock stuff
}
...
--
Jeff
------------------------------
Date: 11 Oct 1999 08:13:50 GMT
From: Stuart Yeates <syeates@manuka.cs.waikato.ac.nz>
Subject: Re: tool to convert BMPs to GIFs programatically?
Message-Id: <939629629.275312@clint.waikato.ac.nz>
In comp.lang.perl.misc Colin Reinhardt <colinrei@oz.net> wrote:
: I want to convert some BMPs to GIFs using code, without any user
: interaction.
: Is there a utility that is scriptable, or batchable, or supports automation
: to do this?
: Ideally it would be freeware and re-distributable...
: Thank you,
try the perl interface to gimp. you'll probably need a reasonably
current version of gimp (1.0.4 ?) and the perl interface (1.1 ?).
unlike some of the other suggestions, this is both on topic and
platform independant :)
stuart
-- stuart yeates <s.yeates@cs.waikato.ac.nz> aka `loam'
carpe noctem
X-no-archive:yes
------------------------------
Date: Mon, 11 Oct 1999 07:54:54 GMT
From: harris_m@my-deja.com
Subject: Re: We do complex Perl Programming at very competetive rates
Message-Id: <7ts54a$de6$1@nnrp1.deja.com>
Kraigen should get at least $20/hr from this company for doing
"detailed" non Perl related QA.
By the way how does the company display their Perl expertise on Web a
page? By puting some irrelavent source code for "something" written in
Perl?
Harris M.
------------------------------
In article <YA4M3.2986$UG5.212215@typ11.nn.bcandid.com>,
kragen@dnaco.net (Kragen Sitaker) wrote:
> In article <7tp250$b0u$1@news.vsnl.net.in>,
> Findcollege <info@findcollege.com> wrote:
> >We do complex Perl Programming at very competetive rates
($20/hour).We have
> >offices in US and in India and as the developmet would be done in
India we
> >give high quality perl programming at very low rates. Vist our
company's
> >web-site at
> >www.enabling-information.com
>
> I don't see any Perl code on your web site that would allow us to
> critique your expertise. I do see:
>
> - links to sites that are supposedly "under construction" that don't
> yet exist;
> - a link to www.findmatch.com, which evidently had its HTML written
> with "Microsoft Frontpage 3.0", suggesting you don't know HTML;
> - stuff on your front page suggesting your HTML was written with
> Frontpage, again suggesting you don't know HTML;
> - stuff on www.findmatch.com that talks about the "science of
> astrology", suggesting that you are scientifically illiterate;
> - www.findmatch.com uses JavaScript for ordinary links, suggesting you
> don't know HTML;
> - ironically, one of those links is about security, bragging about how
> secure your secure server is. Said secure server appears to be
> running Stronghold 2.2, an ancient version of Stronghold with
> security holes, and has a site certificate that doesn't match the
URL
> (indicating that the site is being spoofed, or is just very poorly
> set up). (I'm assuming said secure server is on
> https://www.findmatch.com:443/.)
> - Trying to "register" with the name "Kragen Sitaker" gives the error:
> Name Field should have a length of 4-35 Ch.
> So I couldn't give you an (incorrect) credit card number to verify
> that https://www.findmatch.com:443/ is indeed the secure server
> you're talking about. However, the server to which I submitted my
> name, birthdate, age, height, weight, marital status, income,
> religion, culture, nationality, information about my desired partner
> and myself, and my mailing address, among other things, did not use
> an encrypted connection. This suggests to me that you don't care
> much about your clients' privacy, or that you don't know much about
> security, either. (Not surprising if you don't know much about HTML
> or science.)
> - Your site has some, um, interesting insight about the nature of the
> Internet (http://www.enabling-information.com/inet_services.html):
> The Internet is not just boxes and wires. The Internet is a promise
a
> wealth beyond the dreams of avarice.
> This suggests you don't know much about the Internet (or English,
> either, but that's forgivable -- even Americans, who typically use
> English almost exclusively during their childhoods, make similar
> mistakes).
> - You have apparently progressed to Microsoft Frontpage 4.0 for your
> www.findcollege.com project. I registered as a user so I could try
> you out. I requested that you not send my username and password to
> me by email, for security reasons. You did anyway. This suggests
you
> don't know much about software testing.
> - Both of the web sites of yours I've looked at require registration
to
> use. This suggests you don't know much about the Web.
> - You use POST forms for your "unique two speed (simple and advanced)
> search engine" on www.findcollege.com. This suggests you don't know
> much about HTTP.
> - on www.findcollege.com, you appear to be trying to enforce the
> registration system by using a 'hidden' form input called 'id'. But
> your CGI scripts don't bother to check 'id' for a valid value. Why
> don't you just let anybody use the search engine then? This
suggests
> you don't know much about Web security.
>
> In short: you don't know much about HTML, HTTP, English, security, or
> the Internet. I doubt you know much about Perl.
> --
> <kragen@pobox.com> Kragen Sitaker
<http://www.pobox.com/~kragen/>
> Sun Oct 10 1999
> 30 days until the Internet stock bubble bursts on Monday, 1999-11-08.
> <URL:http://www.pobox.com/~kragen/bubble.html>
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 11 Oct 1999 10:18:07 +0200
From: ZioBudda <michel@michel.enter.it>
Subject: Re: Win32::ODBC - problems accessing database on network
Message-Id: <Pine.LNX.4.10.9910111017460.5705-100000@michel.enter.it>
where I can get this FAQ?
Does any1 have experience with Perl and MSSQL?
"Te riempo de botte, che il tuo cellulare da Family diventa Orfany".
--
Michel <ZioBudda> Morelli michel@enter.it
http://ziobudda.enter.it
Italian Linux FAQ http://ziobudda.enter.it/FAQ/
Italian Linux Press http://ziobudda.enter.it/ILP/
------------------------------
Date: Mon, 11 Oct 1999 09:23:33 +0100
From: Jason P Tribbeck <jtribbeck@argogroup.com>
Subject: Re: Y2K and localtime
Message-Id: <38019E85.2964C0CB@argogroup.com>
"Thomas Åhlen" wrote:
>
> I have seen this localtime usage in some scripts:
>
> my @_localtime = localtime(time());
> my $date = 19000000 + $_localtime[5]*10000 + ($_localtime[4]+1)*100 +
> $_localtime[3];
>
> What is the easiest way to make the above code Y2K SAFE?
It /is/ Y2K safe - $_localtime[5] will become 100 in 2000, since Perl's
year representation happens to be the current year-1900. Adding 1900 to
100 just makes it 2000.
--
Jason Tribbeck Argo Interactive
ltd
Senior Design Engineer 7 Dukes Court,
Chichester
West Sussex, PO19
2FX
Tel: +44 1243 815 815 Fax: +44 1243 815 805
England
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 1037
**************************************
