[7053] in Perl-Users-Digest
Perl-Users Digest, Issue: 678 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jun 28 14:07:17 1997
Date: Sat, 28 Jun 97 11:00:23 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 28 Jun 1997 Volume: 8 Number: 678
Today's topics:
*Young Teenage girls that fuck and suck cock ;asdlfj@sdal;fj.com
Any Module for TAR archives available? <mschilli@blacksun.com>
Blat Mail, Perl & NT <M.Lahey@debbs.ndhq.dnd.ca>
Re: CGI_Lite (Nick Tonkin)
Compiling perl5.004_01 on linux problem <kistler@erdw.ethz.ch>
Re: Concurrency in Perl? (Malcolm Beattie)
Fee password! SEWCD4WRSSS@AOL.COM
Re: File Flush (Simon Hyde (aka Jeckyll))
Finding modified files (was Re: recursive) <pdcawley@aladdin.net>
FREE HTML HELP <MrFixIt@WriteMe.Com>
Re: Help launching/controlling external application (M.J.T. Guy)
How do I decipher Time format? <ashfield.matthew@miti.nb.ca>
Re: no. of days between two dates ? (Steffen Beyer)
Password (Alexander N Manea)
Re: Perl Tk Tutorial (David Ferch)
Re: removing same entry in different arrays? :/ <ajohnson@gpu.srv.ualberta.ca>
removing weird characters (Otis Gospodnetic)
Re: Short Circuit Question (M.J.T. Guy)
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Substitute ^M by HTML <br> code... (Viet Hoang)
Re: Trapping the output of the System command into a va (Chris Russo)
Re: Trickey Regex... need thoughts (Craig Berry)
Re: Trickey Regex... need thoughts (John C. Randolph)
Re: Validating E-Mail addresses and URL's (Mark Thompson)
Re: What does "UNIX" stand for.. <linuxpost@colinmain-dot-demon-dot-co.uk>
Re: Why warnings for this short script? (M.J.T. Guy)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 28 Jun 1997 09:28:03 GMT
From: ;asdlfj@sdal;fj.com
Subject: *Young Teenage girls that fuck and suck cock
Message-Id: <5p2lf3$p92$662@news.internetmci.com>
Looking for XXX Pictures of Teens having Sex ? Then you've come to the
right place. Teen-Porno has tons of Teens Fucking and Sucking Cock.
Come Visit the hottest New Teen Site on the Internet !!!
http://www.teen-porno.com
All Models Represented on Teen-Porno are 18 Years of age or older.
The Name Teen-Porno Represents Models that are 18 Years of age or older.
------------------------------
Date: Sat, 28 Jun 1997 10:24:11 -0700
From: Michael Schilli <mschilli@blacksun.com>
Subject: Any Module for TAR archives available?
Message-Id: <33B548BB.63D8@blacksun.com>
Hi all,
does anybody have a Perl Module to create, manipulate and read
tar-Archives?
Haven't found anything on CPAN so far ...
Any help apprechiated!
--
Michael
------------------------------
Date: Thu, 26 Jun 1997 15:32:34 -0400
From: "M.Lahey@debbs.ndhq.dnd.ca" <M.Lahey@debbs.ndhq.dnd.ca>
Subject: Blat Mail, Perl & NT
Message-Id: <33B2C3D2.30EB@debbs.ndhq.dnd.ca>
Blat mail requires a file as the body of the message in order to email a
message. Perl requires permissions to be set in order to create a file.
Does this not leave your NT system open to attack?
Does anyone know how I can do this?
Many thanks in advance!
------------------------------
Date: Sat, 28 Jun 1997 08:14:47 GMT
From: tonkin@silcom.com (Nick Tonkin)
Subject: Re: CGI_Lite
Message-Id: <33b4c62b.229782219@news.silcom.com>
Hello,
I just installed v1.7 from CPAN and called it from a simple script to
allow one of my users to upload a file. I experienced a similar
problem to the one you are describing, but it goes like this:
When the form is submitted in the client browser, the browser reports
"host contacted" and then times out. Meanwhile, on the server, the
Perl (5.003) is going crazy using up all the CPU cycles (although only
one process). In the meantime, the file (if it is a small file) is
uploaded once a second -- in one test I ran for a while, hundreds of
copies were uploaded!
BUT, it gets even more strange. This behavior was only happening with
one user uploading files from one folder on one Windows machine. After
I traced it to the machine, I moved his files into another folder (the
original one was on the desktop) and the uploads worked fine. Very
strange: I don't know if it's a bug in the .pm (I'm very new to using
them at all and this one in particular) or some bozo Windoze thing
with a file property that made the Perl have a cow. In either case,
though, this is not very cool, since you don't want a user to be able
to bring down (or immobilize) the server from the web.
I can send the script in question if you are interested, and I would
like to know if the newer version of the .pm fixes your problem.
Salut
Nick
On Fri, 20 Jun 1997 10:30:36 +0200, Dimitri Papadopoulos
<papadopo@shfj.cea.fr> wrote:
>Hi,
>
>Do you know where to find CGI_Lite v1.8?
>I can find only CGI_Lite v1.7 on CPAN.
>
>Version 1.7 has a bug when trying to upload an HTML file.
>It leads to "Out of memory!" messages in the Web server
>error log and "no more processes" messages on the command
>line. Have you experienced such problems with version 1.7?
>With version 1.8?
>
>Thank you,
>--
>Dimitri Papadopoulos
>papadopo@shfj.cea.fr
============================
Nick Tonkin
webmaster@web-ignite.com
http://www.web-ignite.com
------------------------------
Date: Sat, 28 Jun 1997 10:08:46 -0700
From: Per Kistler <kistler@erdw.ethz.ch>
Subject: Compiling perl5.004_01 on linux problem
Message-Id: <33B5451E.6D5CE434@erdw.ethz.ch>
Hi All
If I want to compile perl5.004_01 on linux 2.0.9 then I get that
error a lot of times:
lib/symbol........perl: warning: Setting locale failed.
perl: warning: Please check that your locale settings:
LC_ALL = (unset),
LC_CTYPE = "ISO-8859-1",
LANG = (unset)
are supported and installed on your system.
perl: warning: Falling back to the standard locale ("C").
And at the end it says:
Failed 7 test scripts out of 152, 95.39% okay.
and wants me to run ./perl/harness which gives
./perl harness
perl: warning: Setting locale failed.
perl: warning: Please check that your locale settings:
LC_ALL = (unset),
LC_CTYPE = "ISO-8859-1",
LANG = (unset)
are supported and installed on your system.
perl: warning: Falling back to the standard locale ("C").
Can't open perl script "harness": No such file or directory
So I cannot compile it:-(
Does perl5.004_01 not work on linux?
Thanks, Per.
---------------------------------------------------------------------
Per Kistler
Programmer (Unix/Perl/C++)
kistler@erdw.ethz.ch
http://www.erdw.ethz.ch/~kistler
Institute for Isotope Geology and Mineral Resources, ETH, Switzerland
---------------------------------------------------------------------
------------------------------
Date: 28 Jun 1997 15:49:45 GMT
From: mbeattie@sable.ox.ac.uk (Malcolm Beattie)
Subject: Re: Concurrency in Perl?
Message-Id: <5p3bqp$stb@news.ox.ac.uk>
In article <isbu4smgm1.fsf@godzilla.kiere.ericsson.se>,
Calle Dybedahl <qdtcall@esb.ericsson.se> wrote:
>mbeattie@sable.ox.ac.uk (Malcolm Beattie) writes:
>
>> Multithreading is currently in the development tree and will be in
>> 5.005 (or possibly 5.006).
>
>Any wild guesses about when we might see this released? This year?
>Next? Turn of the century?
The plan is to get 5.005 out about 6 months after 5.004 came out.
If threading is ready enough by that time then it'll be included.
If not, then there will be a separate 5.006 release when threading
is ready.
--Malcolm
--
Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Oxford University Computing Services
"I permitted that as a demonstration of futility" --Grey Roger
------------------------------
Date: 28 Jun 1997 07:01:51 GMT
From: SEWCD4WRSSS@AOL.COM
Subject: Fee password!
Message-Id: <5p2csv$fdn@news0-alterdial.uu.net>
------------------------------
Date: Sat, 28 Jun 1997 11:33:57 GMT
From: shyde@poboxes.com (Simon Hyde (aka Jeckyll))
Subject: Re: File Flush
Message-Id: <33b5f688.1439983@news.uni-stuttgart.de>
On Sat, 28 Jun 1997 02:20:28 -0400, Oliver Giller <oliver@inetu.net> wrote:
>I have looked through both Cammel books and can't find it.
>
>How do I fflush a file, like in C?
>
>Thanks
>Oliver
take a look at $| in man perlvar (perldoc perlvar or
http://www.perl.com/perl/nmanual/pod/perlvar.html) and the select section of the perlfunc
manpage (perldoc -f select or http://www.perl.com/perl/nmanual/pod/perlfunc/select.html)
or take a look at the FileHandle module (perldoc FileHandle or
http://www.perl.com/perl/nmanual/lib/FileHandle.html)
------------------------------
Date: 24 Jun 1997 10:44:49 +0100
From: Piers Cawley <pdcawley@aladdin.net>
Subject: Finding modified files (was Re: recursive)
Message-Id: <54205sz65r.fsf@gunnar.aladdin.net>
Randal Schwartz <merlyn@stonehenge.com> writes:
> >>>>> "Zenin" == Zenin <zenin@best.com> writes:
> Zenin> bret bailey <bretb@engr.sgi.com> wrote:
> >> Hello,
> >> I'm writing a simple script to calculate the size of my
> >> website. How do I make it work recursively?
>
> >> Any response would be appreciated.
>
> Zenin> Take a look at the File::Recurse module. It comes in the
> Zenin> File::Tools package from CPAN. Something like:
>
> Zenin> #!/usr/local/bin/perl -w
> Zenin> use File::Recurse;
>
> Zenin> recurse { $Total += (stat($_))[7] } shift();
> Zenin> print "$Total\n";
>
> Zenin> $ MyWebTotal /path/to/my/website
>
> Or, to save yourself some download time from the CPAN, just use
> File::Find that comes *with* Perl:
>
> #!/usr/local/bin/perl -w
> use File::Find;
> my $sum = 0;
> find sub { $sum += -s if -f }, shift;
> print "Total is $total\n";
>
> Of course, if you want something du-like, you can horse around with
> (stat)[13] instead, but then you have to know the blocksize of the
> filesystem.
Hmm... speaking of using Find::File, has anyone got a neater way of
doing the following:
### Begin Code Fragment
# This sub will /only/ be called in an eval, Hence the die.
$wanted = sub {
return unless -f $_;
$full{$home} = 1;
if (-M _ <= $last_visit or $last_visit == 0) {
$updated{$home} = 1;
die "Found one\n";
}
};
foreach $directory (@DIRECTORIES) {
$@ = undef;
my $old_die = $SIG{__DIE__};
$SIG{__DIE__} = undef;
eval {
find($wanted, $home);
};
$SIG{__DIE__} = $old_die;
if ($@) {
die unless $@ =~ /^Found one/;
}
}
### End code fragment.
This is being used within a CGI script to build a table of contents
which can flag directories that have data in and/or have been modified
since the last time the client looked at them. Is there any way of
avoiding all the fiddling with $SIG{__DIE__}? (Even in an eval, die
seems to be using the CGI::Carp version, which is not what I want...
--
Piers Cawley -- Systems Genie for Aladdin
If a `religion' is defined to be a system of ideas that contains
unprovable statements, then Godel taught us that mathematics is not
only a religion, it is the only religion that can prove itself to be
one. -- John Barrow
------------------------------
Date: Fri, 27 Jun 1997 23:46:34 -0700
From: Chris Richards <MrFixIt@WriteMe.Com>
Subject: FREE HTML HELP
Message-Id: <33B4B348.118C@WriteMe.Com>
Hi Everyone,
I just started a FREE HTML help site and mailing list. If
you are the kind of person that likes to help others with their problems
then please signup on the mailing list or if you need help you can
signup too. I also have a Message Board and help form for those of you
who don't want to use the mailing list.
You can find all the above at -
http://www.geocities.com/ResearchTriangle/9599/
It is very easy to signup on the mailing list and to use the other
utilities.
I hope you enjoy the service. Enjoy!.
Regards,
Chris Richards
(mailto:MrFixIt@WriteMe.Com)
------------------------------
Date: 28 Jun 1997 14:46:13 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Help launching/controlling external application
Message-Id: <5p383l$uc@lyra.csx.cam.ac.uk>
In article <den9p2sl3.fsf@s3i.com>, Clark Dorman <clark@s3i.com> wrote:
> kill TSTP => -$$;
I've never tried this myself, but since the perlfunc man page says
under "kill"
Unlike in the shell, in Perl if the SIGNAL is
negative, it kills process groups instead of
processes. (On System V, a negative PROCESS number
will also kill process groups, but that's not
portable.)
perhaps that should be written
kill -TSTP => $$; ?
Mike Guy
------------------------------
Date: 27 Jun 1997 14:34:45 GMT
From: "mashfiel" <ashfield.matthew@miti.nb.ca>
Subject: How do I decipher Time format?
Message-Id: <01bc823d$9a6d46c0$3e080a0a@mashfiel.miti.nb.ca>
Hi,
I have what I think to be a rather difficult question. I have a log of
occurences of things, the log being updated every 5 minutes for 24 hours.
Each entry in the log has a time entry given in the time() format ( ie.
866575492, which would translate somewhow into Tue Jun 17 16:24:42 97). My
question is how does Perl do this translation. I used the localtime()
function to do it for me, but I think I need to know how it did this. This
is because as mentioned before, my log polls every 5 minutes. However if I
only want to extract the entries from say 8:30 am to 4:30 pm, I must have
to figure out how the localtime() function deciphers hours, minutes and
seconds. My program has to work for different days, so my extract has to be
able to only extract based on hours minutes and seconds, not days or years.
Any help/advice would be greatly appreciated. Note: I looked in the man
page and it said that the time() function got broken down into:
"9-element array" set up as
"$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst"
but how does 866575492 get broken into these 9 elements. Going by this,
then $sec couldn't be bigger than 9 could it?
Anyway this is probably all very confusing, but any help/advice would be
greatly appreciated, preferably via email.
Thanks for your time,
Matt
ashfield.matthew@miti.nb.ca
------------------------------
Date: 28 Jun 1997 13:30:33 GMT
From: sb@en.muc.de (Steffen Beyer)
Subject: Re: no. of days between two dates ?
Message-Id: <5p33lp$q0m$1@en1.engelschall.com>
Matthew Cravit <mcravit@best.com> wrote:
> In article <33b612e1.11233294@news.demon.co.uk>,
> */chebs <martin@chebs.demon.co.uk> wrote:
> >can anyone help me with this one I have been trying to
> >calculate the difference in days between two dates in a form
> >with out much success.
> Go to your nearest CPAN mirror (a list of them is on the Perl web site,
> www.perl.com/perl/) and get the Date::Manip module.
Or one of the other date calculation modules:
Date::
::Convert cdpO Conversion between Gregorian, Hebrew, more? MORTY
::CTime adpf Updated ctime.pl with mods for timezones GBARR
::DateCalc Rdcf Gregorian calendar date calculations STBEY
::Format Rdpf Date formatter ala strftime GBARR
::GetDate adcf Yacc based free-format date parser in C TOMC
::Interval idpO Lightweight normalised interval data type TIMB
::Language adpO Multi-language date support GBARR
::Manip Rdpf Manipulate/parse international dates/times SBECK
::Parse Rdpf ASCII Date parser using regexp's GBARR
::Time idpO Lightweight normalised datetime data type TIMB
Time::
::CTime Rdpf Format Times ala ctime(3) with many formats MUIR
::DaysInMonth Rdpf Returns the number of days in a month MUIR
::HiRes Rdcf High resolution time, sleep, and alarm DEWEG
::JulianDay Rdpf Converts y/m/d into seconds MUIR
::Local Supf Implements timelocal() and timegm() P5P
::ParseDate Rdpf Parses many forms of dates and times MUIR
::Period Rdpf Code to deal with time periods PRYAN
::Timezone Rdpf Figures out timezone offsets MUIR
::Zone Rdpf Timezone info and translation routines GBARR
::gmtime adpf A by-name interface for gmtime TOMC
::localtime adpf A by-name interface for localtime TOMC
You can find this module list at
http://www.perl.com/CPAN/modules/00modlist.long.html
You can find these modules for instance at
http://www.perl.com/CPAN/modules/by-module/Date/DateCalc-3.2.tar.gz
Hope this helps.
Yours,
--
Steffen Beyer <sb@sdm.de> http://www.engelschall.com/u/sb/
"There is enough for the need of everyone in this world,
but not for the greed of everyone." - Mahatma Gandhi
>> Unsolicited commercial email goes directly to /dev/null <<
------------------------------
Date: 28 Jun 1997 17:29:51 GMT
From: anm@cs.buffalo.edu (Alexander N Manea)
Subject: Password
Message-Id: <5p3hmf$gtl@prometheus.acsu.buffalo.edu>
Hello,
I am new to perl and i have to do an interface between a UNIX account and
an Oracle account. While working on this project i've encountered the
following problem. In order for the program to work I need it to connect
the Oracle account and in order to do that the user needs to input the
username and then the password. Now when they input the password it is
displayed on the screen and I want it to be invisible but yet to be stored
in a variable. I don't know how to do that. Can anyone help with the
invisible password?
Thanks,
Alex
------------------------------
Date: 27 Jun 1997 21:40:21 GMT
From: dave@award.sax.de (David Ferch)
Subject: Re: Perl Tk Tutorial
Message-Id: <5p1c05$3fq$1@award.sax.de>
In article <33B18A14.263F@acsatlanta.com>,
"Alfred P. Bartholomai" <freddyb@acsatlanta.com> writes:
> Any one know of a good tutorial ? They have been hard to find. I have
> come across one, that was quite simplistic in nature.
>
> Any books yet on Perl Tk ?
Try 'Effektives Programmieren mit Perl5'. This book contains a very good
documentation to Perl/Tk 400.200 and OO-Perl, Internet with Perl5.
Author: Michael Schilling
Distributor: Addison-Wesley
ISBN: 3-8273-1095-4
Cost: DM59,90
Special: CD with Perl, Perl/Tk, and many more
But, this book is only available in german language.
> Thanx,
> Fred Bartholomai
--
Tschaui | EMail dave@award.sax.de
Dave | Homepage http://www.sax.de/~dave/
------------------------------
Date: Fri, 27 Jun 1997 09:41:52 -0500
From: Andrew Johnson <ajohnson@gpu.srv.ualberta.ca>
Subject: Re: removing same entry in different arrays? :/
Message-Id: <33B3D130.67F4F238@gpu.srv.ualberta.ca>
! I have to arrays, one with url:s and one with the matching linkwords,
! e.g. a link like this:
! <a href="http://www.nowhere/">click here</a>
!
! would be stored like this:
!
! $links[0] = "http://www.nowhere/"
! $linkwords[0] = "click here"
!
! what I want is to remove duplicates of links in @links, but
! when I remove the link I want to add the corresponging
! linkwords to the link-entry that is left.
! e.g. if I shall parser this:
! <a href="http://www.nowhere/">click here</a>
! <a href="http://www.nowhere/bogus.html">amazing link</a>
! <a href="http://www.nowhere/">our home</a>
!
!
! it will be stored like:
!
! $links[0] = "http://www.nowhere/"
! $linkwords[0] = "click here"
! $links[1] = "http://www.nowhere/bogus.html"
! $linkwords[1] = "amazing link"
! $links[2] = "http://www.nowhere/"
! $linkwords[2] = "our home"
!
! i want to change it to be:
! $links[0] = "http://www.nowhere/"
! $linkwords[0] = "click here our home"
! $links[1] = "http://www.nowhere/bogus.html"
! $linkwords[1] = "amazing link"
perhaps you want to parse it and store it in a hash
of arrays rather than two arrays...
I assume you've parsed out the link and word into
$link and $link_word in some loop, then just
push $link_hash{$link},$link_word;
everytime you hit the same $link, you'll push the new
$link_word into an annonymous array associated with
the key $link. then you can get the format you specified
above by:
foreach $link (keys %link_hash) {
print "Link=$link\n";
print "Linkwords=@{$link_hash{$link}}\n";
}
regards
andrew
------------------------------
Date: Sat, 28 Jun 1997 11:11:30 -0600
From: otis@acunet.net (Otis Gospodnetic)
Subject: removing weird characters
Message-Id: <867513371.6630@dejanews.com>
Hi,
I'm parsing some text with a perl script and occasionally I hit
characters like: ' and they break my script every time :(
Do, does anyone know what kind of character this is? (this is just an
example, there are a number of other characters that also break myt
script) Is this a control character?
I log what my script is doing and in the log this particular character
shows as: M-'
Some other characters show as: M-# and so on.
Does anyonek now what these characters are, how to detect them and maybe
s/// them ?
Thanks!
Otis
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: 28 Jun 1997 14:27:56 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Short Circuit Question
Message-Id: <5p371c$da@lyra.csx.cam.ac.uk>
Eric Bohlman <ebohlman@netcom.com> wrote:
>Craig M. Votava (craig@lucent.com) wrote:
>
>This won't work because "&&" has a higher precedence than "||" so your
>statement is parsed as:
>
>(open(FILE, "somefile")) || (die "Cannot open somefile: $!\n" && return);
No. The point is that && has higher precedence than a list operator
like "die". So it parses as
(open(FILE, "somefile")) || (die ("Cannot open somefile: $!\n" && return));
and the "return" gets obeyed before the "die" can get a look in.
Mike Guy
------------------------------
Date: 28 Jun 1997 17:45:07 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <5p3ij3$par$4@info.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 21 Jun 1997 11:15:24 GMT and ending at
28 Jun 1997 10:19:49 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^(?:>|:|\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" e-mail address and name.
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Find the NewsScan junkyard at http://www.cs.uah.edu/~gbacon/clpm/
Excluded Posters
================
perlfaq-suggestions@mox.perl.com
Totals
======
Total number of posters: 429
Total number of articles: 999 (384 with cutlined signatures)
Total number of threads: 378
Total volume generated: 1640.8 kb
- headers: 664.7 kb
- bodies: 899.6 kb (630.4 kb original)
- signatures: 74.1 kb (1462 lines)
Averages
========
Number of posts per poster: 2.3
Number of posts per thread: 2.6
Message size: 1681.9 bytes
- header: 681.4 bytes
- body: 922.1 bytes (646.2 bytes original)
- signature: 75.9 bytes (1.5 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
131 215.2 (106.3/ 94.6/ 65.5) Tom Phoenix <rootbeer@teleport.com>
29 47.8 ( 20.4/ 27.3/ 13.2) Simon Fairey <sfairey@adc.metrica.co.uk>
24 55.1 ( 17.1/ 29.1/ 15.7) Randal Schwartz <merlyn@stonehenge.com>
22 43.9 ( 12.5/ 24.5/ 16.0) Mike Stok <mike@stok.co.uk>
18 32.6 ( 13.2/ 19.4/ 9.4) Larry D'Anna <ldanna@ix.netcom.com>
16 31.3 ( 15.9/ 11.7/ 5.9) abigail@fnx.com
15 23.2 ( 9.4/ 13.7/ 11.9) nvp@shore.net
11 14.3 ( 7.8/ 6.5/ 3.6) mike mah <esupu@warwick.ac.uk>
11 18.3 ( 5.5/ 12.6/ 8.3) Andrew M. Langmead <aml@world.std.com>
10 18.2 ( 5.6/ 12.6/ 7.4) Tad McClellan <tadmc@flash.net>
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
215.2 (106.3/ 94.6/ 65.5) 131 Tom Phoenix <rootbeer@teleport.com>
55.1 ( 17.1/ 29.1/ 15.7) 24 Randal Schwartz <merlyn@stonehenge.com>
47.8 ( 20.4/ 27.3/ 13.2) 29 Simon Fairey <sfairey@adc.metrica.co.uk>
43.9 ( 12.5/ 24.5/ 16.0) 22 Mike Stok <mike@stok.co.uk>
32.6 ( 13.2/ 19.4/ 9.4) 18 Larry D'Anna <ldanna@ix.netcom.com>
31.3 ( 15.9/ 11.7/ 5.9) 16 abigail@fnx.com
23.2 ( 9.4/ 13.7/ 11.9) 15 nvp@shore.net
20.1 ( 6.9/ 13.3/ 7.5) 10 Doug Seay <seay@absyss.fr>
18.3 ( 5.5/ 12.6/ 8.3) 11 Andrew M. Langmead <aml@world.std.com>
18.2 ( 5.6/ 12.6/ 7.4) 10 Tad McClellan <tadmc@flash.net>
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
28 Q: an alternative to this use of "goto"?
23 Checking a string for "@' and "."
10 Regexps on streams
8 decimal to hex conversion?
8 Delete specific element from list
8 a string to an array
8 Grade my first Perl Project
8 get end of string (easy question)
8 Newbie question: 500 Server Error
8 RFC: Xlib.pm
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
64.4 ( 21.7/ 38.3/ 20.1) 28 Q: an alternative to this use of "goto"?
36.7 ( 16.9/ 17.4/ 10.6) 23 Checking a string for "@' and "."
24.5 ( 7.9/ 16.0/ 9.1) 10 Regexps on streams
18.2 ( 5.4/ 12.4/ 7.9) 8 Grade my first Perl Project
17.8 ( 5.2/ 11.7/ 10.1) 7 what is my, lc and etc and where to learn it?
16.5 ( 3.4/ 12.9/ 12.0) 5 Perl Network/Socket programming
15.6 ( 5.8/ 9.6/ 4.5) 8 File Permissions - 'nobody' can't open file
15.3 ( 5.6/ 9.3/ 8.9) 8 Newbie question: 500 Server Error
14.1 ( 9.0/ 4.6/ 1.8) 6 What does "UNIX" stand for..
13.8 ( 5.7/ 6.9/ 4.1) 8 RFC: Xlib.pm
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
34 comp.lang.perl.modules
19 comp.lang.perl
11 comp.lang.javascript
11 comp.lang.c++
7 comp.lang.tcl
7 comp.sys.amiga.advocacy
6 comp.unix.advocacy
6 comp.lang.basic.visual
6 comp.infosystems.www.advocacy
6 comp.os.ms-w
Top 10 Crossposters
===================
Articles Address
-------- -------
21 mark carroll <carroll@bonn.cis.ohio-state.edu>
21 Jens M Andreasen <jens-and@NO.dsv.su.se.SPAM>
21 Johnny Poon <jpoon@iastate.edu>
21 bbell@voicenet.com
13 Larry D'Anna <ldanna@ix.netcom.com>
12 ronmcf@wavetech.net
12 Grzegorz Nowakowski <krecik@lri.fr>
12 Kaz Kylheku <kaz@vision.crest.nt.com>
12 "Tris Strange" <tris.strange@btinternet.com>
12 Darin Johnson <darin@usa.net.delete_me>
------------------------------
Date: Sat, 28 Jun 1997 10:08:19 -0600
From: viet@airmail.net (Viet Hoang)
Subject: Re: Substitute ^M by HTML <br> code...
Message-Id: <E2DA95488FDDE37D.A32F6DE427D41740.E9B38AAD94C17FE9@library-proxy.airnews.net>
In article <comdog-ya02408000R2606971559000001@nntp.netcruiser>,
comdog@computerdog.com (brian d foy) wrote:
>In article <33B2A429.2781@merck.com>, jheck@acm.org wrote:
>
>> The "^" is a reserved character in PERL. Thus you just need to
escape
>> the character.
>>
>> $Note =~ s/\^M/<br>\n/g;
>>
>> This should work just fine now. :-)
>
>just a note - that matches the literal '^M', a two character string,
>rather than the control character 'M' (one "character"), which tends
>to show up with certain operating systems :)
unix text files use line feed
mac files use carriage return
pc files use both !
>
>--
>brian d foy <URL:http://computerdog.com>
--
viet@airmail.net
------------------------------
Date: Fri, 27 Jun 1997 17:52:37 -0700
From: crusso@alink.net (Chris Russo)
Subject: Re: Trapping the output of the System command into a variable
Message-Id: <crusso-2706971752370001@buzz.alink.net>
In article <33B43BFB.7322@hotmail.com>, kvenug@hotmail.com wrote:
$var = `command arguments`;
Please take a little time to read the manual before troubling the newsgroup.
Thanks,
Chris Russo
----------------------------------------------------------------------
Chris Russo A-Link Network Services, Inc.
crusso@alink.net Bolo me
http://www.alink.net/~crusso
------------------------------
Date: 28 Jun 1997 06:53:24 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Trickey Regex... need thoughts
Message-Id: <5p2cd4$6hi$1@marina.cinenet.net>
John C. Randolph (jcr@idiom.com) wrote:
: This is a job for tr///!
:
: using tr/// should be about as fast as the regex in this situation,
: and it's a whole lot simpler. The line:
:
: tr/0-9\,//cd;
:
: will throw out any characters in $_ that aren't digits or commas, and
: that leaves you with a simple split() call to extract the values.
And what if someone adds a column named 'Addr1'?
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: 28 Jun 1997 04:30:59 -0700
From: jcr@idiom.com (John C. Randolph)
Subject: Re: Trickey Regex... need thoughts
Message-Id: <5p2slj$oou@idiom.com>
cberry@cinenet.net (Craig Berry) writes:
>John C. Randolph (jcr@idiom.com) wrote:
>: This is a job for tr///!
>:
>: using tr/// should be about as fast as the regex in this situation,
>: and it's a whole lot simpler. The line:
>:
>: tr/0-9\,//cd;
>:
>: will throw out any characters in $_ that aren't digits or commas, and
>: that leaves you with a simple split() call to extract the values.
>And what if someone adds a column named 'Addr1'?
Then we're outside the scope of the given problem. Next question?
-jcr
------------------------------
Date: Sat, 28 Jun 1997 16:50:30 GMT
From: mwt@cyberg8t.com (Mark Thompson)
Subject: Re: Validating E-Mail addresses and URL's
Message-Id: <33b53aac.1297527@news.alt.net>
On Wed, 25 Jun 1997 22:58:20 GMT, abigail@fnx.com (Abigail) wrote:
>Mark Thompson (mwt@cyberg8t.com) wrote on 1393 September 1993 in
><URL: news:33b04ef4.9187588@news.alt.net>:
>
>++ URL:
>++ ['HTTP://'] <VALID_URLDOMAIN> [ '/' <VALID_PATH>]
>++
>
>Look at http://www.ny.fnx.com/abigail/Perl/url.html if you
>want to check whether an URL validates RFC 1738.
>This of course doesn't mean if the document exists or not.
Hi Abigail,
Thanks for the RE. I was wondering if you had a program that actually
has the RE being used in it. The error message I'm getting when I
include the RE is:
/:http://(/: unmatched () in regexp at ./cnvt_member_db.pl line 251.
cnvt_member_db.pl terminated abnormally, update not completed.
note: the second line is the message showing that the program
terminated with an error.
I've tried enclosing it in "if ($string =~ /<regular expression>/ ) "
all on one line and in multiple lines like "if ($string =~ /<regular
expression>/i )"
My amazement was that I actually could read most of it (though mostly
because I was looking at your source code at the same time :) but I
just can't seem to implement it using either Perl 4 or Perl 5.02.
Thanks again,
Mark
P.S. I like the footnotes on your pages, I've been able to find a lot
of other good sites that I would otherwise never have seen without
them :)
------------------------------
Date: Sat, 28 Jun 1997 14:33:22 +0100
From: Colin Main <linuxpost@colinmain-dot-demon-dot-co.uk>
Subject: Re: What does "UNIX" stand for..
Message-Id: <7iL0iTAiKRtzEwJZ@colinmain.demon.co.uk>
In article <5ou9ca$aud@neon.btinternet.com>, Tris Strange
<tris.strange@btinternet.com> writes
>>>If operating systems were programming languages UNIX would be C
>>>and Win95 would be BASIC with line numbers. :)
>>
>>Naw. Win95 would be like C++. ;)
>>
>>
>No! Win95 would be like LOGO! (that shity language that lets you move a
>turtle about on the floor!)
That would be an aging arthritic turtle with some heavy shopping, I
presume!
Colin Main
Replace '-dot-' with a dot to mail me.
------------------------------
Date: 28 Jun 1997 15:01:27 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Why warnings for this short script?
Message-Id: <5p3907$1ao@lyra.csx.cam.ac.uk>
Tom Phoenix <rootbeer@teleport.com> wrote:
>On Fri, 27 Jun 1997, Otto Hell wrote:
>
>> Subject: Why warnings for this short script?
>
>Any recent version of Perl should come with the perldiag(1) manpage which
>explains why each warning occurs. If you have an older version of Perl,
>you can get the source for 5.004 from CPAN. Hope this helps!
All Perl 5 versions since at least 5.002 should have this man page.
And if you put "use diagnostics;" at the top of your script, or
-Mdiagnostics on the command line, perl will automatically do the
lookup in perldiag for you. Neat huh?
Mike Guy
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 678
*************************************
