[11618] in Perl-Users-Digest
Perl-Users Digest, Issue: 5218 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Mar 24 16:07:23 1999
Date: Wed, 24 Mar 99 13:00:15 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 24 Mar 1999 Volume: 8 Number: 5218
Today's topics:
Re: accessing class specific variables in inherited cla <tchrist@mox.perl.com>
Re: array question gwebb@reedtech.com
HTML LINK verifier ? <abc12@hotmail.com>
huge clue <johnc@donner.sps.mot.com>
huge clue <johnc@donner.sps.mot.com>
Re: legacy question <messicci@swol.de>
Re: newbe: to find the highest entry in group (Larry Rosler)
Re: Newbie to Perl (Bart Lateur)
Re: Perl Conference 3.0 in Monterey, California, Aug. 2 <jbc@shell2.la.best.com>
Re: Perl Crashes IIS4! <Richard.Walker@west-server.com>
Re: Perl Crashes IIS4! <Richard.Walker@west-server.com>
Re: Values of 'true' and 'false'? (Larry Rosler)
Re: What is wrong with this code? <jglascoe@giss.nasa.gov>
Where to find FTP modules for NT? <adwats@spaceweb.com>
Re: why my sub returns nothing? dizhao@my-dejanews.com
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 24 Mar 1999 13:58:37 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: accessing class specific variables in inherited classes
Message-Id: <36f951fd@csnews>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, Herbie Liechti <liechti@dial.eunet.ch> writes:
:I wondering if there is a simpler way to access class
:specific variables in a real polymorphic manner.
Class variables should have references to them placed on their
self objects and accessed indirectly.
:use lib(".");
That does nothing. Dot is already in your path.
You maybe mean
use FindBin;
use lib $FindBin::Bin;
:%A::hash = (
: valA => 1,
: valB => 2,
:);
:sub new {
: my $class = shift;
: my $self = {};
: bless $self, $class;
:}
my %hash = ( # file private
valA => 1,
valB => 2,
);
or else
use vars qw(%hash);
%hash = ( # package global
valA => 1,
valB => 2,
);
sub new {
my $class = shift;
my $self = {};
$self->{"something"} = \%hash;
bless $self, $class;
return $self;
}
:sub printhash {
: my $self = shift;
: my $pkg = ref($self);
: return join("\n", (keys %{"${pkg}::hash"}));
That should be
sub printhash {
my $self = shift;
return join "\n", keys %{$self->{"something"}};
}
And yes, that means that if B inherits A::new, that
your B object will have a pointer to A's hash. But
that makes sense, because B doesn't have its own new.
--tom
--
I know I'm a pig-ignorant slut. --Andrew Hume
------------------------------
Date: Wed, 24 Mar 1999 20:33:06 GMT
From: gwebb@reedtech.com
Subject: Re: array question
Message-Id: <7dbi62$ou4$1@nnrp1.dejanews.com>
If you follow the good advice of Ronald Kimball and change the third line to:
$file_extension =~ /\.([^.]*)$/;
you will now correctly match the extension of your filename. However the
match is loaded into $1 but you never use it, instead checking
$file_extension to make sure its not zero and then against a list of
extensions. I think what you really meant was to leave only the extension in
$file_extension like this:
$file_extension =~ s/[^.]\.//g;
This should then work as you expect. Also, you don't need the second regex
on the sixth line since I assume you are checking to see if $file_extension
exactly matches $extension. You can replace the regex with:
if (lc($file_extension) eq $extension) {
Newer version of Perl may optimize regexs to do just this when doing exact
matches but I'm not sure. Also, the 'else' block of your outer most
if-statement sets $check_extension to 1 if $file_extension contains no data.
Is this really what you want? I suspect this is an error condition and you
really want it set to 0.
Garth
In article <36f5c7d5.269147233@news.ionet.net>,
mag@imchat.com (Mark P.) wrote:
> I'm trying to do a match of file extensions listed in an array with an
> uploaded file, but my stuff aint working. Can someone see whats going
> wrong here?
>
> $query -> import_names('Q');
> $file_extension = $Q::file_to_upload-01;
> $file_extension =~ /\.(.*)$/is;
> if ($file_extension) {
> foreach $extension (@extension) {
> if ($file_extension =~ m/$extension/i) {
> $check_extension = 1;
> last;
> }
> }
> }
> else {
> $check_extension = 1;
> }
> if ($check_extension != 1) { &error2; }
>
>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 24 Mar 1999 14:06:14 -0600
From: steven <abc12@hotmail.com>
Subject: HTML LINK verifier ?
Message-Id: <36F945B6.2E7E46B1@hotmail.com>
Can you let me know the best HTML LINK verifier u have used or
installed ?
Also, where can I get it?
thanks,
Steven/-
------------------------------
Date: Wed, 24 Mar 1999 13:46:03 -0600
From: John Crownover <johnc@donner.sps.mot.com>
Subject: huge clue
Message-Id: <36F940FB.CC716731@donner.sps.mot.com>
This is a multi-part message in MIME format.
--------------8E1A85D218481246919943F8
Content-Type: multipart/alternative; boundary="------------A230555E699847AE2A355D91"
--------------A230555E699847AE2A355D91
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
--
John Crownover-F16 mailto:rfvj70@email.mot.com
Motorola Inc. voice: (512) 933-6563
3501 Ed Bluestein fax: (512) 933-7991
Austin, Tx 78721 pgr: (512) 933-7333 #936563
* Never doubt that a small group of thoughtful committed citizens can
* change the world. Indeed, its the only thing that ever has. -M.Mead
--------------A230555E699847AE2A355D91
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<HTML>
<PRE>--
John Crownover-F16 <A HREF="mailto:rfvj70@email.mot.com">mailto:rfvj70@email.mot.com</A>
Motorola Inc. voice: (512) 933-6563
3501 Ed Bluestein fax: (512) 933-7991
Austin, Tx 78721 pgr: (512) 933-7333 #936563
* Never doubt that a small group of thoughtful committed citizens can
* change the world. Indeed, its the only thing that ever has. -M.Mead</PRE>
</HTML>
--------------A230555E699847AE2A355D91--
--------------8E1A85D218481246919943F8
Content-Type: text/plain; charset=iso-8859-1; name="ascii_codes.txt"
Content-Transfer-Encoding: 8bit
Content-Disposition: inline; filename="ascii_codes.txt"
[Sponsor Page]
---------------------------------------------------------
[RETURN TO ASCIICHARTS] Return to the ASCII Chart page.
------------------------------------------------------------------------------
CHAR HEX OCTAL BINARY DEC CHAR HEX OCTAL BINARY DEC
------------------------------------------------------------------------------
A 41 101 01000001 065 P 50 120 01010000 080
B 42 102 01000010 066 Q 51 121 01010001 081
C 43 103 01000011 067 R 52 122 01010010 082
D 44 104 01000100 068 S 53 123 01010011 083
E 45 105 01000101 069 T 54 124 01010100 084
F 46 106 01000110 070 U 55 125 01010101 085
G 47 107 01000111 071 V 56 126 01010110 086
H 48 110 01001000 072 W 57 127 01010111 087
I 49 111 01001001 073 X 58 130 01011000 088
J 4A 112 01001010 074 Y 59 131 01011001 089
K 4B 113 01001011 075 Z 5A 132 01011010 090
L 4C 114 01001100 076
M 4D 115 01001101 077
N 4E 116 01001110 078
O 4F 117 01001111 079
------------------------------------------------------------------------------
a 61 141 01100001 097 p 70 160 01110000 112
b 62 142 01100010 098 q 71 161 01110001 113
c 63 143 01100011 099 r 72 162 01110010 114
d 64 144 01100100 100 s 73 163 01110011 115
e 65 145 01100101 101 t 74 164 01110100 116
f 66 146 01100110 102 u 75 165 01110101 117
g 67 147 01100111 103 v 76 166 01110110 118
h 68 150 01101000 104 w 77 167 01110111 119
i 69 151 01101001 105 x 78 170 01111000 120
j 6A 152 01101010 106 y 79 171 01111001 121
k 6B 153 01101011 107 z 7A 172 01111010 122
l 6C 154 01101100 108
m 6D 155 01101101 109
n 6E 156 01101110 110
o 6F 157 01101111 111
------------------------------------------------------------------------------
0 30 060 00110000 048 % 25 045 00100101 037
1 31 061 00110001 049 & 26 046 00100110 038
2 32 062 00110010 050 ' 27 047 00100111 039
3 33 063 00110011 051 ( 28 050 00101000 040
4 34 064 00110100 052 ) 29 051 00101001 041
5 35 065 00110101 053 * 2A 052 00101010 042
6 36 066 00110110 054 + 2B 053 00101011 043
7 37 067 00110111 055 , 2C 054 00101100 044
8 38 070 00111000 056 - 2D 055 00101101 045
9 39 071 00111001 057 . 2E 056 00101110 046
SP 20 040 00100000 032 / 2F 057 00101111 047
! 21 041 00100001 033 : 3A 072 00111010 058
" 22 042 00100010 034 ; 3B 073 00111011 059
# 23 043 00100011 035 < 3C 074 00111100 060
$ 24 044 00100100 036 = 3D 075 00111101 061
> 3E 076 00111110 062 STX 02 002 00000010 002
? 3F 077 00111111 063 ETX 03 003 00000011 003
------------------------------------------------------------------------------
------------------------------------------------------------------------------
CHAR HEX OCTAL BINARY DEC CHAR HEX OCTAL BINARY DEC
------------------------------------------------------------------------------
@ 40 100 01000000 064 EOT 04 004 00000100 004
[ 5B 133 01011011 091 ENQ 05 005 00000101 005
\ 5C 134 01011100 092 ACK 06 006 00000110 006
] 5D 135 01011101 093 BEL 07 007 00000111 007
^ 5E 136 01011110 094 BS 08 010 00001000 008
5F 137 01011111 095 HT 09 011 00001001 009
{ 7B 173 01111011 123 LF 0A 012 00001010 010
| 7C 174 01111100 124 VT 0B 013 00001011 011
} 7D 175 01111101 125 FF 0C 014 00001100 012
~ 7E 176 01111110 126 CR 0D 015 00001101 013
DEL 7F 177 01111111 127 SO 0E 016 00001110 014
NUL 00 000 00000000 000 SI 0F 017 00001111 015
SOH 01 001 00000001 001 DLE 10 020 00010000 016
------------------------------------------------------------------------------
D1 11 021 00010001 017
D2 12 022 00010010 018
D3 13 023 00010011 019
D4 14 024 00010100 020
NAK 15 025 00010101 021
SYN 16 026 00010110 022
ETB 17 027 00010111 023
CAN 18 030 00011000 024
EM 09 031 00011001 025
SUB 1A 032 00011010 026
ESC 1B 033 00011011 027
FS 1C 034 00011100 028
GS 1D 035 00011101 029
RS 1E 036 00011110 030
US 1F 037 00011111 031
-----------------------------------------
---------------------------------------------------------
This page has been accessed 4,752 times.
| Home | Visitors | History | Multiplex | Xmission | Networking | Switching
| Modulation |
ascii7s.html, )1998 All rights reserved
Tampa Bay Interactive, Inc.
Last Revised on: Saturday, 15-Aug-1998 14:38:31 EDT
--------------8E1A85D218481246919943F8--
------------------------------
Date: Wed, 24 Mar 1999 13:47:21 -0600
From: John Crownover <johnc@donner.sps.mot.com>
Subject: huge clue
Message-Id: <36F94149.698B7685@donner.sps.mot.com>
This is a multi-part message in MIME format.
--------------919069D447FBCE20A504551E
Content-Type: multipart/alternative; boundary="------------81804096CAD2486ABC6BF2C5"
--------------81804096CAD2486ABC6BF2C5
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
--
John Crownover-F16 mailto:rfvj70@email.mot.com
Motorola Inc. voice: (512) 933-6563
3501 Ed Bluestein fax: (512) 933-7991
Austin, Tx 78721 pgr: (512) 933-7333 #936563
* Never doubt that a small group of thoughtful committed citizens can
* change the world. Indeed, its the only thing that ever has. -M.Mead
--------------81804096CAD2486ABC6BF2C5
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<HTML>
<PRE>--
John Crownover-F16 <A HREF="mailto:rfvj70@email.mot.com">mailto:rfvj70@email.mot.com</A>
Motorola Inc. voice: (512) 933-6563
3501 Ed Bluestein fax: (512) 933-7991
Austin, Tx 78721 pgr: (512) 933-7333 #936563
* Never doubt that a small group of thoughtful committed citizens can
* change the world. Indeed, its the only thing that ever has. -M.Mead</PRE>
</HTML>
--------------81804096CAD2486ABC6BF2C5--
--------------919069D447FBCE20A504551E
Content-Type: text/plain; charset=iso-8859-1; name="ascii_codes.txt"
Content-Transfer-Encoding: 8bit
Content-Disposition: inline; filename="ascii_codes.txt"
[Sponsor Page]
---------------------------------------------------------
[RETURN TO ASCIICHARTS] Return to the ASCII Chart page.
------------------------------------------------------------------------------
CHAR HEX OCTAL BINARY DEC CHAR HEX OCTAL BINARY DEC
------------------------------------------------------------------------------
A 41 101 01000001 065 P 50 120 01010000 080
B 42 102 01000010 066 Q 51 121 01010001 081
C 43 103 01000011 067 R 52 122 01010010 082
D 44 104 01000100 068 S 53 123 01010011 083
E 45 105 01000101 069 T 54 124 01010100 084
F 46 106 01000110 070 U 55 125 01010101 085
G 47 107 01000111 071 V 56 126 01010110 086
H 48 110 01001000 072 W 57 127 01010111 087
I 49 111 01001001 073 X 58 130 01011000 088
J 4A 112 01001010 074 Y 59 131 01011001 089
K 4B 113 01001011 075 Z 5A 132 01011010 090
L 4C 114 01001100 076
M 4D 115 01001101 077
N 4E 116 01001110 078
O 4F 117 01001111 079
------------------------------------------------------------------------------
a 61 141 01100001 097 p 70 160 01110000 112
b 62 142 01100010 098 q 71 161 01110001 113
c 63 143 01100011 099 r 72 162 01110010 114
d 64 144 01100100 100 s 73 163 01110011 115
e 65 145 01100101 101 t 74 164 01110100 116
f 66 146 01100110 102 u 75 165 01110101 117
g 67 147 01100111 103 v 76 166 01110110 118
h 68 150 01101000 104 w 77 167 01110111 119
i 69 151 01101001 105 x 78 170 01111000 120
j 6A 152 01101010 106 y 79 171 01111001 121
k 6B 153 01101011 107 z 7A 172 01111010 122
l 6C 154 01101100 108
m 6D 155 01101101 109
n 6E 156 01101110 110
o 6F 157 01101111 111
------------------------------------------------------------------------------
0 30 060 00110000 048 % 25 045 00100101 037
1 31 061 00110001 049 & 26 046 00100110 038
2 32 062 00110010 050 ' 27 047 00100111 039
3 33 063 00110011 051 ( 28 050 00101000 040
4 34 064 00110100 052 ) 29 051 00101001 041
5 35 065 00110101 053 * 2A 052 00101010 042
6 36 066 00110110 054 + 2B 053 00101011 043
7 37 067 00110111 055 , 2C 054 00101100 044
8 38 070 00111000 056 - 2D 055 00101101 045
9 39 071 00111001 057 . 2E 056 00101110 046
SP 20 040 00100000 032 / 2F 057 00101111 047
! 21 041 00100001 033 : 3A 072 00111010 058
" 22 042 00100010 034 ; 3B 073 00111011 059
# 23 043 00100011 035 < 3C 074 00111100 060
$ 24 044 00100100 036 = 3D 075 00111101 061
> 3E 076 00111110 062 STX 02 002 00000010 002
? 3F 077 00111111 063 ETX 03 003 00000011 003
------------------------------------------------------------------------------
------------------------------------------------------------------------------
CHAR HEX OCTAL BINARY DEC CHAR HEX OCTAL BINARY DEC
------------------------------------------------------------------------------
@ 40 100 01000000 064 EOT 04 004 00000100 004
[ 5B 133 01011011 091 ENQ 05 005 00000101 005
\ 5C 134 01011100 092 ACK 06 006 00000110 006
] 5D 135 01011101 093 BEL 07 007 00000111 007
^ 5E 136 01011110 094 BS 08 010 00001000 008
5F 137 01011111 095 HT 09 011 00001001 009
{ 7B 173 01111011 123 LF 0A 012 00001010 010
| 7C 174 01111100 124 VT 0B 013 00001011 011
} 7D 175 01111101 125 FF 0C 014 00001100 012
~ 7E 176 01111110 126 CR 0D 015 00001101 013
DEL 7F 177 01111111 127 SO 0E 016 00001110 014
NUL 00 000 00000000 000 SI 0F 017 00001111 015
SOH 01 001 00000001 001 DLE 10 020 00010000 016
------------------------------------------------------------------------------
D1 11 021 00010001 017
D2 12 022 00010010 018
D3 13 023 00010011 019
D4 14 024 00010100 020
NAK 15 025 00010101 021
SYN 16 026 00010110 022
ETB 17 027 00010111 023
CAN 18 030 00011000 024
EM 09 031 00011001 025
SUB 1A 032 00011010 026
ESC 1B 033 00011011 027
FS 1C 034 00011100 028
GS 1D 035 00011101 029
RS 1E 036 00011110 030
US 1F 037 00011111 031
-----------------------------------------
---------------------------------------------------------
This page has been accessed 4,752 times.
| Home | Visitors | History | Multiplex | Xmission | Networking | Switching
| Modulation |
ascii7s.html, )1998 All rights reserved
Tampa Bay Interactive, Inc.
Last Revised on: Saturday, 15-Aug-1998 14:38:31 EDT
--------------919069D447FBCE20A504551E--
------------------------------
Date: Wed, 24 Mar 1999 21:08:33 +0100
From: "Frank" <messicci@swol.de>
Subject: Re: legacy question
Message-Id: <36f9532a@news.swol.de>
>>: May I download Perl and some libs to use it in our company ?
>>: Frank
>
>Yes you may, and thanks for asking for permission first <g>. Perl is free
Thanks for the prompt answer, and sorry that I messed up with
the subject. (Has to do something with lousy English :)
Frank
------------------------------
Date: Wed, 24 Mar 1999 11:55:52 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: newbe: to find the highest entry in group
Message-Id: <MPG.1162e32197df6ce99897b7@nntp.hpl.hp.com>
In article <b4had7.1v2.ln@magna.metronet.com> on Wed, 24 Mar 1999
06:08:59 -0500, Tad McClellan <tadmc@metronet.com> says...
...
> if (exists $highest{$group})
> { $highest{$group} = $count if $count > $highest{$group} }
> else
> { $highest{$group} = $count } # first one seen for this group
Or, more compact and therefore perhaps less error-prone:
$highest{$group} = $count if $count > ($highest{$group} || 0);
I first saw this idiom for supplying a default value for an undefined
value 'on the fly' in this newsgroup, and I've liked it ever since.
--
Larry Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 24 Mar 1999 20:24:29 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Newbie to Perl
Message-Id: <36fa4980.1524663@news.skynet.be>
Ken Mar wrote:
>Larry Rosler wrote:
>
>> RIGHT! They have to do with file locking. flock() is not implemented
>> on Windows 95.
> I suspect you'r closer to the mark, here. It's seemed reasonable to
>want to lock the file to prevent simultaneous access. Is there an
>equivalent in Win95 to do that?
You don't need it. It's all done intrinsicely by the system! Open a file
with write access (e.g. "+<$file"), and NOBODY ELSE willl be able to
open the file. What you may need to add is the option to retry to open
the file, if the open failed (because of?... Test for the exact error
message).
Bart.
------------------------------
Date: 24 Mar 1999 20:32:07 GMT
From: John Callender <jbc@shell2.la.best.com>
Subject: Re: Perl Conference 3.0 in Monterey, California, Aug. 21-24
Message-Id: <36f94bc7$0$217@nntp1.ba.best.com>
John Robson <as646@FreeNet.Carleton.CA> wrote:
> Have you attended past Perl Conferences and what do you think of it? How
> much does it cost and do you think it's worth your money and time? What
> kind of folks do you find there? Did you learn much?
I attended the first two, and really enjoyed them. I think I did get a
lot of useful information out of them as well.
In retrospect, most of what I've learned at the conferences was
information that was already available to me in the Perl documentation,
or in the O'Reilly books I've purchased, but for whatever reason I
never actually got around to learning it until I was exposed to it at
the conference. I think a part of that is a selection effect: There's a
whole universe of things I don't know about Perl, but at the
conferences I can glom onto an expert (whom I can evaluate based on all
those subtle cues you don't get in other contexts, like printed
documentation: how he/she talks/walks/acts/jokes/smells), and figure
out that the specific subset of all those things I don't know that
*this* expert is talking about *right now* is the stuff I really need
to learn next.
And of course this works in the other direction, too: much of the
documentation (the good stuff, anyway) is written either a lot or a
little over my not-quite-newbie head. (Gandalf paraphrase: "A habit of
the old, to pick the wisest person present to talk to. The long-winded
explanations required by the young are so tiring.") At the conference,
though, if I'm part of an audience that the speaker recognizes
correctly to be at the preschool primer level, the stuff presented will
be focused more narrowly on my needs.
This is how I justify my attendance at the conferences to my boss, but
that's not the part that I feel was really the most worthwhile. For me,
the most worthwhile part of it all is just the tremendous fun of
rubbing shoulders with all those other Perlfolk, including seeing the
big stars up close and personal.
I'm kind of a Perl groupie, I guess. It's kind of embarrassing, but
there it is.
Would I be paying to go to these conferences if the money was coming
out of my own pocket? Probably not. I'm sure happy that I have the
chance to go, though.
--
John Callender
jbc@west.net
http://www.west.net/~jbc/
------------------------------
Date: Wed, 24 Mar 1999 15:41:16 -0800
From: Richard Walker <Richard.Walker@west-server.com>
Subject: Re: Perl Crashes IIS4!
Message-Id: <36F9781C.60777CFD@west-server.com>
I R A Aggie wrote:
>
> In article <36B4BD6C.E32145D7@west-server.com>, Richard Walker
> <Richard.Walker@west-server.com> wrote:
>
> + I R A Aggie wrote:
> + >
> + > In article <790p07$92m$4@client2.news.psi.net>, abigail@fnx.com wrote:
>
> + > + Sounds like a bug in IIS to me.
> + Why does this sound like a bug?
>
> + > Sounds like a feature, actually.
> + Why would this be a feature? What purpose could it possibly serve?
> + Please elaborate.
>
> To convince the victim(s) to get a better httpd.
Now that the eubonically challenged aggie has blessed us with
profundities (err, profound wisdom), a solution is forthcoming.
------------------------------
Date: Wed, 24 Mar 1999 15:48:37 -0800
From: Richard Walker <Richard.Walker@west-server.com>
Subject: Re: Perl Crashes IIS4!
Message-Id: <36F979D5.1B5950D6@west-server.com>
Re:
> -- Entry created in the Event Viewer/Application Log: --
> An object call caused an exception. (IID:
> {51372AEF-CAE7-11CF-BE81-00AA00A2FA25}) (Method: 3) (Microsoft
> Transaction Server Internals Information: File:
> d:\viper\src\runtime\mtxex\activity.cpp, Line: 886)
> -- --
>
> -- Operating System --
> Windows NT 4.0 SP3 (workstation/server, same problem)
> IIS4.0
> ActiveState Perl build 509
> -- --
>
Abigail wrote:
>
> Richard Walker (Richard.Walker@west-server.com) wrote on MCMLXXVIII
> September MCMXCIII in <URL:news:36B39BAF.60761156@west-server.com>:
> **
> ** Every time I run a PerlScript in ASP that uses IO::Sockets, it executes,
> ** then promptly shuts my IIS4 server down.
>
> Sounds like a bug in IIS to me.
Actually, it is NOT a bug in IIS, rather a "bug" in ActivePerl. It is a
problem in how ActivePerl handles ASP objects (to oversimplify), and in
fact ActiveState has posted a fix for this on their website.
Anyone who is experiencing this problem visit
http://www.activestate.com/
and download build 513. They state that this build is not production
ready, but I have tested it and found that it _does_ address the
problem. I have seen no negative side effects in this build, but I
would strongly recommend testing it thoroughly before implementing it on
any production systems.
Richard
------------------------------
Date: Wed, 24 Mar 1999 12:38:44 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Values of 'true' and 'false'?
Message-Id: <MPG.1162ed2c72d485ec9897b8@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <36f9304f@csnews> on 24 Mar 1999 11:34:55 -0700, Tom
Christiansen <tchrist@mox.perl.com> says...
> Philip Newton <Philip.Newton@datenrevision.de> writes:
> :What are the values returned by relational operators? perlop only say
> :"returns true if ...", but not how true and false are represented. Trial
> :and error[0] seems to imply 'true' is '1' and false is '' (an empty, but
> :defined, string).
>
> You are correct, but you should rely on the docs. Do not compare
> with true and false.
Of course. But as I read the question, he wants to do further
manipulation on the value returned by a Boolean operator. In that case,
the values are well defined. I haven't found an explicit statement in
the docs; the closest I have come is that the Camel says (p. 21): 'And
any undefined value (rule 4) would always evaluate to 0 or the null
string.'
my $x = 0;
print 3 + ($x == $x); # 4
print 3 . ($x == $x); # 31
print 3 + ($x != $x); # 3
print 3 . ($x != $x); # 3
The Camel says (p. 87): 'These operators return 1 for true, and "" for
false.' This is clearly incomplete for numeric context, or there would
be a run-time warning in the third statement above (try 'print 3 +
"";'). And perlop simply says that they return 'true' for the true
case; nothing about 'false'.
Can you point in the docs to a statement of the values of TRUE and FALSE
as returned by a Boolean operator? I can't remember where I read it.
--
Larry Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 24 Mar 1999 15:16:37 -0500
From: Jay Glascoe <jglascoe@giss.nasa.gov>
To: Lou M <lmoran@wtsg.com>
Subject: Re: What is wrong with this code?
Message-Id: <36F94825.8E49DF0A@giss.nasa.gov>
Lou M wrote:
>
...
> @words = qw(camel gecko alpaca);
...
> if ($word[$i] eq $guess) { #right?
your array is names "words" not "word",
try "if ($words[$i] eq $guess) { ..."
Jay Glascoe
--
"... the whole documentation is not unreasonably
transportable in a student's briefcase."
--John Lions describing UNIX 6th Edition
"This has since been fixed in recent versions."
--Kernighan & Pike
------------------------------
Date: Wed, 24 Mar 1999 15:04:47 -0500
From: "Andy Watts" <adwats@spaceweb.com>
Subject: Where to find FTP modules for NT?
Message-Id: <LFbK2.693$Yk5.117262@news.shore.net>
Is there a place on the Web or newsgroups where I can find an NT based
module for FTP functions, since the program I'm working on right now does
not access a server with a Net::FTP module. Or can anyone give me some
advice on what module I should concentrate on?
Andy Watts
------------------------------
Date: Wed, 24 Mar 1999 19:53:39 GMT
From: dizhao@my-dejanews.com
Subject: Re: why my sub returns nothing?
Message-Id: <7dbfru$mp0$1@nnrp1.dejanews.com>
My result is:
i is: 2
i is:
the second i display nothing, I am using perl5.005_2 -- bundled with Slackware
3.5. That probably is a bug.
In article <x3yg16u7wd4.fsf@tigre.matrox.com>,
Ala Qumsieh <aqumsieh@matrox.com> wrote:
>
> dizhao@my-dejanews.com writes:
>
> > Look at the code below, in the sub t, I predefined $index, but when returned
> > from the foreach loop, it returns nothing(it supposed to return 0). I think
> > it has something to do with foreach scenario. Can someone give me a
> > explanation? I am using perl5.005_2. Thanks. #!/usr/bin/perl $i = t(0);
print
> > "i is: $i\n"; $i = t(1); print "i is: $i\n"; sub t { my ($ii) = @_; my
> > $index = 1; if ($ii) { foreach $index (0..10) { return $index; } }
> > $index = 2; return $index; }
>
> Well on my version (5.004_04), the results are:
>
> i is: 2
> i is: 0
>
> what exactly are your results?
>
>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
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 5218
**************************************
