[16904] in Perl-Users-Digest
Perl-Users Digest, Issue: 4316 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Sep 13 18:15:38 2000
Date: Wed, 13 Sep 2000 15:15:25 -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: <968883325-v9-i4316@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 13 Sep 2000 Volume: 9 Number: 4316
Today's topics:
Re: reading packet from C++ code <bkennedy@hmsonline.com>
Re: reading packet from C++ code (Sean McAfee)
Re: Redirect URL (Tony L. Svanstrom)
Re: Reply to Abi's sheep <juex@deja.com>
Returning values of unticked checkbox <g.soper@soundhouse.co.uk>
Re: Returning values of unticked checkbox (Jerome O'Neil)
Re: Returning values of unticked checkbox <timewarp@shentel.net>
Running Program without wait for finish <barna@megapage.ch>
Re: Running Program without wait for finish <barna@megapage.ch>
Re: Running Program without wait for finish (Abigail)
Re: Silly grep tricks (Richard J. Rauenzahn)
Re: Strange characters when using forms ^M <notkmetcalf@notlighthousemarketingnot.com>
Stuck with a perl script <gunjann@worldnet.att.net>
Re: Stuck with a perl script <lauren_smith13@hotmail.com>
Re: Stuck with a perl script (Abigail)
Teaching Perl (Tim)
Re: Test Your Perl Skills (Richard J. Rauenzahn)
Re: Test Your Perl Skills (brian d foy)
This Code Isn't Working? rathmore@tierceron.com
Re: This Code Isn't Working? <lauren_smith13@hotmail.com>
Re: This Code Isn't Working? <jeffp@crusoe.net>
Re: This Code Isn't Working? <katz@underlevel.net>
Re: Where Doesn't this work? <aqumsieh@hyperchip.com>
Re: Where Doesn't this work? (Richard J. Rauenzahn)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 13 Sep 2000 20:20:26 GMT
From: "Ben Kennedy" <bkennedy@hmsonline.com>
Subject: Re: reading packet from C++ code
Message-Id: <ekRv5.23920$AW2.308364@news1.rdc2.pa.home.com>
"Robert Jones" <robert@purdy.com> wrote in message
news:8poble$mma$1@news.chatlink.com...
> I am trying to read the packet from Perl like this :
> my @readpacket = unpack("I,I,A32,S,I,I,I,A128", $message);
In what context are you getting $message? Unless you are dealing with raw
sockets, you can't see the actual packet structure.
--Ben Kennedy
------------------------------
Date: Wed, 13 Sep 2000 20:38:17 GMT
From: mcafee@waits.facilities.med.umich.edu (Sean McAfee)
Subject: Re: reading packet from C++ code
Message-Id: <ZARv5.3201$O5.65370@news.itd.umich.edu>
In article <8poble$mma$1@news.chatlink.com>,
Robert Jones <robert@purdy.com> wrote:
>I have a perl script reading a UDP packet sent from a C++ program. My perl
>script can read most of the packet but not all of it. Below is section of
>the C++ code that creates the packet.
>-----------------------------------------
>typedef unsigned int dword;
>typedef unsigned short word;
>
>struct ServerInfoPacket {
> dword version,size;
> char servname[32];
> word port;
> int phase;
> bool thin;
> struct {
> int min,max;
> } ping_limit;
>
> char cfg[128];
>};
>--------------------------------------
>I am trying to read the packet from Perl like this :
>my @readpacket = unpack("I,I,A32,S,I,I,I,A128", $message);
>version, size, servname, port, and cfg is all OK and readable.
>phase, min, and max are not readable. What am I doing wrong ?
C/C++ compilers usually align elements of a struct on 4-byte boundaries.
Since one of your elements is a 2-byte short, it's been padded with an
extra two bytes. You have to tell Perl to ignore these padding bytes with
the "x" template command:
my @readpacket = unpack("I,I,A32,S,x2,I,I,I,A128", $message);
I don't do this kind of thing often, so I'm not 100% positive, but I think
it's possible that your particular C++ system may pad the short on the
other side; if this is the case, your format string would be:
my @readpacket = unpack("I,I,A32,x2,S,I,I,I,A128", $message);
You'll have to experiment to find out.
Also, you might want to check out the complete documentation on Perl's
pack() function, in particular the bit that begins:
'The integer formats "s", "S", "i", "I", "l", and "L" are inherently
non-portable between processors and operating systems because they obey the
native byteorder and endianness.'
For maximum portability across systems, you should arrange for the C++
program to send the data in network byteorder (via the htons() and htonl()
functions) and for Perl to expect to receive them that way (see the "n",
"N", "v", and "V" template commands).
--
Sean McAfee mcafee@umich.edu
print eval eval eval eval eval eval eval eval eval eval eval eval eval eval
q!q@q#q$q%q^q&q*q-q=q+q|q~q:q? Just Another Perl Hacker ?:~|+=-*&^%$#@!
------------------------------
Date: Wed, 13 Sep 2000 20:18:49 +0200
From: tony@svanstrom.com (Tony L. Svanstrom)
Subject: Re: Redirect URL
Message-Id: <1egwz06.12p977v14qznpbN%tony@svanstrom.com>
Jose Luis <joseluis@REMOVEMEferca.com> wrote:
> I want to redirect from a Perl Script to a PHP script.
>
> The perl script is executing in TELNET.
> It's a Cron
>
> i tried this:
>
> print "Location: http://mensajesgratis.com/diferidos.php3 \n\n";
You can't forward anything since there's no real client to talk about,
what you're trying to do simply requires the client to speak HTTP with
the script (which it doesn't).
/Tony
--
/\___/\ Who would you like to read your messages today? /\___/\
\_@ @_/ Protect your privacy: <http://www.pgpi.com/> \_@ @_/
--oOO-(_)-OOo---------------------------------------------oOO-(_)-OOo--
on the verge of frenzy - i think my mask of sanity is about to slip
---ôôô---ôôô-----------------------------------------------ôôô---ôôô---
\O/ \O/ ©99-00 <http://www.svanstrom.com/?ref=news> \O/ \O/
------------------------------
Date: Wed, 13 Sep 2000 12:17:29 -0700
From: "Jürgen Exner" <juex@deja.com>
Subject: Re: Reply to Abi's sheep
Message-Id: <39bfd2d0$1@news.microsoft.com>
"Someperson" <nothing here! complain about that!!!> wrote in message
news:srtmtqn9ct684@news.supernews.com...
> Bleat! Baaaa!
>
> "I have noticed that people in CLPM can be a bit abrupt sometimes, but
> after reading your post I understand them a lot better."
>
> Who made the first shot? I posed an innocent question. I don't lurk
here.
You just admitted to the next offense against the nettiquette.....
jue
------------------------------
Date: Wed, 13 Sep 2000 21:24:54 +0100
From: Geoff Soper <g.soper@soundhouse.co.uk>
Subject: Returning values of unticked checkbox
Message-Id: <49fd8decb9g.soper@soundhouse.co.uk>
If a single checkbox in an HTML form is unticked, is its parameter as
returned by CGI.pm undef or "" ?
Having used
$form_data{$_} = [param($_)] for param();
to get the data in from
<input type="checkbox" name="box" checked value="yes">
This gives $form_data{"box"}[0] the value of "yes" when ticked but I want
$form_data{"box"}[0] to have the value of "no" when not ticked, how can I
achieve this?
Many thanks for any ideas
--
Geoff Soper
g.soper@soundhouse.co.uk
Take a look at the Soundhouse page http://www.soundhouse.co.uk/
------------------------------
Date: Wed, 13 Sep 2000 20:29:09 GMT
From: jerome@activeindexing.com (Jerome O'Neil)
Subject: Re: Returning values of unticked checkbox
Message-Id: <psRv5.202$L46.240821@news.uswest.net>
Geoff Soper <g.soper@soundhouse.co.uk> elucidates:
> If a single checkbox in an HTML form is unticked, is its parameter as
> returned by CGI.pm undef or "" ?
In either case, it will evaluate false in a boolean test.
> <input type="checkbox" name="box" checked value="yes">
>
> This gives $form_data{"box"}[0] the value of "yes" when ticked but I want
> $form_data{"box"}[0] to have the value of "no" when not ticked, how can I
>
Test it for truth, and populate as needed.
$form_data{"box"}[0] = ($form_data{"box"}[0]) ? $form_data{"box"}[0] : 'no';
HTH!
------------------------------
Date: Wed, 13 Sep 2000 18:01:52 -0400
From: Albert Dewey <timewarp@shentel.net>
Subject: Re: Returning values of unticked checkbox
Message-Id: <39BFF950.7EDAC3A9@shentel.net>
Geoff Soper wrote:
> If a single checkbox in an HTML form is unticked, is its parameter as
> returned by CGI.pm undef or "" ?
>
> Having used
>
> $form_data{$_} = [param($_)] for param();
>
> to get the data in from
>
> <input type="checkbox" name="box" checked value="yes">
>
> This gives $form_data{"box"}[0] the value of "yes" when ticked but I want
> $form_data{"box"}[0] to have the value of "no" when not ticked, how can I
> achieve this?
>
> Many thanks for any ideas
>
> --
> Geoff Soper
> g.soper@soundhouse.co.uk
> Take a look at the Soundhouse page http://www.soundhouse.co.uk/
The simplest way to do this is to see if your checkbox variable a null value.
This means that it hasn't been checked. Then do what you will with that info.
The deal here is that browsers will send nothing from the checkbox if it has
not been checked.
Albert Dewey
------------------------------
Date: Wed, 13 Sep 2000 23:44:11 +0200
From: Barna <barna@megapage.ch>
Subject: Running Program without wait for finish
Message-Id: <39BFF52B.67FC5601@megapage.ch>
Hi All
I want to execute a program, but i don't want to wait for it's end, and
without of using alarm....
I'd like to run the script on win32 and linux
Thanks!
------------------------------
Date: Wed, 13 Sep 2000 23:48:23 +0200
From: Barna <barna@megapage.ch>
Subject: Re: Running Program without wait for finish
Message-Id: <39BFF627.9987226D@megapage.ch>
(and without fork)
Barna schrieb:
> Hi All
>
> I want to execute a program, but i don't want to wait for it's end, and
> without of using alarm....
> I'd like to run the script on win32 and linux
>
> Thanks!
------------------------------
Date: 13 Sep 2000 22:03:54 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Running Program without wait for finish
Message-Id: <slrn8rvucb.ku0.abigail@alexandra.foad.org>
Barna (barna@megapage.ch) wrote on MMDLXX September MCMXCIII in
<URL:news:39BFF52B.67FC5601@megapage.ch>:
~~ Hi All
~~
~~ I want to execute a program, but i don't want to wait for it's end, and
~~ without of using alarm....
~~ I'd like to run the script on win32 and linux
fork() and exec().
Abigail
--
# Perl 5.6.0 broke this.
%0=map{reverse+chop,$_}ABC,ACB,BAC,BCA,CAB,CBA;$_=shift().AC;1while+s/(\d+)((.)
(.))/($0=$1-1)?"$0$3$0{$2}1$2$0$0{$2}$4":"$3 => $4\n"/xeg;print#Towers of Hanoi
------------------------------
Date: 13 Sep 2000 21:26:23 GMT
From: nospam@hairball.cup.hp.com (Richard J. Rauenzahn)
Subject: Re: Silly grep tricks
Message-Id: <968880382.956670@hpvablab.cup.hp.com>
kj0 <kj0@mailcity.com> writes:
>Is there a way to get grep to return only the first item (if any) in a
>list for which the test is true?
I happened to be looking at List::Util because of the thread on 'min'.
It also has a 'first' function. Much of that module appears to be
written in C, so it's likely to be faster then a perl foreach.
Rich
--
Rich Rauenzahn ----------+xrrauenza@cup.hp.comx+ Hewlett-Packard Company
Technical Consultant | I speak for me, | 19055 Pruneridge Ave.
Development Alliances Lab| *not* HP | MS 46TU2
ESPD / E-Serv. Partner Division +--------------+---- Cupertino, CA 95014
------------------------------
Date: 13 Sep 2000 19:20:16 GMT
From: Kevin Metcalf <notkmetcalf@notlighthousemarketingnot.com>
Subject: Re: Strange characters when using forms ^M
Message-Id: <39BFD3DE.36405F2E@notlighthousemarketingnot.com>
The ^M is a control character representation of a return. When the data
is returned, use something like:
$value =~ s/%0D//g;
Kevin
Tom Fotheringham wrote:
> I use:
>
> $data=$q->param("whatever");
>
> ,when recieving info from a TEXT AREA, I get a couple of ^M
>
> Can anyone please point me in the right direction as how to get TEXT
> AREA information to work as a normal text field?
>
> Please and Thanks
> Tom
------------------------------
Date: Wed, 13 Sep 2000 19:32:16 GMT
From: "SANDEEP NACHANE" <gunjann@worldnet.att.net>
Subject: Stuck with a perl script
Message-Id: <4DQv5.5553$6i1.512871@bgtnsc04-news.ops.worldnet.att.net>
Hello Perl Guru's
I am coding a perl script for my site which would allow the visitor to vote.
It has 3 radio buttons and a
submit button ( to submit the vote ).
I have already tried the following code in my form
<form action="http://www.mysite.com/cgi-bin/vote.pl" target="_NEW"
method=get >
This opens a new window, but I do not have control over its height and
width. It takes default values from my browser. Is there a way to control
the height and width of the 'popup' browser window from a perl script ?
Any help will be appreciated. I am just a novice in this language.
-Sandeep
------------------------------
Date: Wed, 13 Sep 2000 13:12:13 -0700
From: "Lauren Smith" <lauren_smith13@hotmail.com>
Subject: Re: Stuck with a perl script
Message-Id: <8pomu1$kgp$1@brokaw.wa.com>
SANDEEP NACHANE <gunjann@worldnet.att.net> wrote in message
news:4DQv5.5553$6i1.512871@bgtnsc04-news.ops.worldnet.att.net...
> Hello Perl Guru's
Maybe an unemployed Perl novice? :-)
> I have already tried the following code in my form
>
> <form action="http://www.mysite.com/cgi-bin/vote.pl" target="_NEW"
> method=get >
That isn't Perl.
> This opens a new window, but I do not have control over its height and
> width.
Ooh, I hate it when websites do that to me.
> It takes default values from my browser. Is there a way to control
> the height and width of the 'popup' browser window from a perl script ?
Probably, if you ask the folks over in comp.infosystems.www.authoring.html,
they'd probably know.
> Any help will be appreciated. I am just a novice in this language.
Welcome to the language, hope you have a good time!
Lauren
--
$JAPH='!rekcaH lreP rehtonA tsuJ';%JAPH=map{$_=>chop
$JAPH} (b..z); print map $JAPH{$_}, sort keys %JAPH;
------------------------------
Date: 13 Sep 2000 20:28:29 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Stuck with a perl script
Message-Id: <slrn8rvopd.ku0.abigail@alexandra.foad.org>
SANDEEP NACHANE (gunjann@worldnet.att.net) wrote on MMDLXX September
MCMXCIII in <URL:news:4DQv5.5553$6i1.512871@bgtnsc04-news.ops.worldnet.att.net>:
!!
!! I have already tried the following code in my form
!!
!! <form action="http://www.mysite.com/cgi-bin/vote.pl" target="_NEW"
!! method=get >
!!
!! This opens a new window, but I do not have control over its height and
!! width. It takes default values from my browser. Is there a way to control
!! the height and width of the 'popup' browser window from a perl script ?
No.
You question has absolutely nothing to do with Perl. You're facing the
same problem as you would if your program was written in COBOL, Haskell,
or TECO macros.
Abigail
--
sub camel (^#87=i@J&&&#]u'^^s]#'#={123{#}7890t[0.9]9@+*`"'***}A&&&}n2o}00}t324i;
h[{e **###{r{+P={**{e^^^#'#i@{r'^=^{l+{#}H***i[0.9]&@a5`"':&^;&^,*&^$43##@@####;
c}^^^&&&k}&&&}#=e*****[]}'r####'`=437*{#};::'1[0.9]2@43`"'*#==[[.{{],,,1278@#@);
print+((($llama=prototype'camel')=~y|+{#}$=^*&[0-9]i@:;`"',.| |d)&&$llama."\n");
------------------------------
Date: Wed, 13 Sep 2000 21:21:38 GMT
From: SPAM+indigo@dimensional.com (Tim)
Subject: Teaching Perl
Message-Id: <8FAE9AE27indigodimcom@166.93.207.145>
I have an oppurtunity to teach a Perl class.
I have taught internal Perl classes before, but I have never taught
as an external consultant. It would be a one time thing, but if it
worked out well for me, it might be worth trying to pick up some
teaching gigs on the side.
For people who have do this sort of thing before, any general advice?
I know Perl fairly well, and I do a lot of Perl mentoring. I think
I could put together a pretty good cirriculum and stand up and teach,
but there are some things that scare me, especially since I have very
limited business skills:
o How long should the classes be?
o How many of them?
o How many people can a rookie instructor expect to handle?
o What is a fair rate for a class?
o What sort of contractual arrangement should I have?
o Do I need to be insured or bonded?
o What if they don't pay me, or if they do, and become unsatisfied?
o What other sort of businessy things that I am clueless about should
I worry about when dealing with a large company?
Any information/anecdotes/reflections/endowments would be appreciated.
-T
------------------------------
Date: 13 Sep 2000 20:17:11 GMT
From: nospam@hairball.cup.hp.com (Richard J. Rauenzahn)
Subject: Re: Test Your Perl Skills
Message-Id: <968876230.661951@hpvablab.cup.hp.com>
tony@svanstrom.com (Tony L. Svanstrom) writes:
>Which is why managers love it and only hire people with papers that says
>that they know something, without bothering to even look at people that
>really knows it.
I'll never get hired. I failed this question:
If $a is TRUE, and $b is TRUE, which of the following yield a true result?
a. $a && $b
b. $a
$b
c. ! $a
It says $a|$b is the right answer. [No, that isn't a cut & paste error
above.]
Oh, here's another good one:
In pattern matching, how do you match an octal value?
a. \nnn (where nnn is that octal value)
b. \onnn (that's the letter 'o')
c. %onnn ( that's the letter 'o')
d. ^onnn ( that's the letter 'o')
e. \O ( that's the letter 'O')
Obviously, the answer is (a)!
Which character sequence will match a word boundary?
a. /b
b. /c
c. /t
d. /w
e. none
Again, the answer is (a).
Ok, I give up. I'm going back to shell scripts.
Rich
--
Rich Rauenzahn ----------+xrrauenza@cup.hp.comx+ Hewlett-Packard Company
Technical Consultant | I speak for me, | 19055 Pruneridge Ave.
Development Alliances Lab| *not* HP | MS 46TU2
ESPD / E-Serv. Partner Division +--------------+---- Cupertino, CA 95014
------------------------------
Date: Wed, 13 Sep 2000 17:44:09 -0400
From: brian@smithrenaud.com (brian d foy)
Subject: Re: Test Your Perl Skills
Message-Id: <brian-ya02408000R1309001744090001@news.panix.com>
In article <968876230.661951@hpvablab.cup.hp.com>, nospam@hairball.cup.hp.com (Richard J. Rauenzahn) posted:
> tony@svanstrom.com (Tony L. Svanstrom) writes:
> >Which is why managers love it and only hire people with papers that says
> >that they know something, without bothering to even look at people that
> >really knows it.
>
> I'll never get hired. I failed this question:
>
> If $a is TRUE, and $b is TRUE, which of the following yield a true result?
>
> a. $a && $b
> b. $a
> $b
> c. ! $a
>
> It says $a|$b is the right answer. [No, that isn't a cut & paste error
> above.]
well, at least (a) is true. the short circuit operators return
the last evaluated expression. is the answer "$a|$b" even
an option?
> In pattern matching, how do you match an octal value?
>
> a. \nnn (where nnn is that octal value)
> b. \onnn (that's the letter 'o')
> c. %onnn ( that's the letter 'o')
> d. ^onnn ( that's the letter 'o')
> e. \O ( that's the letter 'O')
>
> Obviously, the answer is (a)!
maybe. it has to be a valid octal value. perhaps the
question meant to specify { n a member of (0,1,2,3,4,5,6,7) }.
even then, the first digit has to be in the right range.
> Which character sequence will match a word boundary?
>
> a. /b
> b. /c
> c. /t
> d. /w
> e. none
>
> Again, the answer is (a).
are you sure that you typed that correctly? none of those
are regex assertions. perhaps you meant \b ?
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Mongers <URL:http://www.perl.org/>
------------------------------
Date: Wed, 13 Sep 2000 19:25:25 GMT
From: rathmore@tierceron.com
Subject: This Code Isn't Working?
Message-Id: <8poka9$c4c$1@nnrp1.deja.com>
sub convertSize {
$count = @SKU_list;
for ($i = 0; $i < $count; $i++) {
if ($SKU_list[$i] eq $SKU ) {
$size = ""; # Convert size to blank
return;
}
}
}
$size and $SKU are part of the below array:
(@Item) = ($iOrderNum, $media, $style, $size, $SKU, $quantity, $price,
$itemID, $pageNum, $color, $colorCode, $EOB);
When I write the array to a file, size gets the value of "16" not "".
When I step through the above code in the debugger, I can see $SKU
matching $SKU_list[$i] and $size being set to "" but when it gets
written to the file, $size has the value "16"?
Any ideas on what I'm doing wrong? The write function looks like the
following:
sub writeItem {
# Write this order to file
convertSize(); # Calls the above code
write (OF3); # Follows the format for an item
}
Thank you!
Rathmore
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 13 Sep 2000 13:29:46 -0700
From: "Lauren Smith" <lauren_smith13@hotmail.com>
Subject: Re: This Code Isn't Working?
Message-Id: <8ponuu$l99$1@brokaw.wa.com>
<rathmore@tierceron.com> wrote in message
news:8poka9$c4c$1@nnrp1.deja.com...
> sub convertSize {
> $count = @SKU_list;
> for ($i = 0; $i < $count; $i++) {
> if ($SKU_list[$i] eq $SKU ) {
> $size = ""; # Convert size to blank
> return;
> }
> }
> }
I wish Deja would fix their indentation issues.
That could be reduced to
sub convertSize {
for (@SKU_list) {
$size = "" if ($_ eq $SKU);
}
return;
}
> $size and $SKU are part of the below array:
>
> (@Item) = ($iOrderNum, $media, $style, $size, $SKU, $quantity, $price,
> $itemID, $pageNum, $color, $colorCode, $EOB);
>
Are you putting things into @Item or taking them out?
Perhaps you should turn that expression around.
Lauren
--
$JAPH='!rekcaH lreP rehtonA tsuJ';%JAPH=map{$_=>chop
$JAPH} (b..z); print map $JAPH{$_}, sort keys %JAPH;
------------------------------
Date: Wed, 13 Sep 2000 16:52:23 -0400
From: Jeff Pinyan <jeffp@crusoe.net>
Subject: Re: This Code Isn't Working?
Message-Id: <Pine.GSO.4.21.0009131649030.23599-100000@crusoe.crusoe.net>
[posted & mailed]
On Sep 13, rathmore@tierceron.com said:
>sub convertSize {
> $count = @SKU_list;
> for ($i = 0; $i < $count; $i++) {
> if ($SKU_list[$i] eq $SKU ) {
> $size = ""; # Convert size to blank
> return;
> }
> }
>}
As posted earlier, that loop can be changed to:
for (@SKU_list) {
$size = "", return if $_ eq $SKU;
}
>$size and $SKU are part of the below array:
That statement is false. The value of $size and the value of $SKU are in
the @Item array. $size and $SKU can change, and that won't effect the
@Item array.
>(@Item) = ($iOrderNum, $media, $style, $size, $SKU, $quantity, $price,
> $itemID, $pageNum, $color, $colorCode, $EOB);
Just because I say
$foo = 'jeff';
@bar = ($foo);
$foo = 'pinyan';
does not update @bar based on the changed value of $foo. For that to be
the case, you'd have to do some crufty machinations:
*{ $bar[0] } = \$foo;
THEN, changing $foo changes $bar[0] (and vice-versa). But this is
probably too much effort. Don't modify $size, modify $Item[3] instead.
--
Jeff "japhy" Pinyan japhy@pobox.com http://www.pobox.com/~japhy/
PerlMonth - An Online Perl Magazine http://www.perlmonth.com/
The Perl Archive - Articles, Forums, etc. http://www.perlarchive.com/
CPAN - #1 Perl Resource (my id: PINYAN) http://search.cpan.org/
------------------------------
Date: 13 Sep 2000 18:00:40 -0400
From: Jordan Katz <katz@underlevel.net>
Subject: Re: This Code Isn't Working?
Message-Id: <m3n1hc2bqv.fsf@underlevel.underlevel.net>
"Lauren Smith" <lauren_smith13@hotmail.com> writes:
> I wish Deja would fix their indentation issues.
..More like an Outlook issue. I can see his code correctly indented.
--
Jordan Katz <katz@underlevel.net>
------------------------------
Date: Wed, 13 Sep 2000 20:11:18 GMT
From: Ala Qumsieh <aqumsieh@hyperchip.com>
Subject: Re: Where Doesn't this work?
Message-Id: <7ahf7koxw6.fsf@merlin.hyperchip.com>
tjla@guvfybir.qlaqaf.bet (Gwyn Judd) writes:
> I was shocked! How could Liang Cheng <Cheng3@email.msn.com>
> say such a terrible thing:
> >
> >Brian <brian@ukdj.freeserve.co.uk> wrote in message
> >news:8pm78b$ck1$1@news6.svr.pol.co.uk...
> >> Where Doesn't this work? i am trying to remove all " from the file when it
> >> is read in?
> >> $SIZE=@LINES;
> >In addition to Allan's post, you seem to want to get the size of the LINES
> >array, that should be done with $SIZE =($#LINES +1);
>
> The two are equivalent.
Of course they are, as long as we didn't muck with $[, ehich we
shouldn't do anyway.
--Ala
------------------------------
Date: 13 Sep 2000 21:09:43 GMT
From: nospam@hairball.cup.hp.com (Richard J. Rauenzahn)
Subject: Re: Where Doesn't this work?
Message-Id: <968879382.550165@hpvablab.cup.hp.com>
Allan M. Due <All@n.Due.net> writes:
>read FILEHANDLE, $sting, -s FILEHANDLE;
Just don't expect the return value/length of $sting to be equal to "-s
FILEHANDLE"... especially under Win32..
Rich
--
Rich Rauenzahn ----------+xrrauenza@cup.hp.comx+ Hewlett-Packard Company
Technical Consultant | I speak for me, | 19055 Pruneridge Ave.
Development Alliances Lab| *not* HP | MS 46TU2
ESPD / E-Serv. Partner Division +--------------+---- Cupertino, CA 95014
------------------------------
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 4316
**************************************
