[18870] in Perl-Users-Digest
Perl-Users Digest, Issue: 1038 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jun 1 18:05:49 2001
Date: Fri, 1 Jun 2001 15:05:17 -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: <991433117-v10-i1038@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 1 Jun 2001 Volume: 10 Number: 1038
Today's topics:
1 milj passwords <sjaaknabuurs@hetnet.nl>
Re: 1 milj passwords <keesh@users.sf.net>
Re: Appending to a Text file (Lee Webb)
Re: Appending to a Text file <hartleh1@westat.com>
Re: Appending to a Text file <lmoran@wtsg.com>
Re: Appending to a Text file <hartleh1@westat.com>
Re: Getting Users' IP (Abigail)
Re: Help slim down Perl code (Sweth Chandramouli)
Re: Help slim down Perl code <uri@sysarch.com>
Re: How to improve this? nobull@mail.com
Re: How to improve this? <bart.lateur@skynet.be>
Re: How to improve this? (Jay Tilton)
Re: How to improve this? (Abigail)
Re: How to improve this? <bcoon@sequenom.com>
html page creation from html using perl (Mike)
Re: html page creation from html using perl <godzilla@stomp.stomp.tokyo>
Re: i dont understand Cookies nobull@mail.com
Re: i dont understand Cookies <noemail@noemail.com>
Re: i dont understand Cookies nobull@mail.com
Installing CGI.PM with FTP client (Shalayla)
Komodo <gordon@med.unc.edu>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 1 Jun 2001 20:17:21 +0200
From: "sjaak nabuurs" <sjaaknabuurs@hetnet.nl>
Subject: 1 milj passwords
Message-Id: <#Weqdbs6AHA.344@net037s.hetnet.nl>
Hi
I like to produce 1.000.000 12 char passwords in one time with not on the
same.
Don't know how to do this in high speed.
How to do this.
I created a script but this generates 100 the same again and again.
--
Sjaak Nabuurs
Visit www.CityTower.com and create your own citytower
and become the centre of internet in your city.
------------------------------
Date: Fri, 01 Jun 2001 18:24:34 GMT
From: "Ciaran McCreesh" <keesh@users.sf.net>
Subject: Re: 1 milj passwords
Message-Id: <C5RR6.21775$zb7.2795352@news1.cableinet.net>
In article <#Weqdbs6AHA.344@net037s.hetnet.nl>, "sjaak nabuurs"
<sjaaknabuurs@hetnet.nl> said:
> I like to produce 1.000.000 12 char passwords in one time with not on
> the same.
> Don't know how to do this in high speed. How to do this.
A hash maybe? Stick something round this:
my %passwords;
while ((length keys %passwords) < 1000000) {
$passwords{ whatever you use to create a password} = 1;
}
And then:
foreach (keys $passwords) {
print;
}
Not that efficient, but shouldn't be too bad.
> I created a script but this generates 100 the same again and again. --
What version of perl do you have? Before 5.003 (???) you have to call
srand once at the start of your script.
--
Ciaran McCreesh
mail: keesh at users dot sf dot net
web: http://www.opensourcepan.com
------------------------------
Date: 1 Jun 2001 18:06:42 GMT
From: lee.webb@colossus.com (Lee Webb)
Subject: Re: Appending to a Text file
Message-Id: <slrn9hfmgi.159.lee.webb@colossus.com>
On Thu, 31 May 2001 14:35:19 -0400, relpy-to-group@thanx.com wrote:
> Can anyone tell me how to append text to a file.
>
> My open file code:
> open(CLIENTINFO,">client.txt");
>
>
To append:
open(CLIENTINFO, ">>client.txt") or die "Can't open file for append:
$!\n";
Take a look in perldoc -f open
Lee.
------------------------------
Date: Fri, 01 Jun 2001 15:41:09 -0400
From: Henry Hartley <hartleh1@westat.com>
Subject: Re: Appending to a Text file
Message-Id: <3B17EFD5.D9B3EA8B@westat.com>
Wyzelli wrote:
>
> "Henry Hartley" <hartleh1@westat.com> wrote in message
> news:3B169B1B.C44C1589@westat.com...
> > "<< SilverSting >>" wrote:
> > >
> > > Can anyone tell me how to append text to a file.
> > >
> > > My open file code:
> > > open(CLIENTINFO,">client.txt");
> >
> > first, you want to be sure the file was opened:
> >
> > open(CLIENTINFO,">client.txt") || die "Could not open client.txt: $!\n\n"
> ;
>
> That will create a file, or overwrite one if it exists, NOT append to it.
> BTW Why two \n at the end?
>
> You need to open the file in append mode, which is >>
The OP had already opened the file and simply asked how to append text
to it. I didn't change the open because that was not asked. I did add
the check on the success of that open because that's important. The
next line, which you snipped, shows how to actually append to it.
print CLIENTINFO "A string you want printed to that file\n" ;
--
Henry Hartley
------------------------------
Date: Fri, 01 Jun 2001 16:11:23 -0400
From: Lou Moran <lmoran@wtsg.com>
Subject: Re: Appending to a Text file
Message-Id: <ovsfhtcsvbsflv255cvct0fl0r7esu5him@4ax.com>
On Fri, 01 Jun 2001 15:41:09 -0400, Henry Hartley
<hartleh1@westat.com> wrote wonderful things about sparkplugs:
>Wyzelli wrote:
>>
>> "Henry Hartley" <hartleh1@westat.com> wrote in message
>> news:3B169B1B.C44C1589@westat.com...
>> > "<< SilverSting >>" wrote:
>> > >
>> > > Can anyone tell me how to append text to a file.
>> > >
>> > > My open file code:
>> > > open(CLIENTINFO,">client.txt");
>> >
>> > first, you want to be sure the file was opened:
>> >
>> > open(CLIENTINFO,">client.txt") || die "Could not open client.txt: $!\n\n"
>> ;
>>
>> That will create a file, or overwrite one if it exists, NOT append to it.
>> BTW Why two \n at the end?
>>
>> You need to open the file in append mode, which is >>
>
>The OP had already opened the file and simply asked how to append text
>to it. I didn't change the open because that was not asked.
But you did change the open or do you mean the whole of the code to
read:
open(CLIENTINFO,">client.txt");
open(CLIENTINFO,">client.txt") || die "Could not open client.txt:
$!\n\n";
print CLIENTINFO "A string you want printed to that file\n" ;
which produced this output
C:\code>b.pl
syntax error at C:\code\b.pl line 3, near "print"
Execution of C:\code\b.pl aborted due to compilation errors.
SNIP
in any even >> is how to append a file. And why the \n\n?
--
BSOD? In my day we didn't have 0000FF!
lmoran@wtsg.com
------------------------------
Date: Fri, 01 Jun 2001 17:55:02 -0400
From: Henry Hartley <hartleh1@westat.com>
Subject: Re: Appending to a Text file
Message-Id: <3B180F36.36A22075@westat.com>
Lou Moran wrote:
>
> On Fri, 01 Jun 2001 15:41:09 -0400, Henry Hartley
> <hartleh1@westat.com> wrote wonderful things about sparkplugs:
>
> >Wyzelli wrote:
> >>
> >The OP had already opened the file and simply asked how to append text
> >to it. I didn't change the open because that was not asked.
>
> But you did change the open or do you mean the whole of the code to
> read:
>
> open(CLIENTINFO,">client.txt");
> open(CLIENTINFO,">client.txt") || die "Could not open client.txt:
> $!\n\n";
> print CLIENTINFO "A string you want printed to that file\n" ;
>
You clipped the next line of my message which said, "I did add
the check on the success of that open because that's important."
So I know I made a change. But I did NOT make a change to the
"open portion" of the line. I did add to it and I said I added
to it. No, I did not suggest having the open command repeated.
> SNIP
>
> in any even >> is how to append a file.
>
We both know that >> is used to open a file for append.
The OP asked how to append to the file. S/He had already
opened the file. The print statement is how you actually
append to the file. I suppose I'm being difficult but I
don't seem to be alone.
> And why the \n\n?
No particular reason. Why not. It makes it stand out more and
makes it slightly easier for me to read. Doesn't hurt anything.
--
Henry Hartley
------------------------------
Date: Fri, 1 Jun 2001 21:21:15 +0000 (UTC)
From: abigail@foad.org (Abigail)
Subject: Re: Getting Users' IP
Message-Id: <slrn9hg1qb.puh.abigail@tsathoggua.rlyeh.net>
Bart Lateur (bart.lateur@skynet.be) wrote on MMDCCCXXXI September
MCMXCIII in <URL:news:kn8fht496nouujp0tvfark07uojqrufhul@4ax.com>:
$$ Alan Barclay wrote:
$$
$$ >This is really offtopic, but there is no way to know the address of
$$ >the client - the address of the proxy server is all you can get. The
$$ >client might not have an IP address, or it might be an IP address which
$$ >only makes sense within their private IP address space.
$$
$$ In the latter case, the IP of the proxy IS important.
And of course, millions of home PCs and office workstations are behind
a NAT router, and are not using an external proxy.
All you are getting the address of the router.
Of course, this has nothing to do with Perl.
Abigail
--
BEGIN {$^H {join "" => ("a" .. "z") [8, 13, 19, 4, 6, 4, 17]} = sub
{["", "Just ", "another ", "Perl ", "Hacker"] -> [shift]};
$^H = hex join "" => reverse map {int ($_ / 2)} 0 .. 4}
print 1, 2, 3, 4, "\n";
------------------------------
Date: Fri, 01 Jun 2001 20:11:40 GMT
From: sweth+perl@gwu.edu (Sweth Chandramouli)
Subject: Re: Help slim down Perl code
Message-Id: <0GSR6.43258$G5.9452389@news1.rdc1.md.home.com>
In article <x7g0du2h8h.fsf@home.sysarch.com>,
Uri Guttman <uri@sysarch.com> wrote:
>you have it backwards. installing subs is one of the few legit uses of
>symrefs as you can't do it any other way. how you install them can be an
>issue. but symrefs are never needed to mung data structures.
What about deciding which sub to call dynamically? I have an
app that has a bunch of subroutines named "get_<foo>", where foo is an
attribute of an object; the code is completely non-OO, however, so I
can't do what I would normally do, which is something like:
for my $attr ($object->attributes()) {
print STDOUT ("$attr: ", $object->$attr, "\n");
};
. Instead, I am thinking about using code like:
for my $attr (@attr_list) {
no strict refs;
print STDOUT ("$attr: ", &{"get_" . ${arg}}, "\n");
};
. Is that also evil symref abuse? If so, what would be
a better way to accomplish the task?
-- Sweth.
--
Sweth Chandramouli ; <sweth+perl@gwu.edu>
------------------------------
Date: Fri, 01 Jun 2001 20:32:57 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Help slim down Perl code
Message-Id: <x7hey0ym86.fsf@home.sysarch.com>
>>>>> "SC" == Sweth Chandramouli <sweth> writes:
SC> What about deciding which sub to call dynamically? I have an
SC> app that has a bunch of subroutines named "get_<foo>", where foo is an
SC> attribute of an object; the code is completely non-OO, however, so I
SC> can't do what I would normally do, which is something like:
SC> for my $attr ($object->attributes()) {
SC> print STDOUT ("$attr: ", $object->$attr, "\n");
SC> };
SC> . Instead, I am thinking about using code like:
SC> for my $attr (@attr_list) {
SC> no strict refs;
SC> print STDOUT ("$attr: ", &{"get_" . ${arg}}, "\n");
SC> };
SC> . Is that also evil symref abuse? If so, what would be
SC> a better way to accomplish the task?
that cries out for a straight dispatch table. it has one major win
(beyond no symrefs), it can be used to check that the name is valid.
look, as i have said, symrefs have their purpose. but data structures is
not one of them and what you have there is basically a data structure
disguised as a set of get_foo() subs.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture and Stem Development ------ http://www.stemsystems.com
Learn Advanced Object Oriented Perl from Damian Conway - Boston, July 10-11
Class and Registration info: http://www.sysarch.com/perl/OOP_class.html
------------------------------
Date: 01 Jun 2001 19:37:51 +0100
From: nobull@mail.com
Subject: Re: How to improve this?
Message-Id: <u9lmncujuo.fsf@wcl-l.bham.ac.uk>
BCC <bcoon@sequenom.com> writes:
> if ($a) {}
> elsif ($b) {}
> elsif ($c) {}
> else {}
In the general case the above cannot be improved. There are other
alternatives but they are basically the same.
> Maybe I am approaching the problem incorrectly (as Randal suggests).
> These variables are all cgi params from image_button(), and only one will
> be clicked at one time. But each of course has a unique action, and
> I set the flags for those actions based on whether the cgi param for that
> image button has a value or not:
> my $select_table = param("select_table.x");
> if ($select_table) {}...
Yes, you'd be better to use a dispatch table:
my %actions = (
table => sub {
# Table selected
},
foo => sub {
# Foo selected
},
);
my @selections = map { /^select_(.*)\.x$/ } param or die 'no selection';
die 'multiple selections' if @selections > 1;
my $action = $actions{$selections[0]} or die 'unrecognised selection';
$action->();
Clearly if you were not bothered about readbility and about cleanly
trapping all the exceptional cases you could get rid of all the
variables!
{
table => sub {
# Table selected
},
foo => sub {
# Foo selected
},
}->{(map { /^select_(.*)\.x$/ } param)[0]}->();
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Fri, 01 Jun 2001 19:56:36 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: How to improve this?
Message-Id: <6osfhtouu45glbjildshvl34vrk8p394m6@4ax.com>
BCC wrote:
>A note: Only ONE of these conditions will be met:
>if ($select_assay) {
> $act = "select_assay";
> $is_all = "yes";
>} elsif ($select_seq) {
> $act = "select_seq";
> $is_all = "yes";
>} elsif ($select_table) {
> $act = "select_table";
> $is_all = "yes";
>} elsif ($dl_sel_assay) {
> $act = "download";
> $view = "assay";
>} elsif ($dl_all_assay) {
> $act = "download";
> $is_all = "yes";
> $view = "assay";
>} elsif ($dl_sel_seq) {
> $act = "download";
> $view = "seq";
>} elsif ($dl_all_seq) {
> $act = "download";
> $is_all = "yes";
> $view = "seq";
>} elsif ($dl_sel_table) {
> $act = "download";
> $view = "table";
>} elsif ($dl_all_table) {
> $act = "download";
> $is_all = "yes";
> $view = "table";
>} elsif ($sseq) {
> $act = "show_sequences";
> $view = "seq";
>} elsif ($sasy) {
> $act = "show_assays";
> $view = "assay";
>}
You're setting three variables. So I'd turn this intop a "function"
that returns an array with 3 items.
And what fills those variables? You say only one will be set. But why
does this thing not set just one variable, with a "mode" value?
--
Bart.
------------------------------
Date: Fri, 01 Jun 2001 19:58:42 GMT
From: tiltonj@erols.com (Jay Tilton)
Subject: Re: How to improve this?
Message-Id: <3b17ea02.68417601@news.erols.com>
On Fri, 01 Jun 2001 10:51:27 -0700, BCC <bcoon@sequenom.com> wrote:
>If every condition is different, does switch still make sense? In the
>docs, it says:
>The general answer is to write a construct like this:
>
> for ($variable_to_test) {
> if (/pat1/) { } # do something
> elsif (/pat2/) { } # do something else
> elsif (/pat3/) { } # do something else
> else { } # default
> }
>
>Which I did know, but thought was not useful in this case because there
>is no one variable to test:
Hmmm...perhaps there should be only one variable.
>each test is a diffferent submission.
>if ($a) {}
>elsif ($b) {}
>elsif ($c) {}
>else {}
Except for being a little hard on the eyes, there's nothing at all
wrong with the way you've done it. I'd even say that shooting for an
elegant solution is going to obfuscate something. As it is, the code
is utterly transparent, which is not a Bad Thing.
You can sneakily make it *look* elegant without actually changing
anything.
if ($select_assay) { $act = "select_assay"; $is_all = "yes" }
elsif ($select_seq) { $act = "select_seq"; $is_all = "yes" }
elsif ($select_table) { $act = "select_table"; $is_all = "yes" }
...
>Maybe I am approaching the problem incorrectly (as Randal suggests).
>These variables are all cgi params from image_button(), and only one will
>be clicked at one time. But each of course has a unique action, and
>I set the flags for those actions based on whether the cgi param for that
>image button has a value or not:
>my $select_table = param("select_table.x");
>if ($select_table) {}...
Ah. This gets easier.
Instead of assigning a dozen different param values (mutually
exclusive param values, at that) to a dozen different scalars then
testing each of them, assign only one. Ideally, all the buttons would
diddle the same param, each assigning it a different value. If that's
not easily workable, you can make the script do it for you.
foreach ( qw/select_assay select_seq select_table ... / )
#...or whatever the params are named
{ next unless param($_);
$user_choice = $_;
last;
}
Then you can ditch the if/elsif jazz altogether. A hash-based
approach almost writes itself.
%choices = ( select_assay => ['select_assay', 'yes', undef],
select_seq => ['select_seq', 'yes', undef],
select_table => ["select_table",undef, 'yes' ],
dl_sel_assay => ['download', undef, 'assay'],
dl_all_assay => ['download', 'yes', 'assay'],
dl_sel_seq => ['download', undef, 'seq'],
dl_all_seq => ['download', 'yes', 'seq'],
dl_sel_table => ['download', undef, 'table'],
dl_all_table => ['download', 'yes', 'table'],
sseq => ['show_sequences', undef, 'seq'],
sasy => ['show_assays', undef, 'assay']
);
And later...
($act, $is_all, $view) = @{$choices{$user_choice}};
------------------------------
Date: Fri, 1 Jun 2001 21:00:04 +0000 (UTC)
From: abigail@foad.org (Abigail)
Subject: Re: How to improve this?
Message-Id: <slrn9hg0ik.puh.abigail@tsathoggua.rlyeh.net>
BCC (bcoon@sequenom.com) wrote on MMDCCCXXXI September MCMXCIII in
<URL:news:3B17C759.461702D2@sequenom.com>:
[] Is there a way to make this better? It seems a bit clunky to me, but
[] I havent found a more elegant way around it.
foreach (grep {$_ -> [0]}
[$select_assay, "select_assay", "yes", undef],
[$select_seq, "select_seq" "yes", undef],
[$select_table, "select_table", "yes", undef],
[$dl_sel_assay, "download", undef, "assay"],
[$dl_all_assay, "download", "yes", "assay"],
[$dl_sel_seq, "download", undef, "seq"],
[$dl_all_seq, "download", "yes", "seq"],
[$dl_sel_table, "download", undef, "table"],
[$dl_all_table, "download", "yes", "table"],
[$sseq, "show_sequences", undef, "seq"],
[$sasy, "show_assays", undef, "assay"]) {
$act = $_ -> [1];
$is_all = $_ -> [2] if defined $_ -> [2];
$view = $_ -> [3] if defined $_ -> [3];
last;
}
Abigail
--
BEGIN {print "Just " }
CHECK {print "another "}
INIT {print "Perl " }
END {print "Hacker\n"}
------------------------------
Date: Fri, 01 Jun 2001 14:27:22 -0700
From: BCC <bcoon@sequenom.com>
Subject: Re: How to improve this?
Message-Id: <3B1808BA.9031F93@sequenom.com>
Thanks for all the excellent suggestions!
Bryan
------------------------------
Date: 1 Jun 2001 14:37:05 -0700
From: michael_of_neb@yahoo.com (Mike)
Subject: html page creation from html using perl
Message-Id: <5a10590e.0106011337.37fb3a4b@posting.google.com>
I’m stumped.
I could use some pointers.
I’m using a web hosting provider whose perl/lib may not be
everything that it could be.
I want to :
1. use a web page with a login/password capability;
(I’ve made a primitive one of these, but I haven’t yet
made the login/password file secure for the web, and I could use some
help with this piece too.)
2. then, based on this successful login, I want to create a file
(actually a name.html web page in a specific path location), then
write to it;
(I’ve tried a few methods, but they don’t seem to work.
They won’t pass the “open” (nor sysopen) method.
Sadly, I don't get useful error messages either.)
3. finally, I then want to close this new html file, and redirect the
browser to this new page.
I want this html file to persist for a while so that the browser might
go to the various other locations of reports indicated in this page,
and still return to it to go to other locations.
Am I trying to do something stupid ?
Is there a more standard manner (remember I am using some hosting
company’s perl library, which may not have some modules that I
need) of creating a page that is then used to go to other locations
from it ?
I call this process:
html page creation from html using perl
If you've got a clue, or a better method that will work from the
standard hosting provider's version of perl, I'd be quite grateful.
Thanks.
Mike
------------------------------
Date: Fri, 01 Jun 2001 15:00:04 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: html page creation from html using perl
Message-Id: <3B181064.C1F52401@stomp.stomp.tokyo>
Mike wrote:
(snipped)
> Am I trying to do something stupid ?
You are doing something stupid. You are
trolling this group while Godzilla is online.
STOMP! STOMP!
Godzilla!
------------------------------
Date: 01 Jun 2001 19:02:25 +0100
From: nobull@mail.com
Subject: Re: i dont understand Cookies
Message-Id: <u9r8x4ulhq.fsf@wcl-l.bham.ac.uk>
"Thing" <noemail@noemail.com> writes:
> the concept is that you send a cookie to a client to save some stuff, then
> you read it when you want. but there are paths and expirations and
> stuff,
If you are confused by the fundamental concepts of cookie paths,
expirations and so on you should go ask in CIWAC not here as you are
not asking a Perl question.
> i think i am getting confused.
Could you perhaps give some evidence that you are getting confused?
Like perhaps show us some code that doesn't act like you expect it to
together with and explaination of how you expect it to act an how it
actually acts?
[snip example code]
I copied your scripts to a directory on my webserver (from which my IE
client accepts cookies) and they acted in the way that you appeared to
be intending.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Fri, 01 Jun 2001 18:26:35 GMT
From: "Thing" <noemail@noemail.com>
Subject: Re: i dont understand Cookies
Message-Id: <v7RR6.9978$S2.687347@newsread2.prod.itd.earthlink.net>
im expecting the print $answers; statement to print the word "something" on
my screen but it does not
shouldnt the value of $aswers at that point be = to "something" ?
<nobull@mail.com> wrote in message news:u9r8x4ulhq.fsf@wcl-l.bham.ac.uk...
> "Thing" <noemail@noemail.com> writes:
>
> > the concept is that you send a cookie to a client to save some stuff,
then
> > you read it when you want. but there are paths and expirations and
> > stuff,
>
> If you are confused by the fundamental concepts of cookie paths,
> expirations and so on you should go ask in CIWAC not here as you are
> not asking a Perl question.
>
> > i think i am getting confused.
>
> Could you perhaps give some evidence that you are getting confused?
> Like perhaps show us some code that doesn't act like you expect it to
> together with and explaination of how you expect it to act an how it
> actually acts?
>
> [snip example code]
>
> I copied your scripts to a directory on my webserver (from which my IE
> client accepts cookies) and they acted in the way that you appeared to
> be intending.
>
> --
> \\ ( )
> . _\\__[oo
> .__/ \\ /\@
> . l___\\
> # ll l\\
> ###LL LL\\
>
------------------------------
Date: 01 Jun 2001 19:46:48 +0100
From: nobull@mail.com
Subject: Re: i dont understand Cookies
Message-Id: <u9itigujfr.fsf@wcl-l.bham.ac.uk>
"Thing" <noemail@noemail.com> writes in untrimmed joepary style which
around here is tanatamount to spitting in someone's face. So if I
sound a bit narked then that's understanable.
[ jeopardectomy performed ]
> <nobull@mail.com> wrote in message news:u9r8x4ulhq.fsf@wcl-l.bham.ac.uk...
> > I copied your scripts to a directory on my webserver (from which my IE
> > client accepts cookies) and they acted in the way that you appeared to
> > be intending.
> im expecting the print $answers; statement to print the word
> "something" on my screen but it does not shouldnt the value of
> $aswers at that point be = to "something" ?
Well since it worked for me and not for you I doubt this is a Perl
issue. More likely to do with HTTP client or server configuration.
They were in the same directory weren't they?
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: 1 Jun 2001 13:02:40 -0700
From: shalayla@usa.com (Shalayla)
Subject: Installing CGI.PM with FTP client
Message-Id: <807ad643.0106011202.5ea2b24f@posting.google.com>
Unfortunately, I don't have any kind of terminal (Telnet, SSH, etc.)
access to my web hosting account. All I have is an FTP client to
access my CGI-BIN.
Can I still install and use CGI.PM?
How?
Has anyone had any similar experiences? Please, let me know...I'm
going slightly mad.
Shalayla
shalayla@usa.com
------------------------------
Date: Fri, 01 Jun 2001 16:57:01 -0400
From: Jerry <gordon@med.unc.edu>
Subject: Komodo
Message-Id: <3B18019D.8CC457CC@med.unc.edu>
Hello,
I installed ActivePerl-5.6.1.626-MSWin32-x86-multi-thread.msi
and
Komodo-1.0.0-18562.msi and the license file for Komodo. If I start
Komodo and immediately close it without opening a file my computer shuts
down correctly. If I start Komodo and open a Perl source file and then
close Komodo my computer will not shut down correctly even after killing
mozilla, w9xpopen, and winoldapp. Please help.
I have uninstalled Komodo and Perl and reinstalled them.
There are some errors reported in the diagnostic files.
diagnostic files included below.
win98 se on a 450 MHz pentium with 384 MB RAM
Mcafee antivirus, Netscape, acrobat reader, usually running
Thanks very much,
Jerry
--
Gerald W. Gordon, Ph.D.
Department of Cell and Developmental Biology
Taylor Hall, CB 7090
University of North Carolina
Chapel Hill, NC 27599
919/966-2941 (vox)
919/966-1856 (fax)
Gordon@med.unc.edu (email)
setup-env.tmp:
TMP=c:\windows\TEMP
TEMP=C:\windows\TEMP
PROMPT=$p$g
winbootdir=C:\WINDOWS
COMSPEC=C:\WINDOWS\COMMAND.COM
DJGPP=C:\DJGPP\DJGPP.ENV
PATH=C:\PERL\BIN;C:\PERL\BIN;C:\WINDOWS;C:\WINDOWS\COMMAND;C:\DJGPP\BIN;C:\WINDOWS;C:\WINDOWS;C:\WINDOWS\COMMAND
CMDLINE=WIN
windir=C:\WINDOWS
BLASTER=A220 I5 D1 T4
stderr.tmp:
*** Debug: koPrefs.py(1053): koPrefService starting up...
JavaScript error:
line 0: uncaught exception: [Exception... "Illegal value" code:
"-2147024809" nsresult: "0x80070057 (NS_ERROR_ILLEGAL_VALUE)" location:
"<unknown>"]
*** Debug: koInfoService.py(24): Getting Komodo information from
'chrome://komodo/content/resources/komodo-info.txt'.
*** Debug: koCmdlnManager.py(41): CMDLN: decode command line args: '' ->
[]
*** Debug: koUserEnviron.py(26): Getting Komodo startup environment
delta from 'C:\WINDOWS\Profiles\administrator\Application
Data\ActiveState\Komodo\startup-env.tmp'.
*** Debug: koPrefs.py(1077): koGlobalPrefService shutting down...
stdout.tmp:
has multiple monitor apis is 1
SciMoz::Start
SciMoz::Start
SciMoz::Start
SciMoz::Start
*** Debug : STARTUP: starting a new Komodo at
chrome://komodo/content/komodo.js(KomodoOnLoad):143
*** Error: scimoz_controller is null at
chrome://komodo/content/editor/kombo.js(removeSciMozController):1732
###*** Error/Komodo JS Component:
chrome://komodo/content/editor/kombo.js(1732): scimoz_controller is null
###*** Warning/PyXPCOM: koInfoService.py(24): Getting Komodo information
from 'chrome://komodo/content/resources/komodo-info.txt'.
###*** Warning/PyXPCOM: koCmdlnManager.py(41): CMDLN: decode command
line args: '' -> []
###*** Warning/PyXPCOM: koUserEnviron.py(26): Getting Komodo startup
environment delta from 'C:\WINDOWS\Profiles\administrator\Application
Data\ActiveState\Komodo\startup-env.tmp'.
###*** Warning/PyXPCOM: koPrefs.py(1077): koGlobalPrefService shutting
down...
------------------------------
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.
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 1038
***************************************
