[13268] in Perl-Users-Digest
Perl-Users Digest, Issue: 678 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 30 10:07:45 1999
Date: Mon, 30 Aug 1999 07:05:09 -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, 30 Aug 1999 Volume: 9 Number: 678
Today's topics:
Dos Perl and System command <george.pieri@mci.com>
Re: Dos Perl and System command <gellyfish@gellyfish.com>
Re: File listing <rolf.raven@quantis.nl>
Re: File listing (Abigail)
Re: File listing (Abigail)
Re: identifying an empty line (Abigail)
in very need of help with MySQL module (Gabriele Gallacci)
Re: in very need of help with MySQL module <rolf.raven@quantis.nl>
Re: in very need of help with MySQL module jkloos@bischof.mz.rp.schule.de
is the mtime time between date1 and date2? <matthew_j_forder@notes.seagate.com>
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Oraperl problems (Tung Kwong Yeong)
Re: Perl Y2K Bugs on the Internet <gellyfish@gellyfish.com>
Re: Perl Y2K Bugs on the Internet <theglauber@my-deja.com>
Re: Random number <hove@ido.phys.ntnu.no>
Re: Random number (Abigail)
Re: Ready to get to work but... (Abigail)
SHTML and PERL <delete.the.nospam.kayec@gov.ns.ca>
Re: SHTML and PERL (Abigail)
Re: Sockets and Threads <musicmaker@armt.yi.org>
Re: stack stuffing (Gary O'Keefe)
Re: stack stuffing (Abigail)
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: test (Abigail)
Testing files on cd-rom? <thomas@bibsyst.no>
Re: Testing files on cd-rom? (Abigail)
Re: Testing files on cd-rom? <thomas@bibsyst.no>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 30 Aug 1999 12:36:03 GMT
From: "George M. Pieri" <george.pieri@mci.com>
Subject: Dos Perl and System command
Message-Id: <TUuy3.354$jA1.64005@pm02news>
This is a multi-part message in MIME format.
------=_NextPart_000_003D_01BEF2C2.2BBBAE90
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Has anyone successfully used the system command or back ticks
to execute a command from a DOS perl script ?
system "dir " ; or=20
`dir`
produces no results.
P.S. I have to use the dos perl because I created a utility that needs
to run from a bootable floppy but it appears NOT to execute =
commands.
Thanks in advance!
------=_NextPart_000_003D_01BEF2C2.2BBBAE90
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV> </DIV>
<DIV><FONT face=3D"Times New Roman">Has anyone successfully used the =
system=20
command or back ticks</FONT></DIV>
<DIV><FONT face=3D"Times New Roman">to execute a command from a DOS perl =
script=20
?</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3D"Times New Roman">system "dir " ; </FONT><FONT=20
face=3D"Times New Roman">or </FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3D"Times New Roman">`dir`</FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV><FONT face=3D"Times New Roman">produces no results.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3D"Times New Roman">P.S. I have to use the dos perl =
because I=20
created a utility that needs</FONT></DIV>
<DIV><FONT face=3D"Times New Roman"> =
to run=20
from a bootable floppy but it appears NOT to execute =
commands.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3D"Times New Roman">Thanks in=20
advance!<BR></FONT></DIV></BODY></HTML>
------=_NextPart_000_003D_01BEF2C2.2BBBAE90--
------------------------------
Date: 30 Aug 1999 14:11:38 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Dos Perl and System command
Message-Id: <7qe3eq$4sg$1@gellyfish.btinternet.com>
On Mon, 30 Aug 1999 12:36:03 GMT George M. Pieri wrote:
>
> Has anyone successfully used the system command or back ticks
> to execute a command from a DOS perl script ?
>
> system "dir " ; or
>
> `dir`
>
>
> produces no results.
>
> P.S. I have to use the dos perl because I created a utility that needs
> to run from a bootable floppy but it appears NOT to execute commands.
>
It would have been helpful if you had said *what* DOS perl you were running
but I think you will find that :
@files =qx{command /c dir };
Will do the trick (Something weird has happened to my backtick key just now).
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Mon, 30 Aug 1999 13:12:17 +0200
From: Rolf Raven <rolf.raven@quantis.nl>
Subject: Re: File listing
Message-Id: <37CA6711.36DBCFB9@quantis.nl>
> I'd like to get all files in a directory matching a specific criteria, ex
> "*.txt", and maybe load them into an array, so that I can for example have a
> drop down combo with all those files in it. How do I do?
In the Camel book, page 202:
readdir
-------
opendir THISDIR, "." or die "$!";
@allfiles = readdir THISDIR;
closedir THISDIR;
print "@allfiles\n";
Hope this helps,
floR
------------------------------
Date: 30 Aug 1999 08:10:34 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: File listing
Message-Id: <slrn7sl0rr.9if.abigail@alexandra.delanet.com>
Magnus Hult (hult.holmstrom@swipnet.se) wrote on MMCXC September MCMXCIII
in <URL:news:kzsy3.4142$fi.7940@nntpserver.swip.net>:
<>
<> I'd like to get all files in a directory matching a specific criteria, ex
<> "*.txt", and maybe load them into an array, so that I can for example have a
<> drop down combo with all those files in it. How do I do?
Well, there's no such thing as drop down combos in Perl, but to
get files into an array, I would use glob.
Details are found in the manual.
Abigail
--
perl -wle '$, = " "; print grep {(1 x $_) !~ /^(11+)\1+$/} 2 .. shift'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 30 Aug 1999 08:11:39 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: File listing
Message-Id: <slrn7sl0tr.9if.abigail@alexandra.delanet.com>
Rolf Raven (rolf.raven@quantis.nl) wrote on MMCXC September MCMXCIII in
<URL:news:37CA6711.36DBCFB9@quantis.nl>:
|| > I'd like to get all files in a directory matching a specific criteria, ex
|| > "*.txt", and maybe load them into an array, so that I can for example have a
|| > drop down combo with all those files in it. How do I do?
||
|| In the Camel book, page 202:
||
|| readdir
|| -------
||
|| opendir THISDIR, "." or die "$!";
|| @allfiles = readdir THISDIR;
|| closedir THISDIR;
|| print "@allfiles\n";
And that selects the files matching a specific criteria exactly how?
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");
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 30 Aug 1999 08:17:34 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: identifying an empty line
Message-Id: <slrn7sl18v.9if.abigail@alexandra.delanet.com>
Matthew Bafford (*@dragons.duesouth.net) wrote on MMCXC September
MCMXCIII in <URL:news:slrn7skiok.n5.*@dragons.duesouth.net>:
"" Once upon a time (Sun, 29 Aug 1999 18:30:48 -0700), Makarand Kulkarni
"" <makkulka@cisco.com> was attempting to figure out Ilya's new Perl regex
"" features, and accidently sent the following to comp.lang.perl.misc:
"" : [ Jimtaylor5 wrote:
"" :
"" : > Can anyone tell me how I could write code to identify an empty line (a line
"" : > with no text on it).
"" :
"" : The regexp that matches an empty line is // or /^$/
""
"" // has a documented behavior that is NOT matching an empty string.
""
"" And, Jimtaylor5 was not exactly clear, but maybe one of these is what he
"" wants:
""
"" !length($a)
""
"" !($a =~ /\S/)
I would write that as $a !~ /\S/;
"" $a =~ /^\s*$/
""
"" $a =~ /^$/
Note that this will match a string consisting of a single newline.
"" !(() = split /./, $a)
split /fubblefur/ would work as well.
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 30 Aug 1999 10:04:13 GMT
From: info@gallacci.com (Gabriele Gallacci)
Subject: in very need of help with MySQL module
Message-Id: <8E327B056mailbygallaccicom@news.tin.it>
Hello,
really I'm getting mad trying to run mysql driver with perl.
I've Perl already installed with Linux RedHat 6, and I
installed also all modules from CPAN archivie, in rpm format.
But MySQL interface (via Perl) doesnot run: compiler doesn't
find the drivers.
I downloaded it from mysql.com and installed them, but no way:
everytime something about DBI is missing.
What is the correct procedure to install Perl with full DBI
management, including mysql drivers?
Where can I find the necessary files?
thanks to evryone hwo help!
--
Gabriele
http://www.gallacci.com
email: info@gallacci.com
------------------------------
Date: Mon, 30 Aug 1999 13:20:09 +0200
From: Rolf Raven <rolf.raven@quantis.nl>
Subject: Re: in very need of help with MySQL module
Message-Id: <37CA68E9.9AADCE13@quantis.nl>
> What is the correct procedure to install Perl with full DBI
> management, including mysql drivers?
> Where can I find the necessary files?
These are the files I used to get it going:
MySQL-3_22_21-1_i386.rpm
MySQL-client-3_22_21-1_i386.rpm
MySQL-devel-3_22_21-1_i386.rpm
from the MySQL site
Data-Dumper-2_10.tar.gz
Data-ShowTable-3_3.tar.gz
DBI-1_06.tar.gz
Msql-Mysql-modules-1_2017.tar.gz
from CPAN
Hope this helps,
floR
------------------------------
Date: 30 Aug 1999 11:51:18 GMT
From: jkloos@bischof.mz.rp.schule.de
Subject: Re: in very need of help with MySQL module
Message-Id: <7qdr7m$vjp$2@news.rhein-zeitung.DE>
Do you have the DBI module ? If no, get it from CPAN.
------------------------------
Date: Mon, 30 Aug 1999 10:42:26 GMT
From: Matthew Forder <matthew_j_forder@notes.seagate.com>
Subject: is the mtime time between date1 and date2?
Message-Id: <7qdn6h$f4c$1@nnrp1.deja.com>
I'm trying to write a script to do some archiving on my system. What I
need is a way in perl to say "Does the mtime for this file fall between
time x and time y?".
Does anybody know how to do this? I've tried mucking around with
Date::Manip and File::stat, but at the moment I can't figure out how to
do what I want to do!!!
Thanks in advance,
Matthew Forder
Unix System Administrator
Seagate Technology International
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 30 Aug 1999 13:27:33 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <7qe0s5$a81$2@info2.uah.edu>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 23 Aug 1999 13:21:00 GMT and ending at
30 Aug 1999 06:42:55 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) 1999 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Totals
======
Posters: 257 (47.7% of all posters)
Articles: 382 (25.6% of all articles)
Volume generated: 622.6 kb (24.8% of total volume)
- headers: 289.3 kb (5,962 lines)
- bodies: 330.0 kb (11,093 lines)
- original: 235.7 kb (8,355 lines)
- signatures: 2.9 kb (73 lines)
Original Content Rating: 0.714
Averages
========
Posts per poster: 1.5
median: 1 post
mode: 1 post - 182 posters
s: 1.1 posts
Message size: 1668.9 bytes
- header: 775.6 bytes (15.6 lines)
- body: 884.6 bytes (29.0 lines)
- original: 631.8 bytes (21.9 lines)
- signature: 7.7 bytes (0.2 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
9 13.7 ( 7.3/ 6.3/ 2.1) "Phil Schaechter" <phil@proteacher.com>
6 8.3 ( 5.0/ 3.3/ 1.7) news
6 8.6 ( 3.2/ 5.5/ 2.8) Jenda@Krynicky.cz (Jenda Krynicky)
5 9.3 ( 4.3/ 5.0/ 2.6) "Peter Wilkinson" <peterw@innate.co.uk>
5 7.0 ( 4.5/ 2.5/ 2.5) Joe Schmoe <dont_ever.spam_pvoris@earthlink.net>
4 11.1 ( 3.1/ 8.0/ 6.4) siafhir2@my-deja.com
4 5.7 ( 3.0/ 2.7/ 1.0) "David D. Huff Jr." <huffd@nls.net>
4 7.8 ( 3.1/ 4.7/ 2.4) "Blair Heuer" <ab@cd.com>
4 7.5 ( 3.4/ 4.2/ 3.1) "Robert Brody" <rabrody@earthlink.net>
4 9.6 ( 3.2/ 6.4/ 1.6) "Richard" <richard@madchicken.com>
These posters accounted for 3.4% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
13.7 ( 7.3/ 6.3/ 2.1) 9 "Phil Schaechter" <phil@proteacher.com>
11.1 ( 3.1/ 8.0/ 6.4) 4 siafhir2@my-deja.com
9.6 ( 3.2/ 6.4/ 1.6) 4 "Richard" <richard@madchicken.com>
9.3 ( 4.3/ 5.0/ 2.6) 5 "Peter Wilkinson" <peterw@innate.co.uk>
8.7 ( 1.5/ 7.2/ 3.6) 2 sandals@my-deja.com
8.6 ( 3.2/ 5.5/ 2.8) 6 Jenda@Krynicky.cz (Jenda Krynicky)
8.3 ( 1.4/ 6.9/ 4.2) 2 Govind Shridhare <new_conclusions@bigfoot.com>
8.3 ( 5.0/ 3.3/ 1.7) 6 news
8.2 ( 2.5/ 5.7/ 2.5) 3 Malcolm Garbutt <mgarbutt@ozland.net.au>
7.8 ( 3.1/ 4.7/ 2.4) 4 "Blair Heuer" <ab@cd.com>
These posters accounted for 3.7% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 4.3 / 4.3) 3 "Danny Wong" <dannywong@hknet.com>
1.000 ( 1.4 / 1.4) 3 niki@nirvanet.net
0.985 ( 2.5 / 2.5) 5 Joe Schmoe <dont_ever.spam_pvoris@earthlink.net>
0.906 ( 1.4 / 1.6) 3 2002@antispam.calva.net (Christophe Oddo)
0.831 ( 2.8 / 3.4) 3 Shawn Powell <smp9@*home.com>
0.823 ( 0.7 / 0.9) 3 "michael hagberg" <mzh@cntw.com>
0.807 ( 6.4 / 8.0) 4 siafhir2@my-deja.com
0.789 ( 2.0 / 2.6) 3 "Tom Lichti" <tom_lichti@interactivemedia.com>
0.774 ( 3.0 / 3.8) 3 a@b.com (pgmr)
0.751 ( 3.1 / 4.2) 4 "Robert Brody" <rabrody@earthlink.net>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.516 ( 1.7 / 3.3) 6 news
0.504 ( 2.4 / 4.7) 4 "Blair Heuer" <ab@cd.com>
0.502 ( 2.8 / 5.5) 6 Jenda@Krynicky.cz (Jenda Krynicky)
0.500 ( 1.1 / 2.3) 3 "Dallas Jones" <dallas.jones@tech4learning.com>
0.448 ( 2.5 / 5.7) 3 Malcolm Garbutt <mgarbutt@ozland.net.au>
0.426 ( 1.2 / 2.9) 3 Edward Sumerfield <esumerfd@poboxes.com>
0.423 ( 1.2 / 2.9) 3 Andy Molnar <anmolnar@videon.wave.ca>
0.382 ( 1.0 / 2.7) 4 "David D. Huff Jr." <huffd@nls.net>
0.328 ( 2.1 / 6.3) 9 "Phil Schaechter" <phil@proteacher.com>
0.256 ( 1.6 / 6.4) 4 "Richard" <richard@madchicken.com>
29 posters (11%) had at least three posts.
Top 10 Crossposters
===================
Articles Address
-------- -------
6 conserv3@infi.net
4 paai@kub.nl
4 rj@NOT4MAIL.xs4all.nl (Robert Jan)
4 Eric Veldhuyzen <eric@terra.nu>
3 vladis@slangsoft.com
3 "Luis E. Rodriguez" <luisr@juanadiaz.org>
3 Richard Padley <richardp@macpress.demon.co.uk>
3 "Tom Lichti" <tom_lichti@interactivemedia.com>
2 polarbear <polarbear_8@my-deja.com>
2 Fred Fahnert <work@netfinances.com>
------------------------------
Date: 30 Aug 1999 13:11:58 GMT
From: tky@ocean.asianconnect.com (Tung Kwong Yeong)
Subject: Oraperl problems
Message-Id: <7qdvuu$28s4$1@sheraton.asianconnect.com>
Hi,
Recently we upgraded our AIX OS from 3.2.5 to 4.2.1, Oracle from
7.0.16 to 7.3.4, and Netscape Enterpise server from 2.0 to 3.6.2.
There is one Oraperl script which runs from the CGI directory. When
it is activated by the web server, it fails. Checking on the Oracle
trace logs says that it is some form of handshaking error. However,
if I run the script through the Unix command line, it works.
Hence, I suspect I need to recompile my Oraperl. However, I
encounter the following problems when I compile my per 4.036 and
Oraperl ver 2.4p.
The error message is as follows:
h:w$ /usr/local/bin/gcc -g -o oraperl
/db01/tmp/perl-4.036/uperl.o oracle.o o
rafns.o getcursor.o colons.o debug.o strtoul.o usersub.o dbug/dbug.o
-lm `cat /opt/ac/pkgs/oracle_base/app/oracle/product/7.3.4/rdbms/lib/sy
sliblist` /opt/ac/pkgs/oracle/lib/libocic.a /opt/ac/pkgs/oracle/lib/osntab.o
/opt/ac/pkgs/oracle_base/app/oracle/product/7.3.4/lib/libsqlnet.a
/opt/ac/pkgs/or acle/lib/libora.a /opt/ac/pkgs/oracle/lib/libpls.a
-nostdlib -L/opt/ac/pkgs/oracle_base/app/oracle/product/7.3.4/lib
-lsqlnet -lnlsrtl -lcv6 -lcore `. /db01 /tmp/perl-4.036/config.sh; echo $libs`
ld: 0711-327 WARNING: Entry point not found: __start
ld: 0711-319 WARNING: Exported symbol not defined:
__dbsubc
ld: 0711-319 WARNING: Exported symbol not defined:
__dbsubn
ld: 0711-319 WARNING: Exported symbol not defined:
__dbargs
ld: 0711-319 WARNING: Exported symbol not defined:
__dbsubg
ld: 0711-244 ERROR: No csects or exported symbols have
been saved.
collect2: ld returned 8 exit status
make: The error code from the last command is 1.
I have a few questions which I hope the Oraperl gurus can help me:
1. Do I need to recompile my Oraperl when I upgraded the OS,Oracle
and Netscape web server?
2. I cannot find libocic.a, osntab.o, libora.a, libpls.a in the
7.3.4 lib directory. I am compiling my programs using the old Oracle
lib directory. Will it cause problems?
3. What did I do wrong in my compilation?
Thanks in advance.
Kwong-Yeong Tung
Singapore Network Services
------------------------------
Date: 30 Aug 1999 13:57:06 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Perl Y2K Bugs on the Internet
Message-Id: <7qe2ji$4sa$1@gellyfish.btinternet.com>
[comp.lang.c added back to groups but followups set to comp.lang.perl.misc]
In comp.lang.perl.misc Martin Ambuhl <mambuhl@earthlink.net> wrote:
>
>
> Larry Rosler wrote:
>>
>> In article <7q4iq8$fk2$1@nnrp1.deja.com> on Thu, 26 Aug 1999 23:32:25
>> GMT, finsol@ts.co.nz <finsol@ts.co.nz> says...
>>
>> <SNIP of the same rant we have been hearing all year. What will this
>> person do for a living once we have made it past January 1 unscathed?>
>>
>> The following was posted to Fun With Perl, but surely should be seen by
>> the members of this newsgroup, who are explicitly maligned by her in an
>> international general-news medium.
>
> I don't know which newsgroup you think "this" is, but I fail to see why
> comp.lang.c or should be interested. This continued thread crossposted
> to unrelated newsgroups is antisocial usenet abuse. Please fix your
> newgroups and followups headers.
>
I think that you have missed the point. The post that started this thread
was crossposted to a a number of programming newsgroups, in that post
assertions were made about various languages including C, Perl, Java and
Javascript as to their 'Y2K compliance'. In the past the author of this
original article has directed her attention toward Perl as perhaps an
easy target, but in this case she has crossposted and broadened the front
of her attack, in the pages referenced in her post she has specifically
cited (admittedly erroneously in certain cases) what she describes as 'C/C++'
programs - this should make it of interest to comp.lang.c.
You seem to be offended that the article quoted by Larry referred to Perl
without making any reference to C - however the tenor of Larry's post was
more directed at questioning the competence of the original poster to be
making assertions about any of the languages she originally mentioned and
I think that *should* be of interest to all of the groups that were
originally crossposted. Of course you might disagree with me and I might
be wrong about Larry's intentions - but I'm sure he will tell me if I am.
Anyhow please calm down: your accusations of "antisocial usenet abuse"
strike me as a slight over-reaction.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Mon, 30 Aug 1999 13:43:14 GMT
From: The Glauber <theglauber@my-deja.com>
Subject: Re: Perl Y2K Bugs on the Internet
Message-Id: <7qe1ph$m95$1@nnrp1.deja.com>
In article <37C7895C.59B2@ix.netcom.com>,
Lee Fesperman <firstsql@ix.netcom.com> wrote:
[...]
> This date deficiency is in C also (tm_year). Do C programmers have
the same parochial
> view of it as Perl programmers?
Quick and unimportant point: tm_year is the "year - 1900". As such, it
has no Y2K issues: the year 2000 will show up as the number 100. In
other words, you don't concatenate it with "19" to get the year, you
take it as a number and add 1900.
--
Glauber Ribeiro
theglauber@my-deja.com
"Opinions stated are my own and not representative of Experian"
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 30 Aug 1999 15:14:21 +0200
From: Joakim Hove <hove@ido.phys.ntnu.no>
Subject: Re: Random number
Message-Id: <k0nwvude7gy.fsf@ido.phys.ntnu.no>
glepa@yahoo.com (Glenn Paulsen) writes:
> Can anyone write a script that generate a random number in the html i
> have
> listet below, the random number should be inserted where there is a 1
> now.
Well, random numbers are generated in perl with the rand function. Try
perldoc -f rand
which will give all the information you need.
The following "program" should be a start on the Perl part of the
problem, but I know nothing of server-side includes.
#!/path/to/perl -w
$url = "http://leader.linkexchange.com/-/X775150/";
#
# The URL we want to give a random number. At the moment
# we have used a lone "-" where the random number should
# go in.
#
$maxrandom = 100000;
#
# The maximal random number;
#
$random_number = int(rand $maxrandom);
#
# rand $maxrandom returns a random number in the range
# [0..$maxrandom). This we convert to integer with the
# int function. Can not really se any use for floating
# numbers here!
#
$url =~ s#\/\-\/#\/$random_number\/#;
#
# We substitue the "-" in the URL with the new random number.
#
HTH - Joakim
--
=== Joakim Hove www.phys.ntnu.no/~hove/ ======================
# Institutt for fysikk (735) 93637 / 352 GF | Skøyensgate 10D #
# N - 7034 Trondheim hove@phys.ntnu.no | N - 7030 Trondheim #
=====================================================================
------------------------------
Date: 30 Aug 1999 08:23:25 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Random number
Message-Id: <slrn7sl1ju.9if.abigail@alexandra.delanet.com>
Glenn Paulsen (glepa@yahoo.com) wrote on MMCXC September MCMXCIII in
<URL:news:37ca5002.859340746@news.telia.no>:
^^ Hi, i need some help here, im a novice in perl programming and i realy
^^ need this
^^ fast.
That's why you posted to Usenet. You already posted your question
a few days ago, and the speedy reply to got then made you think
Usenet is an excellen medium to get questions answered fast.
You also thought that inserting random newlines would attract
more people to your question, just like bees are attracted to
nectar.
^^ Can anyone write a script that generate a random number in the html i
^^ have
^^ listet below, the random number should be inserted where there is a 1
^^ now.
Oh, a gimme, gimme, gimme post. We love them here. We also love
those banner ads.
^^ im going to use this as a server side include.
Eeeck. A web wussie! Go away, go away!
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s}
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 30 Aug 1999 08:09:13 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Ready to get to work but...
Message-Id: <slrn7sl0pa.9if.abigail@alexandra.delanet.com>
Wyzelli (wyzelli@yahoo.com) wrote on MMCXC September MCMXCIII in
<URL:news:ziry3.7$V75.609@vic.nntp.telstra.net>:
&& Abigail <abigail@delanet.com> wrote in message
&& news:slrn7skg3c.23d.abigail@alexandra.delanet.com...
&& >
&& > Except for whining about my behaviour (which can be easily solved by
&& > reading the manual of your newsreader and learn how to make a killfile),
&& > did you contribute in any way to the topic of the original question?
&& >
&&
&& No...
&&
&& Did you?
I wasn't the person starting whining, now was I?
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s}
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Mon, 30 Aug 1999 11:53:14 GMT
From: "kayec" <delete.the.nospam.kayec@gov.ns.ca>
Subject: SHTML and PERL
Message-Id: <Kguy3.11$O15.277@sapphire.mtt.net>
To make my site easily manageable i use server side includes to setup the
head and foot of each page. I decided to make a little bulletin board with
PERL so user can post messages. Now usually you can just PRINT all the HTML
and it will be sent out the browser but how can i dynamically create a page
AND use server side includes?
I think i could write a page and than redirect the user to it, but if you
get a lot of hits the page may get overwritten before the user gets there?
I'm hoping i can just change my header info that i pass to the browser:
################################
# Start an HTML page
sub startHTML {
print "HTTP/1.0 200 Ok\n";
print "Content-type: text/html\n\n";
print "<!--#include file=\"head.inc\"-->\n<td><h2>User
Discussion</h2>\n<font size=+1> SNIP....
....
}
------------------------------
Date: 30 Aug 1999 08:26:25 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: SHTML and PERL
Message-Id: <slrn7sl1ph.9if.abigail@alexandra.delanet.com>
kayec (delete.the.nospam.kayec@gov.ns.ca) wrote on MMCXC September
MCMXCIII in <URL:news:Kguy3.11$O15.277@sapphire.mtt.net>:
{} To make my site easily manageable i use server side includes to setup the
{} head and foot of each page. I decided to make a little bulletin board with
{} PERL so user can post messages. Now usually you can just PRINT all the HTML
{} and it will be sent out the browser but how can i dynamically create a page
{} AND use server side includes?
You read the documentation of your server, which will probably tell
you that it is a silly idea. But whatever your servers documentation
says, that has nothing to do with Perl. (It's Perl, not PERL).
{} I think i could write a page and than redirect the user to it, but if you
{} get a lot of hits the page may get overwritten before the user gets there?
Then make sure you don't get a lot of hits!
{} I'm hoping i can just change my header info that i pass to the browser:
Aure you can change that....
Abigail
--
perl -we '$_ = q ;4a75737420616e6f74686572205065726c204861636b65720as;;
for (s;s;s;s;s;s;s;s;s;s;s;s)
{s;(..)s?;qq qprint chr 0x$1 and \161 ssq;excess;}'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Mon, 30 Aug 1999 07:11:43 -0400
From: "Alex R.M. Turner" <musicmaker@armt.yi.org>
To: Joe Kline <jkline@one.net>
Subject: Re: Sockets and Threads
Message-Id: <Pine.LNX.4.10.9908300707560.14270-100000@fantasy.armt.yi.org>
> >
> > Hi,
> >
> > I am trying to build a TCP based server in Perl. I have finaly got the
> > thing to use non-blocking sockets, but I need a way to control many
> > sockets simultaneously. I seem to have two solutions before me: use
> > threads, or find a way to make read() or recv() non-blocking (which they
> > are seemingly at the moment). I had no luck at the second, and the first
> > _seemed_ easy enough. So.. I put 'use Thread;' in my programme, and it
> > tells me I don't have the threads library. I went to perl.com and had a
>
> If you read 'perldoc perlipc' you should have caught the bit about
> forking. In this way you can handle many sockets simultaneously.
> Threading is still experimental, at least until 5.6 comes out.
>
Forking is all very well, but from what I've read, having each of the
forked processes communicate with the parent, i.e. use the same variable
set is a nightmare. Is there an easy way to have child processes use
variable sets from the parent? If so, how does one do it. Most of the
stuff I've seen looks pretty gruesome, and I would prefer something beta
like threads with which I've worked in Java at least.
I also discovered the select() statement last night, which looks like it
might help me build a sensible polling loop.
Alex
------------------------------
Date: Mon, 30 Aug 1999 11:03:59 GMT
From: gary@onegoodidea.com (Gary O'Keefe)
Subject: Re: stack stuffing
Message-Id: <37ca6367.9592272@news.hydro.co.uk>
A keyboard was whacked upside Shane Tramel's head and out came:
>I am looking for information on writing programs for buffer overflow in
>perl. In other words i would like to write my own programs and just need
>info on where to begin such a task... thank you
Well, as your usenet client appears to be on win98, you could go for
ActiveState's ActivePerl distribution for win32. It comes with a lump
of docs, tutorials, and reference texts and installs and runs with no
fuss whatsoever (at least it installed with no fuss for me ;). The
HTMLised docs are very handy.
Of course people do have good reason for saying that UN*X is perl's
IDE...
--
Gary O'Keefe
gary@onegoodidea.com
You know the score - my current employer has nothing to do with what I post
------------------------------
Date: 30 Aug 1999 08:29:17 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: stack stuffing
Message-Id: <slrn7sl1uu.9if.abigail@alexandra.delanet.com>
Shane Tramel (bstrap@icsi.net) wrote on MMCXC September MCMXCIII in
<URL:news:37CA3E9D.F4B88177@icsi.net>:
'' I am looking for information on writing programs for buffer overflow in
'' perl.
Perl does its utter best to avoid you from overflowing any buffers,
by extending them as necessary. You would have to do a lot of work
to overflow buffers.
Do you really think that's a good topic for your first programs?
'' In other words i would like to write my own programs and just need
'' info on where to begin such a task... thank you
I suggest starting with reading the manual.
Abigail
--
sub f{sprintf'%c%s',$_[0],$_[1]}print f(74,f(117,f(115,f(116,f(32,f(97,
f(110,f(111,f(116,f(104,f(0x65,f(114,f(32,f(80,f(101,f(114,f(0x6c,f(32,
f(0x48,f(97,f(99,f(107,f(101,f(114,f(10,q ff)))))))))))))))))))))))))
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 30 Aug 1999 13:27:33 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <7qe0s5$a81$1@info2.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 23 Aug 1999 13:21:00 GMT and ending at
30 Aug 1999 06:42:55 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) 1999 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
Totals
======
Posters: 539
Articles: 1490 (546 with cutlined signatures)
Threads: 454
Volume generated: 2513.6 kb
- headers: 1145.4 kb (23,519 lines)
- bodies: 1279.2 kb (40,852 lines)
- original: 861.2 kb (29,532 lines)
- signatures: 87.6 kb (1,938 lines)
Original Content Rating: 0.673
Averages
========
Posts per poster: 2.8
median: 1 post
mode: 1 post - 321 posters
s: 6.3 posts
Posts per thread: 3.3
median: 2.0 posts
mode: 2 posts - 128 threads
s: 4.3 posts
Message size: 1727.5 bytes
- header: 787.2 bytes (15.8 lines)
- body: 879.1 bytes (27.4 lines)
- original: 591.9 bytes (19.8 lines)
- signature: 60.2 bytes (1.3 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
81 144.7 ( 65.1/ 70.1/ 38.8) David Cassell <cassell@mail.cor.epa.gov>
64 137.6 ( 72.3/ 37.4/ 35.1) abigail@delanet.com
61 107.0 ( 37.4/ 62.6/ 35.2) lr@hpl.hp.com (Larry Rosler)
49 83.0 ( 37.0/ 37.9/ 20.2) Jonathan Stowe <gellyfish@gellyfish.com>
32 55.9 ( 25.4/ 29.3/ 15.2) elephant@squirrelgroup.com (elephant)
29 55.2 ( 24.1/ 25.0/ 17.1) mgjv@comdyn.com.au (Martien Verbruggen)
25 38.3 ( 17.6/ 20.7/ 13.9) Jon Peterson <jpeterson@office.colt.net>
25 35.9 ( 20.1/ 15.8/ 11.2) bart.lateur@skynet.be (Bart Lateur)
20 44.3 ( 14.0/ 27.9/ 23.2) Greg Bacon <gbacon@cs.uah.edu>
19 37.1 ( 12.3/ 24.8/ 16.0) ebohlman@netcom.com (Eric Bohlman)
These posters accounted for 27.2% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
144.7 ( 65.1/ 70.1/ 38.8) 81 David Cassell <cassell@mail.cor.epa.gov>
137.6 ( 72.3/ 37.4/ 35.1) 64 abigail@delanet.com
107.0 ( 37.4/ 62.6/ 35.2) 61 lr@hpl.hp.com (Larry Rosler)
83.0 ( 37.0/ 37.9/ 20.2) 49 Jonathan Stowe <gellyfish@gellyfish.com>
55.9 ( 25.4/ 29.3/ 15.2) 32 elephant@squirrelgroup.com (elephant)
55.2 ( 24.1/ 25.0/ 17.1) 29 mgjv@comdyn.com.au (Martien Verbruggen)
44.3 ( 14.0/ 27.9/ 23.2) 20 Greg Bacon <gbacon@cs.uah.edu>
38.3 ( 17.6/ 20.7/ 13.9) 25 Jon Peterson <jpeterson@office.colt.net>
37.1 ( 12.3/ 24.8/ 16.0) 19 ebohlman@netcom.com (Eric Bohlman)
35.9 ( 20.1/ 15.8/ 11.2) 25 bart.lateur@skynet.be (Bart Lateur)
These posters accounted for 29.4% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.985 ( 2.5 / 2.5) 5 Joe Schmoe <dont_ever.spam_pvoris@earthlink.net>
0.944 ( 14.4 / 15.3) 7 tchrist@mox.perl.com (Tom Christiansen)
0.939 ( 35.1 / 37.4) 64 abigail@delanet.com
0.891 ( 13.5 / 15.1) 7 John Callender <jbc@shell2.la.best.com>
0.864 ( 3.8 / 4.4) 8 Michael de Beer <madebeer@igc.apc.org>
0.835 ( 4.9 / 5.9) 7 Gareth Rees <garethr@cre.canon.co.uk>
0.832 ( 23.2 / 27.9) 20 Greg Bacon <gbacon@cs.uah.edu>
0.828 ( 3.6 / 4.4) 5 Paul Dobbs <pdobbs@home.com>
0.799 ( 5.5 / 6.8) 9 Kin Lum <kin@0011.com>
0.775 ( 4.7 / 6.1) 7 webmaster@mendonet.com
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.505 ( 4.1 / 8.1) 13 mjtg@cus.cam.ac.uk (M.J.T. Guy)
0.502 ( 2.8 / 5.5) 6 Jenda@Krynicky.cz (Jenda Krynicky)
0.501 ( 4.5 / 8.9) 8 efflandt@xnet.com
0.483 ( 3.3 / 6.9) 9 ilya@math.ohio-state.edu (Ilya Zakharevich)
0.482 ( 4.6 / 9.5) 11 "Wyzelli" <wyzelli@yahoo.com>
0.474 ( 6.6 / 14.0) 16 anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
0.464 ( 1.8 / 3.9) 8 Tom Briles <sariq@texas.net>
0.462 ( 2.2 / 4.9) 13 revjack <revjack@radix.net>
0.379 ( 1.9 / 4.9) 6 "Matthew O. Persico" <mpersico@erols.com>
0.328 ( 2.1 / 6.3) 9 "Phil Schaechter" <phil@proteacher.com>
51 posters (9%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
37 Perl a Black Sheep?
28 The extent of double-quotish interpolation
27 Perl Y2K Bugs on the Internet
20 Why use Perl when we've got Python?!
18 Desperately searching for perl lint
16 Images
15 extract text
14 Why use Python when we've got Perl?
13 email address verification
11 Problem opening a flat-file for read
These threads accounted for 13.4% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
70.0 ( 27.4/ 39.3/ 27.9) 37 Perl a Black Sheep?
67.0 ( 23.4/ 42.2/ 30.6) 27 Perl Y2K Bugs on the Internet
58.7 ( 23.6/ 31.8/ 18.8) 28 The extent of double-quotish interpolation
54.1 ( 18.6/ 34.6/ 20.3) 20 Why use Perl when we've got Python?!
32.1 ( 14.5/ 17.0/ 8.9) 14 Why use Python when we've got Perl?
30.3 ( 14.1/ 15.0/ 9.0) 18 Desperately searching for perl lint
26.2 ( 13.5/ 11.7/ 6.7) 16 Images
23.1 ( 12.6/ 9.7/ 4.3) 15 extract text
20.8 ( 9.7/ 9.9/ 6.8) 13 email address verification
19.8 ( 4.7/ 14.9/ 12.4) 6 Quoting Strategies and the Jeopardy Game
These threads accounted for 16.0% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.845 ( 7.2/ 8.6) 7 Problem processing form variables in CGI
0.838 ( 3.5/ 4.1) 6 Matching E-mail
0.833 ( 6.7/ 8.0) 7 newbie: need help,LEARNING FROM A BOOK
0.832 ( 12.4/ 14.9) 6 Quoting Strategies and the Jeopardy Game
0.816 ( 4.9/ 6.0) 6 How to "unoverride" functions?
0.812 ( 4.2/ 5.2) 5 CGI in PERL
0.806 ( 5.4/ 6.7) 9 loop through a hash of arrays based on array element?
0.798 ( 5.3/ 6.7) 8 FormMail problem recognizing <form name> attribute
0.789 ( 2.1/ 2.7) 6 mysql interview
0.782 ( 3.1/ 4.0) 7 my() vs. local()
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.468 ( 2.8 / 6.0) 6 Debug question
0.466 ( 1.3 / 2.8) 5 redirecting outputs
0.456 ( 1.1 / 2.4) 5 how to capture STDOUT from external command?
0.453 ( 3.8 / 8.4) 5 bizarre PERL/CGI behavior question
0.450 ( 4.3 / 9.7) 15 extract text
0.448 ( 3.8 / 8.6) 5 Can anyone lend a hand please?
0.438 ( 0.9 / 2.0) 5 Perl Email With Netscape
0.428 ( 3.4 / 8.0) 7 Implementing a Perl Script on NT
0.422 ( 2.8 / 6.6) 6 grab random image --> post into browser
0.418 ( 2.6 / 6.3) 7 Jenda's gender [was: newbi: Registry Help under NT]
82 threads (18%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
34 comp.lang.perl.modules
32 comp.lang.python
21 comp.lang.java.programmer
21 comp.lang.c
21 comp.lang.javascript
13 alt.perl
6 comp.lang.perl.tk
5 comp.databases.informix
5 comp.lang.perl
4 comp.unix.bsd.freebsd.misc
Top 10 Crossposters
===================
Articles Address
-------- -------
12 Lee Fesperman <firstsql@ix.netcom.com>
8 lr@hpl.hp.com (Larry Rosler)
6 ebohlman@netcom.com (Eric Bohlman)
6 conserv3@infi.net
6 Jonathan Stowe <gellyfish@gellyfish.com>
5 "Wyzelli" <wyzelli@yahoo.com>
5 elephant@squirrelgroup.com (elephant)
5 David Cassell <cassell@mail.cor.epa.gov>
4 Eric Veldhuyzen <eric@terra.nu>
4 rj@NOT4MAIL.xs4all.nl (Robert Jan)
------------------------------
Date: 30 Aug 1999 08:29:43 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: test
Message-Id: <slrn7sl1vo.9if.abigail@alexandra.delanet.com>
tester@test.com (tester@test.com) wrote on MMCXC September MCMXCIII in
<URL:news:936003285.527589@krynn.diaspro.com>:
'' Body of test
*plonk*
--
perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
"\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
"\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Mon, 30 Aug 1999 13:10:07 +0200
From: Thomas Weholt <thomas@bibsyst.no>
Subject: Testing files on cd-rom?
Message-Id: <37CA668F.8AC43432@bibsyst.no>
Hi,
Does anybody know if there are any modules, code or other ways of
testing files in cd-roms to see if they are corrupt? I could copy each
file to disk but that would req. min. 650mb of free space all the time.
Any ideas?
Thomas Weholt
------------------------------
Date: 30 Aug 1999 08:30:33 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Testing files on cd-rom?
Message-Id: <slrn7sl21a.9if.abigail@alexandra.delanet.com>
Thomas Weholt (thomas@bibsyst.no) wrote on MMCXC September MCMXCIII in
<URL:news:37CA668F.8AC43432@bibsyst.no>:
__
__ Does anybody know if there are any modules, code or other ways of
__ testing files in cd-roms to see if they are corrupt? I could copy each
__ file to disk but that would req. min. 650mb of free space all the time.
And your Perl question is?
Abigail
--
perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
"\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
"\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Mon, 30 Aug 1999 15:58:01 +0200
From: Thomas Weholt <thomas@bibsyst.no>
Subject: Re: Testing files on cd-rom?
Message-Id: <37CA8DE9.97299EBC@bibsyst.no>
Abigail wrote:
>
> Thomas Weholt (thomas@bibsyst.no) wrote on MMCXC September MCMXCIII in
> <URL:news:37CA668F.8AC43432@bibsyst.no>:
> __
> __ Does anybody know if there are any modules, code or other ways of
> __ testing files in cd-roms to see if they are corrupt? I could copy each
> __ file to disk but that would req. min. 650mb of free space all the time.
>
> And your Perl question is?
Can perl do this?
>
> Abigail
> --
> perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
> "\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
> "\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
>
> -----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
> http://www.newsfeeds.com The Largest Usenet Servers in the World!
> ------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
--
--[(.)-(.)]---o0000-----------------<<
Thomas Weholt | Consequence, -
thomas@bibsyst.no | now the panic comes.
>>-----------=======---------- Support Linux -->
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 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.
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" from
almanac@ruby.oce.orst.edu. The real FAQ, as it appeared last in the
newsgroup, can be retrieved with the request "send perl-users FAQ" from
almanac@ruby.oce.orst.edu. 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" from
almanac@ruby.oce.orst.edu.
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 678
*************************************
