[25156] in Perl-Users-Digest
Perl-Users Digest, Issue: 7405 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Nov 15 06:06:02 2004
Date: Mon, 15 Nov 2004 03:05:05 -0800 (PST)
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, 15 Nov 2004 Volume: 10 Number: 7405
Today's topics:
Re: 404 not found message in simple script (David Efflandt)
array - removing duplicates <g-preston1@ti.com>
Re: array - removing duplicates <tony_curtis32@yahoo.com>
Re: array - removing duplicates <see@sig.invalid>
Re: array - removing duplicates <g-preston1@ti.com>
Re: array - removing duplicates <jurgenex@hotmail.com>
Re: array - removing duplicates (Anno Siegel)
Re: Could someone swing by the Lakes? (Becky)
Re: creating and validating encrypted password <joe@inwap.com>
Excluding in Substitution (Grant Nosbush)
Re: Excluding in Substitution <rwxr-xr-x@gmx.de>
Re: Excluding in Substitution (Anno Siegel)
FAQ 4.39: What is the difference between a list and an <comdog@panix.com>
FAQ 4.61: What's the difference between "delete" and "u <comdog@panix.com>
Re: FAQ 7.27: How do I clear a package? <lawshouse.public@btconnect.com>
Re: FAQ 7.27: How do I clear a package? <spamtrap@dot-app.org>
Re: Finding two strings with the same crc32 <dzluk8fsxsw0001@sneakemail.com>
Re: Global @INC <No_4@dsl.pipex.com>
Re: Image::EXIF troubles (Martin Herrmann)
Re: More EXIF woes -- can Image::ExifTool return IPTC k (Martin Herrmann)
Re: OT: Cheney's heart acting up-TO MUSTAPHA (Becky)
Re: OT: Cheney's heart acting up-TO MUSTAPHA <cyberhog@hanginwiththehogs.com>
Re: Password-protected login problem <see@sig.invalid>
Re: Script to pass info to GET string <webmaster@diggingsonline.com>
Re: Script to pass info to GET string <jurgenex@hotmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 15 Nov 2004 04:18:07 +0000 (UTC)
From: efflandt@xnet.com (David Efflandt)
Subject: Re: 404 not found message in simple script
Message-Id: <slrncpgbfv.3v6.efflandt@typhoon.xnet.com>
On 14 Nov 2004 07:06:49 GMT, Mortgageloan2004 <mortgageloan2004@aol.com> wrote:
> #!/usr/bin/perl
> #Open up subdirectory, and read in contents one line at a time
> open(FORM,'subdirectory.txt') || die "cannot open subdirectory for reading:
> $!";
> while (<FORM>) {
> if (/form3/) {
> print "the line is :" . $_;
> close (FORM);
> exit;
> }
> }
>
> I get an error message every time saying 404 not found. The file is a simple
> text file sitting in my cgi-bin. I'm searching for form3 in each line of the
> file. Am I missing something here?
This is not a Perl question. The webserver apparently cannot even find
your script (or does not have permission to access it due to file
permission, or incorrect permission for some dir in its system path).
Once you fix that you will get a premature end of script error, because
you fail to output proper header(s) before other printing, ie:
print "Content-type: text/plain\n\n";
------------------------------
Date: Sun, 14 Nov 2004 21:43:34 -0600
From: "Jerry Preston" <g-preston1@ti.com>
Subject: array - removing duplicates
Message-Id: <cn98l6$t1i$1@home.itg.ti.com>
@dat = qw( 9 5 12 14 17 20 11 2 10 15 6 5 14 17 16 25 12 24 );
I want to removes all the duplicates. I am currently using:
@dat = grep { !$dat{ $_ }++ } @dat;
99% of the time I get an empty array. Why? Is their a better/100% way?
Thanks,
Jerry
------------------------------
Date: Sun, 14 Nov 2004 21:55:56 -0600
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: array - removing duplicates
Message-Id: <87vfc7kboz.fsf@limey.hpcc.uh.edu>
>> On Sun, 14 Nov 2004 21:43:34 -0600,
>> "Jerry Preston" <g-preston1@ti.com> said:
> @dat = qw( 9 5 12 14 17 20 11 2 10 15 6 5 14 17 16 25 12 24
> ); I want to removes all the duplicates. I am currently
> using:
> @dat = grep { !$dat{ $_ }++ } @dat;
> 99% of the time I get an empty array. Why?
I guess something is broken on your system. Why "99%"? What
happens the other 1% of the time?
Or there's something else going on you're not telling us about
(maybe because you thought it wasn't important and
accidentally omitted salient details of a larger problem).
hth
t
------------------------------
Date: Sun, 14 Nov 2004 23:31:05 -0500
From: Bob Walton <see@sig.invalid>
Subject: Re: array - removing duplicates
Message-Id: <41982ead_5@127.0.0.1>
Jerry Preston wrote:
> @dat = qw( 9 5 12 14 17 20 11 2 10 15 6 5 14 17 16 25 12 24 );
>
> I want to removes all the duplicates. I am currently using:
>
> @dat = grep { !$dat{ $_ }++ } @dat;
>
> 99% of the time I get an empty array. Why? Is their a better/100% way?
...
> Jerry
>
>
Your test program, verbatim as above, generates the proper list of
numbers without duplicates 100% of the times I have run it (at least
half a dozen times). The problem you are having probably lies elsewhere.
--
Bob Walton
Email: http://bwalton.com/cgi-bin/emailbob.pl
------------------------------
Date: Sun, 14 Nov 2004 22:43:09 -0600
From: "Jerry Preston" <g-preston1@ti.com>
Subject: Re: array - removing duplicates
Message-Id: <cn9c4t$1lo$1@home.itg.ti.com>
Bob,
Syntax!
Thanks,
Jerry
"Bob Walton" <see@sig.invalid> wrote in message news:41982ead_5@127.0.0.1...
> Jerry Preston wrote:
>
> > @dat = qw( 9 5 12 14 17 20 11 2 10 15 6 5 14 17 16 25 12 24 );
> >
> > I want to removes all the duplicates. I am currently using:
> >
> > @dat = grep { !$dat{ $_ }++ } @dat;
> >
> > 99% of the time I get an empty array. Why? Is their a better/100% way?
> ...
> > Jerry
> >
> >
> Your test program, verbatim as above, generates the proper list of
> numbers without duplicates 100% of the times I have run it (at least
> half a dozen times). The problem you are having probably lies elsewhere.
> --
> Bob Walton
> Email: http://bwalton.com/cgi-bin/emailbob.pl
------------------------------
Date: Mon, 15 Nov 2004 05:00:10 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: array - removing duplicates
Message-Id: <uJWld.7330$pP5.5899@trnddc05>
Jerry Preston wrote:
> @dat = qw( 9 5 12 14 17 20 11 2 10 15 6 5 14 17 16 25 12 24 );
>
> I want to removes all the duplicates. I am currently using:
Do you have any particular problem with "perldoc -q duplicate"?
" How can I remove duplicate elements from a list or array?"
jue
------------------------------
Date: 15 Nov 2004 10:57:48 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: array - removing duplicates
Message-Id: <cna23c$fah$2@mamenchi.zrz.TU-Berlin.DE>
Bob Walton <invalid-email@rochester.rr.com> wrote in comp.lang.perl.misc:
> Jerry Preston wrote:
>
> > @dat = qw( 9 5 12 14 17 20 11 2 10 15 6 5 14 17 16 25 12 24 );
> >
> > I want to removes all the duplicates. I am currently using:
> >
> > @dat = grep { !$dat{ $_ }++ } @dat;
> >
> > 99% of the time I get an empty array. Why? Is their a better/100% way?
> ...
> > Jerry
> >
> >
> Your test program, verbatim as above, generates the proper list of
> numbers without duplicates 100% of the times I have run it (at least
> half a dozen times). The problem you are having probably lies elsewhere.
My guess is, the (undeclared) hash %dat still contains data from an
earlier run in 99 % of the cases. Solution: use strict.
Anno
------------------------------
Date: Mon, 15 Nov 2004 03:54:00 GMT
From: misfitskissfan@aol.com (Becky)
Subject: Re: Could someone swing by the Lakes?
Message-Id: <4199284e.96246953@decaxp.HARVARD.EDU>
On Mon, 15 Nov 2004 03:26:49 GMT, "CyßerHoG®"
<cyberhog@hanginwiththehogs.com> wrote:
>
>"Big Mikey" <mikem4454@hotmail.com> wrote in message
>news:2vqldnF2mde47U1@uni-berlin.de...
>> I'll give Burt the benefit of the doubt.
>>
>> There must be a joke there somewhere...
>>
>> Big Mikey
>>
>
>Yes there is.
I agree.
------------------------------
Date: Mon, 15 Nov 2004 03:36:15 GMT
From: Joe Smith <joe@inwap.com>
Subject: Re: creating and validating encrypted password
Message-Id: <KuVld.32740$V41.30762@attbi_s52>
sam wrote:
> But the example only shows
> adding MD5 encrypted password to file, there is no method/function for
> reading and validate the password.
1) Get username.
2) Get password.
3) Calculate the hash of the password.
4) Read the file of encrypted passwords until you get to the one
with the matching username.
5) Extract the password hash from that line.
6) Compare the two password hashes for string equality.
-Joe
------------------------------
Date: 14 Nov 2004 20:32:57 -0800
From: gman1120@yahoo.com (Grant Nosbush)
Subject: Excluding in Substitution
Message-Id: <95d93bc4.0411142032.4dacdc3a@posting.google.com>
How would I go about removing spaces from a string in perl except
those spaces found in brackets? In other words, if I have the
following string:
$str = "Hello World (My name is Bob) What is your name?"
I would like it to become:
$str = "HelloWorld(My name is Bob)Whatisyourname?"
I was thinking of using substituion in Perl, but not sure what
parameters to use. Anyone have any ideas? Thanks for your help!
------------------------------
Date: 15 Nov 2004 07:35:53 GMT
From: Lukas Mai <rwxr-xr-x@gmx.de>
Subject: Re: Excluding in Substitution
Message-Id: <cn9m8p$2sc$1@wsc10.lrz-muenchen.de>
Grant Nosbush schrob:
> How would I go about removing spaces from a string in perl except
> those spaces found in brackets? In other words, if I have the
> following string:
[...]
perldoc -q except
HTH, Lukas
--
main(int v,char**c){c?main(atoi(c[--v]),0),
puts(""):putchar((v/2&&main(v/2,0),48|v&1));}
------------------------------
Date: 15 Nov 2004 10:43:40 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Excluding in Substitution
Message-Id: <cna18s$fah$1@mamenchi.zrz.TU-Berlin.DE>
Grant Nosbush <gman1120@yahoo.com> wrote in comp.lang.perl.misc:
> How would I go about removing spaces from a string in perl except
> those spaces found in brackets? In other words, if I have the
> following string:
>
> $str = "Hello World (My name is Bob) What is your name?"
>
> I would like it to become:
>
> $str = "HelloWorld(My name is Bob)Whatisyourname?"
Split the string on the parenthesized pieces, capturing the
delimiters. Go through the partial strings and delete spaces in
strings that don't begin with "(". Join everything together again.
$_ = 'Hello World (My name is Bob) What is your name?';
$str = join '', map { tr/ //d unless /^\(/; $_} split /(\([^)]*\))/;
Anno
------------------------------
Date: Mon, 15 Nov 2004 05:03:01 +0000 (UTC)
From: PerlFAQ Server <comdog@panix.com>
Subject: FAQ 4.39: What is the difference between a list and an array?
Message-Id: <cn9da5$gjr$1@reader1.panix.com>
This message is one of several periodic postings to comp.lang.perl.misc
intended to make it easier for perl programmers to find answers to
common questions. The core of this message represents an excerpt
from the documentation provided with Perl.
--------------------------------------------------------------------
4.39: What is the difference between a list and an array?
An array has a changeable length. A list does not. An array is something
you can push or pop, while a list is a set of values. Some people make
the distinction that a list is a value while an array is a variable.
Subroutines are passed and return lists, you put things into list
context, you initialize arrays with lists, and you foreach() across a
list. "@" variables are arrays, anonymous arrays are arrays, arrays in
scalar context behave like the number of elements in them, subroutines
access their arguments through the array @_, and push/pop/shift only
work on arrays.
As a side note, there's no such thing as a list in scalar context. When
you say
$scalar = (2, 5, 7, 9);
you're using the comma operator in scalar context, so it uses the scalar
comma operator. There never was a list there at all! This causes the
last value to be returned: 9.
--------------------------------------------------------------------
Documents such as this have been called "Answers to Frequently
Asked Questions" or FAQ for short. They represent an important
part of the Usenet tradition. They serve to reduce the volume of
redundant traffic on a news group by providing quality answers to
questions that keep coming up.
If you are some how irritated by seeing these postings you are free
to ignore them or add the sender to your killfile. If you find
errors or other problems with these postings please send corrections
or comments to the posting email address or to the maintainers as
directed in the perlfaq manual page.
Note that the FAQ text posted by this server may have been modified
from that distributed in the stable Perl release. It may have been
edited to reflect the additions, changes and corrections provided
by respondents, reviewers, and critics to previous postings of
these FAQ. Complete text of these FAQ are available on request.
The perlfaq manual page contains the following copyright notice.
AUTHOR AND COPYRIGHT
Copyright (c) 1997-2002 Tom Christiansen and Nathan
Torkington, and other contributors as noted. All rights
reserved.
This posting is provided in the hope that it will be useful but
does not represent a commitment or contract of any kind on the part
of the contributers, authors or their agents.
------------------------------
Date: Mon, 15 Nov 2004 11:03:02 +0000 (UTC)
From: PerlFAQ Server <comdog@panix.com>
Subject: FAQ 4.61: What's the difference between "delete" and "undef" with hashes?
Message-Id: <cna2d6$lni$1@reader1.panix.com>
This message is one of several periodic postings to comp.lang.perl.misc
intended to make it easier for perl programmers to find answers to
common questions. The core of this message represents an excerpt
from the documentation provided with Perl.
--------------------------------------------------------------------
4.61: What's the difference between "delete" and "undef" with hashes?
Hashes contain pairs of scalars: the first is the key, the second is the
value. The key will be coerced to a string, although the value can be
any kind of scalar: string, number, or reference. If a key $key is
present in %hash, "exists($hash{$key})" will return true. The value for
a given key can be "undef", in which case $hash{$key} will be "undef"
while "exists $hash{$key}" will return true. This corresponds to ($key,
"undef") being in the hash.
Pictures help... here's the %hash table:
keys values
+------+------+
| a | 3 |
| x | 7 |
| d | 0 |
| e | 2 |
+------+------+
And these conditions hold
$hash{'a'} is true
$hash{'d'} is false
defined $hash{'d'} is true
defined $hash{'a'} is true
exists $hash{'a'} is true (Perl5 only)
grep ($_ eq 'a', keys %hash) is true
If you now say
undef $hash{'a'}
your table now reads:
keys values
+------+------+
| a | undef|
| x | 7 |
| d | 0 |
| e | 2 |
+------+------+
and these conditions now hold; changes in caps:
$hash{'a'} is FALSE
$hash{'d'} is false
defined $hash{'d'} is true
defined $hash{'a'} is FALSE
exists $hash{'a'} is true (Perl5 only)
grep ($_ eq 'a', keys %hash) is true
Notice the last two: you have an undef value, but a defined key!
Now, consider this:
delete $hash{'a'}
your table now reads:
keys values
+------+------+
| x | 7 |
| d | 0 |
| e | 2 |
+------+------+
and these conditions now hold; changes in caps:
$hash{'a'} is false
$hash{'d'} is false
defined $hash{'d'} is true
defined $hash{'a'} is false
exists $hash{'a'} is FALSE (Perl5 only)
grep ($_ eq 'a', keys %hash) is FALSE
See, the whole entry is gone!
--------------------------------------------------------------------
Documents such as this have been called "Answers to Frequently
Asked Questions" or FAQ for short. They represent an important
part of the Usenet tradition. They serve to reduce the volume of
redundant traffic on a news group by providing quality answers to
questions that keep coming up.
If you are some how irritated by seeing these postings you are free
to ignore them or add the sender to your killfile. If you find
errors or other problems with these postings please send corrections
or comments to the posting email address or to the maintainers as
directed in the perlfaq manual page.
Note that the FAQ text posted by this server may have been modified
from that distributed in the stable Perl release. It may have been
edited to reflect the additions, changes and corrections provided
by respondents, reviewers, and critics to previous postings of
these FAQ. Complete text of these FAQ are available on request.
The perlfaq manual page contains the following copyright notice.
AUTHOR AND COPYRIGHT
Copyright (c) 1997-2002 Tom Christiansen and Nathan
Torkington, and other contributors as noted. All rights
reserved.
This posting is provided in the hope that it will be useful but
does not represent a commitment or contract of any kind on the part
of the contributers, authors or their agents.
------------------------------
Date: Mon, 15 Nov 2004 07:34:49 +0000
From: Henry Law <lawshouse.public@btconnect.com>
Subject: Re: FAQ 7.27: How do I clear a package?
Message-Id: <opmgp0tp70h5p4mvjpm0g00s70rqamnipj@4ax.com>
On Sun, 14 Nov 2004 23:03:03 +0000 (UTC), PerlFAQ Server
<comdog@panix.com> wrote:
> sub scrub_package {
> no strict 'refs';
> my $pack = shift;
> die "Shouldn't delete main package"
> if $pack eq "" || $pack eq "main";
> my $stash = *{$pack . '::'}{HASH};
I appreciate these FAQs; they improve my education. But can someone
help me understand the last line and work out what it does? I've
searched perlop for a unary "*" operator and can only find this: "Here
is what C has that Perl doesn't ... unary *". Also, isn't "HASH" a
bareword here?
--
Henry Law <>< Manchester, England
------------------------------
Date: Mon, 15 Nov 2004 02:55:28 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: FAQ 7.27: How do I clear a package?
Message-Id: <19KdnRJcgahH_QXcRVn-hQ@adelphia.com>
Henry Law wrote:
> On Sun, 14 Nov 2004 23:03:03 +0000 (UTC), PerlFAQ Server
> <comdog@panix.com> wrote:
>
>> my $stash = *{$pack . '::'}{HASH};
>
>
> I appreciate these FAQs; they improve my education. But can someone
> help me understand the last line and work out what it does?
It's a typeglob. Have a look at perldata/"Typeglobs and Filehandles",
and perlmod/"Symbol Tables" for details.
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: Mon, 15 Nov 2004 08:44:39 +0100
From: "Jonas Nilsson" <dzluk8fsxsw0001@sneakemail.com>
Subject: Re: Finding two strings with the same crc32
Message-Id: <cn9mos$a5o$1@news.island.liu.se>
I've got a hit...
C:\Documents and Settings\jonni>perl -MDigest::CRC
print Digest::CRC::crc32('mddxzib');
^D
1756683253
Excited? Naa...
/jN
"Jonas Nilsson" <dzluk8fsxsw0001@sneakemail.com> wrote in message
news:cmv3rg$phv$1@news.island.liu.se...
> "Jonas Nilsson" <dzluk8fsxsw0001@sneakemail.com> wrote in message
> news:cmqd3k$7v6$1@news.island.liu.se...
> > "Mark Shelor" <mshelor@cpan.dot.org> wrote :
> > >
> > > But, can you come up with an efficient Perl program that finds an
input
> > > string whose CRC value is 1756683253?
> > >
> > > Hint: I'd recommend writing it in C! ;)
> >
> > Shall I write a Perl-program in C?
> >
> > I'm currently running this:
> >
> <snip code>
>
> I've run through 2.6 billion lowercase letter combination without a hit.
Is
> it so that using only a subset of bytes (like 'a'-'z' == 97 - 122) I will
> only have access to a subset of the CRC32 values? I thougt not. If there
> still is no hit after the weekend I will start to think otherwise...
>
> /jN
>
> <Revised code - able to restart from last position>
>
> use strict;
> use integer;
> use Digest::CRC qw(crc32);
> my $string='a';
> $|=1;
> if (open(FILE,"<crc1756683253.log")) {
> $string=<FILE>;
> chomp($string);
> close(FILE);
> }
>
> my $t0=time();
> while (1) {
> for (1..500000) {
> if (crc32($string)==1756683253) {
> my $timediff=(time()-$t0);
> print "After $timediff seconds I found this: $string\n";
> if (open(FILE,">>crc1756683253")) {
> print FILE "After $timediff seconds I found this: $string\n";
> close(FILE);
> }
> }
> $string++;
> }
> open(FILE,">crc1756683253.log") or die;
> print FILE "$string\n";
> my $number;
> my $mult=1;
> my $ex=26;
> no integer;
> for (reverse split //,$string) {
> $number+=(ord($_)-96)*$mult;
> $mult*=$ex;
> }
> $number--;
> print FILE "Now I checked $number strings!\n";
> close FILE;
> use integer;
> }
>
>
------------------------------
Date: Mon, 15 Nov 2004 01:43:31 +0000
From: Big and Blue <No_4@dsl.pipex.com>
Subject: Re: Global @INC
Message-Id: <419809c3$0$24201$cc9e4d1f@news-text.dial.pipex.com>
On Mon, 01 Nov 2004 18:28:08 -0800, William Ahern wrote:
> How can I globally specify additional @INC paths. Is there a module I can
> edit amongst any Perl library modules--written in perl?
>
> I've tried setting PERL5LIB in the the global shell startup files in /etc,
> but that doesn't work for perl code started from init. Recompiling perl
> isn't an option.
Write a simple module to do what you want (edit @INC, do anything else
you need/want/wish) and install it in your normal Perl.
Write a simple interlude (this is just an example in shell - it isn't
difficult to do this in C if you want it smaller).
==========
#!/bin/sh
my_real_perl=/usr/local/bin/perl # Or whereever it really is
my_init_mod=My::Init # Or whatever you have called it
exec ${my_real_perl} -M${my_init_mod} ${1+"$@"}
==========
Then install this a /usr/local/bin/myperl (or whatever) and use that as the.
Or, if you really want this to occur for everything you could move the
original perl to orig-perl and install the interlude as perl (making sure
that it exec's orig-perl).
--
-*- Just because I've written it here doesn't -*-
-*- mean that you should, or I do, believe it. -*-
------------------------------
Date: 15 Nov 2004 02:23:50 -0800
From: mrh1@gmx.net (Martin Herrmann)
Subject: Re: Image::EXIF troubles
Message-Id: <350918ef.0411150223.4e25b121@posting.google.com>
David Dyer-Bennet <dd-b@dd-b.net> wrote in message news:<m2u0rtjhlg.fsf@gw.dd-b.net>...
> Anybody else using Image::EXIF to read exposure data and such out of
> image files from digital cameras? Or is there some other module that
> people like better for that?
Maybe you should try Image::MetaData::JPEG instead of Image::EXIF.
It's written in pure perl and works quite good in my Perl/Tk picture
viewer and organizer Mapivi (http://mapivi.de.vu).
Regards
Martin
------------------------------
Date: 15 Nov 2004 02:26:42 -0800
From: mrh1@gmx.net (Martin Herrmann)
Subject: Re: More EXIF woes -- can Image::ExifTool return IPTC keywords as an array?
Message-Id: <350918ef.0411150226.36507f52@posting.google.com>
David Dyer-Bennet <dd-b@dd-b.net> wrote in message news:<m2hdnsj4i5.fsf@gw.dd-b.net>...
> Since Image::EXIF appears to be incompatible with mod_perl, I'm now
> trying Image::ExifTool, which seems to work okay -- except I can't
> figure out how to get it to return an array for the IPTC keywords
> tag. It takes all the values and strings them together with commas,
> which makes a real hash of it since most of my keywords are people's
> names in "last, first" format. Anybody worked with ExifTool and have
> any idea how to do this?
Again, the module Image::MetaData::JPEG does the job pretty fine. You
can use it to read and write JPEG comments, EXIF data and IPTC
informations.
Regards
Martin
------------------------------
Date: Mon, 15 Nov 2004 03:53:25 GMT
From: misfitskissfan@aol.com (Becky)
Subject: Re: OT: Cheney's heart acting up-TO MUSTAPHA
Message-Id: <419827b9.96098203@decaxp.HARVARD.EDU>
On Sun, 14 Nov 2004 19:17:13 -0800, "Big Mikey"
<mikem4454@hotmail.com> wrote:
First we start:
>Can you ever argue politics at all without personal attacks
Then we have:
>God, you liberals make me puke sometimes...
Another reason that Big Mikey is the brain trust of wherever he lives
in California.
>Big Mikey
>
>"Mustapha Mond" <Sorry@nonaurbiz.com> wrote in message
>news:Xns95A149EC6EFSorrynonaurbizcom@204.127.199.17...
>> He could if he became a naturalized citizen and they pass the "Ahnold"
>> Amendment, being proposed by Utah's idiotic senator Hatch.
>>
>> m5b@aol.comno-spam (M5B) wrote in
>> news:20041113222322.21604.00000517@mb-m11.aol.com:
>>
>> > Sadaam Hussein is currently unemployed and available, and he has
>> > administrative experience running a government that suppresses
>> > dissent, sort of like Bush does. Could he be a candidate?
>> >
>> > With Hussein as our VP, if Bush were to die in office then at least we
>> > know that Hussein, as our new president, would attack Iraq again, to
>> > take it over, so our Iraqi policy would not need to change.
>> >
>>
>
------------------------------
Date: Mon, 15 Nov 2004 04:09:18 GMT
From: "CyßerHoG®" <cyberhog@hanginwiththehogs.com>
Subject: Re: OT: Cheney's heart acting up-TO MUSTAPHA
Message-Id: <OZVld.4173$G36.3264@newsread3.news.pas.earthlink.net>
"Becky" <misfitskissfan@aol.com> wrote in message
news:419827b9.96098203@decaxp.HARVARD.EDU...
> On Sun, 14 Nov 2004 19:17:13 -0800, "Big Mikey"
> <mikem4454@hotmail.com> wrote:
>
> First we start:
>
>>Can you ever argue politics at all without personal attacks
>
> Then we have:
>
>>God, you liberals make me puke sometimes...
>
> Another reason that Big Mikey is the brain trust of wherever he lives
> in California.
>
>>Big Mikey
>>
Amazing isn't it Becky?
Now that Steve has taught me the basics, that would be jackassitude.
------------------------------
Date: Sun, 14 Nov 2004 20:55:10 -0500
From: Bob Walton <see@sig.invalid>
Subject: Re: Password-protected login problem
Message-Id: <41980a22$1_5@127.0.0.1>
jim simpson wrote:
> I am trying to automate the process of loggin in to a number of
> password-protected financial sites and downloading my statements from them.
> I've succeeded with about one-half of them. In each case, I've started with
> the HTML for the login page, stripped it down to just the login FORM, and
> logged in using that abbreviated login page in IE. Once I get that shortened
> form working, I write a perl script using the same INPUT fields and ACTION
> URL as that form. In about half the cases, that works fine -- in the other
> half I'm unable to get logged in. I get an "i The page cannot be displayed"
> page returned.
>
> For example, the following script fails to login to the Scudder website
> athttp://www.myscudder.com/t/index.jhtml. You can see below the abbreviated
> (form-only) login page, which gets me logged in just fine.
>
> It appears that something else is required to be submitted for those sites
> where this procedure fails to login.
In addition to duplicating the method and field names of the form, you
may also need to provide an agent that the web site recognizes.
Pretending like you're Internet Explorer should do the trick. Maybe
something like:
$browser->agent(
'Mozilla /4.0 (compatible; MSIE 6.0; MSN 2.5; Windows 98)'
);
If that doesn't do it, you can try the "Web Scraping Proxy" (look it up
on Google) to see precisely what is being transmitted back and forth
during a successful session.
You should also scour the login web page for Javascript tricks. If
those are used, you'll have to duplicate their result. Those would be
used to stop people like you from doing what you are trying to do.
Sometimes there might even be a series of web pages that all blow by
transparently following a successful login, each employing a Javascript
trick, all just an attempt to make sure it is actually a real web
browser out there, not some guy's Perl program.
...
> Jim
...
--
Bob Walton
Email: http://bwalton.com/cgi-bin/emailbob.pl
------------------------------
Date: Sun, 14 Nov 2004 19:12:03 GMT
From: Kendall K. Down <webmaster@diggingsonline.com>
Subject: Re: Script to pass info to GET string
Message-Id: <5763d90d4d.diggings@diggingsonline.com>
In message <7jgf62-mh5.ln1@osiris.mauzo.dyndns.org>
Ben Morrow <usenet@morrow.me.uk> wrote:
> No, he meant that your question was actually about CGI, but you didn't
> say so. Questions like that are not welcome here: we get too many of
> them, and they're not interesting.
1. If the script is written in Perl, why should it not be welcome on a Perl
newsgroup?
2. However, if it really is not welcome, where should people with Perl cgi
scripts go?
Ken Down
--
================ ARCHAEOLOGICAL DIGGINGS ===============
| Australia's premiere archaeological magazine |
| http://www.diggingsonline.com |
========================================================
------------------------------
Date: Mon, 15 Nov 2004 11:04:19 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Script to pass info to GET string
Message-Id: <T20md.3289$J55.2047@trnddc06>
Kendall K. Down wrote:
> In message <7jgf62-mh5.ln1@osiris.mauzo.dyndns.org>
> Ben Morrow <usenet@morrow.me.uk> wrote:
>
>> No, he meant that your question was actually about CGI, but you
>> didn't say so. Questions like that are not welcome here: we get too
>> many of them, and they're not interesting.
>
> 1. If the script is written in Perl, why should it not be welcome on
> a Perl newsgroup?
>
> 2. However, if it really is not welcome, where should people with
> Perl cgi scripts go?
If the question is about Perl or perl then ask here.
If the question is about CGI then ask in a CGI NG (see "perldoc -q 500").
If the question is about HTML then ask in a HMTL NG.
jue
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 V10 Issue 7405
***************************************
