[6367] in Perl-Users-Digest
Perl-Users Digest, Issue: 989 Volume: 7
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Feb 21 16:37:26 1997
Date: Fri, 21 Feb 97 13:00:20 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 21 Feb 1997 Volume: 7 Number: 989
Today's topics:
Re: $/ - input record separator (Dave Wolfe)
[Q] removing lines in a file.. (Eric D. Carter)
Re: Checking for redirection (file input) <rootbeer@teleport.com>
Re: crypt() in NT Perl (Nathan V. Patwardhan)
Re: crypt() in NT Perl (Dave Wolfe)
Re: Determine perl program memory usage <tchrist@mox.perl.com>
Re: efficiency of many fixed strings vs one regex <tchrist@mox.perl.com>
Re: efficiency of many fixed strings vs one regex (Ilya Zakharevich)
Re: efficiency with while? (Ilya Zakharevich)
Re: Fairly basic Comm.pl question (Tyger)
Re: File Locking NOT using flock (Dave Wolfe)
Re: File Locking NOT using flock <rootbeer@teleport.com>
Re: finding full path to file name <merlyn@stonehenge.com>
Re: futur de perl et java-script <tchrist@mox.perl.com>
Help for a perl neophyte <toni_garrish@ccm.fm.intel.com>
Intel v. Randal: Leadfinger (Jeffrey Kegler)
Re: modifying @INC <rootbeer@teleport.com>
Re: Perl and MAPI (Windows NT Win32 Messaging API) (Glenn Stanton)
POP3 modules (John Olsen)
Re: Searching for Perl-supported Linux database (Greg Phaling)
simple new question! (Jonas Bofjall)
Re: Solution for "Use of uninitialized value"? <ljohnson@isys.ca>
Digest Administrivia (Last modified: 8 Jan 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 21 Feb 97 18:16:14 GMT
From: dwolfe@miaow.sps.mot.com (Dave Wolfe)
Subject: Re: $/ - input record separator
Message-Id: <dwolfe.856548974@talos4>
In <5ehoi9$mbi@cc.tut.fi> Jussi Kallioniemi <ktjuka@uta.fi> writes:
>Q: Why does the changing of the input record separator change the number of
>the input records?
>Why does:
>#!/usr/bin/perl
>$count = 0;
>open (FOO, "foobar") || "Bleh\n";
>while (<FOO>) {
> $count++;
>}
>print $count;
>print out 3 if I run it on file which has 3 lines, but
>produces 4 if I set $/ = "Barf!"; and run it on file which
>contains:
>Barf!Barf!Barf!
Looks to me like you're not comparing the same thing in both cases. For
example, if your first test case (record separator is newline (\n)) is:
line 1\n
line 2\n
line 3\n
The second case is:
line 1Barf!
line 2Barf!
line 3Barf!
\n
Notice the trailing newline (with no record separator following)? Your
second case has data after the last record separator, which constitutes
the fourth line.
--
Dave Wolfe
------------------------------
Date: 21 Feb 1997 18:35:44 GMT
From: ecarter@a-lincoln.hnet.uci.edu (Eric D. Carter)
Subject: [Q] removing lines in a file..
Message-Id: <5ekpu0$cq6@news.service.uci.edu>
Just finished checking out the newsgroups, website & man pages.. but I
haven't found what I'm looking for. If someone could point me in the
right direction I would appreciate it.
I want to remove a single line from a file. So far, I have only been
able to do this by opening an existing file, writing to a temp file
and renaming when I'm done. Is it possible to simply open a file and
remove a $_ (entire line..) without using a second file? I'm thinking
I could use s/// -- s/pattern//;
Here's a piece of what I have been using -- the files get big though
and this seems cumbersome:
if ($delete) {
$difyear=($delyear-$fyear);
if ($difyear > 1) {
for ($x=1;$x<=$difyear;$x++) {
unshift(@delyears,"$fundnum.$delyear");
$delyear=$delyear-1;
}
}
foreach $filename (@delyears) {
chdir($datadir);
open (DELFILE,"$filename") || &err_mail;
open (NEWFILE,">$filename") || &err_mail;
while (<PANFILE>) {
s/$id(.*)$action1(.*)\n/\s/;
print NEWFILE $_;
}
close (DELFILE);
close (NEWFILE);
}
$delete=0;
}
}
Please ignore the stuff above, from 'chdir ($datadir) to close(NEWFILE)
is what I'm using. Any help would be appreciated.
Thanks, eric.
------------------------------
Date: Fri, 21 Feb 1997 12:11:08 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: "J. Mello" <kingjamm@u.washington.edu>
Subject: Re: Checking for redirection (file input)
Message-Id: <Pine.GSO.3.95q.970221115934.4498G-100000@kelly.teleport.com>
On 20 Feb 1997, J. Mello wrote:
> I'm currently having a hard time trying to find out if a file is being
> redirected via a "<" into my shell. For instance...
>
> foo.perl < testfile
> I've tried searching for a "<" in @ARGV, but for some reason,
> arguments to your shell don't include pipes or redirections.
I think you've got that backwards. The shell takes the pipes and
redirections and opens them for your process. Your process starts with
three filehandles opened for free, STDIN, STDOUT, and STDERR. But your
script isn't supposed to be able to tell whether it was invoked with the
command above or this "useless use of cat" contest entry:
cat testfile | foo.perl
... because your process is not the command. It's just foo.perl.
> If the testfile is being redirected in, I want to just process it, but
> otherwise I want to interactively call an editor so the user can enter
> the data in.
I think you want to find out whether STDIN is coming from a keyboard or a
disk, right? Try using -t, like this:
if (-t) {
# Start up the editor
} else {
# Just read in the file directly
}
Hope this helps!
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.lightlink.com/fors/
------------------------------
Date: 21 Feb 1997 18:43:23 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: crypt() in NT Perl
Message-Id: <5ekqcb$g31@fridge-nf0.shore.net>
Bo Graham (bgraham@bgraham.com) wrote:
: The crypt function is documented *not* to be supported in NT Perl. I am
: searching for the equivalent..... or failing that... an NT port of Matt
: Wright's wwwadmin.pl
It is in versions 110 +.
www.activeware.com
--
Nathan V. Patwardhan
nvp@shore.net
"send me mail"
--Jamie Zawinski
------------------------------
Date: 21 Feb 97 18:46:10 GMT
From: dwolfe@miaow.sps.mot.com (Dave Wolfe)
Subject: Re: crypt() in NT Perl
Message-Id: <dwolfe.856550770@talos4>
[ mailed and posted ]
In <330DABD1.7305@bgraham.com> Bo Graham <bgraham@bgraham.com> writes:
>The crypt function is documented *not* to be supported in NT Perl. I am
>searching for the equivalent..... or failing that... an NT port of Matt
>Wright's wwwadmin.pl
A Unix equivalent crypt has been in Win32 Perl since at least build 110.
Try it and see if it isn't there before believing everything you read.
--
Dave Wolfe
------------------------------
Date: 21 Feb 1997 19:48:43 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Determine perl program memory usage
Message-Id: <5eku6r$cl0$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
mg@obd.com writes:
:Is it possible to determine the amount of memory a perl program
:is using? I have a long running program that seems to consume
:more memory that I would expect and want to determine the
:memory usage a various points in the program. A unix only
:solution is OK.
system "ps l$$";
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
The only disadvantage I see is that it would force everyone to get Perl.
Horrors. :-)
--Larry Wall in <8854@jpl-devvax.JPL.NASA.GOV>
------------------------------
Date: 21 Feb 1997 18:24:50 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: efficiency of many fixed strings vs one regex
Message-Id: <5ekp9i$95t$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
Jim Anderson <jander@jander.com> writes:
:According to Jeffrey, p.284, the Benchmark module in not appropriate
:for use with regexps due to "problems" with $&. He gives an example of
:what he uses to Benchmark.
Fixed in the next release, thanks to Ilya.
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
Just don't create a file called -rf. :-)
--Larry Wall in <11393@jpl-devvax.JPL.NASA.GOV>
------------------------------
Date: 21 Feb 1997 20:03:43 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: efficiency of many fixed strings vs one regex
Message-Id: <5ekv2v$d7e$2@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Tom Christiansen
<tchrist@mox.perl.com>],
who wrote in article <5ekp9i$95t$1@csnews.cs.colorado.edu>:
> [courtesy cc of this posting sent to cited author via email]
>
> In comp.lang.perl.misc,
> Jim Anderson <jander@jander.com> writes:
> :According to Jeffrey, p.284, the Benchmark module in not appropriate
> :for use with regexps due to "problems" with $&. He gives an example of
> :what he uses to Benchmark.
>
> Fixed in the next release, thanks to Ilya.
Wrong, what I fixed were _last_ 4 .pm files which mention the bad
guys. Carp.pm was fixed looooong time ago. Jeffrey says that 003 was
contaminated, but $& is not in 3_01's Carp.pm.
Ilya
------------------------------
Date: 21 Feb 1997 19:58:33 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: efficiency with while?
Message-Id: <5ekup9$d7e$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Dave Thomas
<Dave@Thomases.com>],
who wrote in article <slrn5grdf5.t69.dave@fast.thomases.com>:
> > > scalar: ~300k
> > >
> > > array: ~800k
> >
> > I'm not sure you did it right (perl malloc with all the optimizations on):
>
> Well, I don't know about _right_ - I did it with Perl.
Now that you provided the way you did it, we can really be sure. Note
however, that you use old Emacs, so my remark about 240K vs 270K
applies 100%.
> So, why does my scalar example seem to use so much less memory than yours?
> Am I being naive about 'ps' here?
Well, I have never seen ps documented. :-(.
Ilya
------------------------------
Date: 21 Feb 1997 20:34:28 GMT
From: tyger@fiat.gslis.utexas.edu (Tyger)
Subject: Re: Fairly basic Comm.pl question
Message-Id: <5el0sk$4ft@geraldo.cc.utexas.edu>
Tyger (tyger@fiat.gslis.utexas.edu) wrote:
Hate following up to my own post - but I got it worked out. Nevermind.
T'gr
--
-------------------- Tyger - http://www.eden.com/~tyger --------------------
---- More than this I will not ask - faced with mysteries dark and vast ----
------------------------------
Date: 21 Feb 97 18:31:17 GMT
From: dwolfe@miaow.sps.mot.com (Dave Wolfe)
Subject: Re: File Locking NOT using flock
Message-Id: <dwolfe.856549877@talos4>
[ mailed and posted ]
In <01bc1ffb$ce24c5a0$073040ca@menger.enger.dyn.ml.org> "Matthew Enger" <menger@mindless.com> writes:
> I am new to perl and I want to lock files with out using flock. I have
>writen two subs but there is something wrong with them. Can anyone help?
>sub set_lock{
> local($filename) = @_;
> While(-f $filename.lock){select(undef,undef,undef,0.1);}
> open($filename.lock,">$filename.lock");
>}
>sub del_lock{
> ($filename) = @_;
> close($filename.lock);
> unselect($filename.lock);
>}
"While"?? "unselect"?? Seems to be quite a bit wrong with them...
The basic premise of locking is to have an "atomic" (indivisible)
operation that both tests and sets the lock. The fact that it
takes two language primitives to test and then set the lock should be
your first clue that it won't work. Besides that, "open" itself is not
atomic and is thus unusable for this purpose.
Most reasonable file systems (that excludes M$ products FWIW) implement
the link operation in an atomic fashion on local media (meaning not over
NFS mounts), so that is often used by first creating a uniquely named
file then attempting to link it to the lock file name. If it succeeds,
the lock is set. Deleting the lock file frees the lock.
You would do well to rethink your reasons for not using flock, however.
--
Dave Wolfe
------------------------------
Date: Fri, 21 Feb 1997 12:25:12 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Matthew Enger <menger@mindless.com>
Subject: Re: File Locking NOT using flock
Message-Id: <Pine.GSO.3.95q.970221121653.4498H-100000@kelly.teleport.com>
On 21 Feb 1997, Matthew Enger wrote:
> I am new to perl and I want to lock files with out using flock.
Why would you want to do that? Does your system not support flock?
> I have writen two subs but there is something wrong with them. Can
> anyone help?
> sub set_lock{
> local($filename) = @_;
> While(-f $filename.lock){select(undef,undef,undef,0.1);}
> open($filename.lock,">$filename.lock");
> }
Yep, something wrong there: You're not using flock! :-)
But, besides that, I can see that you have serious errors which would keep
that subroutine from parsing correctly. But besides _that_, do you see
that some other process could create the file in the time interval just
before the open?
You need some way to do an atomic operation which can't be interrupted by
another process. If your vendor doesn't offer flock (or lockf) you should
either consider what other atomic operations might exist or what other
vendors might exist. :-)
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.lightlink.com/fors/
------------------------------
Date: 21 Feb 1997 13:14:26 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: gml4410@ggr.co.uk (Lack Mr G M)
Subject: Re: finding full path to file name
Message-Id: <8c67zlex25.fsf@gadget.cscaper.com>
>>>>> "Lack" == Lack Mr G M <gml4410@ggr.co.uk> writes:
Lack> # ...now remove . and .. entries.
Lack> 1 while ($rt =~ s{/\.(/|$)}{$1});
Lack> 1 while ($rt =~ s{/[^/]+/\.\.(?:/|$)}{/});
This is broken in the face of symbolic links. In an empty directory:
mkdir wilma
mkdir wilma/dino
ln -s wilma/dino fred
touch fred/../PEBBLES
then PEBBLES ends up inside wilma, *not* in the current directory.
You *cannot* blindly remove "thing/.." without verifying that "thing"
is not a symbolic link.
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,495.69 collected, $182,159.85 spent; just 556 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@ora.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: 21 Feb 1997 17:57:30 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: futur de perl et java-script
Message-Id: <5eknma$90k$1@csnews.cs.colorado.edu>
[courtesy cc von diese posting sent to citado autor via email]
En comp.lang.perl.misc, Dominique BAGOT <Dominique.BAGOT@cetp.ipsl.fr>
:Bonjour a tous,
: A votre avis, Perl est-il condamne ?
: Je veux dire : Java script ne le remplacera-t-il pas ?
Quo vadis, Dominique? Non erat his locus!
Exempli gratia: Lamento explicarte que si on a besoin di communicarsi
con tutto il ganz mondo, che sarrebe mehr schoen auf English thy message
schrieben. Ou bien, ich habe gesagt das a cause du fait that apart from
newsgroups che mit seinem propio pays comenzano, per essempio "fr.*"
oder "de.*", wherefore the masses analfabeti might perchance somiar amb
el teu missatge verstehen, our lex loci hereabouts is that postings
be in English rendered, a moins que tu veuilles qu'ista interred nao seja
util fuer vile volk, or wilst thou that gli altri lectors hither and yon
deine missive malecrit killfile in summo. Non mi atrevu pretendere ch'il
francese seja uma coise mala in se. Jamais! Doncs, voglio solamente
que tu te des conta que la plupart de nos cannot read, o bien, understand,
opere citato supra.
Cum grano salis,
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
"You can't have filenames longer than 14 chars.
You can't even think about them!"
--Larry Wall in Configure from the perl distribution
------------------------------
Date: Fri, 21 Feb 1997 10:55:54 -0800
From: Toni Garrish <toni_garrish@ccm.fm.intel.com>
Subject: Help for a perl neophyte
Message-Id: <330DEFB9.6223@ccm.fm.intel.com>
Probably a simple answer. I am creating a perl script to remotely
execute a command on a remote machine. (I'm using rsh). I need to cd
to
a directory then execute the command from another directory. I can't
seem to anchor my pwd to the directory I want. Any suggestions. Or
should I do this a completely different way????
Thx,
Toni
------------------------------
Date: 21 Feb 1997 20:23:27 GMT
From: cybersalem@algorists.com (Jeffrey Kegler)
Subject: Intel v. Randal: Leadfinger
Message-Id: <5el07v$766@samba.rahul.net>
Letter from Cybersalem 5
Leadfinger
by Jeffrey Kegler
"Someone must have traduced Joseph K., for without having
done anything wrong he was arrested one fine morning. His
landlady's cook, who always brought him his breakfast at
eight o'clock, failed to appear on this occasion. That had
never happened before." From Kafka's _The Trial_. [1]
Some may believe I select out those incidents and matters from
the trial of Randal Schwartz which make the prosecution look
poorly. To be honest, I wish such a procedure was possible. The
truth is the whole prosecution is a travesty from beginning to
end, and in virtually all its aspects. I can hardly tell where
to begin, or in what order to proceed.
Nonetheless, even in such a thorough mockery of justice as Ran-
dal's prosecution, some events do seem more significant than oth-
ers. The most important event of all was the meeting which oc-
curred on Friday, October 29th, 1993, at which a mysterious fig-
ure whom I shall call Leadfinger decided that the police should
be involved.
One would hope, in 1993 America, even if a corporate executive
was benighted enough to want to, in the manner of a Kafka plot,
prosecute someone on the basis of secret accusations, someone
would tell him this could not be done. Still more, if this dim
bulb in the management socket wanted to make his accusations
anonymously it would quickly be realized this was not just impos-
sible, but bizarre. But this hope must be disappointed. Employ-
ees, police, district attorney and judge all swallowed this as if
it were the normal judicial fare.
Leadfinger believed that Randal had done far more than the trivi-
alities with which he was charged. Just what, he and his circle
of influence have never shared with jury or public. The bridge
meeting, as most call it [2], is the most important event in Ore-
gon v. Schwartz not just because it is a crucial beginning, but
because it marks a sea change in the trail of evidence. All evi-
dence that Randal and his activities were considered security
hazards from before the bridge meeting is remembered after the
bridge meeting by persons financially beholden to Intel [3]. Not
so much as a handwritten note predates the meeting [4]. There
simply is no independent record of Intel having a security prob-
lem with Randal before the bridge meeting. After the bridge
meeting, the dam breaks, rivers of ink spill, and detailed recol-
lections accusing Randal get committed to paper.
We know that at the bridge meeting, Leadfinger, who was someone
in Intel management [5], ordered the force of the law be brought
down upon Randal, and next to nothing else about it. No one at
the meeting will say who Leadfinger was, or who the ranking Intel
participant was (one would expect they would be the same, but
there is no specific evidence of that.) In the transcripts and
reports we have [6], only a few people will admit to having been
there [7], and only in one case does anyone identify anyone else
as having been there [8]. This special treatment is especially
evident in Mark Morrissey's report, which lists all participants
for every other meeting it describes [9].
This lack of information is not due to any lack of energy or cu-
riosity on the part of the defense. Incredibly, it seems Judge
Bonebrake ruled this, the most important event in the whole af-
fair, irrelevant and almost completely off limits to defense
questions [10]. Judge Bonebrake not only prevented the jury from
hearing any details of this meeting, but allowed Intel to keep
them from the defense as well. In Oregon, Leadfinger, whoever he
is, sure has clout.
===========================================================
The Friends of Randal Schwartz Web site archives the material on
all sides of this issue, including the trial transcripts:
<URL:http://www.lightlink.com/fors>.
Of the many opportunities to do something, three head the list:
1.) To sign a letter objecting to Intel's role in this sorry mat-
ter, see <URL:http://www.lightlink.com/fors/us2intel>.
2.) To sign a letter to the Computer Law Committee of Oregon
State Bar, see <URL:http://www.lightlink.com/fors/us2oregon>.
3.) To get an auto-reply giving Randal's own statement, and dis-
cussing how you can contribute to his Legal Defense Fund, send an
empty message to <URL:mailto:fund@stonehenge.com>
Permission is granted to freely copy the Cybersalem Letters in
electronic form, or to print them for personal use.
===========================================================
Note 1: Kafka, Franz, _The Trial_, Alfred A. Knopf, 1992, p. 1.
Note 2: A bridge meeting seems to be a form of telephone confer-
ence, accomplished via a device called a "bridge". For descrip-
tion of bridge meeting technology see Cower's testimony:
<URL:http://www.lightlink.com/fors/court/6-13-95.txt>, page 79,
line 25 to page 80, line 6, and
<URL:http://www.lightlink.com/fors/court/7-18-95.txt>, page 129,
line 24 to page 130, line 1.
Though most call this "the bridge meeting", not all do. John
Kent was not sure it was a bridge meeting. See
<URL:http://www.lightlink.com/fors/court/7-18-95.txt>, page 136,
lines 16 to 21.
Note 3: I should add that just because all the evidence against
Randal prior to the bridge meeting is a matter of recollection by
persons with a financial interest in Intel's good will does not,
in my opinion, make every word of it false. But much of it is
clearly the result of "improvement" after the fact. It is al-
leged -- in fact the police state under oath that Randal told
them -- that Randal knew he was committing a felony. If those
who knew of his activities took no step that resulted in so much
as a scribble or a jotting, it says a lot about their perception
of the seriousness of Randal's activities. And if Randal's ac-
cusers took his activities this lightly, how could Randal be
thinking of the same activities as not just policy violations,
but serious crimes?
Note 4: Some will wonder at this bold assertion of a negative.
Discovery motions made by the defense would usually cover any
such record, and in response to my email request for the results
of motions to find written or electronic records of prior securi-
ty concerns about Randal, Larry Oldstad of the defense team told
me: "There were none. That was admitted, I believe." (Private
email, Larry Olstad to Jeffrey Kegler, 1/21/97.) So if a written
record of concern about the security implications of Randal's ac-
tivities does appear, questions about compliance with the discov-
ery motions would have to be answered.
Note 5: See Rich Cower's testimony:
<URL:http://www.lightlink.com/fors/court/7-18-95.txt>, page 148,
lines 6 to 11; and Mark Morrissey's
<URL:http://www.lightlink.com/fors/court/6-14-95.txt>, page 193,
lines 12 to 15.
Note 6: The sources on this meeting are few and usually deliber-
ately vague. Rich Cower testified about it in
<URL:http://www.lightlink.com/fors/court/6-13-95.txt>, page 79,
line 15; in
<URL:http://www.lightlink.com/fors/court/7-18-95.txt>, page 147,
line 24 to page 150, line 19; and vaguely in
<URL:http://www.lightlink.com/fors/court/7-18-95.txt>, page 129,
line 22 to page 130, line 8.
Mark Morrissey testified about it in
<URL:http://www.lightlink.com/fors/court/6-14-95.txt>, page 192,
line 18 to page 193, line 22. Mark Morrissey's report sharply
breaks style to give a very elliptical account of the bridge
meeting: <URL:http://www.lightlink.com/fors/police/intelrep.txt>.
John Kent testified about it in
<URL:http://www.lightlink.com/fors/court/6-14-95.txt>, page 136,
line 16 to page 137 line 20.
Clyde Stites talks confusedly about a series of meetings at this
time, one of which almost certainly was the bridge meeting:
<URL:http://www.lightlink.com/fors/court/1-8-96.txt>, page 15,
line 15 to page 19, line 12.
For second-hand accounts, from the defense, there is Sussman's
opening statement to the jury
<URL:http://www.lightlink.com/fors/court/7-12-95.txt>, page 79,
line 6 to 16, and Larry Olstad's message to fors-discuss of
3/7/96.
Note 7: In their testimony, referred to above, Cower, Kent and
Morrissey say they were present. Stites seems to imply he was.
Note 8: Morrissey testifies to John Kent's presence.
<URL:http://www.lightlink.com/fors/court/6-14-95.txt>, page 202,
lines 5 to 7.
Note 9: <URL:http://www.lightlink.com/fors/police/intelrep.txt>.
Note 10: At this point I have this only second-hand and as im-
plied by the conduct of the attorneys in their questioning, and
the pattern of objections and the rulings on them. The original
ruling apparently was made via letter, and Bonebrake's letter
rulings are not yet available to me.
------------------------------
Date: Fri, 21 Feb 1997 11:58:48 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Bill Kuhn <wkuhn@uconect.net>
Subject: Re: modifying @INC
Message-Id: <Pine.GSO.3.95q.970221115130.4498F-100000@kelly.teleport.com>
On Thu, 20 Feb 1997, Bill Kuhn wrote:
> I want to do something like the following in a CGI program, but I am not
> being very successful:
>
> # $ENV{SERVER_PORT} is set
> $incpath = '/home/cgi-lib.' . $ENV{SERVER_PORT} ;
> use lib "$incpath"
Oops! use happens at compile time, but the assignment to $incpath doesn't
happen until run time. I don't know whether this will work, but I'm sure
you'll find out. :-)
use lib "/home/cgi-lib.$ENV{SERVER_PORT}";
Good luck!
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.lightlink.com/fors/
------------------------------
Date: Fri, 21 Feb 97 20:26:05 GMT
From: gms@lucent.com (Glenn Stanton)
Subject: Re: Perl and MAPI (Windows NT Win32 Messaging API)
Message-Id: <5el0ct$22o_002@wcc.lucent.com>
In article <330DEA1C.167EB0E7@alcatel.titn.fr>, jean-philippe amiel <JeanPhilippe.Amiel@alcatel.titn.fr> wrote:
>Could someone tell me please if it exits a Perl "package" for MAPI,
>(Microsoft Messaging API ) for Win32 Windows NT ????
MAPI is broken on the latest Exchange because the UI must always
be active in order to send mail... good luck 'cause it's a long wait
before it gets fixed...
>I would like to know also the references for the latests:
> - PERL FAQ
> - PERL source code for SUN
> - PERL source code for Windows NT
see the CPAN nearest you: http://www.perl.com/CPAN/
HTH
------------------------------
Date: 21 Feb 1997 20:40:29 GMT
From: J.Olsen@btinternet.com (John Olsen)
Subject: POP3 modules
Message-Id: <5el17t$69m@neon.btinternet.com>
I want to use perl to read mail. I know there is Mail::POP3Client and
there is also Net::Pop3.
Which should I use or doesn't make any difference?
------------------------------
Date: Fri, 21 Feb 1997 19:42:36 GMT
From: gregp@onramp.net (Greg Phaling)
Subject: Re: Searching for Perl-supported Linux database
Message-Id: <5ektp3$3d7@newsread.onramp.net>
Chris Schoenfeld <chris@ixlabs.com> wrote:
>I'm in the market for a database with the following features:
>1. Native Linux and Spac Solaris support (i.e. share binary db's).
>2. A thoroughly tested Perl 5 module interface.
>3. Speedy, for CGI work.
>4. Either commercial or well-supported PD.
>5. Native file/record locking.
>We have been using Berkeley DB / DB_File but wish to move to something a
>little more robust, as we have been having some portability, locking,
>and corruption problems here and there.
>After some preliminary research, I have narrowed it down to the
>following:
>Mini-SQL
>MiniSQL seems well supported with its own Perl interface module. It is
>also touted as being faster then PostgreSQL, although comparatively
>lacking in features.
SNIP
There is also mysql; the US mirror is at http://www.buoy.com/mysql/.
This appears to be an msql-alike that is being actively developed.
Some of the mysql add-ons are ports of the msql versions.
>Thanks
>Chris
You are welcome. (I haven't actually tried this product!)
Greg
------------------------------
Date: 21 Feb 1997 18:44:40 GMT
From: m9418@abc.se (Jonas Bofjall)
Subject: simple new question!
Message-Id: <5ekqeo$rb0@oden.abc.se>
I got interested in Perl when reading an article in LJ where Larry Wall
compared Perl to cartoon music :) So I started reading the man-page and
programmed some small programs.
Now here is my first two questions:
1. how do I change all occurences of "a" to "b", all "c" to "de" and
all "g" to "ijkl" in a string? I guess it's done with the y/.../
but HOW? I currently do it with several r/.../ (I think it was 'r'?)
anyways, I guess that's not the correct way.
2. this code, shouldn't it work??:
$abc = TRUE;
if (abc) { print "this won't print!" }
I have a problem where a variable is set to TRUE (I check this when
debugging) but Perl won't enter the block anyway...
Thanks for any help!
PERL looks nice because there are several ways to do things (which I
generally find good). It's a little bit too high level (much of a scripting
language) for me to get on good with it, but I'm learing, I'm learning...
--
// Jonas <job@abc.se> [2:201/262.37]
------------------------------
Date: 21 Feb 1997 19:31:07 GMT
From: "Lee Johnson" <ljohnson@isys.ca>
Subject: Re: Solution for "Use of uninitialized value"?
Message-Id: <5ekt5r$e2g@nr1.ottawa.istar.net>
Paul Marquess <pmarquess@bfsec.bt.co.uk> wrote in article
> Lee Johnson (ljohnson@isys.ca) wrote:
> : I've tried variations on this line including $date_command, by nothing
> : seems to work:
>
> : $date =`$date+"%y%m%d"`; chop($date);
> ^
>
> Try this:
>
> $date =`date +"%y%m%d"`; chop($date);
>
> Paul
>
Duh..."uninitialized value" no kiding...how could I have missed this one?
I guess that will teach me to stay up 'till 4:00 A.M. working on a script
and then hastilly post something to the newsgroup when I can't figure it
out.
Somebody please slap the newbie.
Anyway, thanks Paul {:-)
------------------------------
Date: 8 Jan 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Jan 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.
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 V7 Issue 989
*************************************
