HDTenEightyP/NetNews huggingface dataset:
From: aspin@lsil.com (David Aspinwall 7842)
Newsgroups: comp.lang.perl
Subject: Re: fast way to get number of elements in an assoc array?
Date: 29 Aug 92 01:13:45 GMT
Reply-To: aspin@lsil.com
Organization: LSI Logic Corporation
X-Newsreader: Tin 1.1 PL5

Tom Christiansen (tchrist@convex.COM) wrote:
: Um, that doesn't tell you how many keys are in the array, just 
: how full the hashtable is.  You have to do something more like
: 
:     $count++ while each %array;

I wrote a program to try various ways of doing this,
including the one above, and get several different results.
Can anyone explain this to me?
Here's the program:


#!/usr/up/sun4bin/perl

open(IN, "head -100 /usr/dict/words|");
while (<IN>) {
    $words{$_} = $nlines++;
}
close(IN);
print "read $nlines lines\n";

&try('$n = keys(%words)');
&try('$n = 0; while (each %words) { $n++; }');
&try('$n = 0; $n++ while each %words;');
&try('$n = 0; $n++ while (each %words);');
&try('$n = 0; $n++ while (($w,$v) = (each %words));');
&try('$n = 0; while (($w,$v) = each %words) { $n++; }');
&try('$n = 0; while (($w,$v) = (each %words)) { $n++; }');


sub try {
    local ($cmd) = @_;
    local ($n);
    eval($cmd);
    print "i get $n from\t$cmd\n";
}



And here is the output:

read 100 lines
i get 100 from	$n = keys(%words)
i get 13 from	$n = 0; while (each %words) { $n++; }
i get 86 from	$n = 0; $n++ while each %words;
i get 13 from	$n = 0; $n++ while (each %words);
i get 86 from	$n = 0; $n++ while (($w,$v) = (each %words));
i get 100 from	$n = 0; while (($w,$v) = each %words) { $n++; }
i get 100 from	$n = 0; while (($w,$v) = (each %words)) { $n++; }

--
		-- David Aspinwall	aspin@lsil.com	408-433-7842
Newsgroups: comp.lang.perl
From: tal@Warren.MENTORG.COM (Tom Limoncelli)
Subject: Re: Just another Perl hacker
Organization: Mentor Graphics -- IC Group
Date: Tue, 25 Aug 1992 20:36:57 GMT

In <BtCJ74.3Dq.1@cs.cmu.edu> jfriedl+@CS.CMU.EDU (Jeffrey Friedl) writes:

>Ok, so why isn't there an Obfuscated Perl Contest?

Every day is a Obfuscated Perl Contest.

Tom
-- 
Tom Limoncelli -- tal@warren.mentorg.com (work) -- tal@plts.uucp (play)
"Oh! I thought it was one of those useless demos of everything that
    a GUI builder could do." -Anonymous person watching demo of
         Solaris 2.0's graphical tool for managing NIS+
Newsgroups: comp.lang.perl
From: djm@eng.umd.edu (David J. MacKenzie)
Subject: Re: Camel Book for 5.xxx hardback?
Date: Mon, 31 Aug 92 04:30:35 GMT
Organization: Project GLUE, University of Maryland
	<i0g1Him!a9@atlantis.psu.edu>

The Perl book seems to stretch the O'Reilly binding process to its
limits.  I think it might just be too thick for that binding
technique.  I've seen several Perl books whose bindings seemed to give
out after only a year or so, so that the books end up with lots of
pages falling out.  They're heavily used as references; I think the
book really needs a better binding, hardcover or otherwise.
Newsgroups: comp.lang.perl
From: ckd@eff.org (Christopher Davis)
Subject: Re: help with if ( ! $a =~ /##/ ) PLEASE!!!
Organization: Electronic Frontier Foundation Tech Central
Distribution: usa
Date: Fri, 28 Aug 1992 03:17:03 GMT

Eric> == Eric Wedaa <ericw@bach.amd.com> 

 Eric> I am having a h!@# of a time getting this code fragment to 
 Eric> work:

 Eric> if ( ! $a =~ /#/ ){
 Eric> 	some_random_bit_of_perl;
 Eric> }

 Eric> It never does anything!  What I want it to do is if $a does not 
 Eric> have "#" in it, then it should do "some_random_bit_of_perl;"

Why not do this instead:

if ($a !~ /#/) {
        some_random_bit_of_perl;
}

This is (IMHO) cleaner than a test-and-negate.
--
Christopher Davis * ckd@eff.org * System Administrator, EFF * +1 617 864 0665
            ``Ed Gruberman, you fail to grasp Ti Kwan Leep.
            Approach me that you might see.'' -- The Master
From: rick@sjsumcs.sjsu.edu (Richard M. Warner)
Newsgroups: comp.lang.perl
Subject: Re: Camel Book for 5.xxx hardback?
Date: 31 Aug 92 21:02:06 GMT
Organization: San Jose State University, Math & CS

In article <DJM.92Aug30233035@frob.eng.umd.edu> djm@eng.umd.edu (David J. MacKenzie) writes:
>From: djm@eng.umd.edu (David J. MacKenzie)
>Subject: Re: Camel Book for 5.xxx hardback?
>Date: 31 Aug 92 04:30:35 GMT
>The Perl book seems to stretch the O'Reilly binding process to its
>limits.  I think it might just be too thick for that binding
>technique.  I've seen several Perl books whose bindings seemed to give
>out after only a year or so, so that the books end up with lots of
>pages falling out.  They're heavily used as references; I think the
>book really needs a better binding, hardcover or otherwise.

Interesting idea.  If the camel book is too thick for this binding,
what about some of the X books?  The PEX book came out about 4-5
months ago and is 2-1/2 times as thick as the 'camel'.  Maybe the
market researchers should contact PEX book buyers and see how the
binding is holding up
Newsgroups: comp.lang.perl
From: chupchup@ferkel.ucsb.edu (Robert Earl)
Subject: Re: Very tiny bug in printf? (perl 4.034)
Organization: (EVIL!)
Date: Thu, 3 Sep 1992 09:00:23 GMT

hansk@aie.nl (Hans Kinwel) writes:

| I expected the following three lines to print out 08 two times.

| $val="8";
| printf ("%02s\n", $val);
| printf ("%02d\n", $val);

| It does, under perl 3.044. My perl 4.034 does not, however.
| There the first zero gets replaced by a space.

Funny, it printed out "08" twice in my version too.  'Twas a bug,
because the "%##s" function pads with ## spaces, not zeroes, of
course.

-- 
"If you've got a pig that likes jumping fences, | robert earl
you have to make its fence a lot higher all at  | rearl@ucsd.edu
once -- if you do it by increments, all you're  | rearl@piggy.ucsb.edu
doing is training a jumping pig." -Henry Spencer|
Newsgroups: comp.lang.perl
From: Mathias.Koerber@sniap.mchp.sni.de (Mathias Koerber)
Subject: Re: the official word from Tim O'Reilly (of OR&A) about hardcover Camels
Organization: Siemens Nixdorf AG
Date: Tue, 1 Sep 92 15:52:06 GMT

Another thing concerning the Camel book. Last time I had serious problems obtaining a copy
in Singapore. I ordered it from Techbooks Inc, and their service was *very* bad.
I only got it thanks to Zhenyu Li from Harvard bringing along 3 copies (Thks again
Zhenyu, ps. dis you get that Kris I sent you?).

Once the Camel for Version 5 is out, I'll be needing one, and I'll be back in Singapore by 
then :-).

Does OR&A consider taking mail-order orders, maybe even now? Or will I again have to
find another supplier?


----
Mathias Koerber    | Tel: +49/89/636-45685 | Mathias.Koerber@sniap.mchp.sni.de
SNI AP 114         | Fax: +49/89/636-45860 | koerber.muc@sni.de
MchP/LZ Rm:L1356   | X.400:  C=DE/A=DBP/P=SNI-SMTP/O=de/OU1=sni/OU2=mchp/
Carl-Wery-Str. 22  |         OU3=sniap/S=Koerber/G=Mathias
D-8000 Muenchen 83 | X.400:  C=DE/A=DBP/P=SNI/O=SIEMENS NIXDORF/OU1=MUENCHEN/
(United!) Germany  |         OU2=P4/OU3=D5/OU4=AP11/S=KOERBER/G=MATHIAS
* Eifersucht ist eine Leidenschaft, die mit Eifer sucht was Leiden schafft *
Newsgroups: comp.lang.perl
From: mcmahan@cs.unca.edu (Scott McMahan -- Genesis mailing list owner)
Subject: Punctuation in Regex, or Wouldn't a \p be nice?
Organization: University of North Carolina at Asheville
X-Newsreader: Tin 1.1 PL5
Date: Wed, 2 Sep 1992 23:27:53 GMT

A really nice thing for perl to do would be to provide \p as a
regular expression like \s that would match one punctuation
character. (!@#$%^&*()_-+=~`}]{[|\"':;?/>.<, :^))

Since most of these are also regular expression characters, it
would eliminate a lot of \-ing.

Is there an easy way to put a lot of punctuation in a regex
without tons of quoting?  (q and qq don't look like they'd work)

Scott

Newsgroups: comp.lang.perl
From: robt@is.morgan.com (Rob Torop)
Subject: usersub: How To
Organization: Morgan Stanley & Company
Distribution: comp.lang.perl
Date: Fri, 28 Aug 1992 16:03:55 GMT

I've written some notes and some sample programs explaining how to
use usersub to create a custom version of perl containing your own C
functions.  If enough people are interested, I will upload it.
Otherwise, I can mail it out.

Apologies if this is the second posting of this message (I think there's a
problem with our xrn).

--
-- Rob Torop

+---------------------------------------------------------------------+
| The views expressed here are neither mine nor those of my employer. |
+---------------------------------------------------------------------+
From: smothers@seaview.mcd.intel.com (Charles Smothers ~)
Newsgroups: comp.lang.perl
Subject: help - range passed via ARGV
Date: 28 Aug 92 02:23:21 GMT
Distribution: comp.lang.perl
Organization: Memory Components Division

I know this was posted about a month ago, could someone mail
me some of the replys.  Here is the question:

I need to expand a range that is passed via ARGV.  A simple
program that will do the following will give me the help
I need:
% myprog 1..3 7 10..12     <- command line
1 2 3 7 10 11 12           <- output
%

Thanks,
 - Charles
--
--------------------------------------------------------------
Charles Smothers      (916)351-5359     smothers@mcd.intel.com
        The address is Intel's, the words are mine.
--------------------------------------------------------------
Newsgroups: comp.lang.perl
From: ggr@acci.com.au (Greg Rose)
Subject: source: program to adjust tabs
Reply-To: ggr@acci.com.au (Greg Rose)
Organization: Australian Computing and Communications Institute
Date: Tue, 1 Sep 1992 07:29:08 GMT

Well, after reading the thread about preferred indentation, and then
running up against a program that used 8-column tabs to a depth of
ridiculousness, which I basically needed to rewrite anyway, I wrote
the following script to alter the indentation of anything that uses
lots of tabs to have leading four-space indentation.

The hardest part of this job is the fact that if you take a program
that uses tabs *within* the line, say to line up declarations or
comments, and you just screw with the leading tabs, these things won't
line up any more. This script takes care of them, too. 

You run it by saying something like "retab *.c".

Share and Enjoy,
Greg.

#!/usr/local/bin/perl -pi.orig

# retab programs from 8 character indents to 4 character indents,
# but preserving column alignment in declarations. Output should
# produce 8 character tabs as much as possible, and assumes 8 character
# tab stops in the input.

# make leading spaces into tabs first
undef while s/^(\t*)        /$1\t/;

# check for nothing to do
if (/^\t/) {
    # split off leading tabs for separate handling
    s/^(\t*)//;
    $tabs = $1;

    # put out leading tabs
    print "\t" while $tabs =~ s/\t\t//;

    # put out four spaces
    if ($tabs) {
	print "    ";
	# might have to change alignment of rest of line
	if (/^([^\t]*)\t/) {
	    # fix the internal tabs
	    s/\t/\t\t/ if (length($1) % 8) < 4;
	}
    }
}
# end of retab

--
Greg Rose                 Australian Computing and Communications Institute
ggr@acci.com.au                                              +61 3 282 2532
Newsgroups: comp.lang.perl
From: ckd@eff.org (Christopher Davis)
Subject: Re: Using Gotos?
Organization: Electronic Frontier Foundation Tech Central
Distribution: comp
Date: Tue, 25 Aug 1992 21:21:16 GMT

David> == David Wuertele <dave@pipi.iis.u-tokyo.ac.jp> 

 David> P.S. I have been equating "next LABEL;" with GOTO, perhaps
 David> mistakenly.  Please flame if I'm being naive.

At least one semi-religious article on structured programming that I've
read said that transferring control to the end of a block is not, by
definition, a GOTO of any sort (even if it's implemented with a GOTO),
but merely an early escape from the block.

next is definitely such, and (IMHO) increases clarity; try these:

while (<>) {
     next if /^#/;
     &munge($_);
     &kludge($_);
     &many_lines_of_code;
}

while (<>) {
     if (!/^#/) {
          &munge($_);
          &kludge($_);
          &many_lines_of_code;
     }
}

In the second, it is not immediately clear that you intend to totally
ignore the line; the many_lines_of_code might obscure an else or elsif
clause, and you won't know 'till you scroll down.  The two are logically
equivalent, but differ in readability.

I'm not gonna flame you; you certainly haven't done anything deserving
of it... but you really shouldn't dismiss next/last/redo out of hand.
--
Christopher Davis * ckd@eff.org * System Administrator, EFF * +1 617 864 0665
            ``Ed Gruberman, you fail to grasp Ti Kwan Leep.
            Approach me that you might see.'' -- The Master
Newsgroups: comp.lang.perl
From: todd@uhunix.uhcc.Hawaii.Edu (Todd Ogasawara)
Subject: Re: Camel Book for 5.xxx hardback?
Organization: University of Hawaii at Manoa
Date: Thu, 3 Sep 1992 01:46:01 GMT

In article <sherman.715286966@foster> sherman@unx.sas.com (Chris Sherman) writes:
>Actually, the Perl book on CD-ROM would be really handy!!!  I would be willing
>to pay bucks for all the 'animal' O'Reilly books on a CD-ROM.

O'Reilly released a Hypercard version of "UNIX in a Nutshell" about four or
five years ago. I used it quite a bit and found it useful and easy to use.
I don't have a Mac to use anymore and would sure like to see both "UNIX in
a Nutshell" and some form of a Perl reference for the Microsoft Windows
environment using the Windows Help engine (or whatever else O'Reilly would
prefer to use).
--
Todd Ogasawara, U. of Hawaii, Psychology Department
BITNET:		todd@uhunix
INTERNET:	todd@uhunix.UHCC.HAWAII.EDU
Newsgroups: comp.lang.perl
From: sol0@ns1.cc.lehigh.edu (Stephen O. Lidie)
Newsgroups: comp.lang.perl
Subject: undump on AIX
Date: 27 Aug 92 11:46:34 GMT
Organization: Lehigh University


Hello;

I have several high-usage Perl programs that I would like to
compile and dump.  I have read the FAQ and rooted around the
TeX directories here but haven't found undump.  Is there
such a beast for RS/6000 machines (or an equivalent)?

Thanks,

Steve Lidie
Lehigh University Computing Center
Newsgroups: comp.lang.perl
From: budnick@cbnewse.cb.att.com (Mary Jo Budnick)
Subject: easy question?: substrings
Organization: AT&T
Distribution: usa
Date: Wed, 26 Aug 1992 21:35:16 GMT

Hi!  I just started to use Perl and can't find the info in the
Wall/Schwartz book very easily to solve my problem.  Help me out?

All I want to do is to change a string in the format of either
	0xffffff00 or ffffff00 into the format
	of 255.255.255.0 

The part I'm having trouble w/ is splitting the ffffff00 string
into an array of: ff ff ff 00.  After I do that I plan to
change these array elements into decimal from hex and join
with a ".".  But,  I can't find a good way to successively cut
2 chars from the ffffff00 string.
 
Thanks!
 
Please send mail to budnick@ihspa.att.com
 
Mary Jo Budnick
From: maas@dutiws.tudelft.nl (Frank Maas)
Newsgroups: comp.lang.perl
Subject: Re: Sendmail rewriting rules in Perl?
Date: 29 Aug 92 19:07:35 GMT
Organization: Delft University of Technology

In article <1992Aug29.013216.2307@exu.ericsson.se> exubho@exu.ericsson.se (Blake Holman) writes:
>
>Ideally, I would like to be able to pull out the to and from mail
>addresses, put them through the rewriting rules and determine if
>the mail would be sent within my domain or my root domain, or 
>whether the mail would be sent external to my companies root domain.
>

Couldn't you use the -bt option of sendmail itself? You enter the endrule (nor-
mally 0) and the address and see the rule determination and end-result.

Hope this helps,

Frank Maas (maas@dutiws.TWI.TUDelft.NL)
From: lwall@netlabs.com (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: Update on "panicanal": now "traceanal" w/improvements
Date: 4 Sep 92 17:33:08 GMT
Article-I.D.: netlabs.1992Sep4.173308.2830
Organization: NetLabs, Inc.

In article <1992Sep3.193315.29809@uvaarpa.Virginia.EDU> aks%anywhere@hub.ucsb.edu writes:
: We've totally eliminated the hardware as being the fault.

Then it's definitely the cables.  :-)

Larry
From: dansmith@Autodesk.COM (Daniel Smith)
Newsgroups: comp.lang.perl
Subject: got a symlink checker/chaser for crontab?
Summary: don't want dead links sitting around
Date: 27 Aug 92 00:43:12 GMT
Organization: Autodesk Inc., Sausalito CA, USA


	I often tie together filesystems with symlinks, so that
something like /usr/local/src will contain links which point all
over the place.  Every so often, I try to cd somewhere I haven't
been for weeks, only to find that the link has "dried up".

	Well... I basically want a script that will take
"find / -type l -print" and check the links to see if they resolve.  It's
something I'd run once a day out of crontab.  Rather than reinventing
what must be a somewhat common wheel, I thought I'd ask here first.
The script would produce a list of symlinks in need of updating/deletion,
which presumably would get piped into mail.

				Daniel
-- 
            dansmith@autodesk.com            dansmith@well.sf.ca.us
        Daniel Smith, Autodesk, Sausalito, California, (415) 332-2344 x 2580
              Disclaimer: written by a highly caffeinated mammal
 $|=1;for("..."," hacker"," perl"," a","just"){print $l=$_.$l,"\015";sleep 1;}
Newsgroups: comp.lang.perl
From: thenglid@linda.lidac.liu.se (Thomas Engstrom)
Subject: How do I make traps in perl?
Organization: Computer Service Centre, University of Linkoping
Date: Wed, 26 Aug 1992 13:51:46 GMT

Is there anyone that knows how to catch signals in perl? Something like
"trap" in bourne shell.

-------------------------------------------------------------------------------
Thomas Engstrom, LIDAC Computer Centre, University of Linkoping, Sweden
(ThoEn@LIDAC.LiU.se)
-------------------------------------------------------------------------------
From: ej@id.dth.dk (Erik Johansen (EMP))
Newsgroups: comp.lang.perl
Subject: Re: Null output as a string?
Date: 25 Aug 92 12:04:46 GMT
Organization: Department of Computer Science

sherwood@fenris.space.ualberta.ca (Sherwood Botsford) writes:

>@message = `/usr/local/bin/gfind . -user $u -atime +9 -ls  
>`;
>if (@message != "")	{
>  print("mail sent to $u\n");
>  open( MAILOUT, "|/usr/ucb/Mail -s \"48 Hr Notice:  
>/u/scratch purge\" $u");
>..

If you want to use string compare - use string operands.
In other words it should work if you write

$message = `/usr/local/bin/gfind . -user $u -atime +9 -ls`;
if ($message ne "")	{
...


-- 
---
Erik Johansen                  E-mail: ej@id.dth.dk
Institute for Computer Science, Copenhagen, Denmark
From: folta@cs.umd.edu (Wayne Folta)
Newsgroups: comp.lang.perl
Subject: perl on dgux
Date: 3 Sep 92 04:29:50 GMT
Distribution: usa
Organization: U of Maryland, Dept. of Computer Science, Coll. Pk., MD 20742

I took perl 4.035 to my nearest AViiON machine and compiled it. The configure
routine had hints for dgux, and I accepted them. It passed all tests with
flying colors. But... but it core dumps on syntax errors in perl scripts.

Anyone else had luck with dgux?

The facts I know:

   dgux 5.4 AViiON mc88100
   gcc DG 1.37 OCS/BCS DG-1.37.31 Apr 25 1991
   perl 4.035

   dbx stack traceback:

   Stack level 0: 0x57e44 in __doprnt()
			     vsprintf()
			     mess()
			     Myfatal()
			     main()
			     _start()
   
   When perl encounters the syntax error, it prints:

      Syntax error in file foo.p at line 2, next 2 tokens "id ("
      Segmentation Fault - core dumped
   
   When it should have printed a second line: "Execution of foo.p aborted due to
   compilation errors". It evidently dies trying to print this. Same problem
   when I use the "-c" option of perl.

Anyhow, I can get more facts, if I know what to look for. The perl script I
was trying to compile had:

   #!/u2/tester5/bin/perl
   id ($foo) { $x = $foo ; }

where the "id" would be correct if "if".

   Wayne
-- 


Wayne Folta          (folta@cs.umd.edu  128.8.128.8)
From: jkt@SED.Provo.Novell.COM (Jack Thomasson)
Newsgroups: comp.lang.perl
Subject: Re: Bad label: _EVAL_
Date: 3 Sep 92 20:59:37 GMT
Organization: Novell, Inc.

>>>>> On 3 Sep 92 08:26:20 GMT, jim@spitws117.sbil.co.uk (James
>>>>> Gillespie) said:

James>     open (OUTPUT, "> $oldfile") || die "Couldn't open '$oldfile' for writing\n";

the old "how many single quotes was that, anyway?" bug.  try:

... || die "could not open $oldfile for writing\n"; # avoid the problem

or

... || die "couldn\'t open \'$oldfile\' for writing\n"; # escape the
problem

James> Jim Gillespie ----------------------------------------------------
James> jim@sbil.co.uk              Salomon Brothers International Limited
James> +44 71 721 2672             --------------------------------------
James>            "Three strikes and you're history, kiddo!" - Calvin's mom
--
---------------------------------------------------------------------
Jack Thomasson                   :{)}               (the bearded one)
Internet:Jack_Thomasson@SED.Provo.Novell.COM           MHS:JKT@NOVELL
Novell, Inc. /  MS E-23-2 /  122 East 1700 South /   Provo, UT  84606
Phone: (800)453-1267x7604 | (801)429-7604          FAX: (801)429-5511
"WARNING: the comments do not necessarily reflect the implementation"
From: lwall@netlabs.com (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: Punctuation in Regex, or Wouldn't a \p be nice?
Date: 3 Sep 92 18:22:54 GMT
Organization: NetLabs, Inc.

In article <1992Sep2.232753.3020@cs.unca.edu> mcmahan@cs.unca.edu (Scott McMahan -- Genesis mailing list owner) writes:
: A really nice thing for perl to do would be to provide \p as a
: regular expression like \s that would match one punctuation
: character. (!@#$%^&*()_-+=~`}]{[|\"':;?/>.<, :^))
: 
: Since most of these are also regular expression characters, it
: would eliminate a lot of \-ing.
: 
: Is there an easy way to put a lot of punctuation in a regex
: without tons of quoting?  (q and qq don't look like they'd work)

It looks like [^\w\s] would be pretty close to what you want.  Note
also that, within [], only @$-]\ (and whatever your pattern delimiter is)
need to be backwhacked.  The others, .[{}*+?|(), are not special inside [].

Larry
Newsgroups: comp.lang.perl
From: mcook@fendahl.dev.cdx.mot.com (Michael Cook)
Subject: Re: got a symlink checker/chaser for crontab?
Organization: Motorola Codex, Canton, Massachusetts
Date: Thu, 27 Aug 1992 14:38:54 GMT

dansmith@Autodesk.COM (Daniel Smith) writes:

>	Well... I basically want a script that will take
>"find / -type l -print" and check the links to see if they resolve.  It's
>something I'd run once a day out of crontab.  Rather than reinventing
>what must be a somewhat common wheel, I thought I'd ask here first.
>The script would produce a list of symlinks in need of updating/deletion,
>which presumably would get piped into mail.

If it's an invalid symlink, you can lstat it, but you can't stat it.

while (<>)
{
    next unless lstat($_);
    next unless -l _;
    next if stat($_);
    print "invalid symbolic link: $_ -> ",
        (readlink($_) || "[can't readlink: $!]"), "\n";
}

Michael.
Newsgroups: comp.lang.perl,alt.security
From: slade@accolade.base.bellcore.com (25873-slade)
Subject: Re: P-COPS
Reply-To: slade@accolade.base.bellcore.com (25873-slade)
Organization: Bellcore
Date: Thu, 27 Aug 92 21:08:06 GMT

In article <DSG.92Aug26141726@blackbird.mitre.org>, dsg@blackbird.mitre.org (David S. Goldberg) writes:
|> 
|> I've been running the Shell version of COPS for some time now and want
|> to check out the perl version.  However, I seem to be running into
|> some "Malformed cmd links" errors.  I think I've narrowed it down to
|> the "run" subroutine in the main cops program.  Can anyone tell me
|> what causes this error?  I'm not sure it's got anything to do with the
|> reason cops ends up hanging, but I'm seeing them alot.
|> 
|> If it matters: perl 4.035, cops 1.04, IRIX 3.3.3
|> 
|> Any help/advice appreciated.
|> 
|> Thanks,
|> 
|> --
|> Dave Goldberg                      UNIX Systems Programmer/Administrator
|> Post: The Mitre Corporation MS B020 202 Burlington Rd. Bedford, MA 01730
|> Phone: 617-271-2460
|> Domain: dsg@mbunix.mitre.org  UUCP: {your neighborhood}!linus!mbunix!dsg 
|> 

Where can I ftp a copy of P-COPS?

Thanks,

Dave
-- 
----------------------------------------------------------------------------
David Slade                          Internet: slade@cc.bellcore.com
Bellcore                             UUCP:     bcr!chaucer!slade
----------------------------------------------------------------------------