[10865] in Perl-Users-Digest
Perl-Users Digest, Issue: 4466 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Dec 20 11:07:17 1998
Date: Sun, 20 Dec 98 08:00:26 -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 Sun, 20 Dec 1998 Volume: 8 Number: 4466
Today's topics:
Re: $&, $', and $` and parens.... (Bart Lateur)
ActiveState Perl and SWIG <rmangino@nh.ultranet.com>
Binary read/write/change qustions... <rich_guy@hotmail.com>
Re: Binary read/write/change qustions... (Mark-Jason Dominus)
Re: Binary read/write/change qustions... (Mark-Jason Dominus)
Re: Can this be done <jamesht@idt.net>
Color Editor <roclimb@yahoo.com>
Re: Color Editor mike@mjm.co.uk
Re: Color Editor <due@murray.fordham.edu>
find and replace in html docs with perl <ben@spods.net>
Good Programmers (C++,VB,Perl, etc.) wanted for future <pc@vidhill.demon.co.uk>
Help me... <druiter@casema.net>
Re: How do I catch this eval exception? <due@murray.fordham.edu>
Re: How do I catch this eval exception? (Mark-Jason Dominus)
How to remove all HTML from all files in directory? (ne <srudek@lanset.com>
Re: I must be blind... <ebohlman@netcom.com>
Re: I must be blind... (Mark-Jason Dominus)
Re: I must be blind... <mkahn@vbe.com>
Re: Is it possible with perl? <peter@berghold.net>
Re: Making the name of a var the contents of another <Arved_37@chebucto.ns.ca>
Newbie - TreeBuilder, traverse, tags and content (lee borkman)
Re: Passing Multiple Arrays <jamesht@idt.net>
Re: Quick Substitution Question <kistler@datacomm.ch>
Remote Objects <pep_mico@hp.com>
Re: Retrospective on comp.lang.perl.moderated? <gellyfish@btinternet.com>
Re: Retrospective on comp.lang.perl.moderated? <gellyfish@btinternet.com>
Re: shift. <peter@berghold.net>
Re: Shipping Script??? Help? <off-duty@entheosengineering.com>
Re: telnet by perl <Arved_37@chebucto.ns.ca>
Re: Why Is Perl not a Language? (David Jacoby)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 20 Dec 1998 11:55:49 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: $&, $', and $` and parens....
Message-Id: <367ce4fa.429458@news.skynet.be>
Uri Guttman wrote:
> BL> Look, if you really want to get rid of $&, $4 and $', here's
> ^^^^
>that is why we should ban all 'smart' newsreaders. when you type a
>backquote, you should get a backquote. not a funny 'better looking'
>backquote. it that supposed to be legal perl? i am not blaming bart but
>his broken reader that thinks it know more than he does.
>they are not standard so why do they think they are useful?
Stop blaming my newsreader for a typo *I* made! Or do you prefer a
newsreader that inserts "^H", when you want to get rid of a character?
;-)
Actually, I would think $` and $4 would make a better pair, but
unfortunately "4" is not in the Ascii range. Both keys are right next to
each other on my keyboard, so that doesn't help either.
Bart.
------------------------------
Date: Sun, 20 Dec 1998 10:12:45 -0500
From: "Reed Mangino" <rmangino@nh.ultranet.com>
Subject: ActiveState Perl and SWIG
Message-Id: <75j479$v78$1@ligarius.ultra.net>
Hello,
I am trying to use ActiveState's Perl (version 5.005_02, build 507)
with SWIG Version 1.1 (Patch 5) under NT.
I am trying to build \SWIG1.1p5\EXAMPLES\perl5\simple.
I am pretty sure that I have the makefiles setup correctly, but
when I link (regardless of which libs I link with) it fails to find
the following symbols:
example_wrap.obj : error LNK2001: unresolved external symbol
__imp__PL_stack_base
example_wrap.obj : error LNK2001: unresolved external symbol
__imp__PL_markstack_ptr
example_wrap.obj : error LNK2001: unresolved external symbol
__imp__PL_stack_sp
example_wrap.obj : error LNK2001: unresolved external symbol
__imp__PL_sv_yes
example.dll : fatal error LNK1120: 4 unresolved externals
I am have dumped the exports of EVERY lib that comes with ActiveState's perl
distribution - the unresolved externals, are NOT present...
I have searched through the headers that are distributed with ActiveState's
perl and they
ARE defined, but I just can't find the lib to link against...
Has anyone gotten around this??
Thanks,
Reed
------------------------------
Date: Sun, 20 Dec 1998 01:17:24 -0800
From: Ryan <rich_guy@hotmail.com>
Subject: Binary read/write/change qustions...
Message-Id: <367CC0A4.652D@hotmail.com>
I have a file that stores a user's file info, write/read in binary mode.
And I'm just wondering (as I can't find this anywhere!), is there a
better way to do the following faster, maybe with less typing even?
sub Read {
open (FILE, "+<$filename.$user_number") || &FileError
("$filename.$user_number", $!);
binmode(FILE);
seek (FILE,0*202, 0);
sysread (FILE, $var_1, 100);
sysread (FILE, $var_2, 26);
sysread (FILE, $var_3, 2);
sysread (FILE, $var_4, 45); # etc.
close (FILE);
## and is there ANY better way to strip the leading and trailing
whitespaces for ## printing?
$var_1 =~ s/^\s+//; $var_1 =~ s/\s+$//;
$var_2 =~ s/^\s+//; $var_2 =~ s/\s+$//;
$var_3 =~ s/^\s+//; $var_3 =~ s/\s+$//;
$var_4 =~ s/^\s+//; $var_4 =~ s/\s+$//;
return ($var_1, $var_2, $var_3, $var_4);
}
## This seems so extreme! I have a lot more $vars to deal with then
this!
## When I write the file, it's simple, fast, small and easy to just use
"pack"! So, is
## it possible to unpack in any such/better ways?
I have all the perl booksm I can find, and I don't see very much on this
type of thing, does anyone know any docs, or online references?
Thanks!
Ryan
------------------------------
Date: 20 Dec 1998 10:22:13 -0500
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Binary read/write/change qustions...
Message-Id: <75j4n6$f7f$1@monet.op.net>
In article <367CC0A4.652D@hotmail.com>, Ryan <rich_guy@hotmail.com> wrote:
> sysread (FILE, $var_1, 100);
> sysread (FILE, $var_2, 26);
> sysread (FILE, $var_3, 2);
> sysread (FILE, $var_4, 45); # etc.
unless (sysread(FILE, $record, 173) == 173) {
warn "Incomplete record.\n";
}
@vars = unpack "A100 A26 A2 A45", $record; # There's your `unpack'.
> $var_1 =~ s/^\s+//; $var_1 =~ s/\s+$//;
> $var_2 =~ s/^\s+//; $var_2 =~ s/\s+$//;
> $var_3 =~ s/^\s+//; $var_3 =~ s/\s+$//;
> $var_4 =~ s/^\s+//; $var_4 =~ s/\s+$//;
foreach $var (@vars) {
$var =~ s/^\s+//; $var =~ s/\s+$//; # Or see perlfaq4
}
> return ($var_1, $var_2, $var_3, $var_4);
return @vars;
>I have all the perl booksm I can find, and I don't see very much on this
>type of thing, does anyone know any docs, or online references?
Perl is distributed with online manuals. They're on your system.
You can also find them at <URL:http://www.perl.com/>.
------------------------------
Date: 20 Dec 1998 10:25:54 -0500
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Binary read/write/change qustions...
Message-Id: <75j4u2$fel$1@monet.op.net>
In article <367CC0A4.652D@hotmail.com>, Ryan <rich_guy@hotmail.com> wrote:
> seek (FILE,0*202, 0);
> sysread (FILE, $var_1, 100);
seek and sysread don't mix well. If you must use `sysread', which I
doubt, use `sysseek'. But it's probably better to uyse `read' instead
of `sysread'.
------------------------------
Date: Sun, 20 Dec 1998 10:02:35 -0500
From: jamesht <jamesht@idt.net>
To: "rick.delaney@home.com;jamesht"@idt.net
Subject: Re: Can this be done
Message-Id: <367D118B.69B7F237@idt.net>
Hello,
Here's a script which works fine:
-----
#
# for this example, test.txt holds (\t delimited):
#
# id one two three four five six seven
# two two three four five six seven eight
#
use strict;
my $key;
my %land;
#
# open the file, load the arays into the hash...
#
open(FILE, "test.txt") || die "sorry:$!";
while(<FILE>) {
chomp $_;
my($id, @rest) = split("\t", $_);
$land{$id} = \@rest;
}
close(FILE);
#
# %land holds the file, keyed by the first field of the file:
#
foreach $key (sort(keys(%land))) {
print $key . ": " . join(' ', @{$land{$key}}) . "\n";
}
#
# or to get the values:
#
my($one, $two, $three, $four, $five, $six, $seven, $eight) = @{$land{'two'}};
print "\ntwo:\n";
print $one . "\n";
print $two . "\n";
print $three . "\n";
print $four . "\n";
print $five . "\n";
print $six . "\n";
print $seven . "\n";
print $eight . "\n";
-----
Any other questions, feel free to ask,
James
------------------------------
Date: Sun, 20 Dec 1998 09:29:51 -0500
From: "Brad" <roclimb@yahoo.com>
Subject: Color Editor
Message-Id: <75j1dv$9f2$1@news.monad.net>
I am new to Perl, but not new to programming. I have been writing
everything in Notepad. I am used to having a color editor for certain
words in the code of a program e.g. in Visual Studio when you type int it
changes color and when you type bool or class those change color as
well....So what I leading up to is.
Is there a color editor like this for Perl? If so could you please give the
name of it or the url to the page.
If there isn't such a thing I would be interested in hearing what other
people are using for editors and what they think about them.
Thank you.
Brad
------------------------------
Date: Sun, 20 Dec 1998 14:57:45 GMT
From: mike@mjm.co.uk
Subject: Re: Color Editor
Message-Id: <367d0fdf.16849041@nntp.netcom.net.uk>
Hi Brad,
I use PERL 32 for editing perl as it has a built in run-time version
that runs under windows3/95/98 ..
It is fairly old, but I still find it durable and very useful for
testing scripts off-line.
The program is freeware and you should be able to find it doing a
search on the author.. Maxwell Bairn Andrews ..
Let me know what you think of the program..
Mike
<snip>
>If there isn't such a thing I would be interested in hearing what other
>people are using for editors and what they think about them.
>
>Thank you.
>
>Brad
>
>
Mike
MjM Computer Publishing
http://www.mjm.co.uk
------------------------------
Date: 20 Dec 1998 15:09:18 GMT
From: "Allan M. Due" <due@murray.fordham.edu>
Subject: Re: Color Editor
Message-Id: <75j3uu$eqc$0@206.165.146.38>
Brad wrote in message <75j1dv$9f2$1@news.monad.net>...
|I am new to Perl, but not new to programming. I have been writing
|everything in Notepad. I am used to having a color editor for certain
|words in the code of a program e.g. in Visual Studio when you type int it
|changes color and when you type bool or class those change color as
|well....So what I leading up to is.
|Is there a color editor like this for Perl? If so could you please give the
|name of it or the url to the page.
|If there isn't such a thing I would be interested in hearing what other
|people are using for editors and what they think about them.
|Thank you.
|Brad
Warning: macro insert (slightly new version):
My favorite Windoze editor is UltraEdit32. Here is what I had to say about
this last week (and the week before....).
-----
Well, I say this all the time but I quite like UltraEdit32. Macros, keyboard
mapping, column mode, colored syntax, automatic indenting, match braces, view
html your are editing with your browser from within the editor, regular
expression searches, hex editing, file size limit 2G, 100,000 word spell
checker, yada yada yada. Plus it is easy to set up a tool that allows you to
run perl from within UltraEdit32 and then capture the output to either a list
box or a new file in the editor. You can also run DOS commands from within
the editor so you can run perl scripts with command line input. It is
shareware and times out after 45 days, registration cost: $30.00. For me, it
is well worth the money. Oh, new feature, it now has it's own FTP capability.
Just my $.02. www.ultraedit.com
AmD
------------------------------
Date: Sun, 20 Dec 1998 13:47:51 -0000
From: "Ben Mitchell" <ben@spods.net>
Subject: find and replace in html docs with perl
Message-Id: <75iv6h$bvk$1@plug.news.pipex.net>
Hi all,
I'm looking for a script that will recurse an html directory and
find/replace particular tags (eg header tags etc) in all tha pages.
I don't even know where to start! I know it isn't complicated but I'm not
sure where to go.
It would also be particularly useful if it could read the title of the page
from the old tags and put it into the template it replaces them with...
I am desperate to do this because otherwise I have to go through about 4MB
of documents doing it by hand... can anyone help?
Please can you reply to me personally as well as to the group as I dont have
access to usenet that often, only email.
Thanks in advance,
Ben
ben@freshy.com
------------------------------
Date: Sun, 20 Dec 1998 14:44:45 -0000
From: "Philip" <pc@vidhill.demon.co.uk>
Subject: Good Programmers (C++,VB,Perl, etc.) wanted for future work.
Message-Id: <914165204.14188.0.nnrp-07.c2de2830@news.demon.co.uk>
Good Programmers (C++,VB,Perl, etc.) wanted for future work. Work over the
Internet or in the UK.
Please go here and apply.
http://www.hill-inter.net/form.htm
Browse with Internet Explorer 4 version only (at present).
------------------------------
Date: Sun, 20 Dec 1998 13:06:18 +0100
From: Volcano <druiter@casema.net>
Subject: Help me...
Message-Id: <367CE839.9DB4C974@casema.net>
PLease cas somebody help me....I can't get a script running...
Contact me on : druiter@casema.net or vul.can@mailexcite.com
or UIN : 14316194
Thanks
--
-VoLCaNo
--
/ \
\ \ ,, / / Volcano
'-.`\()/`.-' mailto:vul.can@mailexcite.com
.--_'( )'_--.
/ /` /`""`\ `\ \ Area 52:
| | >< | | http://www.casema.net/~druiter
\ \ / /
'.__.'
------------------------------
Date: 20 Dec 1998 14:20:11 GMT
From: "Allan M. Due" <due@murray.fordham.edu>
Subject: Re: How do I catch this eval exception?
Message-Id: <75j12r$9cm$0@206.165.165.141>
Maurice Aubrey wrote in message ...
|This script:
|#!/usr/bin/perl
|$code = q( use strict; $try = 'foo' );
|eval $code;
|produces:
|[maurice@we-24-130-58-139 www]$ ./eval
|Global symbol "$try" requires explicit package name at (eval 1) line 1.
|How can I catch that exception?
Double quotes are needed here:
$code = qq( use strict; $try = 'foo' );
#!/usr/bin/perl
$code = qq( use strict; $try = 'foo');
eval $code; warn "Houston we have a problem : $@" if $@;
HTH
AmD
------------------------------
Date: 20 Dec 1998 10:29:34 -0500
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: How do I catch this eval exception?
Message-Id: <75j54u$fl1$1@monet.op.net>
In article <75j12r$9cm$0@206.165.165.141>,
Allan M. Due <due@murray.fordham.edu> wrote:
>$code = qq( use strict; $try = 'foo' );
Could you explain what you were thinking here?
To me it looks like the answer to an entirely different question.
------------------------------
Date: Sun, 20 Dec 1998 05:29:12 -0800
From: Steve Rudek <srudek@lanset.com>
Subject: How to remove all HTML from all files in directory? (newbie)
Message-Id: <367CFBA8.7E2A5E69@lanset.com>
Hello,
The subject line just about says it. I've got a bunch of pages
downloaded from a netscape browser
and I'd like to remove all the HTML as a first step to importing it into
a Dbase/Clipper database. This is
in DOS, if that makes a difference. Obviously, most of the cleanup can
be done by just removing all
patterns that begin with "<" and end with ">", but I don't know how to
do that at this point, either. If necessary I can probably work in
Linux, although I'm a newbie there, as well. If it's not inconvenient,
an email of any suggested scripts would be appreciated. Thanks.
-Steve (srudek@lanset.com)
------------------------------
Date: Sun, 20 Dec 1998 08:15:15 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: I must be blind...
Message-Id: <ebohlmanF4989F.9xM@netcom.com>
Trent <trent@jps.net> wrote:
: I know I'll take a beating for the unchecked opens etc.... but I'll ask
: anyway. I'm trying (unsuccessfully) to push a new user into a text file,
: but I have screwed up the the textbook example somehow.... I've tried a
: while (<>) loop etc. to no avail.
: ---------------- SNIPPET --------------------
: open(READ,$filename);
: open(TEMP,">$tempfile");
The first thing to do is, yes, to check the open status in order to find
out whether the problem is really in your code or in your directory
structure, permissions, etc.
: flock (TEMP, $EXCLUSIVE);
: @lines = <READ>;
:
: push(@lines, $newuser); # everything works fine but this line!!
How do you know for sure that that's where the problem is? Did you print
the contents of @lines right before, and right after, this statement in
order to see what, if anything, got pushed?
I don't see anything terribly wrong there, though I ought to point out
that you should make sure that the content of $newuser is terminated with
a newline; if it isn't, multiple invocations of your script will keep
appending to the last line rather than appending additional lines.
: print TEMP @lines;
: flock (TEMP, $UNLOCK);
Not a good idea to unlock a file before closing it; newer versions of
Perl have some built-in defensive code to eliminate some race conditions
that could arise there, but it's good practice to avoid letting the
situation arise.
: close(READ);
: close(TEMP);
Check the results of those closes, too. If, for some reason, you were
unable to open TEMP for writing, you would *not* want to delete the original
file and then try to replace it with the file that doesn't exist because you
couldn't create it, would you?
: unlink($filename);
: rename($tempfile,$filename);
And check these too.
------------------------------
Date: 20 Dec 1998 10:11:41 -0500
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: I must be blind...
Message-Id: <75j43d$enj$1@monet.op.net>
In article <367CA7FE.B7E@jps.net>, Trent <trent@jps.net> wrote:
>I know I'll take a beating for the unchecked opens
That's like coming into rec.motorcycles and saying ``I keep getting
really badly injured, is there any advice anyone can offer me to help
with this? By the way, I don't wear a helmet.''
If you don't check your calls for failure, you're going to lose big
time; I don't know why you bothered with some subtle little thing like
flock when you didn't bother with the really obvious thing of making
sure your opens succeed.
Eric Bohlman already saw most of the problems I saw, but there's also
this one:
>unlink($filename);
>rename($tempfile,$filename);
It's silly to unlink the original before you rename the temporary
file. That leaves a small window during which the original file is
missing. Just do the `rename'; if it's successful, the original file
will be removed anyway; that's the whole point of `rename'.
Also I'll just assume that you created the flock constants correctly:
>flock (TEMP, $EXCLUSIVE);
>flock (TEMP, $UNLOCK);
because I see that you didn't get the from the usual place, which is
the Fcntl module.
------------------------------
Date: Sun, 20 Dec 1998 09:11:26 -0600
From: Mark Kahn <mkahn@vbe.com>
Subject: Re: I must be blind...
Message-Id: <367D139E.8466E3A2@vbe.com>
Can you be more specific when you say "it doesn't work"? It (the push)
should. But there are many other things in your code that might not be ;) .
~ M. Kahn
------------------------------
Date: Sun, 20 Dec 1998 14:08:35 GMT
From: "Peter L. Berghold" <peter@berghold.net>
Subject: Re: Is it possible with perl?
Message-Id: <367D04E0.5F000D03@berghold.net>
Ys_Kim wrote:
> Is it possible to submit a form to multiful cgi scripts at the same time
> and each script located in different places?
>
1. Yes it's possible. Just about anything is possible in Perl.
2. Why would you want to do that?
--
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Peter L. Berghold Peter@Berghold.net
"Those who fail to learn from history http://www.berghold.net
are condemned to repeat it." ICQ# 11455958
------------------------------
Date: Sun, 20 Dec 1998 10:55:56 -0400
From: Arved Sandstrom <Arved_37@chebucto.ns.ca>
Subject: Re: Making the name of a var the contents of another
Message-Id: <Pine.GSO.3.95.iB1.0.981220105356.15826B-100000@halifax.chebucto.ns.ca>
For your example, try
$oldstrvar = 'newname';
${$oldstrvar} = 3;
print $newname, "\n";
which will print 3. Look at the section on Symbolic References in perlref.
On Thu, 17 Dec 1998 johngalt25@excite.com wrote:
> Is it possible to make the name of a new variable out of the contents (a
> string) of another?
>
------------------------------
Date: Sun, 20 Dec 1998 12:38:54 GMT
From: borkman@usa.net (lee borkman)
Subject: Newbie - TreeBuilder, traverse, tags and content
Message-Id: <367ced5d.175668537@news.ozemail.com.au>
Hi all,
I'm trying my first steps with HTML::Parse, etc, to format my HTML
code.
I'm using the traverse function to bounce through the tree, outputting
the start tags on the way down and the end tags on the way back up.
That's all fine as long as the IgnoreText flag is set to TRUE. But I
want to process (pass through) my text as well. Traverse calls the
handling sub-routine with the node, startFlag as arguments. What does
it pass when it reaches some text?
Eg., here's a tag with some text:
<B>This is bold text</B>
This entire chunk gets passed to the handling sub-routine, right? So:
$node->tag is "b"
$node->starttag is "<B>"
$node->endtag is "</B>"
Is that what happens?
Okay, but how do I get at the text in between the start and end tags.
Is the text a sub-node that will get passed to the handler separately
one level down?
Sorry if this is an obvious question, but I've looked hard all over
the Web for some actual examples, and haven't had any luck.
Thanks,
LeeB.
------------------------------
Date: Sun, 20 Dec 1998 10:42:42 -0500
From: jamesht <jamesht@idt.net>
To: Jacque Weddle <jacque@netleaf.com>
Subject: Re: Passing Multiple Arrays
Message-Id: <367D1AF2.3087CB7D@idt.net>
Hello,
Here's a working example:
#
# this passes two arrays into a sub.
#
use strict;
my @one = ('one', 'two');
my @two = ('three', 'four');
#
# pass references to the arrays themselves, instead of the values held in
those arrays
#
my ($one, $two) = &call(\@one, \@two);
print "one:\n" . join(' ', @{$one}) . "\n";
print "two:\n" . join(' ', @{$two}) . "\n";
#######################
#
# takes any number of references
#
sub call {
my (@array_of_array_refs) = @_;
my $array_ref = "";
#
# change the first value in each array. (or do anything to each of them...)
#
foreach $array_ref (@array_of_array_refs) {
$array_ref->[0] = "eight";
}
#
# return the arrays
#
return @array_of_array_refs;
}
#
# this prints:
#
# one:
# eight two
# two:
# eight four
#
And that's it,
James
------------------------------
Date: Sun, 20 Dec 1998 13:07:50 +0100
From: Per Kistler <kistler@datacomm.ch>
To: Jesse Rosenberger <jesse@savalas.com>
Subject: Re: Quick Substitution Question
Message-Id: <367CE896.B3C32B75@datacomm.ch>
Hi Jesse
s/[^\d\.]//g;
Cu, Per.
Jesse Rosenberger wrote:
>
> Okay let's say we've got:
>
> $textstring = "$4Rat$.%23%";
>
> Now, what do we need to run that string through to get:
>
> $textstring = "4.23";
>
> I know you can do a:
>
> $textstring =~ s/\D//g;
>
> But that just gives you "423".
>
> What can be done to keep the period (and only the period) in there along
> with the numbers?
>
> Thanks in advance,
> Jesse
--
Per Kistler
mailto:kistler@datacomm.ch
--------------------------------------
------------------------------
Date: Sun, 20 Dec 1998 16:31:27 +0100
From: Pep Mico <pep_mico@hp.com>
Subject: Remote Objects
Message-Id: <367D184F.8C967AA9@hp.com>
Hello,
I'm using Perl for Win-32, and I'd like to know the following
Since Microsoft has released SP4 now is possible to use DCOM technology.
How can I invoke and use a remote object with perl?
Does anybody give me some examples, references?
Thanks in advance
pep_mico@hp.com
------------------------------
Date: 20 Dec 1998 01:40:09 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: Retrospective on comp.lang.perl.moderated?
Message-Id: <75hkhp$1r1$1@gellyfish.btinternet.com>
On Sat, 19 Dec 1998 22:26:50 +0100 Alan J. Flavell <flavell@mail.cern.ch> wrote:
> On Sat, 19 Dec 1998, Larry Rosler wrote:
>
>> At least now you know which of the two groups I read first. :-)
>
> alphabetical order?
>
> This seems like it could be a disadvantage of any *.misc/*.moderated
> pair. If a reader had superficially scanned the misc group, not spotted
> one of the articles as being of particularly high value, and that
> article had been cross-posted, then one would not be offered the chance
> of reconsidering one's opinion when one reached the moderated group.
It is actually (as far as my set up is concerned) to do with the order in
which they are in the active file for the newsfeed ... I use 'suck' &
'lmove' which do their best to dedupe the feed as far as I can determine.
/J\
--
Jonathan Stowe <jns@btinternet.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 20 Dec 1998 01:59:59 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: Retrospective on comp.lang.perl.moderated?
Message-Id: <75hlmv$1r5$1@gellyfish.btinternet.com>
On Sat, 19 Dec 1998 07:54:46 -0800 Larry Rosler <lr@hpl.hp.com> wrote:
> I crossposted this submission as shown below:
> Newsgroups: comp.lang.perl.moderated, comp.lang.perl.misc
> It has appeared in ...moderated, but not in ...misc! Isn't that a
> surprise?
>
<eeh he he>
> With apologies to those who have seen it before, here is the question:
>
> With year-end-assessment time rapidly approaching, would anyone care to
> comment on how comp.lang.perl.moderated has performed over its life of
> six months or so, relative to the hopes and expectations of its
> proponents?
>
I had been an advocate of the moderated group - However it took a good month
or so for the group to reach the news server of my ISP so I lost my zeal a
little.
To be honest I feel in the last couple of weeks I have seen more interesting
threads in c.l.p.misc but hey they might have been crossposts :-)
/J\
> A cost-benefit analysis at this time might be enlightening.
>
--
Jonathan Stowe <jns@btinternet.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sun, 20 Dec 1998 14:06:28 GMT
From: "Peter L. Berghold" <peter@berghold.net>
Subject: Re: shift.
Message-Id: <367D0461.ABF8F190@berghold.net>
Andrew Johnson wrote:
> { perl puns deleted}
ARRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRGGGGGHHHH!!!
Those were truly bad.... :-)
--
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Peter L. Berghold Peter@Berghold.net
"Those who fail to learn from history http://www.berghold.net
are condemned to repeat it." ICQ# 11455958
------------------------------
Date: Sun, 20 Dec 1998 05:37:30 +0000
From: Rich Grise <off-duty@entheosengineering.com>
To: vivekvp@hotmail.com
Subject: Re: Shipping Script??? Help?
Message-Id: <367C8D1A.23F89951@entheosengineering.com>
vivekvp@hotmail.com wrote:
>
> Hello!
>
> I want a script that lists shipping costs. I would like it to be a drop down
> menu that would list ups or fedex...land, air...and their costs for each.
>
> this price - depending on selection would be tacked on to the total price of
> the item i want to sell..
>
> any help on this or where i could look?
>
> thanks!!
Well, since this has nothing to do with perl, this probably isn't the
place to
ask about this. But e-mail me at richgrise@entheosengineering.com
sometime
after Monday Morning, and I'd be happy to write you a script for only
$US75.00
per hour, with an estimated completion time of 40 hours.
Cheers!
--
Rich Grise
off-duty@entheosengineering.com
(No need to futz with my e-mail: I have a "delete" button!)
------------------------------
Date: Sun, 20 Dec 1998 11:03:57 -0400
From: Arved Sandstrom <Arved_37@chebucto.ns.ca>
Subject: Re: telnet by perl
Message-Id: <Pine.GSO.3.95.iB1.0.981220110015.15826C-100000@halifax.chebucto.ns.ca>
And why _not_ a specific port with Net::Telnet?
I like the logfile feature of the Net::Telnet module, so I've used it to
connect to port 110 (POP3) or 25 (SMTP) many a time. :-)
Specifying the well-known part is one of the options in the new() method.
On 17 Dec 1998, Jonathan Stowe wrote:
> At first reading I nearly just typed Net::Telnet but then I noticccced the
> 'specific port' bit ...
>
------------------------------
Date: 20 Dec 1998 10:16:32 GMT
From: jacoby@pier.ecn.purdue.edu (David Jacoby)
Subject: Re: Why Is Perl not a Language?
Message-Id: <75iiq0$3gn@mozo.cc.purdue.edu>
John Moreno <phenix@interpath.com> wrote:
>The shell is interactive, grep isn't.
53 pier 5:12am ~ % grep foo
I want some food
I want some food
grep is interactive
foolish Mortal!
foolish Mortal!
^C
54 pier 5:12am ~ %
Since it reacts to what i'm typing, it seems interactive to me.
>John Moreno
--
Dave Jacoby - jacoby@ecn.purdue.edu - http://pier.ecn.purdue.edu/~jacoby/
Lamport's Law:
A distributed system is one in which the failure of a computer
you didn't even know existed can render your own computer unusable.
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 4466
**************************************
