[17009] in Perl-Users-Digest
Perl-Users Digest, Issue: 4421 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 25 11:05:38 2000
Date: Mon, 25 Sep 2000 08: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)
Message-Id: <969894309-v9-i4421@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 25 Sep 2000 Volume: 9 Number: 4421
Today's topics:
'use warnings;' versus '-w' <jgoldst@my-deja.com>
Re: /me bangs head agains't brick wall brianr@liffe.com
Re: [IGNORE - OFF TOPIC] Re: vertical text renderer <amonotod@netscape.net>
ActivePerl ppm install DB_File on NT acunet3278@my-deja.com
ANNOUNCE: Jvm-0.9 yewei_hm@my-deja.com
checking for a valid date-time <wedeking@msa.attmil.ne.jp>
DB_File and BTREE <dsivasan@ford.com>
Re: Fehlermeldung beim =?iso-8859-1?Q?Ausf=FChren?= ein <cantrela@agcs.com>
Re: Gunzip at Prohosting <bart.lateur@skynet.be>
Re: How do I shut down an oracle database from perl scr Erik.Dantes@wmich.edu
Insert HTML file into another HTML file ceeim2@my-deja.com
Re: Insert HTML file into another HTML file (Clay Irving)
Re: Massive kill Unix and Perl (Rafael Garcia-Suarez)
Re: Massive kill Unix and Perl (Tony L. Svanstrom)
Re: Multi-thread Perl with mod_perl <randy@theoryx5.uwinnipeg.ca>
Nested Literals in Perl patrick_k6801@my-deja.com
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Perl sequential number generator nobull@mail.com
Printer queues and Unix <vivekvp@spliced.com>
Re: Printer queues and Unix <amonotod@netscape.net>
Re: Pure perl encrypt/decryption? <bart.lateur@skynet.be>
Re: Range operator with "... /^$/" <bart.lateur@skynet.be>
Re: Running lengthly perl scripts over cgi <amonotod@netscape.net>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 25 Sep 2000 13:52:00 GMT
From: JL Goldstein <jgoldst@my-deja.com>
Subject: 'use warnings;' versus '-w'
Message-Id: <8qnl9n$f4e$1@nnrp1.deja.com>
Why would one use the 'use warnings;' pragma rather than the '-w'
switch? Is there a practical difference?
----
Any sufficiently advanced magic is indistinguishable from Perl.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 25 Sep 2000 14:30:41 +0100
From: brianr@liffe.com
Subject: Re: /me bangs head agains't brick wall
Message-Id: <vtsnqor43i.fsf@liffe.com>
"CJ Llewellyn" <darryl@work-thicker.co.uk> writes:
> "Ben Coleman" <oloryn@mindspring.com> wrote in message
> news:39cbd316.27150870@news.mindspring.com...
> -snip-
> > not to mention perldoc File::Find
>
> I looked at using find but it's not quite what I wanted.
Hmmm, in your original post you said "I'm having trouble with a script
that recurses through directories". That's what File::Find does.
If I understand what you are trying to do in the script in your OP, it
can even be done as a one-liner using File::Find
perl -MFile::Find -e'find(sub{print"$File::Find::name\n" unless -d}, "/usr")'
In what way is that not what you wanted?
HTH
--
Brian Raven
You can prove anything by mentioning another computer language. :-)
-- Larry Wall in <199706242038.NAA29853@wall.org>
------------------------------
Date: Mon, 25 Sep 2000 13:59:23 GMT
From: amonotod <amonotod@netscape.net>
Subject: Re: [IGNORE - OFF TOPIC] Re: vertical text renderer
Message-Id: <8qnlnf$fnr$1@nnrp1.deja.com>
In article <39CF0339.F4E46F4E@stomp.stomp.tokyo>,
<snip of another 58 lines of moronzilla garbage>
OK, so now we are 13 posts away from the OP, and Moronzilla! has yet to
provide an answer to the original post, even though it was the first to
respond. Might I now remind Moronzilla! of something it said in another
recent post:
In article <39CC43B0.26A3D4DE@stomp.stomp.tokyo>,
"Godzilla!" <godzilla@stomp.stomp.tokyo> wrote:
> Lots of blathering blithering idiots within newsgroups.
To thine own self, be true.
amonotod
--
`\|||/ amonotod@
(@@) netscape.net
ooO_(_)_Ooo________________________________
_____|_____|_____|_____|_____|_____|_____|_____|
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 25 Sep 2000 14:02:38 GMT
From: acunet3278@my-deja.com
Subject: ActivePerl ppm install DB_File on NT
Message-Id: <8qnlth$g28$1@nnrp1.deja.com>
Activestate perl is running on NT. We want to install DB_File to run a
perl website search engine from kscripts.com.
The people at kscript, suggested installing 'DB_File' by using this
command: "ppm install DB_File"
C:\Perl>ppm install DB_File
Retrieving package 'DB_File'...
HTTP POST failed: 500 (Can't connect to www.activestate.com:80 (Bad
hostname 'ww
w.activestate.com')), in SOAP method call. Content of response:
at C:/Perl/site/lib/PPM/SOAPClient.pm line 222
The machine where this command is run is behind a firewall. Could that
be why the workstation cannot conenct to www.activestate.com
What can be done to get DB_File installed? Please advise. I look
forward to hearing from you. Thank you.
--
http://www.pucho.com
Call me at Keen.com, Your Live Answer Community.
http://www.keen.com/acunet3278?ref=1
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 25 Sep 2000 13:49:41 GMT
From: yewei_hm@my-deja.com
Subject: ANNOUNCE: Jvm-0.9
Message-Id: <ssun359ki6mge7@corp.supernews.com>
Greeting,
Announcing the release of:
Jvm v0.9
Recommended download URL:
http://www.perl.com/CPAN-local/modules/by-authors/id/Y/YE/YEWEI/
NAME
Jvm - Perl extension for Java VM invocation
SYNOPSIS
use Jvm;
# Initialize the JVM
new Jvm();
###################################
#invoke static method of Java class
###################################
#Equivalent Java code:
# Thread.sleep(1000);
Jvm::call("java.lang.Thread", "sleep", "(J)V", 1000);
##########################
#Java instance manipulate
##########################
#Equivalent Java code:
# Integer obj = new Integer(99);
# String s = i.toString();
$obj = new Jvm("java.lang.Integer", "(I)V", 99);
$s = $obj->toString("()Ljava/lang/String;");
#######################
#get/set static member
#######################
#Equivalent Java code:
# System.out.println("Hello world!");
$out = Jvm::getProperty("java.lang.System", "out",
"Ljava/io/PrintStream;");
$out->println("(Ljava/lang/String;)V", "Hello world!");
DESCRIPTION
This package allows you to invoke Java API in Perl. You can
invoke java methods of the standard Java classes as well as your
own Java program.
Java Signature
You have to specify Java method signature when call Java API.
This is because a java class may have more than 1 methods which
share the same method name. Consider the following example:
public class Foo {
public static void test(int i) {}
public static void test(byte b) {}
};
Foo class has 2 methods which share the same method name test.
You have to use method signature to specify which method you are
going to call. Here is a sample to invoke them respectively:
Jvm::call("Foo","test","(I)V", 1234567); #(I)V: means input
'Integer', output 'Void'
Jvm::call("Foo","test","(B)V", 22); #(B)V: means input
'Byte', output 'Void'
Java Signature rule is simple, mapping table between signature
and method is available at
http://java.sun.com/j2se/1.3/docs/guide/jni/spec/types.doc.html#
16432
If you don't want to learn the signature mapping table, you can
use 'javap' tool comes with JDK to print out all the signatures
in your class, usage is
javap -s Your_java_class
Here is an example:
[root@yw Jvm]# javac Foo.java
[root@yw Jvm]# javap -s Foo
Compiled from Foo.java
public class Foo extends java.lang.Object {
public static void test(int);
/* (I)V */
public static void test(byte);
/* (B)V */
public Foo();
/* ()V */
}
[root@yw Jvm]#
Function List
new Jvm();
Initialize JVM.
$obj = new Jvm($class, $constructorMethodSig, @args);
create a Java object, whose class name is $class,
constructor has $constructorMethodSig signature, and @args
are arguments for constructor. Then later you can invoke
method XXX of this instance: $result = $obj-
>XXX($methodSignature, @args);
$ret = call($class, $method, $methodSignature, @args);
Invoke static method $method which has the signature
$methodSignature of class $class.
$ver = getVersion();
return current JVM version.
$value = getProperty($class, $member, $memberSignature);
return value of static member $member of class $class.
setProperty($class, $member, $memberSignature, $value);
set static member of class $class to $value.
dump($obj)
This function invokes "System.out.println($obj)" to dump the
java object $obj.
AUTHOR
Ye, Wei yw@alabanza.net
SEE ALSO
perl(1).
Java JNI Specification
http://java.sun.com/j2se/1.3/docs/guide/jni/
JPL JPL is a package, which allows you to invoke Java in
Perl as well as embed Perl in java. It's bundled with
Perl5.6, you can get it at:
http://users.ids.net/~bjepson/jpl/cvs.html Compare to Jvm,
it's more complex.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 25 Sep 2000 23:21:26 +0900
From: "Dan and Shelly" <wedeking@msa.attmil.ne.jp>
Subject: checking for a valid date-time
Message-Id: <8qnmmb$kem$1@newsflood.tokyo.att.ne.jp>
Does anyone know a better way than this:
start:
$a = <STDIN>;
chomp($a);
if ("$a" =~ /(\d{2})(\d{2})(\d{2})/) {
$days = $1;
$hours = $2;
$minutes = $3;
} else { print "$a isn't valid.\n" }
if ($days < 32 && $hours < 24 && $minutes < 60) {
print "$a is valid\n";
} else { print "$a isn't valid\n" }
goto start
------------------------------
Date: Mon, 25 Sep 2000 09:40:47 -0700
From: dsivasan <dsivasan@ford.com>
Subject: DB_File and BTREE
Message-Id: <39CF800F.5FC95D87@ford.com>
This is a multi-part message in MIME format.
--------------549B168A55EC4A9E931FE00C
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Hi,
I've got a problem with using the BTREE option with DB_File.pm.
I generated a Hash Of hashes, %Hoh and then used a tie as:
tie (%Hoh, 'DB_File', $dbm, O_RDWR|O_CREAT, 0666, $DB_BTREE) || die
"UNABLE to create Db_File: $dbm: $!\n";
and printed it out :
foreach $index (keys %Hoh) {
print TMPL "$index document: ";
foreach $role (keys %{ $Hoh{$index}})
{ print TMPL " DOCUMENT = $Hoh{$index}{$role}" ;
}
print TMPL "\n" ;
}
I did'nt get an db kind of data in the file pointed to by TMPL, using
tie (the file was plain empty), but I was able to get the desired result
as a text file, without using the above tie statement.
I have'nt tried using MLDBM, but the above example has only
about 20 items in the hash. As per documentation, MLDBM is used only for
large hashes..
Could anybody offer some help with regard to this ?
Thank you,
regards,
Deepa
--------------549B168A55EC4A9E931FE00C
Content-Type: text/x-vcard; charset=us-ascii;
name="dsivasan.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for dsivasan
Content-Disposition: attachment;
filename="dsivasan.vcf"
begin:vcard
n:Sivasankarane;Deepa
x-mozilla-html:FALSE
org:Ford Motor Company
version:2.1
email;internet:dsivasan@ford.com
title:Software Developer
x-mozilla-cpt:;0
fn:Deepa Sivasankarane
end:vcard
--------------549B168A55EC4A9E931FE00C--
------------------------------
Date: Mon, 25 Sep 2000 06:23:58 -0700
From: Andy Cantrell <cantrela@agcs.com>
To: Ralf Siedow <replynews@bigfoot.com>
Subject: Re: Fehlermeldung beim =?iso-8859-1?Q?Ausf=FChren?= eines Scripts!
Message-Id: <39CF51EE.AFC42C44@agcs.com>
Ralf Siedow wrote:
> =
> Hallo,
> =
> seitdem ich ein paar empfohlene Update bei meiner Mandrake eingespielt =
habe
> erscheint jedes mal beim Ausf=FChren eines Perl-Scripts diese Fehlermel=
dung:
> =
> perl: warning: Setting locale failed.
> perl: warning: Please check that your locale settings:
> LANGUAGE =3D "en",
> LC_ALL =3D "en",
> LANG =3D "en"
> are supported and installed on your system.
> perl: warning: Falling back to the standard locale ("C").
> =
> Kann mir da jemand weiterhelfen, was da schief gelaufen ist?
My German (Austria?) is really poor since I haven't used it in
the last 15+ years, but maybe this will be enough to get Ralf
back on track.
Deutsch?? Empfiehlt erfahren (erkennen?)--
=
printf "%15s %s\n", "Key", "Definition" ;
foreach $environment_variable (sort keys %ENV) {
printf "%15s --> %s\n", $environment_variable, $ENV{$environment_va=
riable} ;
};
=
I know I've completely trashed the intro, but it was worth a shot.
I just hope I haven't suggested that he dress up a tuba in lederhosen.
-- =
Andy Cantrell - cantrela@agcs.com
AG Communication Systems
------------------------------
Date: Mon, 25 Sep 2000 11:00:50 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Gunzip at Prohosting
Message-Id: <ivbusskg51mnivdh47b0ko4r0uj6f96uca@4ax.com>
BUCK NAKED1 wrote:
>#!/usr/bin/perl
>use CGI::Carp 'fatalsToBrowser';
>use Compress::Zlib;
>use Archive::Tar;
>$! = 1;
> $x = inflateInit()
> or die "Cannot create a inflation stream\n";
> $input = 'lwp.tar.gz';
>while (read(STDIN, $input, 4096))
> {
> ($output, $status) = $x->inflate(\$input);
> print $output
> if $status == Z_OK or $status == Z_STREAM_END;
> last if $status != Z_OK;
> }
That looks like far too much handywork to me. You know, Archive::Tar has
a built-in option to preprocess gzipped archives for you. All you need
to do is pass a true for the second parameter for the read method.
--
Bart.
------------------------------
Date: Mon, 25 Sep 2000 14:49:58 GMT
From: Erik.Dantes@wmich.edu
Subject: Re: How do I shut down an oracle database from perl script
Message-Id: <8qnomd$jhp$1@nnrp1.deja.com>
In article <zb1y5.14944$%h6.3374732@typhoon.nyroc.rr.com>,
"orassilv" <ssilv@rochester.rr.com> wrote:
> I am trying to shutdown an Oracle database.
> In unix I would have in my bourne shell script the following:
>
> ORACLE_SID=abcd; export ORACLE_SID
> svrmgrl <<EOF
> connect internal
> @some_sql_script
> shutdown immediate
> exit
>
> I have tried this in perl - no good - any ideas how to do this for
> perl/nt4.0?
>
> Thanks,
> orassilv
>
Have you tried to pass your connection string and script name on the
svrmgrl line? And remember that in Oracle 8, srvmgr is being phased
out...
Erik
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 25 Sep 2000 10:31:31 GMT
From: ceeim2@my-deja.com
Subject: Insert HTML file into another HTML file
Message-Id: <8qn9i4$29v$1@nnrp1.deja.com>
Hi folks,
Probably quite simple this but here goes.
I am writing a script to generate HTML code using the print statement.
I want to insert a chunk of HTML from a file that I have allready set
up. If I update this piece of HTML, then when the script is run, the
new HTML page reflects the changes that I have made.
Thanking you in advance,
Regards,
Iain.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 25 Sep 2000 12:52:40 GMT
From: clay@panix.com (Clay Irving)
Subject: Re: Insert HTML file into another HTML file
Message-Id: <slrn8suiko.arr.clay@panix3.panix.com>
On Mon, 25 Sep 2000 10:31:31 GMT, ceeim2@my-deja.com <ceeim2@my-deja.com> wrote:
>Probably quite simple this but here goes.
Yes. It seems simple.
>I am writing a script to generate HTML code using the print statement.
>I want to insert a chunk of HTML from a file that I have allready set
>up. If I update this piece of HTML, then when the script is run, the
>new HTML page reflects the changes that I have made.
Try this:
1. Open the file containing the HTML
2. Read the data
3. Print it
--
Clay Irving <clay@panix.com>
The test of tolerance comes when we are in a majority; the test of courage
comes when we are in a minority.
- Ralph W. Stockman
------------------------------
Date: Mon, 25 Sep 2000 10:17:03 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: Massive kill Unix and Perl
Message-Id: <slrn8su9tc.blv.rgarciasuarez@rafael.kazibao.net>
vivekvp wrote in comp.lang.perl.misc:
>
>Sometimes I have to kill processes that are hogging to many resouces -
>I want to write a script that will do mulitple kills. I do not want to
>kill the users - just knock off the rogue process.
>
>Let say the user name is USER the proces need to be killed is TEST
>
>What I usually have to is do a ps -ef | grep TEST then do a kill on the
>process id of TEST:
>
> UID PID PPID C STIME TTY TIME COMMAND
> USER 0 0 0 Sep 23 ? 0:05 NEEDED
> USER 1 0 0 Sep 23 ? 0:03 TEST
> USER 2 0 0 Sep 23 ? 0:07 NEEDED
> USER 3 0 0 Sep 23 ? 3:10 TEST
> USER 4 0 0 Sep 23 ? 0:05 NEEDED
>
>So I would want to kill 1 and 3 - how would I write a Perl script to do
>this using Unix system commands?
You're trying to reimplement the killall(1) Linux command, or the
pkill(1) Solaris command.
This is typically a task for shell programming. Here is a shell command
that does (it uses perl, because we are in c.l.p.m :)
ps -ef | perl -ne 'split && kill 9, $_[1] if /\bTEST$/'
--
# Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
awk has to be better at something. -- Larry Wall
------------------------------
Date: Mon, 25 Sep 2000 12:25:54 +0200
From: tony@svanstrom.com (Tony L. Svanstrom)
Subject: Re: Massive kill Unix and Perl
Message-Id: <1ehil5n.p46af1mjtc2aN%tony@svanstrom.com>
vivekvp <vivekvp@spliced.com> wrote:
> So I would want to kill 1 and 3 - how would I write a Perl script to do
> this using Unix system commands?
TFM can be your friend...
qx/STRING/
`STRING`
A string which is interpolated and then executed as a
system command. The collected standard output of the command is
returned. In scalar context, it comes back as a single (potentially
multi-line) string. In list context, returns a list of lines (however
you've defined lines with $/ or $INPUT_RECORD_SEPARATOR).
$today = qx{ date };
See O Operators" in the "I manpage for more discussion.
/Tony
--
/\___/\ Who would you like to read your messages today? /\___/\
\_@ @_/ Protect your privacy: <http://www.pgpi.com/> \_@ @_/
--oOO-(_)-OOo---------------------------------------------oOO-(_)-OOo--
on the verge of frenzy - i think my mask of sanity is about to slip
---ôôô---ôôô-----------------------------------------------ôôô---ôôô---
\O/ \O/ ©99-00 <http://www.svanstrom.com/?ref=news> \O/ \O/
------------------------------
Date: 25 Sep 2000 13:25:17 GMT
From: Randy Kobes <randy@theoryx5.uwinnipeg.ca>
Subject: Re: Multi-thread Perl with mod_perl
Message-Id: <8qnjnt$222$1@canopus.cc.umanitoba.ca>
In comp.lang.perl.misc, arguo <arguo@mail.educities.edu.tw> wrote:
> Hi, All
> Does anyone use mod_perl multi-thread perl ( ActiveSate Perl 5.6 )
> base on Win32 platform? It always crash when I use broswer to
> visit the web site.
Hi,
If you're compiling mod_perl for Win32 ActivePerl, you'll need
to get the latest mod_perl cvs version - links to that are found at
http://perl.apache.org/. A ppm package for Win32 ActivePerl, for
those based on Perl 5.6, can be installed by
ppm install
http://theoryx5.uwinnipeg.ca/ppmpackages/mod_perl.ppd
This should also run a post-install script which would grab
and install the required ApacheModulePerl.dll in your Apache
modules/ directory. At this same address are some other
Apache-* packages, but not Embperl yet - there's still some
issues for that that need to be sorted out.
best regards,
randy kobes
------------------------------
Date: Mon, 25 Sep 2000 14:49:39 GMT
From: patrick_k6801@my-deja.com
Subject: Nested Literals in Perl
Message-Id: <8qnolp$jhd$1@nnrp1.deja.com>
Hello NG,
I am trying to define a nested literal in perl. What is the
equivalent of the following LISP-code in Perl
(setq x '(1,2,(3,4),5))
When i try $a=\(1,2,\(3,4),5) I receive (1,2,SCALAR(blah),SCALAR
(blah),5). Other combinations also failed. the natural (1,2,(3,4),5)
leads to (1,2,3,4,5) since (3,4) is evaluated in "list context".
Can anybody help me ?
thanks in advance,
Patrick
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 25 Sep 2000 14:32:56 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <ssuogoim7oib5e@corp.supernews.com>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 18 Sep 2000 15:33:35 GMT and ending at
25 Sep 2000 14:09:26 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) 2000 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: 214 (43.1% of all posters)
Articles: 346 (21.6% of all articles)
Volume generated: 593.5 kb (20.9% of total volume)
- headers: 274.3 kb (5,516 lines)
- bodies: 315.4 kb (10,630 lines)
- original: 217.8 kb (7,740 lines)
- signatures: 3.4 kb (113 lines)
Original Content Rating: 0.691
Averages
========
Posts per poster: 1.6
median: 1.0 post
mode: 1 post - 149 posters
s: 1.4 posts
Message size: 1756.4 bytes
- header: 811.8 bytes (15.9 lines)
- body: 933.5 bytes (30.7 lines)
- original: 644.7 bytes (22.4 lines)
- signature: 10.1 bytes (0.3 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
10 12.0 ( 7.6/ 4.2/ 1.9) "Nicolas MONNET" <nico@monnet.to>
8 11.7 ( 6.4/ 5.1/ 2.8) "CJ Llewellyn" <darryl@work-thicker.co.uk>
6 11.7 ( 4.2/ 7.5/ 4.7) Powlow <powlow@my-deja.com>
6 18.7 ( 4.0/ 13.6/ 13.2) Hugo Bouckaert <hugo@fractalgraphics.com.au>
5 9.8 ( 4.2/ 5.6/ 3.9) "Dirk Koppers" <nospam@jillanddirk.com>
5 9.0 ( 4.3/ 4.7/ 2.8) Bruce Bowden <bbowden@mitre.org>
5 9.2 ( 4.1/ 4.3/ 3.0) Andy Flisher <andrew.flisher@onyx.net>
4 5.4 ( 2.4/ 3.0/ 1.9) "Robert Lund" <noone@dontbother.com>
4 6.2 ( 3.2/ 3.0/ 1.0) kevin metcalf <NOTkmetcalf@lighthouseNOTmarketingNOT.com>
4 8.7 ( 5.0/ 3.7/ 2.8) "Bruce Roberts" <no.junk.please.ber@attcanada.net>
These posters accounted for 3.6% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
18.7 ( 4.0/ 13.6/ 13.2) 6 Hugo Bouckaert <hugo@fractalgraphics.com.au>
12.0 ( 7.6/ 4.2/ 1.9) 10 "Nicolas MONNET" <nico@monnet.to>
11.7 ( 4.2/ 7.5/ 4.7) 6 Powlow <powlow@my-deja.com>
11.7 ( 6.4/ 5.1/ 2.8) 8 "CJ Llewellyn" <darryl@work-thicker.co.uk>
9.9 ( 1.4/ 8.5/ 8.4) 2 hao7@yahoo.com
9.8 ( 4.2/ 5.6/ 3.9) 5 "Dirk Koppers" <nospam@jillanddirk.com>
9.2 ( 4.1/ 4.3/ 3.0) 5 Andy Flisher <andrew.flisher@onyx.net>
9.1 ( 4.6/ 4.5/ 3.1) 4 "Kurt Schmidt" <fpuzvqgxcrnpu@tgr.arg>
9.0 ( 4.3/ 4.7/ 2.8) 5 Bruce Bowden <bbowden@mitre.org>
8.9 ( 2.9/ 6.0/ 2.1) 4 IDBugM <idbugm@idbugm.com>
These posters accounted for 3.9% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.0 / 1.0) 3 "Chris" <abatec@seattleu.edu>
1.000 ( 0.8 / 0.8) 3 Alex Hart <news@#nospam#althepal.com>
1.000 ( 0.9 / 0.9) 3 circuit_board@my-deja.com
1.000 ( 2.2 / 2.2) 4 J . Stone <jstone211@my-deja.com>
1.000 ( 2.8 / 2.8) 4 "Michael Love" <noone@nospam.com>
0.968 ( 13.2 / 13.6) 6 Hugo Bouckaert <hugo@fractalgraphics.com.au>
0.866 ( 1.5 / 1.8) 3 Neil Conway <nconway@klamath.dyndns.org>
0.808 ( 2.7 / 3.4) 4 "Jon" <vemba72@hotmail.com>
0.798 ( 1.2 / 1.5) 4 ian_tait@my-deja.com
0.789 ( 2.2 / 2.8) 3 Bill Moseley <usenet@hank.org>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.596 ( 2.8 / 4.7) 5 Bruce Bowden <bbowden@mitre.org>
0.586 ( 1.7 / 2.9) 4 tjmurphy9677@my-deja.com
0.566 ( 2.0 / 3.6) 3 Carl Fox <carlfox@surplusnet.com>
0.556 ( 2.8 / 5.1) 8 "CJ Llewellyn" <darryl@work-thicker.co.uk>
0.445 ( 1.9 / 4.2) 10 "Nicolas MONNET" <nico@monnet.to>
0.350 ( 2.1 / 6.0) 4 IDBugM <idbugm@idbugm.com>
0.339 ( 1.0 / 3.0) 4 kevin metcalf <NOTkmetcalf@lighthouseNOTmarketingNOT.com>
0.338 ( 0.7 / 2.0) 3 SomeWhat <registered12345@hotmail.com>
0.217 ( 0.8 / 3.8) 3 "Seiberdragan" <rpolzer@web.de>
0.213 ( 0.8 / 3.8) 3 "William A. Rowe, Jr." <wrowe@rowe-clan.you.know.why.net>
31 posters (14%) had at least three posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
31 alt.perl
27 comp.lang.perl.modules
26 comp.lang.basic.visual.misc
26 comp.lang.basic.misc
26 alt.comp.lang.learn.c-c++
26 alt.lang.basic
26 alt.comp.lang.borland-delphi
20 comp.lang.perl
7 comp.lang.perl.tk
5 alt.comp.lang.superlang
Top 10 Crossposters
===================
Articles Address
-------- -------
20 "Bruce Roberts" <no.junk.please.ber@attcanada.net>
10 "KBH" <KBH@nomail.com>
10 comeau@comeaucomputing.com
5 tapwater@roomtemperature.dog
5 "Bob May" <bobmay@nethere.com>
5 "Darren Siegel" <dsiegel@bellatlantic.net>
5 SM <n0spam@mail.com>
5 Daniel Frey <d.frey@aixigo.de>
5 "Keat" <Keat@beal.org.uk>
5 jerry@iss.u-net.com
------------------------------
Date: 25 Sep 2000 14:04:10 +0100
From: nobull@mail.com
Subject: Re: Perl sequential number generator
Message-Id: <u9vgvk39o5.fsf@wcl-l.bham.ac.uk>
Graham Daniell <gdaniell@wt.com.au> writes:
> Does anyone know where I can get sample perl code for generating a
> unique number for each user that clicks on a link - to provide a
> reference number for customer orders.
Yes. You can get it in the FAQ. Keyword "increment".
If you don't like the cut-and-paste approach to code reuse (I don't!)
then there's also a module on CPAN.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 25 Sep 2000 10:15:11 GMT
From: vivekvp <vivekvp@spliced.com>
Subject: Printer queues and Unix
Message-Id: <8qn8j5$1bp$1@nnrp1.deja.com>
I originally printed here - and got some questions as to why I want to
do this.
I am working on a large network. An it just so happens doing and
disable and enable on print queues using HP Jetdirect software makes it
work. I do not know why but it does. My mandate is to keep the
printers moving in the meantime til a solution is found. Thus the need
of the script.
I hope this helps explain why I need the script.
Thanks!!
The original request BELOW:
-----------------------------------
Hello,
I want to write a script that would disable printer queues then
reenable them with a perl script.
The print queues are setup in a unix environment.
Let say printers pr1 pr3 and pr3
I would like to do a:
disable pr1
disable pr2
disable pr3
then be able to do an:
enable pr1
enable pr2
enable pr3
problem is - I have about 300 printers to do.
I guess I could load a printer list (print.txt) and put it in a loop
with perl - and uses a system call to disable and enable:
ie
$a=print.txt
while $a
system call to unix ('disable $a')
next
then do the same for the for the enable.
But how do I code this in perl?
Any help?
Thanks,
V
--
He who fights and runs away, lives to run another day!
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 25 Sep 2000 13:53:35 GMT
From: amonotod <amonotod@netscape.net>
Subject: Re: Printer queues and Unix
Message-Id: <8qnlcm$fc5$1@nnrp1.deja.com>
In article <8qn8j5$1bp$1@nnrp1.deja.com>,
vivekvp <vivekvp@spliced.com> wrote:
<snip>
> disable and enable on print queues using HP Jetdirect software makes
> it work. I do not know why but it does. My mandate is to keep the
> printers moving in the meantime til a solution is found. Thus the
> need of the script.
<snip>
OK, so you have a bunch of HP JetDirect cards or print servers. Might I
suggest using SNMP? It definitely has security drawbacks if not
properly configured, but Perl is able to use SNMP. Myself, I do not
have an SNMP script to show you, but there are several modules listed on
CPAN ( http://www.perl.com/cpan ), one of which is by Graham Barr, whose
FTP module I found to be excellent. In fact, if his SNMP module is
anything like his FTP module, any example scripts he might give will
work right out of the box.
HTH,
amonotod
--
`\|||/ amonotod@
(@@) netscape.net
ooO_(_)_Ooo________________________________
_____|_____|_____|_____|_____|_____|_____|_____|
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 25 Sep 2000 10:56:23 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Pure perl encrypt/decryption?
Message-Id: <fqbussgp0oq1a5rvmnheuu265grhohod5f@4ax.com>
Abigail wrote:
>That entirely depends on your firewall configuration. For a webserver,
>why should a firewall let any package through bound for a port other
>than 80, regardless who initiated the connection?
Because 8080 is a pretty common port number, for example for a proxy?
;-)
--
Bart.
------------------------------
Date: Mon, 25 Sep 2000 14:51:01 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Range operator with "... /^$/"
Message-Id: <bgpuss437akog3mpj8u60kjisefmvtc4dr@4ax.com>
ollie_spencer@my-deja.com wrote:
>Yep, I did all the standard things, including using binmode(). See some
That's just it.
>of my earlier replies for my solution(finally!). Seems that chomp()
>only trimmed the \x0a from the end of my NT-stored data, leaving an
>\x0d. Evey line had \x0d in it, even those that appeared empty.
You SHOULD NOT have done binmode(). Binmode *prevents* conversion of
CRLF to "\n" (=LF), so you keep "\r" (=CR) characters in there were they
are not wanted.
You *want* to trat this as a text file.
--
Bart.
------------------------------
Date: Mon, 25 Sep 2000 14:14:10 GMT
From: amonotod <amonotod@netscape.net>
Subject: Re: Running lengthly perl scripts over cgi
Message-Id: <8qnmiv$gqj$1@nnrp1.deja.com>
In article <8qn2ft$qp1$1@nnrp1.deja.com>,
dj_morri@my-deja.com wrote:
> In article <henry-D90B29.02081022092000@news.metropolis.net.au>,
> Henry <henry@penninkilampi.net> wrote:
> > Optionally, you could spawn a pile of sub-processes to telnet into
> > the local machines simultaneously, that would speed up the process
> > somewhat.
>
> That sounds like an excellent solution. Only problem is that fork()
> is not implemented on Win32 NT Perl. Is there a way to spawn other
> processes under NT?
From
http://www.activestate.com/Products/ActivePerl/docs/lib/Pod/Win32.html
Win32::Spawn(COMMAND, ARGS, PID)
[CORE] Spawns a new process using the supplied COMMAND, passing in
arguments in the string ARGS. The pid of the new process is stored in
PID. This function is deprecated. Please use the Win32::Process module
instead.
I think that is your answer. Even though it is listed as deprecated in
5.6, I use it just fine in 5.005,
> (apart from amonotods neat dirmon solution).
Thank you!
HTH,
amonotod
http://www.geocities.com/amonotod
--
`\|||/ amonotod@
(@@) netscape.net
ooO_(_)_Ooo________________________________
_____|_____|_____|_____|_____|_____|_____|_____|
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 4421
**************************************
