[24413] in Perl-Users-Digest
Perl-Users Digest, Issue: 6601 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon May 24 11:06:44 2004
Date: Mon, 24 May 2004 08:05:08 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 24 May 2004 Volume: 10 Number: 6601
Today's topics:
Re: 2-1/2 regexp questions nobull@mail.com
Re: ActiveState Perl mangles text files [ignore last po <mothra@mothra.com>
Re: ActiveState Perl mangles text files <mothra@mothra.com>
Re: ActiveState Perl mangles text files <usenet@morrow.me.uk>
Re: Cannot launch simple applications (notepad, java) u (JDS)
Equivalent of the Mid function from VB? <connell@freebreakfast.co.uk>
Re: Equivalent of the Mid function from VB? <jack_challen@ocsl.co.uk>
Re: Equivalent of the Mid function from VB? <jurgenex@hotmail.com>
Re: Equivalent of the Mid function from VB? <connell@freebreakfast.co.uk>
filter in perl (Andrea Spitaleri)
Re: filter in perl <josef.moellers@fujitsu-siemens.com>
Re: filter in perl (Anno Siegel)
Re: filter in perl <rwxr-xr-x@gmx.de>
Re: filter in perl <ittyspam@yahoo.com>
How to detect $CORE::GLOBAL:: overrides? <newspost@coppit.org>
Moving Perl+modules from one directory to another <NNTP1@GCHQ.GSI.GOV.UK>
Netcat frontend - please help (Piotrek)
Re: Netcat frontend - please help <usenet@morrow.me.uk>
Re: Netcat frontend - please help <scobloke2@infotop.co.uk>
open file error <emanuele.matli@cern.ch>
Re: open file error <tore@aursand.no>
Re: open file error <tadmc@augustmail.com>
Paypal Scams... <mikey117@hotmail.com>
Re: quoting in perl command in shell script <this.address@is.invalid>
Re: rename files problem <bik.mido@tiscalinet.it>
Re: Sequential analysis in perl? (Jim Keenan)
Re: Sequential analysis in perl? <dwall@fastmail.fm>
Statistics for comp.lang.perl.misc <gbacon@hiwaay.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 24 May 2004 04:22:55 -0700
From: nobull@mail.com
Subject: Re: 2-1/2 regexp questions
Message-Id: <4dafc536.0405240322.2fe8bb57@posting.google.com>
Abigail <abigail@abigail.nl> wrote in message news:<slrncaskp3.ct.abigail@alexandra.abigail.nl>...
> use re 'eval';
> my $r = '\d+';
>
> my $re = qr /($r)(?{print "(", $- [-1], ", ", $+ [-1] - $- [-1], ")",
> " --> '$^N'\n"})(?!)/;
I perfer to avoid the need for "use re 'eval'" by compling the (?{})
in a separate qr//.
my $r = '\d+';
my $re = qr /(?{print "(", $- [-1], ", ", $+ [-1] - $- [-1], ")",
" --> '$^N'\n"})/;
$re = qr /($r)$re(?!)/;
------------------------------
Date: Mon, 24 May 2004 11:18:49 GMT
From: Mothra <mothra@mothra.com>
Subject: Re: ActiveState Perl mangles text files [ignore last post!]
Message-Id: <tSksc.16129322$Of.2690350@news.easynews.com>
>> Note that if you want to write Notepad-compatible files you will have to
>> open them with '>:encoding(utf16)' as well.
>>
> Being awkward now, but is there a way I do this with IO::File?
Sorry - was having a 'senior moment' there.
------------------------------
Date: Mon, 24 May 2004 11:17:05 GMT
From: Mothra <mothra@mothra.com>
Subject: Re: ActiveState Perl mangles text files
Message-Id: <40B1DA24.8030307@mothra.com>
>> Note that if you want to write Notepad-compatible files you will have to
>> open them with '>:encoding(utf16)' as well.
>>
> Being awkward now, but is there a way I do this with IO::File?
Actually ignore that...
------------------------------
Date: Mon, 24 May 2004 12:29:32 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: ActiveState Perl mangles text files
Message-Id: <c8sprc$l6f$1@wisteria.csv.warwick.ac.uk>
Quoth Mothra <mothra@mothra.com>:
> >
> > Note that if you want to write Notepad-compatible files you will have to
> > open them with '>:encoding(utf16)' as well.
> >
> Being awkward now, but is there a way I do this with IO::File?
Why? Perl's lexical filehandles (the 'open my $IN' in my example) make
IO::File obsolete, AFAICS.
Yes, there are two ways:
my $IN = IO::File->new('filename', '<:encoding(utf16)');
my $IN = IO::File->new('filename', 'r');
binmode $IN, ':encoding(utf16)';
Ben
--
Joy and Woe are woven fine,
A Clothing for the Soul divine William Blake
Under every grief and pine 'Auguries of Innocence'
Runs a joy with silken twine. ben@morrow.me.uk
------------------------------
Date: 24 May 2004 07:18:22 -0700
From: jds@iti-oh.com (JDS)
Subject: Re: Cannot launch simple applications (notepad, java) using Apache and PERL(CGI)
Message-Id: <6b2d6822.0405240618.cccf714@posting.google.com>
The applications that need to run are:
1. An X-windows application.
2. A Java Application.
Currently, I do understand the fact that the application that will
start will run on the server side. I also know that the java
application will need to be made into an applet and the X-windows
application will be also replaced by a web-based application. However,
I want to give a demo show what will eventually happen. In this case,
there is only one machine involved- the Apache server and the java
application and the x-windows application currently all run on the
same windows host.
What beats me is the fact that I cannot launch an application on the
same machine- I should be able to run the 4 lines of code to start a
notepad through the webserver. At this point, it is sufficient for my
demo purposes to be able to launch an application using Apache and
Perl as mentioned in my email.
Hope this explains the motivation.
Thanks,
Jai.
Johan Louwers <suntacNOSPAMPLEASE@dds.nl> wrote in message news:<big3b05mt2sje5pt9oot5ekdrsv2ln94sr@4ax.com>...
> What exactly do you want to do?
>
> The things you tell in your mail are running applications ... what
> kind of applications.... where is the application output send to?
>
>
> Regards,
> Johan Louwers.
>
>
> On 23 May 2004 20:51:20 -0700, jds@iti-oh.com (JDS) wrote:
>
> >Hi:
> >
> >Introduction:
> >-------------
> >I need to launch an Xwindows application and a java application from a
> >web-page running on Apache. The first is an exe file and the second is
> >a java file. I have a simple perl script to run these. These run fine
> >and the perl script launches the 2 applications (seperately), but I am
> >unable to get them to launch from an IE browser running on apache:
> >----------------------------
> >#!c:/perl/bin/perl.exe -w
> >use strict;
> >use CGI;
> >
> >my $q = new CGI;
> >print $q->header( "text/plain" );
> >system "cmd.exe /c test.bat";
> >#system "xapp ";
> >----------------------------
> >
> >test.bat is as follows:
> >-----test.bat-------
> >CALL notepad
> >REM CALL java -jar myapp.jar
> >--------------------
> >
> >DETAILS:
> >--------
> >1. I can run on windows 2000 from the DOS prompt as follows:
> >*xwindows application (xapp.exe)
> >c:> xapp
> >*Java application.
> >c:> test.bat
> >This brings up the GUI for my java application.
> >2. The perl script above works and launches the applications in a
> >seperate window. However, it waits for the application to finish- does
> >not spawn a thread and forget about them.
> >QUESTION: How can I do that? e.g. the notepad application is launched
> >and control returns irrespective of what the user does in the
> >application. Currently, the DOS prompt freezes till the user exists
> >the application and retruns.
> >
> >3. The above script does not run through the web-browser (IE running
> >apache). I had expected a seperate window to be launched for notepad,
> >or the xapp or the java application, but that does not happen.
> >QUESTION: I am lost. It looked like a simple problem and this must
> >have been experience before by folks. Would appreciate guidance
> >through this.
> >
> >Thanks,
> >
> >Jai.
------------------------------
Date: Mon, 24 May 2004 15:58:28 +0100
From: "Connell Gauld" <connell@freebreakfast.co.uk>
Subject: Equivalent of the Mid function from VB?
Message-Id: <c8t287$jpp$1@newsg2.svr.pol.co.uk>
Hey,
I'm trying to grab a section from a piece of text and I was wondering if
there was an equivalent to Visual Basic's Mid function in perl.
Basically it takes a start index (as a number of characters from the
beginning of the string) and a similar end index and returns the text
between them.
Thanks
Connell
------------------------------
Date: Mon, 24 May 2004 16:01:14 +0100
From: Jack Challen <jack_challen@ocsl.co.uk>
Subject: Re: Equivalent of the Mid function from VB?
Message-Id: <67osc.2$pN1.387@psinet-eu-nl>
Connell Gauld wrote:
> I'm trying to grab a section from a piece of text and I was wondering if
> there was an equivalent to Visual Basic's Mid function in perl.
yep. substr().
"perldoc -f substr" for more info
------------------------------
Date: Mon, 24 May 2004 15:01:58 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Equivalent of the Mid function from VB?
Message-Id: <G7osc.8292$o97.6453@nwrddc01.gnilink.net>
Connell Gauld wrote:
> I'm trying to grab a section from a piece of text and I was wondering
> if there was an equivalent to Visual Basic's Mid function in perl.
> Basically it takes a start index (as a number of characters from the
> beginning of the string) and a similar end index and returns the text
> between them.
perldoc -f substr
jue
------------------------------
Date: Mon, 24 May 2004 16:09:50 +0100
From: "Connell Gauld" <connell@freebreakfast.co.uk>
Subject: Re: Equivalent of the Mid function from VB?
Message-Id: <c8t2th$97n$1@news5.svr.pol.co.uk>
Thanks, worked great!
"Connell Gauld" <connell@freebreakfast.co.uk> wrote in message
news:c8t287$jpp$1@newsg2.svr.pol.co.uk...
> Hey,
>
> I'm trying to grab a section from a piece of text and I was wondering if
> there was an equivalent to Visual Basic's Mid function in perl.
> Basically it takes a start index (as a number of characters from the
> beginning of the string) and a similar end index and returns the text
> between them.
>
> Thanks
> Connell
>
>
------------------------------
Date: 24 May 2004 06:04:57 -0700
From: spiritelllo@interfree.it (Andrea Spitaleri)
Subject: filter in perl
Message-Id: <4de1519a.0405240504.728f68@posting.google.com>
Hi everyone,
I need to confirm a my doubt.
I use to make filter which they work perfectly. I am wondering if the
style of these scripts are perl-fashion or not. Ex in.txt:
home
dog
cat
home
car
bus
etc
etc
to grab the text from "home" to other "home" I use to do:
while(<>){
if(/^home/){
print;
while(<>){
print;
if(/^home/){
exit;
}}}}
to get:
home
dog
cat
home
but is not really perl style, i should say. any suggestion?
btw, in such way I print also the last line starting with home. If I
don't want print it?? so like:
home
dog
cat
many thanks
regards
andrea
------------------------------
Date: Mon, 24 May 2004 15:18:05 +0200
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: filter in perl
Message-Id: <c8ssmk$46l$1@nntp.fujitsu-siemens.com>
Andrea Spitaleri wrote:
> Hi everyone,
> I need to confirm a my doubt.
> I use to make filter which they work perfectly. I am wondering if the
> style of these scripts are perl-fashion or not. Ex in.txt:
Why is everybody so hot to write "perl-ish" code?
Putting technical aspects (functionality, performance, stability) aside, =
the best code is the code which you understand best.
Eg if you get confused by the implicit $_'s (like I do occasionally),=20
then don't use them, even if they are extreeeemy "perl-ish".
--=20
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
------------------------------
Date: 24 May 2004 13:38:51 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: filter in perl
Message-Id: <c8sttb$1rc$1@mamenchi.zrz.TU-Berlin.DE>
Andrea Spitaleri <spiritelllo@interfree.it> wrote in comp.lang.perl.misc:
> Hi everyone,
> I need to confirm a my doubt.
> I use to make filter which they work perfectly. I am wondering if the
> style of these scripts are perl-fashion or not. Ex in.txt:
>
> home
> dog
> cat
> home
> car
> bus
> etc
> etc
>
> to grab the text from "home" to other "home" I use to do:
>
> while(<>){
> if(/^home/){
> print;
> while(<>){
> print;
> if(/^home/){
> exit;
> }}}}
> to get:
>
> home
> dog
> cat
> home
> but is not really perl style, i should say. any suggestion?
Most of all you're lacking indentation and white space.
while ( <> ) {
if ( /^home/ ) {
print;
while(<>){
print;
if(/^home/){
exit;
}
}
}
}
> btw, in such way I print also the last line starting with home. If I
> don't want print it?? so like:
>
> home
> dog
> cat
Then swap the last "if" clause and the following "print" line.
Using "exit" to break out of a loop is overkill (you can take that
literally, it kills your program). Give the outer loop a label, say
"LOOP:", and replace "exit" with "last LOOP".
But you don't need deeply nested loops for this:
my $printing;
while ( <DATA> ) {
$printing = ! $printing if /^home/;
print;
}
does the same thing.
Anno
------------------------------
Date: 24 May 2004 13:43:49 GMT
From: Lukas Mai <rwxr-xr-x@gmx.de>
Subject: Re: filter in perl
Message-Id: <c8su6l$m0p$1@wsc10.lrz-muenchen.de>
Andrea Spitaleri schrob:
> Hi everyone,
> I need to confirm a my doubt.
> I use to make filter which they work perfectly. I am wondering if the
> style of these scripts are perl-fashion or not. Ex in.txt:
> home
> dog
> cat
> home
> car
> bus
> etc
> etc
> to grab the text from "home" to other "home" I use to do:
[...]
while (<>) {
if (/home/ ... /home/) {
print;
}
}
> btw, in such way I print also the last line starting with home. If I
> don't want print it?? so like:
> home
> dog
> cat
while (<>) {
if (my $seq = /home/ ... /home/) {
last if $seq =~ /E0$/;
print;
}
}
Read perldoc perlop about the "..." operator in scalar context.
HTH, Lukas
--
BEGIN{$^H {q}=sub{print$_[1]};$^H |=0x28000}"Just another Perl hacker,\n"
------------------------------
Date: Mon, 24 May 2004 09:48:18 -0400
From: Paul Lalli <ittyspam@yahoo.com>
Subject: Re: filter in perl
Message-Id: <20040524093429.X382@dishwasher.cs.rpi.edu>
On Mon, 24 May 2004, Andrea Spitaleri wrote:
> Hi everyone,
> I need to confirm a my doubt.
> I use to make filter which they work perfectly. I am wondering if the
> style of these scripts are perl-fashion or not. Ex in.txt:
>
> home
> dog
> cat
> home
> car
> bus
> etc
> etc
>
> to grab the text from "home" to other "home" I use to do:
>
> while(<>){
> if(/^home/){
> print;
> while(<>){
> print;
> if(/^home/){
> exit;
> }}}}
> to get:
>
> home
> dog
> cat
> home
> but is not really perl style, i should say. any suggestion?
This is almost exactly what the ... operator is intended for:
while (<DATA>){
print if /^home/ ... /^home/;
}
__DATA__
desk
home
dog
cat
home
car
bus
You can read about the ... operator in perldoc perlop
> btw, in such way I print also the last line starting with home. If I
> don't want print it?? so like:
> home
> dog
> cat
For this one, I'd use the xor operator instead. Again, read about it in
perldoc perlop
my $flag;
while (<DATA>){
$flag = ($flag xor /^home/);
print if $flag;
}
__DATA__
desk
home
dog
cat
home
car
bus
Paul Lalli
------------------------------
Date: Mon, 24 May 2004 14:35:06 GMT
From: David Coppit <newspost@coppit.org>
Subject: How to detect $CORE::GLOBAL:: overrides?
Message-Id: <Pine.BSF.4.60.0405241027570.68127@www.provisio.net>
Greetings!
Does anyone know a way that I can detect whether *CORE::GLOBAL::die has
been overridden? \&CORE::GLOBAL::die ne \&CORE::die, so I'm not sure how
to handle it.
The reason I ask is that I'm trying to workaround some bizarre behavior in
the following code:
my $OLD_DIE;
BEGIN
{
# Store any previously overwritten die
$OLD_DIE = \&CORE::GLOBAL::die;
*CORE::GLOBAL::die = \&my_die;
}
sub my_die
{
# do some stuff
&$OLD_DIE(@_);
}
If CORE::GLOBAL::die has already been overwritten, it works as expected.
However, if it hasn't, then my_die gets called instead of CORE::die.
(Somehow $OLD_DIE is being set to my_die?!)
I figured if I could detect that it wasn't overridden, then I can directly
call CORE::die and avoid the infinite recursion.
Thanks,
David
------------------------------
Date: Mon, 24 May 2004 10:26:45 +0100
From: "NNTP1" <NNTP1@GCHQ.GSI.GOV.UK>
Subject: Moving Perl+modules from one directory to another
Message-Id: <9CAAEA8E74806242BB9A850881CC876F01F4AC@PIACHEEXG00.GCHQ.GOV.UK>
SSBub3JtYWxseSBidWlsZCBQZXJsIGZvciB0ZXN0aW5nIGluIG9uZSBkaXJlY3RvcnkgKGFsb25n
IHdpdGggYSBkb3plbiBvciBzbyBDUEFOIG1vZHVsZXMpIGFuZCB0aGVuLCBvbmNlIHVzZXJzIGFy
ZSBzYXRpc2ZpZWQgd2l0aCBpdCwgcmVidWlsZCBpbiBhIHNlY29uZCwgbGl2ZSBkaXJlY3Rvcnku
IFRoaXMgY2FuIGRlcHJpdmUgdXNlcnMgb2YgYSB3b3JraW5nIFBlcmwgZm9yIGEgZmV3IGhvdXJz
LCB3aGljaCBhbm5veXMgdGhlbSA6LSkNCiANClNvIGZhciwgdGhlIG9ubHkgc2hvcnQtY3V0IEkn
dmUgZm91bmQgaXMgdG8gcHJlLWNvbXBpbGUgUGVybCBiZWZvcmUgcmVtb3ZpbmcgdGhlIHByZXZp
b3VzIGxpdmUgdmVyc2lvbiwgc28gdGhhdCBJIG9ubHkgaGF2ZSB0byBkbyB0aGUgJ21ha2UgaW5z
dGFsbCcgcGhhc2UgdG8gZ2V0IGEgbWluaW1hbCBpbnN0YWxsIHVwIGFuZCBydW5uaW5nLiBJZGVh
bGx5LCBJJ2QgbGlrZSB0byBidWlsZCBhIGNvbXBsZXRlIGluc3RhbGwgb2YgUGVybCwgaW5jbHVk
aW5nIGEgYnVuY2ggb2YgQ1BBTiBtb2R1bGVzLCBpbiBvbmUgZGlyZWN0b3J5IGFuZCB0aGVuIG1v
dmUgaXQgdG8gYW5vdGhlciAtIGlzIHRoaXMgcG9zc2libGU/DQogDQpJJ3ZlIGxvb2tlZCBhdCB0
aGUgZG9jcyBhbmQgb24gdGhlIHdlYjsgc28gZmFyLCBJJ3ZlIG9ubHkgZm91bmQgb3V0IGhvdyB0
byBkbyB0aGlzIGZvciBQZXJsIHdpdGhvdXQgYW55IGV4dHJhIG1vZHVsZXMsIHdoaWNoIGlzbid0
IHRoZSBib3R0bGVuZWNrIGluIHRoaXMgY2FzZS4NCiANClRoZSBzaW1wbGVzdCBzb2x1dGlvbiAt
IG1ha2luZyAvdXNyL2Jpbi9wZXJsIGEgc29mdC1saW5rIHRvIGEgcmVhbCBpbnN0YWxsYXRpb24g
LSBpcyB1bmZvcnR1bmF0ZWx5IG5vdCBvbmUgSSBjYW4gdXNlLg0KIA0K
------------------------------
Date: 24 May 2004 05:17:21 -0700
From: red.guy@gazeta.pl (Piotrek)
Subject: Netcat frontend - please help
Message-Id: <7399ef66.0405240417.c53f30@posting.google.com>
Hello,
I have a task to write a ftp client using a compiled version of linux
netcat. I figures this would be a good way to learn perl ;)
What I need to do is to take the default input and output from a
launched netcat prog. and make a frontend.
I need to do something like (in pseudo): if (INPUT == "331 Password
required for xxx") { print("PASS xxx1"); } , make a command prompt and
some commands like if (COMMAND == "ls") { print("DIR"); }.
Can You tell me how to do that?
Especially how to reditect the input/output and script it.
Thank You!
------------------------------
Date: Mon, 24 May 2004 12:31:59 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: Netcat frontend - please help
Message-Id: <c8spvv$l6f$2@wisteria.csv.warwick.ac.uk>
Quoth red.guy@gazeta.pl (Piotrek):
> I have a task to write a ftp client using a compiled version of linux
> netcat. I figures this would be a good way to learn perl ;)
>
> What I need to do is to take the default input and output from a
> launched netcat prog. and make a frontend.
>
> I need to do something like (in pseudo): if (INPUT == "331 Password
> required for xxx") { print("PASS xxx1"); } , make a command prompt and
> some commands like if (COMMAND == "ls") { print("DIR"); }.
If this isn't homework, use Net::FTP instead.
Otherwise, do your work yourself.
Ben
--
perl -e'print map {/.(.)/s} sort unpack "a2"x26, pack "N"x13,
qw/1632265075 1651865445 1685354798 1696626283 1752131169 1769237618
1801808488 1830841936 1886550130 1914728293 1936225377 1969451372
2047502190/' # ben@morrow.me.uk
------------------------------
Date: Mon, 24 May 2004 13:53:16 +0000 (UTC)
From: Ian Wilson <scobloke2@infotop.co.uk>
Subject: Re: Netcat frontend - please help
Message-Id: <c8suoc$g33$1@titan.btinternet.com>
Piotrek wrote:
> Hello,
>
> I have a task to write a ftp client using a compiled version of linux
> netcat. I figures this would be a good way to learn perl ;)
I'd have thought it was better to use one of Perl's FTP modules. To me,
this would be a more natural way of using Perl. Search CPAN for FTP.
Otherwise program Sockets directly, it's not that hard in Perl. The
Camel book used to have examples of this.
> What I need to do is to take the default input and output from a
> launched netcat prog. and make a frontend.
There is already a program that does this kind of thing, called Expect.
In addition, Perl has an "Expect" module.
> I need to do something like (in pseudo): if (INPUT == "331 Password
> required for xxx") { print("PASS xxx1"); } , make a command prompt and
> some commands like if (COMMAND == "ls") { print("DIR"); }.
>
> Can You tell me how to do that?
I imagine the main complication will be timeouts and trapping & handling
of exceptions & errors. Expect makes this easier. I find that dialogues
with interactive programs often seem much more event driven than linear.
> Especially how to reditect the input/output and script it.
Have you looked in "Learning Perl" by O'Reilly, or their "Perl CookBook"?
If I was a Perl neophyte, I'd find a better problem for a learning
exercise than this one. YMMV.
------------------------------
Date: Mon, 24 May 2004 12:53:55 +0200
From: Emanuele Matli <emanuele.matli@cern.ch>
Subject: open file error
Message-Id: <c8sk83$95r$1@sunnews.cern.ch>
Hi all,
I have a, probably, stupid problem, but I'm new to perl (not to
programming) and I can't see where the problem is.
A simple program containing this command:
open(FH, "test.txt") || die $!;
gives the following answer:
"No such file or directory"
The file is there and the permissions on the sever dir are ok.
On the other hand, if I try to open a file to write I get a permission
error because I don't have the right to write in the same dir.
Thanks.
------------------------------
Date: Mon, 24 May 2004 13:41:11 +0200
From: Tore Aursand <tore@aursand.no>
Subject: Re: open file error
Message-Id: <pan.2004.05.24.11.40.33.480793@aursand.no>
On Mon, 24 May 2004 12:53:55 +0200, Emanuele Matli wrote:
> A simple program containing this command:
>
> open(FH, "test.txt") || die $!;
>
> gives the following answer:
>
> "No such file or directory"
>
> The file is there and the permissions on the sever dir are ok.
Can't be. Try to open the file using its full path, e.g:
open( FH, '/path/to/file/test.txt' ) or die "$!\n";
And - BTW: Don't use double quotes if you really don't have to. In this
case, you don't have to.
--
Tore Aursand <tore@aursand.no>
"A car is not the only thing that can be recalled by its maker."
(Unknown)
------------------------------
Date: Mon, 24 May 2004 07:18:36 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: open file error
Message-Id: <slrncb3q0s.ocv.tadmc@magna.augustmail.com>
Emanuele Matli <emanuele.matli@cern.ch> wrote:
> I have a, probably, stupid problem, but I'm new to perl (not to
> programming) and I can't see where the problem is.
>
> A simple program containing this command:
>
> open(FH, "test.txt") || die $!;
>
> gives the following answer:
>
> "No such file or directory"
>
> The file is there
You would not get that message if the file was really "there".
Machines don't make mistakes. People do. :-)
> and the permissions on the sever dir are ok.
Server? What server?
No server is required to run Perl programs.
This must be a stealth-CGI question.
Is your Perl program running in a CGI environment perchance?
I'll guess that "there" (the cwd) is not where you think it is.
It is probably some directory other than where the file is.
Either chdir() to where the file is, or use an absolute, rather
than relative, path to the file.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 24 May 2004 14:00:10 GMT
From: "Mikey" <mikey117@hotmail.com>
Subject: Paypal Scams...
Message-Id: <Kdnsc.33584$KO2.17138@fe2.texas.rr.com>
I am so sick & tired of reading bullshit on how you can get rich with Paypal!
***News Flash***
PAYPAL DOESN"T GIVE THE $5 REFERRALS ANYMORE!
If you don't believe me, go to
https://www.paypal.com/cgi-bin/webscr?cmd=_help-ext&leafid=54253&answer_id=20106782
and read all about it!
All these people are doing is trying to get your $5 & you will get NOTHING in return!
You have been advised...
------------------------------
Date: Mon, 24 May 2004 12:55:13 +0000
From: Stephane CHAZELAS <this.address@is.invalid>
Subject: Re: quoting in perl command in shell script
Message-Id: <slrncb3ol1.ao.stephane.chazelas@spam.is.invalid>
2004-05-24, 09:31(+00), Ben Morrow:
[...]
>> > > Try: eval $cmd
>> >
>> > Please get used to:
>> >
>> > eval "$cmd"
>>
>> Why?
>
> Shell, not Perl. Presumably its more portable.
No, it's because
eval $cmd
in shell, would be the equivalent of perl's:
eval(join(" ", map(glob, split($IFS_regexp, $cmd))))
IT'S ALMOST ALWAYS WRONG TO LEAVE A VARIABLE UNQUOTED IN SHELL
SCRIPTS.
--
Stephane
------------------------------
Date: Mon, 24 May 2004 13:59:21 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: rename files problem
Message-Id: <2rn3b05uqhh5ook34cb7tf91nfnhid921v@4ax.com>
On 23 May 2004 12:10:15 -0700, ehab_aziz2001@yahoo.com
(hpy_awad@yahoo.com) wrote:
>I have some files I want to rename them upon parts of their names .
>For example : files :
>part03_iti_r01_ch03_ver03_conditional_statements_one_if_TV_Rental_bills.c
>part03_iti_r01_ch03_ver04_conditional_statements_one_if_else_TV_Rental_bills.c
>part03_iti_r01_ch03_ver05_conditional_statements_multi_if_else_TV_Rental_bills.c
>part03_iti_r01_ch03_ver06_conditional_statements_switch_TV_Rental_bills.c
[snip]
>I will convert
>part03_iti_r01_ch03_ver03_conditional_statements_one_if_TV_Rental_bills.c
>I chose ex^^ & ^^.c
>
>Which utility I can choose for accomplishing thar task ?
>sed,Perl.... How can I use it in a loop?
If your filenames are *really* that regular, then you may use
something like
# ls *.c
[snip list as above]
# perl -e '$"=""; rename $_, "ex@{[(/\d+/g)[2,3]]}.c" for @ARGV' *.c
# ls *.c
ex0303.c ex0304.c ex0305.c ex0306.c
Michele
--
you'll see that it shouldn't be so. AND, the writting as usuall is
fantastic incompetent. To illustrate, i quote:
- Xah Lee trolling on clpmisc,
"perl bug File::Basename and Perl's nature"
------------------------------
Date: 24 May 2004 06:06:57 -0700
From: jkeen_via_google@yahoo.com (Jim Keenan)
Subject: Re: Sequential analysis in perl?
Message-Id: <196cb7af.0405240506.67dc393e@posting.google.com>
D Cameron <davcamer@interchange.ubc.ca> wrote in message news:<c8rjgb$6rb$1@nntp.itservices.ubc.ca>...
[snip]
Are the links at this Google search for: Markov Perl "sequential
analysis" of any use?
http://www.google.com/search?as_q=Markov+Perl&num=10&hl=en&ie=UTF-8&btnG=Google+Search&as_epq=sequential+analysis&as_oq=&as_eq=&lr=&as_ft=i&as_filetype=&as_qdr=all&as_nlo=&as_nhi=&as_occt=any&as_dt=i&as_sitesearch=&safe=images
Jim Keenan
------------------------------
Date: Mon, 24 May 2004 14:00:18 -0000
From: "David K. Wall" <dwall@fastmail.fm>
Subject: Re: Sequential analysis in perl?
Message-Id: <Xns94F365C701541dkwwashere@216.168.3.30>
D Cameron <davcamer@interchange.ubc.ca> wrote:
> I just started writing perl a couple of weeks ago when I walked on
> to a project that was using perl to extract data from a raw data
> file. It has been a dream for text processing, as advertised. But
> after the data is extracted I want to do some statistical tests of
> the sequential analysis variety, and I'm not sure if perl is the
> best way to go. I was hoping some people here could offer some
> opinions.
>
> The questions I want to answer are along the lines of showing that
> a Markov chain is of order r, and not order r-1; looking at
> individual cells of a contingency table to see which ones are
> significant; and calculating the likelihood ratio chi-square
> (LRX^2).
>
> The calculations involve a lot of matrix manipulation which I'm
> currently doing with 2D arrays and lots of for(i;i<n;i++) loops.
> I've searched around CPAN a bit but the Statistics and Algorithm
> namespaces didn't offer what I was looking for. After getting
> great results from Algorithm::Cluster I was hoping I'd find
> something similar for sequential analysis.
You might take a look at the R language: http://www.r-project.org/
It may be more appropriate for your purpose. There's no reason you
can't use Perl to massage your data into a usable form and then use R
as the analysis language.
------------------------------
Date: Mon, 24 May 2004 12:25:36 -0000
From: Greg Bacon <gbacon@hiwaay.net>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <10b3qe0h56qqo50@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 17 May 2004 12:41:51 GMT and ending at
24 May 2004 12:55:13 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) 2004 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@(?:.*\.)?perl\.com
faq\@(?:.*\.)?denver\.pm\.org
comdog\@panix\.com
Totals
======
Posters: 187
Articles: 599 (257 with cutlined signatures)
Threads: 122
Volume generated: 1119.2 kb
- headers: 545.4 kb (9,863 lines)
- bodies: 534.6 kb (17,422 lines)
- original: 315.5 kb (11,277 lines)
- signatures: 38.7 kb (772 lines)
Original Content Rating: 0.590
Averages
========
Posts per poster: 3.2
median: 2 posts
mode: 1 post - 88 posters
s: 4.9 posts
Posts per thread: 4.9
median: 3.0 posts
mode: 2 posts - 28 threads
s: 5.7 posts
Message size: 1913.3 bytes
- header: 932.3 bytes (16.5 lines)
- body: 914.0 bytes (29.1 lines)
- original: 539.3 bytes (18.8 lines)
- signature: 66.1 bytes (1.3 lines)
Top 20 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
49 101.6 ( 45.9/ 43.4/ 21.9) Ben Morrow <usenet@morrow.me.uk>
26 52.6 ( 19.2/ 33.4/ 15.9) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
19 68.8 ( 23.6/ 42.9/ 38.3) tadmc@augustmail.com
19 33.8 ( 18.3/ 15.5/ 8.6) krakle <krakle@visto.com>
18 42.2 ( 18.2/ 19.9/ 7.9) Uri Guttman <uri@stemsystems.com>
13 20.2 ( 13.1/ 7.1/ 3.9) "Jürgen Exner" <jurgenex@hotmail.com>
12 18.3 ( 9.6/ 7.9/ 4.1) Gunnar Hjalmarsson <noreply@gunnar.cc>
11 15.8 ( 9.4/ 6.1/ 1.9) "John W. Krahn" <krahnj@acm.org>
10 16.3 ( 9.8/ 6.4/ 3.7) "gnari" <gnari@simnet.is>
10 13.4 ( 7.6/ 5.8/ 2.2) Gregory Toomey <nospam@bigpond.com>
9 20.9 ( 8.1/ 12.7/ 5.8) Richard Morse <remorse@partners.org>
9 17.2 ( 9.6/ 5.7/ 1.6) John Bokma <postmaster@castleamber.com>
9 20.6 ( 7.7/ 12.8/ 5.8) "Bigus" <someone@somewhere.com>
9 13.3 ( 9.0/ 3.3/ 0.8) Bob <bob.lockie.NOSPAM@mail.com>
8 16.3 ( 9.5/ 6.2/ 2.2) "A. Sinan Unur" <1usa@llenroc.ude>
8 12.5 ( 7.5/ 5.0/ 3.7) Mothra <mothra@mothra.com>
8 9.8 ( 6.2/ 3.2/ 1.3) Edward Wijaya <ewijaya@singnet.com.sg>
7 16.4 ( 8.3/ 8.0/ 5.6) "Alan J. Flavell" <flavell@ph.gla.ac.uk>
7 11.0 ( 5.7/ 3.4/ 1.5) Randal L. Schwartz <merlyn@stonehenge.com>
6 15.9 ( 3.9/ 10.7/ 4.5) tassilo.parseval@post.rwth-aachen.de
These posters accounted for 44.6% of all articles.
Top 20 Posters by Number of Followups
=====================================
(kb) (kb) (kb) (kb)
Followups Volume ( hdr/ body/ orig) Address
--------- -------------------------- -------
49 101.6 ( 45.9/ 43.4/ 21.9) Ben Morrow <usenet@morrow.me.uk>
26 52.6 ( 19.2/ 33.4/ 15.9) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
19 33.8 ( 18.3/ 15.5/ 8.6) krakle <krakle@visto.com>
18 42.2 ( 18.2/ 19.9/ 7.9) Uri Guttman <uri@stemsystems.com>
17 68.8 ( 23.6/ 42.9/ 38.3) tadmc@augustmail.com
13 20.2 ( 13.1/ 7.1/ 3.9) "Jürgen Exner" <jurgenex@hotmail.com>
11 15.8 ( 9.4/ 6.1/ 1.9) "John W. Krahn" <krahnj@acm.org>
11 18.3 ( 9.6/ 7.9/ 4.1) Gunnar Hjalmarsson <noreply@gunnar.cc>
10 13.4 ( 7.6/ 5.8/ 2.2) Gregory Toomey <nospam@bigpond.com>
10 16.3 ( 9.8/ 6.4/ 3.7) "gnari" <gnari@simnet.is>
9 20.9 ( 8.1/ 12.7/ 5.8) Richard Morse <remorse@partners.org>
8 16.3 ( 9.5/ 6.2/ 2.2) "A. Sinan Unur" <1usa@llenroc.ude>
8 17.2 ( 9.6/ 5.7/ 1.6) John Bokma <postmaster@castleamber.com>
8 20.6 ( 7.7/ 12.8/ 5.8) "Bigus" <someone@somewhere.com>
7 16.4 ( 8.3/ 8.0/ 5.6) "Alan J. Flavell" <flavell@ph.gla.ac.uk>
7 11.0 ( 5.7/ 3.4/ 1.5) Randal L. Schwartz <merlyn@stonehenge.com>
6 15.9 ( 3.9/ 10.7/ 4.5) tassilo.parseval@post.rwth-aachen.de
6 13.3 ( 9.0/ 3.3/ 0.8) Bob <bob.lockie.NOSPAM@mail.com>
6 12.5 ( 7.5/ 5.0/ 3.7) Mothra <mothra@mothra.com>
6 10.4 ( 4.4/ 6.0/ 2.8) "David K. Wall" <dwall@fastmail.fm>
These posters accounted for 51.2% of all followups.
Top 20 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
101.6 ( 45.9/ 43.4/ 21.9) 49 Ben Morrow <usenet@morrow.me.uk>
68.8 ( 23.6/ 42.9/ 38.3) 19 tadmc@augustmail.com
52.6 ( 19.2/ 33.4/ 15.9) 26 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
42.2 ( 18.2/ 19.9/ 7.9) 18 Uri Guttman <uri@stemsystems.com>
33.8 ( 18.3/ 15.5/ 8.6) 19 krakle <krakle@visto.com>
20.9 ( 8.1/ 12.7/ 5.8) 9 Richard Morse <remorse@partners.org>
20.6 ( 7.7/ 12.8/ 5.8) 9 "Bigus" <someone@somewhere.com>
20.2 ( 13.1/ 7.1/ 3.9) 13 "Jürgen Exner" <jurgenex@hotmail.com>
18.3 ( 9.6/ 7.9/ 4.1) 12 Gunnar Hjalmarsson <noreply@gunnar.cc>
17.2 ( 9.6/ 5.7/ 1.6) 9 John Bokma <postmaster@castleamber.com>
16.4 ( 8.3/ 8.0/ 5.6) 7 "Alan J. Flavell" <flavell@ph.gla.ac.uk>
16.3 ( 9.8/ 6.4/ 3.7) 10 "gnari" <gnari@simnet.is>
16.3 ( 9.5/ 6.2/ 2.2) 8 "A. Sinan Unur" <1usa@llenroc.ude>
15.9 ( 3.9/ 10.7/ 4.5) 6 tassilo.parseval@post.rwth-aachen.de
15.8 ( 9.4/ 6.1/ 1.9) 11 "John W. Krahn" <krahnj@acm.org>
15.2 ( 3.5/ 11.6/ 9.3) 5 dan baker <botfood@yahoo.com>
13.4 ( 7.6/ 5.8/ 2.2) 10 Gregory Toomey <nospam@bigpond.com>
13.3 ( 9.0/ 3.3/ 0.8) 9 Bob <bob.lockie.NOSPAM@mail.com>
12.9 ( 6.8/ 6.1/ 2.2) 5 Kevin Collins <spamtotrash@toomuchfiction.com>
12.5 ( 7.5/ 5.0/ 3.7) 8 Mothra <mothra@mothra.com>
These posters accounted for 48.6% of the total volume.
Top 10 Posters by Volume of Original Content (min. ten posts)
=============================================================
(kb)
Posts orig Address
----- ----- -------
19 38.3 tadmc@augustmail.com
49 21.9 Ben Morrow <usenet@morrow.me.uk>
26 15.9 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
19 8.6 krakle <krakle@visto.com>
18 7.9 Uri Guttman <uri@stemsystems.com>
12 4.1 Gunnar Hjalmarsson <noreply@gunnar.cc>
13 3.9 "Jürgen Exner" <jurgenex@hotmail.com>
10 3.7 "gnari" <gnari@simnet.is>
10 2.2 Gregory Toomey <nospam@bigpond.com>
11 1.9 "John W. Krahn" <krahnj@acm.org>
These posters accounted for 34.4% of the original volume.
Top 10 Posters by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.893 ( 38.3 / 42.9) 19 tadmc@augustmail.com
0.574 ( 3.7 / 6.4) 10 "gnari" <gnari@simnet.is>
0.557 ( 3.9 / 7.1) 13 "Jürgen Exner" <jurgenex@hotmail.com>
0.554 ( 8.6 / 15.5) 19 krakle <krakle@visto.com>
0.525 ( 4.1 / 7.9) 12 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.504 ( 21.9 / 43.4) 49 Ben Morrow <usenet@morrow.me.uk>
0.478 ( 15.9 / 33.4) 26 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.397 ( 7.9 / 19.9) 18 Uri Guttman <uri@stemsystems.com>
0.380 ( 2.2 / 5.8) 10 Gregory Toomey <nospam@bigpond.com>
0.312 ( 1.9 / 6.1) 11 "John W. Krahn" <krahnj@acm.org>
Bottom 10 Posters by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.893 ( 38.3 / 42.9) 19 tadmc@augustmail.com
0.574 ( 3.7 / 6.4) 10 "gnari" <gnari@simnet.is>
0.557 ( 3.9 / 7.1) 13 "Jürgen Exner" <jurgenex@hotmail.com>
0.554 ( 8.6 / 15.5) 19 krakle <krakle@visto.com>
0.525 ( 4.1 / 7.9) 12 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.504 ( 21.9 / 43.4) 49 Ben Morrow <usenet@morrow.me.uk>
0.478 ( 15.9 / 33.4) 26 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.397 ( 7.9 / 19.9) 18 Uri Guttman <uri@stemsystems.com>
0.380 ( 2.2 / 5.8) 10 Gregory Toomey <nospam@bigpond.com>
0.312 ( 1.9 / 6.1) 11 "John W. Krahn" <krahnj@acm.org>
10 posters (5%) had at least ten posts.
Top 20 Threads by Number of Posts
=================================
Posts Subject
----- -------
39 Password scheme/Persistent session...
35 Perl vs PHP
17 Meaning of Orthogonality
16 Testing whether given file is open?
15 2-1/2 regexp questions
14 ISO two Perl idioms...
12 Called as CGI or from command line?
12 rmdir Question
11 How to find the target of a Unix symlink?
11 random IP
9 advice on backing up a DB from server?
9 String search/match question
9 Win32, FTP, line ends
8 SOLVED: How do I scope a variable if the variable name contains a variable?
8 perlmagick and image size
8 Sockets: receiving data
8 Parsing a text file.....
8 quoting in perl command in shell script
8 Converting file-input argument as string
8 Problem installing modules
These threads accounted for 44.2% of all articles.
Top 20 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
83.6 ( 44.4/ 38.0/ 20.7) 39 Password scheme/Persistent session...
56.9 ( 33.0/ 20.3/ 10.8) 35 Perl vs PHP
34.3 ( 2.0/ 32.3/ 32.3) 2 Posting Guidelines for comp.lang.perl.misc ($Revision: 1.5 $)
32.4 ( 12.1/ 19.3/ 10.7) 15 2-1/2 regexp questions
29.9 ( 16.4/ 12.0/ 6.1) 17 Meaning of Orthogonality
29.2 ( 14.9/ 13.1/ 6.8) 16 Testing whether given file is open?
29.2 ( 11.1/ 16.3/ 7.2) 14 ISO two Perl idioms...
24.9 ( 13.2/ 10.9/ 5.1) 12 rmdir Question
23.0 ( 9.2/ 13.2/ 8.0) 8 SOLVED: How do I scope a variable if the variable name contains a variable?
21.6 ( 7.1/ 14.3/ 9.9) 8 perlmagick and image size
20.5 ( 11.7/ 8.4/ 5.0) 12 Called as CGI or from command line?
19.5 ( 8.0/ 11.0/ 4.2) 8 Sockets: receiving data
18.6 ( 9.9/ 7.3/ 3.3) 11 How to find the target of a Unix symlink?
17.1 ( 10.0/ 5.9/ 2.7) 11 random IP
16.9 ( 6.0/ 10.6/ 6.7) 7 iterating over arrays with map - problem
16.8 ( 6.8/ 9.6/ 5.7) 8 Parsing a text file.....
16.7 ( 7.9/ 8.6/ 5.4) 9 advice on backing up a DB from server?
15.8 ( 7.3/ 8.2/ 4.0) 9 String search/match question
15.8 ( 6.9/ 8.4/ 2.9) 7 XML::Simple Example perl help needed
14.7 ( 7.0/ 7.6/ 2.8) 7 perl tcp server script works, but no data.
These threads accounted for 48.0% of the total volume.
Top 10 Threads by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.592 ( 5.0/ 8.4) 12 Called as CGI or from command line?
0.555 ( 10.7/ 19.3) 15 2-1/2 regexp questions
0.544 ( 20.7/ 38.0) 39 Password scheme/Persistent session...
0.531 ( 10.8/ 20.3) 35 Perl vs PHP
0.523 ( 6.8/ 13.1) 16 Testing whether given file is open?
0.512 ( 6.1/ 12.0) 17 Meaning of Orthogonality
0.464 ( 2.7/ 5.9) 11 random IP
0.462 ( 5.1/ 10.9) 12 rmdir Question
0.457 ( 3.3/ 7.3) 11 How to find the target of a Unix symlink?
0.441 ( 7.2/ 16.3) 14 ISO two Perl idioms...
Bottom 10 Threads by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.592 ( 5.0 / 8.4) 12 Called as CGI or from command line?
0.555 ( 10.7 / 19.3) 15 2-1/2 regexp questions
0.544 ( 20.7 / 38.0) 39 Password scheme/Persistent session...
0.531 ( 10.8 / 20.3) 35 Perl vs PHP
0.523 ( 6.8 / 13.1) 16 Testing whether given file is open?
0.512 ( 6.1 / 12.0) 17 Meaning of Orthogonality
0.464 ( 2.7 / 5.9) 11 random IP
0.462 ( 5.1 / 10.9) 12 rmdir Question
0.457 ( 3.3 / 7.3) 11 How to find the target of a Unix symlink?
0.441 ( 7.2 / 16.3) 14 ISO two Perl idioms...
10 threads (8%) had at least ten posts.
Top 9 Targets for Crossposts
============================
Articles Newsgroup
-------- ---------
11 comp.unix.shell
3 alt.perl
3 comp.unix.programmer
3 comp.unix.solaris
3 comp.lang.perl
3 alt.apache.configuration
3 comp.unix.questions
3 comp.lang.perl.moderated
2 alt.comp.editors..batch
Top 19 Crossposters
===================
Articles Address
-------- -------
4 William Park <opengeometry@yahoo.ca>
4 Michele Dondi <bik.mido@tiscalinet.it>
4 hpy_awad@yahoo.com <ehab_aziz2001@yahoo.com>
3 Stephane CHAZELAS <this.address@is.invalid>
2 timmy@ninjaskills.org
2 JDS <jds@iti-oh.com>
2 rduke15 <rduke15@hotmail__.__com>
2 Gregory Toomey <nospam@bigpond.com>
1 mgjv@tradingpost.com.au
1 "Jure Simsic" <jure.simsic@mobitel.si>
1 Leo Shumacher <lps@ucla.edu>
1 Barry Margolin <barmar@alum.mit.edu>
1 "John W. Krahn" <krahnj@acm.org>
1 Ben Morrow <usenet@morrow.me.uk>
1 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
1 Walter Roberson <roberson@ibd.nrc-cnrc.gc.ca>
1 vjp2.at@at.BioStrategist.dot.dot.com
1 Andrew Crabb <ahc@jhu.edu>
1 Malcolm Dew-Jones <yf110@victoria.tc.ca>
------------------------------
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.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 6601
***************************************
