[23029] in Perl-Users-Digest
Perl-Users Digest, Issue: 5249 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jul 21 09:10:34 2003
Date: Mon, 21 Jul 2003 06:10:10 -0700 (PDT)
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, 21 Jul 2003 Volume: 10 Number: 5249
Today's topics:
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
stripping characters from xml files <ahmad@dcs.qmul.ac.uk>
Re: Variable definition help needed <me@privacy.net>
Re: <bwalton@rochester.rr.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 21 Jul 2003 12:45:52 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <vhno40oa3gv06c@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 14 Jul 2003 12:47:12 GMT and ending at
21 Jul 2003 12:53:37 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 2003 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@(?:.*\.)?perl\.com
faq\@(?:.*\.)?denver\.pm\.org
comdog\@panix\.com
Totals
======
Posters: 217
Articles: 637 (258 with cutlined signatures)
Threads: 161
Volume generated: 1236.9 kb
- headers: 555.2 kb (10,632 lines)
- bodies: 645.0 kb (21,288 lines)
- original: 392.2 kb (13,979 lines)
- signatures: 36.0 kb (912 lines)
Original Content Rating: 0.608
Averages
========
Posts per poster: 2.9
median: 2 posts
mode: 1 post - 106 posters
s: 4.0 posts
Posts per thread: 4.0
median: 3 posts
mode: 1 post - 44 threads
s: 4.2 posts
Message size: 1988.3 bytes
- header: 892.5 bytes (16.7 lines)
- body: 1036.9 bytes (33.4 lines)
- original: 630.5 bytes (21.9 lines)
- signature: 57.9 bytes (1.4 lines)
Top 20 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
23 57.8 ( 26.7/ 30.8/ 20.8) "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
20 40.0 ( 21.5/ 18.3/ 10.5) bwalton@rochester.rr.com
18 32.4 ( 15.9/ 13.6/ 11.6) abigail@abigail.nl
16 37.6 ( 13.5/ 19.4/ 11.7) Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
16 39.3 ( 19.3/ 18.5/ 8.6) "A. Sinan Unur" <asu1@c-o-r-n-e-l-l.edu>
14 30.8 ( 10.8/ 17.7/ 9.6) Benjamin Goldberg <ben.goldberg@hotpop.com>
14 27.6 ( 13.4/ 11.0/ 4.9) Uri Guttman <uri@stemsystems.com>
13 20.1 ( 11.9/ 7.3/ 3.2) Gunnar Hjalmarsson <noreply@gunnar.cc>
12 26.9 ( 11.1/ 13.1/ 5.6) tassilo.parseval@post.rwth-aachen.de
11 17.0 ( 10.4/ 6.5/ 3.8) Bart Lateur <bart.lateur@pandora.be>
11 18.3 ( 6.9/ 11.3/ 7.5) me@home.com
11 19.5 ( 9.7/ 9.7/ 3.3) Matija Papec <mpapec@yahoo.com>
10 19.5 ( 9.7/ 9.8/ 5.8) "William Alexander Segraves" <wsegrave@mindspring.com>
10 26.6 ( 10.0/ 16.6/ 12.8) James Willmore <jwillmore@cyberia.com>
9 15.1 ( 7.4/ 7.7/ 3.7) James E Keenan <jkeen@concentric.net>
9 14.2 ( 8.1/ 6.1/ 2.7) "Jürgen Exner" <jurgenex@hotmail.com>
8 20.0 ( 6.7/ 12.1/ 7.2) mgjv@tradingpost.com.au
8 15.9 ( 7.4/ 8.3/ 4.5) marc0 <marc0@autistici.org>
8 14.5 ( 8.8/ 4.4/ 2.4) Brendan Byrd/SineSwiper <SineSwiper@ResonatorSoft.org>
7 11.0 ( 5.8/ 5.1/ 1.5) Cat <cat@no-spam.com>
These posters accounted for 38.9% of all articles.
Top 20 Posters by Number of Followups
=====================================
(kb) (kb) (kb) (kb)
Followups Volume ( hdr/ body/ orig) Address
--------- -------------------------- -------
22 57.8 ( 26.7/ 30.8/ 20.8) "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
20 40.0 ( 21.5/ 18.3/ 10.5) bwalton@rochester.rr.com
18 32.4 ( 15.9/ 13.6/ 11.6) abigail@abigail.nl
16 39.3 ( 19.3/ 18.5/ 8.6) "A. Sinan Unur" <asu1@c-o-r-n-e-l-l.edu>
16 37.6 ( 13.5/ 19.4/ 11.7) Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
14 30.8 ( 10.8/ 17.7/ 9.6) Benjamin Goldberg <ben.goldberg@hotpop.com>
14 27.6 ( 13.4/ 11.0/ 4.9) Uri Guttman <uri@stemsystems.com>
12 20.1 ( 11.9/ 7.3/ 3.2) Gunnar Hjalmarsson <noreply@gunnar.cc>
12 26.9 ( 11.1/ 13.1/ 5.6) tassilo.parseval@post.rwth-aachen.de
11 17.0 ( 10.4/ 6.5/ 3.8) Bart Lateur <bart.lateur@pandora.be>
10 19.5 ( 9.7/ 9.8/ 5.8) "William Alexander Segraves" <wsegrave@mindspring.com>
10 26.6 ( 10.0/ 16.6/ 12.8) James Willmore <jwillmore@cyberia.com>
9 15.1 ( 7.4/ 7.7/ 3.7) James E Keenan <jkeen@concentric.net>
9 14.2 ( 8.1/ 6.1/ 2.7) "Jürgen Exner" <jurgenex@hotmail.com>
9 18.3 ( 6.9/ 11.3/ 7.5) me@home.com
9 19.5 ( 9.7/ 9.7/ 3.3) Matija Papec <mpapec@yahoo.com>
8 20.0 ( 6.7/ 12.1/ 7.2) mgjv@tradingpost.com.au
7 11.0 ( 5.8/ 5.1/ 1.5) Cat <cat@no-spam.com>
7 10.4 ( 5.7/ 4.5/ 1.4) "John W. Krahn" <krahnj@acm.org>
7 15.9 ( 7.4/ 8.3/ 4.5) marc0 <marc0@autistici.org>
These posters accounted for 47.0% of all followups.
Top 14 Posters by Followup Rate (min. of ten posts)
===================================================
Followup
Rate Followups Posts Address
-------- --------- ----- -------
100.00% 14 14 Benjamin Goldberg <ben.goldberg@hotpop.com>
100.00% 11 11 Bart Lateur <bart.lateur@pandora.be>
100.00% 10 10 James Willmore <jwillmore@cyberia.com>
100.00% 18 18 abigail@abigail.nl
100.00% 12 12 tassilo.parseval@post.rwth-aachen.de
100.00% 16 16 Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
100.00% 16 16 "A. Sinan Unur" <asu1@c-o-r-n-e-l-l.edu>
100.00% 20 20 bwalton@rochester.rr.com
100.00% 10 10 "William Alexander Segraves" <wsegrave@mindspring.com>
100.00% 14 14 Uri Guttman <uri@stemsystems.com>
95.65% 22 23 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
92.31% 12 13 Gunnar Hjalmarsson <noreply@gunnar.cc>
81.82% 9 11 Matija Papec <mpapec@yahoo.com>
81.82% 9 11 me@home.com
Top 20 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
57.8 ( 26.7/ 30.8/ 20.8) 23 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
40.0 ( 21.5/ 18.3/ 10.5) 20 bwalton@rochester.rr.com
39.3 ( 19.3/ 18.5/ 8.6) 16 "A. Sinan Unur" <asu1@c-o-r-n-e-l-l.edu>
39.2 ( 5.2/ 33.6/ 33.1) 5 tadmc@augustmail.com
37.6 ( 13.5/ 19.4/ 11.7) 16 Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
32.4 ( 15.9/ 13.6/ 11.6) 18 abigail@abigail.nl
30.8 ( 10.8/ 17.7/ 9.6) 14 Benjamin Goldberg <ben.goldberg@hotpop.com>
27.6 ( 13.4/ 11.0/ 4.9) 14 Uri Guttman <uri@stemsystems.com>
26.9 ( 11.1/ 13.1/ 5.6) 12 tassilo.parseval@post.rwth-aachen.de
26.6 ( 10.0/ 16.6/ 12.8) 10 James Willmore <jwillmore@cyberia.com>
20.1 ( 11.9/ 7.3/ 3.2) 13 Gunnar Hjalmarsson <noreply@gunnar.cc>
20.0 ( 6.7/ 12.1/ 7.2) 8 mgjv@tradingpost.com.au
19.5 ( 9.7/ 9.8/ 5.8) 10 "William Alexander Segraves" <wsegrave@mindspring.com>
19.5 ( 9.7/ 9.7/ 3.3) 11 Matija Papec <mpapec@yahoo.com>
18.3 ( 6.9/ 11.3/ 7.5) 11 me@home.com
17.0 ( 10.4/ 6.5/ 3.8) 11 Bart Lateur <bart.lateur@pandora.be>
16.1 ( 4.1/ 9.9/ 9.6) 5 "Anthony Litton" <ajlitton.remove@email.com>
15.9 ( 7.4/ 8.3/ 4.5) 8 marc0 <marc0@autistici.org>
15.1 ( 7.4/ 7.7/ 3.7) 9 James E Keenan <jkeen@concentric.net>
14.5 ( 8.8/ 4.4/ 2.4) 8 Brendan Byrd/SineSwiper <SineSwiper@ResonatorSoft.org>
These posters accounted for 43.2% of the total volume.
Top 14 Posters by Volume of Original Content (min. ten posts)
=============================================================
(kb)
Posts orig Address
----- ----- -------
23 20.8 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
10 12.8 James Willmore <jwillmore@cyberia.com>
16 11.7 Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
18 11.6 abigail@abigail.nl
20 10.5 bwalton@rochester.rr.com
14 9.6 Benjamin Goldberg <ben.goldberg@hotpop.com>
16 8.6 "A. Sinan Unur" <asu1@c-o-r-n-e-l-l.edu>
11 7.5 me@home.com
10 5.8 "William Alexander Segraves" <wsegrave@mindspring.com>
12 5.6 tassilo.parseval@post.rwth-aachen.de
14 4.9 Uri Guttman <uri@stemsystems.com>
11 3.8 Bart Lateur <bart.lateur@pandora.be>
11 3.3 Matija Papec <mpapec@yahoo.com>
13 3.2 Gunnar Hjalmarsson <noreply@gunnar.cc>
These posters accounted for 30.5% of the original volume.
Top 14 Posters by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.857 ( 11.6 / 13.6) 18 abigail@abigail.nl
0.772 ( 12.8 / 16.6) 10 James Willmore <jwillmore@cyberia.com>
0.676 ( 20.8 / 30.8) 23 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
0.664 ( 7.5 / 11.3) 11 me@home.com
0.604 ( 11.7 / 19.4) 16 Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
0.596 ( 5.8 / 9.8) 10 "William Alexander Segraves" <wsegrave@mindspring.com>
0.581 ( 3.8 / 6.5) 11 Bart Lateur <bart.lateur@pandora.be>
0.575 ( 10.5 / 18.3) 20 bwalton@rochester.rr.com
0.541 ( 9.6 / 17.7) 14 Benjamin Goldberg <ben.goldberg@hotpop.com>
0.467 ( 8.6 / 18.5) 16 "A. Sinan Unur" <asu1@c-o-r-n-e-l-l.edu>
0.447 ( 4.9 / 11.0) 14 Uri Guttman <uri@stemsystems.com>
0.443 ( 3.2 / 7.3) 13 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.427 ( 5.6 / 13.1) 12 tassilo.parseval@post.rwth-aachen.de
0.337 ( 3.3 / 9.7) 11 Matija Papec <mpapec@yahoo.com>
Bottom 14 Posters by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.857 ( 11.6 / 13.6) 18 abigail@abigail.nl
0.772 ( 12.8 / 16.6) 10 James Willmore <jwillmore@cyberia.com>
0.676 ( 20.8 / 30.8) 23 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
0.664 ( 7.5 / 11.3) 11 me@home.com
0.604 ( 11.7 / 19.4) 16 Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
0.596 ( 5.8 / 9.8) 10 "William Alexander Segraves" <wsegrave@mindspring.com>
0.581 ( 3.8 / 6.5) 11 Bart Lateur <bart.lateur@pandora.be>
0.575 ( 10.5 / 18.3) 20 bwalton@rochester.rr.com
0.541 ( 9.6 / 17.7) 14 Benjamin Goldberg <ben.goldberg@hotpop.com>
0.467 ( 8.6 / 18.5) 16 "A. Sinan Unur" <asu1@c-o-r-n-e-l-l.edu>
0.447 ( 4.9 / 11.0) 14 Uri Guttman <uri@stemsystems.com>
0.443 ( 3.2 / 7.3) 13 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.427 ( 5.6 / 13.1) 12 tassilo.parseval@post.rwth-aachen.de
0.337 ( 3.3 / 9.7) 11 Matija Papec <mpapec@yahoo.com>
14 posters (6%) had at least ten posts.
Top 20 Threads by Number of Posts
=================================
Posts Subject
----- -------
24 macros in perl
19 Running CGI through browser from local hard disk
18 perlstyles
17 s there a module to acess Micorsoft Access datafiles?
13 shorten expression
13 JOIN problem ? (2nd attempt to post)
12 "use" remote modules?
12 Code to put today's date into MM-DD-YY format
11 generalizing cgi handling
10 HTML REGEX
10 Matching URls
10 Write a loop
10 Forcing Alphanumeric Text Entry
9 sinfo script, xchat, slackware
8 Help understanding MAP
7 Basic "IO::Select" problem
7 Win32-OLE where's the info?
7 regl expression
7 ERROR.. with regex!!
7 Variable definition help needed
These threads accounted for 36.3% of all articles.
Top 20 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
52.5 ( 23.6/ 27.3/ 16.6) 24 macros in perl
40.0 ( 15.6/ 23.9/ 14.3) 17 s there a module to acess Micorsoft Access datafiles?
37.7 ( 16.1/ 20.2/ 8.9) 18 perlstyles
35.1 ( 8.9/ 25.1/ 18.2) 11 generalizing cgi handling
33.9 ( 2.0/ 32.0/ 32.0) 2 Posting Guidelines for comp.lang.perl.misc ($Revision: 1.4 $)
33.8 ( 17.8/ 15.6/ 7.7) 19 Running CGI through browser from local hard disk
31.4 ( 12.7/ 17.8/ 8.7) 13 JOIN problem ? (2nd attempt to post)
25.5 ( 10.9/ 13.8/ 8.9) 12 "use" remote modules?
23.8 ( 8.5/ 14.6/ 8.6) 9 sinfo script, xchat, slackware
22.3 ( 5.9/ 15.3/ 7.8) 7 Changing module dynamically
21.0 ( 11.4/ 7.6/ 4.9) 13 shorten expression
20.4 ( 9.0/ 10.8/ 7.0) 10 HTML REGEX
20.3 ( 12.3/ 7.9/ 4.1) 12 Code to put today's date into MM-DD-YY format
17.4 ( 9.0/ 8.1/ 3.5) 10 Write a loop
16.7 ( 8.4/ 8.1/ 3.9) 10 Forcing Alphanumeric Text Entry
15.8 ( 8.3/ 6.7/ 2.9) 10 Matching URls
14.9 ( 6.9/ 8.0/ 5.5) 7 Variable definition help needed
14.2 ( 4.9/ 7.0/ 4.2) 6 File::Find is slower than using recursion!?
14.2 ( 3.8/ 10.3/ 7.0) 5 Taint Mode Newbie Help
13.9 ( 7.6/ 5.7/ 3.4) 8 Help understanding MAP
These threads accounted for 40.8% of the total volume.
Top 13 Threads by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.724 ( 18.2/ 25.1) 11 generalizing cgi handling
0.648 ( 7.0/ 10.8) 10 HTML REGEX
0.644 ( 8.9/ 13.8) 12 "use" remote modules?
0.639 ( 4.9/ 7.6) 13 shorten expression
0.607 ( 16.6/ 27.3) 24 macros in perl
0.598 ( 14.3/ 23.9) 17 s there a module to acess Micorsoft Access datafiles?
0.513 ( 4.1/ 7.9) 12 Code to put today's date into MM-DD-YY format
0.494 ( 7.7/ 15.6) 19 Running CGI through browser from local hard disk
0.488 ( 8.7/ 17.8) 13 JOIN problem ? (2nd attempt to post)
0.487 ( 3.9/ 8.1) 10 Forcing Alphanumeric Text Entry
0.439 ( 8.9/ 20.2) 18 perlstyles
0.436 ( 3.5/ 8.1) 10 Write a loop
0.428 ( 2.9/ 6.7) 10 Matching URls
Bottom 13 Threads by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.724 ( 18.2 / 25.1) 11 generalizing cgi handling
0.648 ( 7.0 / 10.8) 10 HTML REGEX
0.644 ( 8.9 / 13.8) 12 "use" remote modules?
0.639 ( 4.9 / 7.6) 13 shorten expression
0.607 ( 16.6 / 27.3) 24 macros in perl
0.598 ( 14.3 / 23.9) 17 s there a module to acess Micorsoft Access datafiles?
0.513 ( 4.1 / 7.9) 12 Code to put today's date into MM-DD-YY format
0.494 ( 7.7 / 15.6) 19 Running CGI through browser from local hard disk
0.488 ( 8.7 / 17.8) 13 JOIN problem ? (2nd attempt to post)
0.487 ( 3.9 / 8.1) 10 Forcing Alphanumeric Text Entry
0.439 ( 8.9 / 20.2) 18 perlstyles
0.436 ( 3.5 / 8.1) 10 Write a loop
0.428 ( 2.9 / 6.7) 10 Matching URls
13 threads (8%) had at least ten posts.
Top 17 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
8 comp.unix.shell
4 comp.lang.javascript
2 de.comp.lang.perl.misc
2 comp.lang.java.help
2 it.comp.lang.javascript
2 fj.lang.javascript
2 comp.infosystems.www.authoring.html
2 de.comp.lang.perl.cgi
2 comp.lang.perl
2 comp.lang.java.javascript
2 comp.lang.perl.modules
1 comp.lang.java.misc
1 alt.perl
1 comp.lang.c
1 comp.lang.c++
1 comp.lang.java
1 alt.comp.perlcgi.freelance
Top 17 Crossposters
===================
Articles Address
-------- -------
6 bwalton@rochester.rr.com
6 "Jim Rendant" <jrendant@comcast.net>
4 contest@openecg.net
2 Eric Schwartz <emschwar@pobox.com>
2 Jim <jimnl69@hotmail.com>
2 "Anthony Litton" <ajlitton.remove@email.com>
2 PhantaCyConcepts <phantasyconcepts@netscape.net>
2 "Miguel De Anda" <_nospam_sodamnamd@hotmail.com>
2 secheese <secheese@hotmail.com>
1 James E Keenan <jkeen@concentric.net>
1 kaeli <infinite.possibilities@NOSPAMatt.net>
1 Carlton Brown <carltonbrown@hotmail.com>
1 Ben <ben_altman@deadspam.com>
1 Juergen Heck <btd.heck@t-online.de>
1 "David H. Adler" <dha@panix.com>
1 Uri Guttman <uri@stemsystems.com>
1 rakesh sharma <sharma__r@hotmail.com>
------------------------------
Date: Mon, 21 Jul 2003 12:51:34 +0100
From: Ahmad J Reeves <ahmad@dcs.qmul.ac.uk>
Subject: stripping characters from xml files
Message-Id: <bfgk35$3h2$1@beta.qmul.ac.uk>
Hi,
I need a perl script to strip some characters from an xml file, for example;
XML snippet
<LOG>
<DIRECT>
<COMMUNICATION_TYPE> PAGETELL </COMMUNICATION_TYPE>
<Invoc_serial> 27 </Invoc_serial>
<Serial> 3088791 </Serial>
<USAGE> TELL </USAGE>
<MESSAGE_TYPE> EMOTE </MESSAGE_TYPE>
<CHARACTER_ID> 28349 </CHARACTER_ID>
<CHARACTER_STATUS> 6 </CHARACTER_STATUS>
<LOCATION_ID> 5720 </LOCATION_ID>
<TARGET_CHARACTER_ID> 44639 </TARGET_CHARACTER_ID>
<TARGET_CHARACTER_STATUS> 3 </TARGET_CHARACTER_STATUS>
<TARGET_CHARACTER_LOCATION_ID> 45040 </TARGET_CHARACTER_LOCATION_ID>
<MESSAGE> %M%lsays%m%l "%y%LAnyone know of any tri-band
phones.%m%l" </MESSAGE>
<TIME> 'Mon, 26 Nov 2001 15:42:45 +0000' </TIME>
</DIRECT>
etc etc
</LOG>
I would need to strip the %M%, %m%l and %y% and various others from just
message tag, to give me:-
<MESSAGE> says "Anyone know of any tri-band phones." </MESSAGE>
Do I have to do it one by one or can I put in a list of all of them and
do it in one go? Each XML file is 20 Mb.
Thanks
Ahmad
------------------------------
Date: Mon, 21 Jul 2003 09:18:53 +0100
From: "Anthony Litton" <me@privacy.net>
Subject: Re: Variable definition help needed
Message-Id: <bfg7lv$e5orv$1@ID-168665.news.uni-berlin.de>
Bob Walton wrote:
|| Anthony Litton wrote:
||
||| OK, this is in reference to my CgiComments problem, which asked for
||| help on on the 16th. The following lines are at the beginning of
||| the script:
|||
||| my($cgiquery) = new CGI;
||| my($blog_id) = $cgiquery->param('blog_id');
|||
||| 'blog_id' is an eighteen digit number, and for some reason I'm
||| having problems creating correctly named files. The final digit is
||| always 0, mysteriously. Would it be possible for me to define
||| $blog_id as being only the first seventeen, or sixteen digits of
||| 'blog_id'?
|| ...
||
||
|| The chances are pretty good that somewhere along the way, you did
|| something to $blog_id which converted it to a number and back.
|| Something like incrementing it, adding a constant to it, or applying
|| any other operator that forces a numeric context. If you don't do
|| any of that, it will stay a string, and the last digit would not
|| change. This scenario is likely because many platforms Perl runs on
|| have about 17 digits of precision in their floating point values --
|| and Perl may use such values when it stores scalars in numeric
|| context.
||
||
|| --
|| Bob Walton
Actually, my question was answered in the other thread, in
comp.lang.javascript. I should have come back here sooner. The solution was
to ensure that blog_id was treated as a string from the start, so:
<a href="javascript:cgicomments(<$BlogItemNumber$>)">
becomes
<a href="javascript:cgicomments('<$BlogItemNumber$>')">
And that has solved the problem.
Thanks very much for replying,
Anthony.
------------------------------
Date: Sat, 19 Jul 2003 01:59:56 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re:
Message-Id: <3F18A600.3040306@rochester.rr.com>
Ron wrote:
> Tried this code get a server 500 error.
>
> Anyone know what's wrong with it?
>
> if $DayName eq "Select a Day" or $RouteName eq "Select A Route") {
(---^
> dienice("Please use the back button on your browser to fill out the Day
> & Route fields.");
> }
...
> Ron
...
--
Bob Walton
------------------------------
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 5249
***************************************
