[7402] in Perl-Users-Digest
Perl-Users Digest, Issue: 1027 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 15 13:17:26 1997
Date: Mon, 15 Sep 97 10:00:34 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 15 Sep 1997 Volume: 8 Number: 1027
Today's topics:
[Q] Picking up command line variable <j.curzon-price@ic.ac.uk>
Re: [Q] Picking up command line variable (Mike Stok)
Re: [Q] Picking up command line variable (brian d foy)
Re: [Q] Picking up command line variable <eike.grote@theo.phy.uni-bayreuth.de>
Re: binary distribution of perl for NT4.0 (Jim McKinney)
CRYPT::DES install help <danboo@ixl.com>
DOS version of PERL 5? <rachelh@nortel.ca>
Re: Is there a simpler syntax for: defined $a && $a ne <ajohnson@gpu.srv.ualberta.ca>
MakeMaker and slashes under Windows95 <etomoh@eto.ericsson.se>
Re: Newbie Question: Passing parameters (brian d foy)
pathnames and slash generated by MakeMaker.... <etomoh@eto.ericsson.se>
Re: perl and "guestbook" scripts within '95 without use (Ronald L. Parker)
perl and Apache and Header controls <lev@apple.com>
perl modem access (Karel.DeBruyne)
Permission mode <mortensi@idt.ntnu.no>
Re: PGP & CGI PERL SCRIPT (Ronald L. Parker)
Re: Premature End Of Script Headers (brian d foy)
Question on split (Siva Chelliah)
Re: Question on split (Mike Stok)
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Submit Using Image <cwyatt@cris.com>
Re: Submit Using Image <aaron@soltec.net>
Re: what's the case <toelke@mipos2.sc.intel.com>
Re: win32 - piping from a command (SJK)
Re: win32 - piping from a command (Jeremy D. Zawodny)
Re: Win95 cgi (Ronald L. Parker)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 15 Sep 1997 15:01:09 +0100
From: Tony Curzon Price <j.curzon-price@ic.ac.uk>
Subject: [Q] Picking up command line variable
Message-Id: <341D3FA5.7762FB32@ic.ac.uk>
Hello,
I have a programme, call it test3.pl
I want to call test3.pl by writing
test3.pl -<date> -<time>
I then want to be able to pick up the values of <date> and <time> in a
variable.
I'm sure there's a blindingly obvious way of doing this - But what is
it??
Tony
PS This is my 3rd day of writing Perl. It's amazing the ease with which
things get done in this language - magic.
--
Tony Curzon Price Imperial College
http://is.eunet.ch/Customers/curzon/index.html
(During GMT office hours, or so):
http://epgphd.et.ic.ac.uk/www/
------------------------------
Date: 15 Sep 1997 14:34:13 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: [Q] Picking up command line variable
Message-Id: <5vjh15$4h0@news-central.tiac.net>
In article <341D3FA5.7762FB32@ic.ac.uk>,
Tony Curzon Price <j.curzon-price@ic.ac.uk> wrote:
>Hello,
>
>I have a programme, call it test3.pl
>
>I want to call test3.pl by writing
>test3.pl -<date> -<time>
>
>I then want to be able to pick up the values of <date> and <time> in a
>variable.
>
>I'm sure there's a blindingly obvious way of doing this - But what is
>it??
You will find command line arguments in @ARGV, and if you're using a
recent perl (e.g. 5.004_03) then there's a module called GetOpt::Long
which lets you deal with flags pretty easily.
$ cat try.pl
#!/usr/local/bin/perl -w
if (@ARGV == 0) {
print "No args\n";
}
else {
foreach $arg (@ARGV) {
print "got: $arg\n";
}
}
$ ./try.pl -foo -bar -baz
got: -foo
got: -bar
got: -baz
You can use perldoc to look at the on-line docs for Getopt::Long
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@psa.pencom.com | Pencom Systems Administration (work)
------------------------------
Date: Mon, 15 Sep 1997 10:55:30 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: [Q] Picking up command line variable
Message-Id: <comdog-ya02408000R1509971055300001@news.panix.com>
In article <341D3FA5.7762FB32@ic.ac.uk>, Tony Curzon Price <j.curzon-price@ic.ac.uk> wrote:
>I have a programme, call it test3.pl
>
>I want to call test3.pl by writing
>test3.pl -<date> -<time>
>
>I then want to be able to pick up the values of <date> and <time> in a
>variable.
if they always are specified and in that order, you could pick them
off @ARGV
have you looked at the Getopt family of modules which come with the
standard distribution?
try
perldoc Getopt::Long
perldoc Getopt::Std
or check the Camel book. they might do what you are trying to do.
good luck :)
--
brian d foy <comdog@computerdog.com>
NY.pm - New York Perl M((o|u)ngers|aniacs)* <URL:http://ny.pm.org/>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: Mon, 15 Sep 1997 16:30:09 +0200
From: Eike Grote <eike.grote@theo.phy.uni-bayreuth.de>
Subject: Re: [Q] Picking up command line variable
Message-Id: <341D4671.794B@theo.phy.uni-bayreuth.de>
Hi,
Tony Curzon Price wrote:
>
> Hello,
>
> I have a programme, call it test3.pl
>
> I want to call test3.pl by writing
> test3.pl -<date> -<time>
>
> I then want to be able to pick up the values of <date> and <time> in a
> variable.
1.) The obvious way (easy to understand, I hope):
#!/usr/local/bin/perl -w
$date = $ARGV[0]; # the "magic" array is @ARGV
$time = $ARGV[1];
$date =~ s/^-//; # remove leading '-'
$time =~ s/^-//;
print "\$date = $date\n";
print "\$time = $time\n";
2.) One (of many) short way:
#!/usr/local/bin/perl -w
($date,$time) = map { substr $_,1 } @ARGV;
print "\$date = $date\n";
print "\$time = $time\n";
Bye, Eike
--
======================================================================
Eike Grote, Theoretical Physics IV, University of Bayreuth, Germany
----------------------------------------------------------------------
e-mail -> eike.grote@theo.phy.uni-bayreuth.de
WWW -> http://www.phy.uni-bayreuth.de/theo/tp4/members/grote.html
http://www.phy.uni-bayreuth.de/~btpa25/
======================================================================
------------------------------
Date: 15 Sep 1997 14:17:52 GMT
From: jmck@elmo.ece.cmu.edu (Jim McKinney)
Subject: Re: binary distribution of perl for NT4.0
Message-Id: <5vjg2g$5ib@fs7.ece.cmu.edu>
T. LaWall (tlawallANTISPAM@concentric.net) wrote:
: FYI everyone who is interested, here are the URLs for
: two distributions:
: ActiveState's distribution,
: http://www.activestate.com
: Standard Distribution,
: http://www.perl.com/CPAN/authors/Gurusamy_Sarathy
Got it. Thanks much...
-jmck
--
Jim McKinney jmck@ece.cmu.edu
System Administrator Manager, ECE Office: HH1304
Carnegie Mellon University (412) 268-5141
Keep your chin up and someone is bound to punch it eventually...
------------------------------
Date: Mon, 15 Sep 1997 10:57:27 -0400
From: Dan Boorstein <danboo@ixl.com>
Subject: CRYPT::DES install help
Message-Id: <341D4CD7.96657158@ixl.com>
Hello all,
I am trying to install the Crypt::DES module on a Linux
box and am having a problem figuring out where machine/types.h
from des.h should be on my system. If i leave it as-is i get:
> des.h:1: machine/types.h: No such file or directory
> make: *** [DES.o] Error 1
a 'find' on 'types.h' yields:
/usr/include/gnu/types.h
/usr/include/rpc/types.h
/usr/include/sys/types.h
/usr/include/pthread/mit/sys/types.h
/usr/include/pthread/mit/types.h
/usr/local/msql-2.0-B4/src/lang-common/types.h
/usr/local/msql-2.0-B4/targets/Linux-2.0.18-i586/lang-common/types.h
/usr/src/linux-2.0.18/include/asm-alpha/types.h
/usr/src/linux-2.0.18/include/asm-i386/types.h
/usr/src/linux-2.0.18/include/asm-m68k/types.h
/usr/src/linux-2.0.18/include/asm-mips/types.h
/usr/src/linux-2.0.18/include/asm-ppc/types.h
/usr/src/linux-2.0.18/include/asm-sparc/types.h
/usr/src/linux-2.0.18/include/linux/types.h
When I try one of these i get something like:
des.h:3: parse error before `des_user_key'
des.h:3: warning: data definition has no type or storage class
des.h:4: parse error before `des_cblock'
des.h:4: warning: data definition has no type or storage class
des.h:5: parse error before `des_ks'
des.h:5: warning: data definition has no type or storage class
des.h:7: parse error before `in'
des.h:8: parse error before `userKey'
des.c:437: parse error before `input'
des.c: In function `des_crypt':
des.c:446: `input' undeclared (first use this function)
des.c:446: (Each undeclared identifier is reported only once
des.c:446: for each function it appears in.)
des.c:472: `ks' undeclared (first use this function)
des.c:475: `encrypt' undeclared (first use this function)
des.c:508: `output' undeclared (first use this function)
des.c: At top level:
des.c:513: parse error before `userKey'
des.c: In function `des_expand_key':
des.c:521: `ks' undeclared (first use this function)
des.c:522: `userKey' undeclared (first use this function)
make: *** [des.o] Error 1
I have not tried them all, but was wondering if anyone could point
me in the right direction.
Thanks much,
dan boorstein
danboo@ixl.com
------------------------------
Date: Mon, 15 Sep 1997 15:28:58 +0100
From: Rachel Holmes <rachelh@nortel.ca>
Subject: DOS version of PERL 5?
Message-Id: <341D462A.453C@nortel.ca>
Hi
Is there a version of perl available for DOS, that is 100% compatible
with unix perl 5?
If not, is there a version for DOS that is not 100% compatible? :)
Cheers
Ben
--
_____________________________________
/ \
| *-=Ben Holness=-* |
| |
| Dept. 7e24 % bholness@nortel.ca |
|-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|
| ESN: 590-4957 % PSTN: (01628) 434957 |
|=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=|
------------------------------
Date: Mon, 15 Sep 1997 09:57:43 -0500
From: Andrew Johnson <ajohnson@gpu.srv.ualberta.ca>
Subject: Re: Is there a simpler syntax for: defined $a && $a ne ''
Message-Id: <341D4CE7.5BC8028C@gpu.srv.ualberta.ca>
Randal Schwartz wrote:
>
> >>>>> "Russell" == Russell Odom <rjo100@york.ac.uk> writes:
>
> Russell> The Llama book, 1st Ed, p12 (footnote), says undef 'looks
> Russell> like an empty string to the eq operator'. Therefore you could
> Russell> use...
>
> Russell> $a = 1 if $a eq '';
that would give an 'uninitialized' warning under -w
if $a was not defined.
> Or, to be Way Cooler (as we say on the left coast):
>
> $a ||= 1;
>
I think the original poster wanted to accept $a if it was zero,
just set to 1 if it was undefined or ''.
defined($a) && $a ne ''||($a=1);
is very slightly shorter than the original, but I'd stick
with the original version:
$a=1 unless (defined $a and $a ne '');
...it reads much better
regards
andrew
------------------------------
Date: Mon, 15 Sep 1997 16:36:49 +0200
From: Morten Haavaldsen <etomoh@eto.ericsson.se>
Subject: MakeMaker and slashes under Windows95
Message-Id: <341D4801.D9BDE93F@eto.ericsson.se>
Hi!
I have problems installing perl modules because the generated Makefile
does not run.
The perl Makefile.PL gives a Makefile having pathnames like
c:\perl\bin\perl
executing the makefile produces the error
c:perlbinperl ....
First aletrnative solution is to alter the generated pathnames by
MakeMaker,
second is to edit the Makefile (big job......),
third is perhaps not using gnumake or setting some variable somewhere
????
Regards,
Morten
------------------------------
Date: Mon, 15 Sep 1997 10:58:20 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: Newbie Question: Passing parameters
Message-Id: <comdog-ya02408000R1509971058200001@news.panix.com>
In article <01bcc16b$9f741e60$2a4682d0@mott1>, "Jeff Motter" <jmotter@fgi.net> wrote:
>I have a script named "me.pl" and I want to pass a filename to the script
>when it is started.
>Ex: c:\perl\me.pl data.txt".
>
>What would be the variable for the file "data.txt" in the script. I'm
>going to open the file
>in the script to parse it.
command line parameters are put into @ARGV
good luck :)
--
brian d foy <comdog@computerdog.com>
NY.pm - New York Perl M((o|u)ngers|aniacs)* <URL:http://ny.pm.org/>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: Mon, 15 Sep 1997 16:36:33 +0200
From: Morten Haavaldsen <etomoh@eto.ericsson.se>
Subject: pathnames and slash generated by MakeMaker....
Message-Id: <341D47F1.CBFC2B0F@eto.ericsson.se>
Hi!
I have problems with generated Makefile from MakeMaker.
I am trying to install a module, but the makefile generated by perl
makefile.PL contains pathnames c:\dir1\dir2 etc.
I am using the gnu make and bash shell...
running make on the generated makefile results in slashes being deleted
:
c:perlbinperl
instead of c:\perl\bin\perl
or preferably
/perl/bin/perl
Is there an option in MakeMaker on stylus of pathnames, or any other way
of getting the Makefile to run properly on the Windows 95??
Regards,
Morten
------------------------------
Date: Mon, 15 Sep 1997 16:01:16 GMT
From: ron@farmworks.com (Ronald L. Parker)
Subject: Re: perl and "guestbook" scripts within '95 without use of mailer
Message-Id: <34215a45.6962503@news.supernews.com>
On Fri, 05 Sep 1997 20:24:22 -0700, Stellar Engineering Inc
<HR@stellarengineering.com> wrote:
>
>I was wondering if anybody knew how I could use perl to process a form
>in html and write the data in the form into a file, like a diary or
>journal, on a Windows '95 OS that isn't hooked up to any network or
>outside dialer..???? I am trying to write a program that will keep a
>diary of conversations I have had with other people on my home
>computer...
You'll probably have to have a web server running to process the
forms. In my case, I've got O'Reilly WebSite running on my personal
machine to test forms and scripts before I release them into the wild.
Then you would just go to http://127.0.0.1/ to get to your private
webserver. If you want to use a different name, add it to your
windows\hosts file. You will have to have TCP/IP installed, so you
might need to install dialup networking, but you shouldn't have to
actually set up any dialup configurations. If you don't have a modem
set up, look around for a file called mdmcisco.inf that allows you to
set up DUN to work with a serial port without a modem.
--
Ron Parker
Software Engineer
Farm Works Software Come see us at http://www.farmworks.com
For PGP public key see http://www.farmworks.com/Ron_Parker_PGP_key.txt
------------------------------
Date: Mon, 15 Sep 1997 09:36:16 -0700
From: Lloyd Vancil <lev@apple.com>
Subject: perl and Apache and Header controls
Message-Id: <341D63FA.C1564@apple.com>
Anyone out there know what has to be done to an Apache server (1.2.4) to
allow one perl script of Many to transmit the headers?
I want to do an auto redirect without using the meta tag.
There are several pl scripts out there to do that but I don't
seem to be able to find the configure change in APACHE to make this
work.
Thanks all
L.
--
===========================================
--> UNIX is user-friendly. <--
(It just isn't promiscuous about which users it is friendly with.
===========================================
lev@apple.com
------------------------------
Date: Mon, 15 Sep 1997 15:20:17 GMT
From: dbruyne@uia.ua.ac.be (Karel.DeBruyne)
Subject: perl modem access
Message-Id: <EGK2Lt.43K@uia.ua.ac.be>
Hi,
I've got a unix box (linux or solaris) with a modem.
I want to have my perl-program send some string to the modem, to
setup a dialout session. Than, I want to read from this modem to
get the replies.
How can I do this in perl ?
I saw something about this in CPAN (talk-to-modem.pl) but this
doesn't work :-(
Thanks,
Karel
--
=======================================================================
Karel De Bruyne
System/Network Manager phone + 32 3 820 22 04
UIA - Computer Centre fax + 32 3 820 22 49
------------------------------
Date: 15 Sep 1997 14:18:57 GMT
From: Morten Simonsen <mortensi@idt.ntnu.no>
Subject: Permission mode
Message-Id: <5vjg4h$677$1@due.unit.no>
Hi
status() is returning a value for the file mode (type and permissions).
I want to map that mode to the numbers used in chmod to set permission
and to the letters used in ls-command to indicate directories and soft
links. How can do this, I couldn't find any docs on this in the
camel book.
Sincerly
Morten Simonsen
------------------------------
Date: Mon, 15 Sep 1997 15:14:24 GMT
From: ron@farmworks.com (Ronald L. Parker)
Subject: Re: PGP & CGI PERL SCRIPT
Message-Id: <341d49a8.2707743@news.supernews.com>
On Fri, 12 Sep 1997 13:32:38 -0700, giulia hill
<ghill@library.berkeley.edu> wrote:
>When I submit the form, no encrypted file is created and the stderr
>file $stdERR contains:
>
[...]
>We need to generate 192 random bits. This is done by measuring the
>time intervals between your keystrokes. Please enter some random text
>on your keyboard until you hear the beep:
>cannot open tty, using stdin
>
>Unable to get terminal characteristics: ioctl: Inappropriate ioctl for
>device
Perhaps PGP can't find its config files? IIRC, you have to have an
environment variable PGPPATH that points to them. Your CGI script may
need to set that if it's not already set. Also, as Tom mentioned, you
may want to consider using a module to interface with PGP. If you
can't use modules (and you almost always can) use some code that
doesn't write your plaintext to a file:
#----------- cut here --------
$childpid = open ( CHILD, "-|" );
if ( !$childpid ) {
open( PGP, "|pgp -feat $username" );
print PGP $message;
close PGP;
exit;
}
$encrypted = join('', <CHILD>);
close CHILD;
#----------- cut here --------
This code takes your plaintext in $message and the recipient in
$username and presents the encrypted text in $encrypted. It only
works on Unix, because forks aren't yet supported on Win32. But
really you should use the module from CPAN.
You might also want to reconsider your use of backticks on that mail
command, and not just because you should only use backticks when you
care about the output. (Consider what happens if $mailuser somehow
gets set to ";rm -f *;cat ") A similar problem exists with the third
line in what I've written above (it doesn't bother me because in my
script, $username is set to a constant string right before this.) The
moral: use -T, or recode those two things to use system().
--
Ron Parker
Software Engineer
Farm Works Software Come see us at http://www.farmworks.com
For PGP public key see http://www.farmworks.com/Ron_Parker_PGP_key.txt
------------------------------
Date: Mon, 15 Sep 1997 10:49:31 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: Premature End Of Script Headers
Message-Id: <comdog-ya02408000R1509971049310001@news.panix.com>
In article <341daecb.129927551@newsread.cioe.com>, slundy@mer.cioe.com wrote:
>What does this mean and where should I look for the error. It sounds
>like it's not processing the headers correctly, but I'm not sure,
>kinda new to perl and cgi...thanks for any help
see <URL:http://language.perl.com/CPAN/doc/FAQs/cgi/idiots-guide.html>
good luck :)
--
brian d foy <comdog@computerdog.com>
NY.pm - New York Perl M((o|u)ngers|aniacs)* <URL:http://ny.pm.org/>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: 15 Sep 1997 14:55:08 GMT
From: chelliah@bnr.ca (Siva Chelliah)
Subject: Question on split
Message-Id: <5vji8c$j0b@crchh327.rich.bnr.ca>
Keywords: split
Hi,
Look at the following example:
#!/usr/local/bin/perl
$m = "this is 'it is a fool' test";
@a = split(' ',$m);
foreach $x (@a) {
print $x, "\n";
}
I like to treat 'it is a fool' as one thing within the string. How can
I do this?
Thanks
Siva
--
Siva Chelliah Richardson, TX
-----------------------------------------------------------------------------
"The church is near but the road is icy; the bar is far away but I will
walk carefully." -- Russian Proverb
------------------------------
Date: 15 Sep 1997 15:38:10 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: Question on split
Message-Id: <5vjkp2$8hf@news-central.tiac.net>
Keywords: split
In article <5vji8c$j0b@crchh327.rich.bnr.ca>,
Siva Chelliah <chelliah@bnr.ca> wrote:
>Hi,
> Look at the following example:
>
>#!/usr/local/bin/perl
>$m = "this is 'it is a fool' test";
>@a = split(' ',$m);
>foreach $x (@a) {
> print $x, "\n";
>}
>
>I like to treat 'it is a fool' as one thing within the string. How can
>I do this?
Recent perls come with the Text::ParseWords module which cal do somethign
like this (using the debugger...)
DB<1> use Text::ParseWords
DB<2> $m = "this is 'it is a fool' test"
DB<3> @a = shellwords $m
DB<4> X a
@a = (
0 'this'
1 'is'
2 'it is a fool'
3 'test'
)
There is also a question, How can I split a [character] delimited string
except when inside [character]? (Comma-separated files), in section 4 of
the perl FAQ (frequently asked questions) which is distributed with recent
perls and is on http://www.perl.com/ under the FAQs link.
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@psa.pencom.com | Pencom Systems Administration (work)
------------------------------
Date: 15 Sep 1997 14:38:39 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <5vjh9f$eab$1@info.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 06 Sep 1997 10:01:37 GMT and ending at
13 Sep 1997 06:53:04 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" e-mail address and name.
- Original Content Rating is the ratio of the original content volume
to the total body volume.
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
Excluded Posters
================
perlfaq-suggestions@mox.perl.com
Totals
======
Total number of posters: 442
Total number of articles: 820 (280 with cutlined signatures)
Total number of threads: 360
Total volume generated: 1363.2 kb
- headers: 565.6 kb (11,089 lines)
- bodies: 733.2 kb (23,532 lines)
- original: 500.0 kb (16,604 lines)
- signatures: 62.6 kb (1,262 lines)
Original Content Rating: 0.6819
Averages
========
Number of posts per poster: 1.9
Number of posts per thread: 2.3
Message size: 1702.4 bytes
- header: 706.3 bytes (13.5 lines)
- body: 915.6 bytes (28.7 lines)
- original: 624.4 bytes (20.2 lines)
- signature: 78.1 bytes (1.5 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
33 55.8 ( 29.3/ 19.4/ 10.5) Tom Phoenix <rootbeer@teleport.com>
18 26.5 ( 12.2/ 13.0/ 6.5) brian d foy <comdog@computerdog.com>
14 21.2 ( 7.4/ 13.5/ 8.8) Andrew M. Langmead <aml@world.std.com>
13 16.0 ( 7.8/ 7.6/ 4.6) Tom Grydeland <tom@mitra.phys.uit.no>
12 21.8 ( 6.7/ 11.3/ 6.4) Mike Stok <mike@stok.co.uk>
12 18.0 ( 7.0/ 11.0/ 4.6) Jason Gloudon <jgloudon@bbn.com>
11 18.8 ( 6.6/ 12.3/ 7.6) Ilya Zakharevich <ilya@math.ohio-state.edu>
10 18.1 ( 6.5/ 11.5/ 7.7) Tad McClellan <tadmc@flash.net>
9 24.7 ( 6.7/ 17.5/ 6.8) "Raymond K. Bush" <rbush@up.net>
9 16.7 ( 6.2/ 10.6/ 6.2) faust@wwa.com
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
55.8 ( 29.3/ 19.4/ 10.5) 33 Tom Phoenix <rootbeer@teleport.com>
26.5 ( 12.2/ 13.0/ 6.5) 18 brian d foy <comdog@computerdog.com>
24.7 ( 6.7/ 17.5/ 6.8) 9 "Raymond K. Bush" <rbush@up.net>
21.8 ( 6.7/ 11.3/ 6.4) 12 Mike Stok <mike@stok.co.uk>
21.2 ( 7.4/ 13.5/ 8.8) 14 Andrew M. Langmead <aml@world.std.com>
18.8 ( 6.6/ 12.3/ 7.6) 11 Ilya Zakharevich <ilya@math.ohio-state.edu>
18.1 ( 6.5/ 11.5/ 7.7) 10 Tad McClellan <tadmc@flash.net>
18.0 ( 7.0/ 11.0/ 4.6) 12 Jason Gloudon <jgloudon@bbn.com>
16.7 ( 6.2/ 10.6/ 6.2) 9 faust@wwa.com
16.0 ( 7.8/ 7.6/ 4.6) 13 Tom Grydeland <tom@mitra.phys.uit.no>
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
------ -------------- ----- -------
0.9990 1.9 / 1.9 5 Matti Kinnunen <matti@universe.pc.helsinki.fi>
0.9813 3.7 / 3.8 6 Brandon S. Allbery KF8NH; to reply, change "void" to "kf8nh" <bsa@void.apk.net>
0.9022 6.2 / 6.9 6 Brett Denner <Brett.W.Denner@lmtas.lmco.com>
0.8233 3.5 / 4.2 5 Matthew Cravit <mcravit@best.com>
0.7225 3.4 / 4.7 5 Andrew Johnson <ajohnson@gpu.srv.ualberta.ca>
0.6978 3.4 / 4.8 8 Martien Verbruggen <mgjv@mali.comdyn.com.au>
0.6728 7.7 / 11.5 10 Tad McClellan <tadmc@flash.net>
0.6529 8.8 / 13.5 14 Andrew M. Langmead <aml@world.std.com>
0.6278 2.6 / 4.2 6 Daniel E. Macks <dmacks@sas.upenn.edu>
0.6189 3.7 / 6.0 6 Doug Seay <seay@absyss.fr>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
------ -------------- ----- -------
0.4989 6.5 / 13.0 18 brian d foy <comdog@computerdog.com>
0.4948 2.9 / 5.9 6 over@the.net
0.4932 2.7 / 5.5 5 Randal Schwartz <merlyn@stonehenge.com>
0.4911 1.8 / 3.7 5 Jeremy D. Zawodny <zawodny@hou.moc.com>
0.4713 3.6 / 7.7 6 Cameron Dorey <camerond@mail.uca.edu>
0.4518 2.6 / 5.7 8 Douglas McNaught <doug@tc.net>
0.4199 4.6 / 11.0 12 Jason Gloudon <jgloudon@bbn.com>
0.3860 6.8 / 17.5 9 "Raymond K. Bush" <rbush@up.net>
0.3612 2.5 / 7.0 6 Charles DeRykus <ced@bcstec.ca.boeing.com>
0.3414 1.9 / 5.5 7 M.J.T. Guy <mjtg@cus.cam.ac.uk>
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
12 Beginner's question : Perl or Java ?
12 Regexp a Yes or No question?
10 Getting rid of \n in textarea input
10 A simpler perl question.
9 How to rename /etc/passwd ?
8 What does "regexp *+ operand could be empty" mean?
8 C++Builder means Future.
8 Matrices in Perl
8 Incredibly basic Newbie question
7 Um... a bug?
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
23.7 ( 11.1/ 11.2/ 6.3) 8 C++Builder means Future.
20.6 ( 8.3/ 10.8/ 5.4) 12 Beginner's question : Perl or Java ?
17.9 ( 8.4/ 8.7/ 5.8) 12 Regexp a Yes or No question?
15.6 ( 4.0/ 11.0/ 8.3) 6 Shakespearian insult program
15.5 ( 5.8/ 9.5/ 6.2) 7 Minimizing Memory Needed for Numbers Read from Binary Files
14.9 ( 5.5/ 9.4/ 4.9) 8 Incredibly basic Newbie question
14.9 ( 5.3/ 8.8/ 5.7) 7 flock in Win32?
14.4 ( 7.3/ 6.1/ 3.1) 10 Getting rid of \n in textarea input
14.3 ( 5.8/ 8.1/ 4.0) 9 How to rename /etc/passwd ?
14.2 ( 0.9/ 13.3/ 0.6) 1 Win32 ALPHA binary distribution released
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
14 comp.lang.perl.modules
12 comp.unix.shell
12 comp.object
11 comp.lang.javascript
9 comp.databases
9 comp.lang.c++
9 comp.lang.tcl
8 comp.sys.amiga.advocacy
8 comp.infosystems.www.advocacy
8 comp.os.linux.advocacy
Top 10 Crossposters
===================
Articles Address
-------- -------
27 Kaz Kylheku <kaz@helios.crest.nt.com>
24 Steve Mading <madings@earth.execpc.com>
15 Jackson Dodd <jackson@usenix.org>
12 Kevin Simonson <simonson@eagle.uis.edu>
12 cbbrowne@hex.net
12 Robert Melson <rmelson@primenet.com>
12 John Palmieri <JohnP@MStarMedia.com>
8 Guido van Rossum <guido@eric.cnri.reston.va.us>
5 Parillo <lparillo@newshost.li.net>
5 "Kevin Hoskins" <jhoskins@ichips.intel.com>
------------------------------
Date: Mon, 15 Sep 1997 09:02:28 -0600
From: Charles Wyatt <cwyatt@cris.com>
Subject: Submit Using Image
Message-Id: <874329132.641@dejanews.com>
This must have been asked dozens of times, but a Deja News search
didn't yield any helpful results for me.
Is there a common routine that allows one to convert the coordinates
on a given image on a GET/POST form to equal the function "submit" button?
Thanks!
Charles Wyatt
cwyatt@cris.com
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: 15 Sep 1997 15:05:34 GMT
From: "Aaron" <aaron@soltec.net>
Subject: Re: Submit Using Image
Message-Id: <01bcc1e8$d1c12200$b5910a9f@aurora.cna.com>
I believe there is some information about this in the CGI.pm manual.
What exactly are you trying to do, I know that image submit buttons can be
used using the image type and src in the tag.
> Is there a common routine that allows one to convert the coordinates
> on a given image on a GET/POST form to equal the function "submit"
button?
>
> Thanks!
>
> Charles Wyatt>
------------------------------
Date: Mon, 15 Sep 1997 09:18:22 -0700
From: Tom Oelke <toelke@mipos2.sc.intel.com>
Subject: Re: what's the case
Message-Id: <341D5FCE.41C6@mipos2.sc.intel.com>
Edwin Bishop wrote:
>
> I have the following line which matches
> User id input against a text file.
>
> It is working fine, except, I want it
> to ignore case (upper/lower)....
>
> if ($database_row =~ "$username") {
> print (@input);
> }
As others said, you probably want
if ($database_row =~ /$username/i)
You might want to add some sort of delimiter into that pattern match
however,
so that when you are looking for "john", you don't get everything for
"john"
plus everything for "johnson"
If all that is on $database_row is the username, you'd want
if ($database_row =~ /^$username$/i)
If it were ':' delimited fields you'd want
if ($database_row =~ /\:$username\:/i)
Since this is dependent upon the data / context of your code, you'll
have to determine whats most appropriate
----------------------------------------------------------------------------
| tpo9617@rit.edu |
http://www.rit.edu/~tpo9617/ |
| toelke@mipos2.intel.com | Internal:
http://mipos2.intel.com/~toelke/ |
| Physical: RN4 Pole F6 | Phone: (408)
653-6108 |
----------------------------------------------------------------------------
------------------------------
Date: Mon, 15 Sep 1997 14:05:05 GMT
From: knetsch@golden.net.no.spam (SJK)
Subject: Re: win32 - piping from a command
Message-Id: <341d3e93.4379390@news.golden.net>
On Fri, 12 Sep 1997 09:50:37 -0500, Aaron D Newman <newman@ttd.teradyne.com>
wrote:
>Is there a standard way under windows95 to do this:
>
>open(IN,"\\gnu\\bin\\ls|");
>while(<IN>) {
> print "ls:";
>}
How about
@IN = `dir`;
foreach (@IN) {
print "$_";
}
Is this what you wanted?
Stu
Stuart Knetsch
Remove the you know what from my address to send me E-mail
------------------------------
Date: Mon, 15 Sep 1997 15:14:17 GMT
From: zawodny@hou.moc.com (Jeremy D. Zawodny)
Subject: Re: win32 - piping from a command
Message-Id: <341f50ac.356690283@igate.hst.moc.com>
[cc'd automagically to original author]
On Mon, 15 Sep 1997 14:05:05 GMT, knetsch@golden.net.no.spam (SJK)
wrote:
>On Fri, 12 Sep 1997 09:50:37 -0500, Aaron D Newman <newman@ttd.teradyne.com>
>wrote:
>
>>Is there a standard way under windows95 to do this:
>>
>>open(IN,"\\gnu\\bin\\ls|");
>>while(<IN>) {
>> print "ls:";
>>}
>
>How about
>
>@IN = `dir`;
>foreach (@IN) {
> print "$_";
> }
Or better yet, use File::Find.
That's the 'standard' way, if there is such a thing.
Jeremy
--
Jeremy Zawodny
Internet Technology Group
Information Technology Services
Marathon Oil Company, Findlay Ohio
http://www.marathon.com/
Unless explicitly stated, these are my opinions only--not those of my employer.
------------------------------
Date: Mon, 15 Sep 1997 15:52:23 GMT
From: ron@farmworks.com (Ronald L. Parker)
Subject: Re: Win95 cgi
Message-Id: <342057d3.6336597@news.supernews.com>
On Sun, 14 Sep 1997 18:50:05 +0100, Ian Dickson
<ian.dickson@btinternet.com> wrote:
>I am trying to get HTML forms to communicate with perl
>scripts (using aWin95 server --WebSite). I gather from the
>FAQ that I will probably need to convert my scripts using
>pl2bat, I'd be really grateful if someone could tell me
>where I can find pl2bat -- it didn't come with my Win32
>version of perl. Or, even better, mail me the binary code.
I'm not sure where you would have gotten the notion that you need to
use pl2bat to use perl scripts with WebSite. I certainly haven't had
any serious problems using them directly. In fact, I chose WebSite
simply because it seemed to stand the best chance of running my
NCSA/Apache stuff unmodified. You might need to play with the CGI tab
in the config options, but you shouldn't even have to do that. Of
course, in my case, all my CGI scripts are in Perl, so I just did it
the simplest way possible. Others probably have more useful settings.
You might consider asking about this in a server group such as
comp.infosystems.www.servers.ms-windows.
If you find you really need pl2bat and you don't have it, you need a
better perl. Actually, you need a better perl anyway. Consider using
Sarathy's official port from CPAN, now at version 5.004_02.
--
Ron Parker
Software Engineer
Farm Works Software Come see us at http://www.farmworks.com
For PGP public key see http://www.farmworks.com/Ron_Parker_PGP_key.txt
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 1027
**************************************
