[15742] in Perl-Users-Digest
Perl-Users Digest, Issue: 3155 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed May 24 21:10:36 2000
Date: Wed, 24 May 2000 18:10:17 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <959217017-v9-i3155@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 24 May 2000 Volume: 9 Number: 3155
Today's topics:
Re: Finding repeating patterns inside arrays <lr@hpl.hp.com>
Re: Getting HTML source nfsite@my-deja.com
Re: Global variables to apply to multiple Perl scripts <rootbeer@redcat.com>
Re: hashes vs associative arrays (was: Re: Array Questi (Bart Lateur)
How do you receive mail with sendmail? <mace@calweb.com>
Re: How do you receive mail with sendmail? <rootbeer@redcat.com>
Re: need help on perl library call.. <rootbeer@redcat.com>
Re: Net::FTP error <akil1@mindspring.com>
Re: Objects, SUPER:: and parameters... <zapcs@icon.co.za>
Re: Passing an array to a regexp (Abigail)
Re: Passing an array to a regexp (Ben Hambidge)
Re: Passing an array to a regexp (Abigail)
Q: getting my own process id? <thomas2@dalnet.se>
Re: Q: getting my own process id? <rootbeer@redcat.com>
running root level system calls in perl michaelcwagner@my-deja.com
Re: running root level system calls in perl <rootbeer@redcat.com>
Re: running root level system calls in perl <flavell@mail.cern.ch>
Re: where to find lanman.pm? <carvdawg@patriot.net>
Win32::Serial Enigma <jcamp@cmj.com>
Re: Win32::Serial Enigma <rootbeer@redcat.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 24 May 2000 17:14:15 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Finding repeating patterns inside arrays
Message-Id: <MPG.13961031fc45258498aad5@nntp.hpl.hp.com>
In article <7asnv7wv1p.fsf@Merlin.i-did-not-set--mail-host-address--so-
shoot-me> on Wed, 24 May 2000 20:30:09 GMT, Ala Qumsieh
<aqumsieh@hyperchip.com> says...
>
> Makarand Kulkarni <makarand_kulkarni@My-Deja.com> writes:
>
> > I think I did not make myself clear. Using this technique I will be
> > able to find the number of occurences only. But want I want
> > to know is if the items 'hello1' followed by 'hello2' and
> > followed by 'hello3' ( in that order) appears again and again in
> > the array.
>
> Ok. Now I see. What comes to mind is this:
>
> my @array = qw/hello hello1 hello2 hello3
> hello1 hello2 hello3 hello/;
>
> # Assuming the elements of @array contain no spaces.
> # I think this is a valid assumption since the elements
> # are function names.
>
> my $pat = join ' ' => @array; # in case you mucked with $"
>
> my @x = $pat =~ /(\b\w.*)\1+/g;
> print join(' AND ', @x), ".\n";
>
> my @repeat = grep { $_ } split ' ' => join ' ' => @x;
>
> print join(' xx ', @repeat), ".\n";
>
> __END__
> hello1 hello2 hello3 .
> hello1 xx hello2 xx hello3.
Adapting the idea of using a regex on a stringized array.
Generalizing to replace the restriction of no spaces to no null
characters (my favorite stringizing join).
Catching all the matches of sequential array slices, even with
intervening array elements (the posted code didn't notice 'hello'
repeated later).
#!/usr/local/bin/perl -w
use strict;
my @array = qw/hello hello1 hello2 hello3
hello1 hello2 hello3 hello/;
my @x = join("\0" => "", @array, "") =~
/
(?<=\0) # Look back for a preceding null
(.*) # A sequence of array elements to be matched
(?=\0 # Look ahead for a terminating null
(?:.*\0)? # and possible intervening elements
\1\0 # followed by a matching sequence
) # End of look-ahead match
/gsx;
print join(' AND ' => map { join(' xx ', split "\0") } @x), "\n";
__END__
hello AND hello1 xx hello2 xx hello3
> But I have serious speed considerations. It's not bad for a few
> elements, but for many elements it could get really slow. I can't think
> of anything else though.
On the face of it, the algorithm is quadratic (Abigail will find this
statement and elaborate, no doubt :-). But I don't know any better
either.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 24 May 2000 23:50:05 GMT
From: nfsite@my-deja.com
Subject: Re: Getting HTML source
Message-Id: <8ghpr8$5k1$1@nnrp1.deja.com>
Thanks to everyone...
You are really quick... I post my doubt before going to my
swimming/fitness trainning and when I come back I already have 4/5
replies.... This is the truth meaning and goal of the web...
I'm going to try to get the wlp:simple library... My problem is that I
don't control the perl used in my site server.... I don't know if I can
install modules in my server....
That's one doubt I have... If I find a module that is very usefull for
me, how can I use it in my site? I'm not the webmaster or the "root" of
the server where my site is.... How can I "say" to perl so that he uses
the modules I want? By environment variables?
(Sorry for this confuse post, but it's late and I'm tired)
By and many thanks from Portugal
Nuno
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 24 May 2000 15:56:32 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Global variables to apply to multiple Perl scripts
Message-Id: <Pine.GSO.4.10.10005241556160.14618-100000@user2.teleport.com>
On Wed, 24 May 2000, A Pietro wrote:
> Anyone know of any web resources covering install scripts for Linux?
Maybe people in a newsgroup about Linux would know this. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 24 May 2000 23:58:54 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: hashes vs associative arrays (was: Re: Array Question)
Message-Id: <392d694a.1747164@news.skynet.be>
Peter Lowe wrote:
>I personally
>think that the phrase associative arrays is a much better word to
>use when learning perl, as it actually tells what you're dealing
>with if you know what an array is, whereas "hash" doesn't really
>tell me much.
You're absolutely right. "associative arrays" tells you what it is,
"hashes" says how it's implemented.
Suppose somewhere in the future, Perl were to switch it's implementation
from hashing to B-Tree. Would the name change too? It should, while the
syntax in Perl could remain the same!
The only reason why "hash" is such a common word in Perl5 lingo, is
because it's a short word. You don't say "automobile", you say "car".
Once an object gets common, people tend to use short names for it. It's
easier in communicating.
p.s. intereted in B-Tree's? Check out Mark J. Dominus' article, at
<http://www.plover.com/~mjd/perl/BTree/>.
p.p.s. hashing is a mechanism of calculating a typical number from the
value of a string, like CRC (but actually, Perl's hashing function is
simpler). Hopefully, that number will be pretty rare for typical
populations of strings. Looking up a key string in a table can be a lot
faster than doing a raw search over the whole table, because the "search
space" is reduced (and hopefully by a lot): you only need to search
through the collection of strings that all have this particular hash
number.
--
Bart.
------------------------------
Date: Wed, 24 May 2000 17:02:23 -0700
From: "Mace" <mace@calweb.com>
Subject: How do you receive mail with sendmail?
Message-Id: <392c6e1e_1@news3.calweb.com>
I understand how to send mail using sendmail, but how would you receive it
and save it to a text file?
Thanks,
Mace
------------------------------
Date: Wed, 24 May 2000 17:38:02 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: How do you receive mail with sendmail?
Message-Id: <Pine.GSO.4.10.10005241736490.14618-100000@user2.teleport.com>
On Wed, 24 May 2000, Mace wrote:
> Newsgroups: comp.lang.perl.misc
> Subject: How do you receive mail with sendmail?
>
> I understand how to send mail using sendmail, but how would you
> receive it and save it to a text file?
Perhaps you want to search for the docs, FAQs, and newsgroups about mail
handling in general and sendmail in particular. In fact, maybe you meant
to post this to comp.mail.sendmail in the first place.
Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 24 May 2000 17:43:00 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: need help on perl library call..
Message-Id: <Pine.GSO.4.10.10005241738370.14618-100000@user2.teleport.com>
On Wed, 24 May 2000 e_bengal@my-deja.com wrote:
> I have been looking for infos on perl library call "shellwords.pl".
> Can someone please tell me with an example how to use the call.
It should be right there, along with the docs that told you what it's good
for. :-)
Okay, so it's _way_ underdocumented. When you have some better docs, will
you send in a patch? That would help. Or maybe it should be turned into a
module, with docs and all. That would be even better; you could fix its
bugs. :-)
Try reading the examples in the first few lines of the shellwords.pl file.
Do those help you?
Good luck with it!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 24 May 2000 18:17:03 -0400
From: "Kevin Bass" <akil1@mindspring.com>
Subject: Re: Net::FTP error
Message-Id: <8ghkmu$2si$1@slb3.atl.mindspring.net>
I have physically attempted other methods via ftp and all have been
successful. The problem may not be in the Net::FTP itself. The problem maybe
that the box that I am attempting to ftp does have/allow persons to
ftp/telnet into the box.
Kevin
<nobull@mail.com> wrote in message news:u9zopgjhyh.fsf@wcl-l.bham.ac.uk...
> Please crosspost rather than posting the same thing separately to
> multiple groups.
>
> "Kevin Bass" <akil1@mindspring.com>:
>
> > I am attempting to use Net::FTP for the first time and I have received
an
> > error that I cannot solve. The code that has caused this error and the
> > error message is below. It seems like a simple problem to solve but I
> > cannot determine the cause of this error message. What is causing this
error
> > message?
>
> > $ftp = Net::FTP->new($hostname) || croak "Cannot connect: $!\n";
>
> > HOST = bc01f45.unx.com
> > Uncaught exception from user code:
> > Cannot connect: Bad file number
> > Carp::croak('Cannot connect: Bad file number^J') called at
./test.pl
> > line 19
>
> Well the "Bad file number" doesn't tell us much because the API of
> Net::FTP doesn't promise us anything about $!
>
> Obvious question: if you FTP to bc01f45.unx.com by some other means
> what happens?
>
> --
> \\ ( )
> . _\\__[oo
> .__/ \\ /\@
> . l___\\
> # ll l\\
> ###LL LL\\
------------------------------
Date: Thu, 25 May 2000 00:27:17 +0200
From: Zak McGregor <zapcs@icon.co.za>
Subject: Re: Objects, SUPER:: and parameters...
Message-Id: <392C5745.34354063@icon.co.za>
Ala Qumsieh wrote:
> It's better to use the base pragma:
>
> use base qw/Pg/;
Thanks for the tip!
> > my $_conn_options;
> > my $_conn;
> > sub new {
> > my $proto = shift;
> > my $class = ref($proto) || $proto;
> > my $self = bless {}, $class;
> > if ($self->{_conn}) {
> > $self->_parse();
> > }
> > else {
> > $self->{_conn}=$self->SUPER::connectdb("dbname=xxxxxxxxx user=xxxxxx");
> > #
> > ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ this doesn't seem to get passed on... :(
> > }
>
> I don't see the reason for the if() statement. As it stands, the body of
> the if() will never execute, and the else() body will always execute.
Comes later - if I invoke new() again, I would like to check if I am
re-establishing an established connection, if so, do other things...
> > return bless $self, "Pg";
>
> Why are you blessing $self again? I don't see a need for that.
Whoops, why indeed ;-)
> I tried this, and it works:
>
> package Pg;
>
> sub connectdb {
> print "Connecting: @_.\n";
> }
>
> package A;
> use strict;
>
> use vars qw(@ISA);
> @ISA=qw(Pg);
> my $_conn_options;
> my $_conn;
> sub new {
> my $proto = shift;
> my $class = ref($proto) || $proto;
> my $self = bless {}, $class;
> if ($self->{_conn}) {
> $self->_parse();
> }
> else {
> $self->{_conn}=$self->SUPER::connectdb("dbname=xxxxxxxxx user=xxxxxx");
> }
>
> return $self;
> }
>
> package main;
>
> my $A = new A;
> __END__
> Connecting: A=HASH(0x80e1720) dbname=xxxxxxxxx user=xxxxxx.
Thanks... I don't get it working still, but I'll keep on trying.
I always get:
Usage: Pg::connectdb(conninfo) at
/usr/lib/perl5/5.00503/DBEngine/DBConnect.pm line 14.
Cheers
--
====================================================================
Zak McGregor
http://www.zap.co.za/zgas - On-line specifications of over 6700 cars
====================================================================
------------------------------
Date: 24 May 2000 22:46:11 GMT
From: abigail@arena-i.com (Abigail)
Subject: Re: Passing an array to a regexp
Message-Id: <8ghm3j$aom$1@news.panix.com>
On Wed, 24 May 2000 14:05:37 -0700, Larry Rosler <lr@hpl.hp.com> wrote:
++ In article <8gh47m$63o$2@news.panix.com> on 24 May 2000 17:41:10 GMT,
++ Abigail <abigail@arena-i.com> says...
++ > On Wed, 24 May 2000 15:24:29 GMT,
++ > Ben Hambidge <newsmay2000@ordinate.co.uk> wrote:
++ > ++ I have the following condition:
++ > ++
++ > ++ if ( $x =~ /^[one|two|three|four]/ ) { ...}
++ > ++ However, I would like to test for values in an array; for example:
++ > ++
++ > ++ @array = ( "one", "two", "three", "four" );
++ > ++
++ > ++ Can I now write the regexp to pull out the values of the array
++ > ++ instead, making the regexp flexible depending on the values in the
++ > ++ array at the time?
++
++ ...
++
++ > {local $" = '|';
++ > my @array = map {quotemeta} @array; # Not necessary if no element of
++ > # @array contains a regex meta char.
++ > if ($x =~ /^@array/) { ... }
++
++ if ($x =~ /^(?:@array)$/) { ... }
++
++ > }
++
++ But why are we mucking around with regexes, when this should be a
++ classic hash lookup? I already gave the FAQ reference.
Because you introduced an end-of-string anchor that isn't present
in the orginal question? Perhaps the OP wanted that, but that's just
guess work.
Abigail
------------------------------
Date: Wed, 24 May 2000 23:42:11 GMT
From: newsmay2000@ordinate.co.uk (Ben Hambidge)
Subject: Re: Passing an array to a regexp
Message-Id: <392c670d.3580797@news.freeserve.net>
On 24 May 2000 22:46:11 GMT, abigail@arena-i.com (Abigail) wrote:
>On Wed, 24 May 2000 14:05:37 -0700, Larry Rosler <lr@hpl.hp.com> wrote:
>++ In article <8gh47m$63o$2@news.panix.com> on 24 May 2000 17:41:10 GMT,
>++ Abigail <abigail@arena-i.com> says...
>++ > On Wed, 24 May 2000 15:24:29 GMT,
>++ > Ben Hambidge <newsmay2000@ordinate.co.uk> wrote:
>++ > ++ I have the following condition:
>++ > ++
>++ > ++ if ( $x =~ /^[one|two|three|four]/ ) { ...}
>++ > ++ However, I would like to test for values in an array; for example:
>++ > ++
>++ > ++ @array = ( "one", "two", "three", "four" );
>++ > ++
>++ > ++ Can I now write the regexp to pull out the values of the array
>++ > ++ instead, making the regexp flexible depending on the values in the
>++ > ++ array at the time?
>++
>++ ...
>++
>++ > {local $" = '|';
>++ > my @array = map {quotemeta} @array; # Not necessary if no element of
>++ > # @array contains a regex meta char.
>++ > if ($x =~ /^@array/) { ... }
>++
>++ if ($x =~ /^(?:@array)$/) { ... }
>++
>++ > }
>++
>++ But why are we mucking around with regexes, when this should be a
>++ classic hash lookup? I already gave the FAQ reference.
>
>Because you introduced an end-of-string anchor that isn't present
>in the orginal question? Perhaps the OP wanted that, but that's just
>guess work.
Thanks for the help everyone; no I didn't want a $ at the end. In
answer to other questions, I can always guarantee the array will
contain no meta-characters. (In actual fact they will always be digits
0-9, but I'm just using an example here)
In fact what I want is slightly more complicated: depending on the
value of the \1 in that regexp, I then want it to match only on
another dependent value. So for example:
@array = ( "one", "two", "three", "four" );
$min{"one"}=5;
$max{"one"}=6;
$min{"two"}=7;
$max{"two"}=8;
$min{"three"}=9;
$max{"three"}=10;
The string should be along the lines of:
Match only if: one of the words in the array; followed by a hyphen;
followed by any characters you like, as long as there are between the
min and max for that word:
e.g. one-12345 will match, but one-1234 and one-1234567 will not, as
'one' has the range 5 to 6.
So:
if ($x =~ /^(@array)-(.{$min{\1},$max{\1}}$/) { ... }
It doesn't seem to like this; I guess is doesn't like interpolating
inside the array like this. Any suggestions?
Ben
------------------------------
Date: 25 May 2000 01:03:24 GMT
From: abigail@arena-i.com (Abigail)
Subject: Re: Passing an array to a regexp
Message-Id: <8ghu4s$caj$1@news.panix.com>
On Wed, 24 May 2000 23:42:11 GMT,
Ben Hambidge <newsmay2000@ordinate.co.uk> wrote:
++
++ Thanks for the help everyone; no I didn't want a $ at the end. In
++ answer to other questions, I can always guarantee the array will
++ contain no meta-characters. (In actual fact they will always be digits
++ 0-9, but I'm just using an example here)
++
++ In fact what I want is slightly more complicated: depending on the
It saves this group a lot of work and discussing if people ask what
they want in the first place, and not first a question, and then when
the answer comes respond with "oh, but I really wanted something different".
++ value of the \1 in that regexp, I then want it to match only on
++ another dependent value. So for example:
++
++ @array = ( "one", "two", "three", "four" );
++
++ $min{"one"}=5;
++ $max{"one"}=6;
++ $min{"two"}=7;
++ $max{"two"}=8;
++ $min{"three"}=9;
++ $max{"three"}=10;
++
++ The string should be along the lines of:
++
++ Match only if: one of the words in the array; followed by a hyphen;
++ followed by any characters you like, as long as there are between the
++ min and max for that word:
++
++ e.g. one-12345 will match, but one-1234 and one-1234567 will not, as
++ 'one' has the range 5 to 6.
++
++ So:
++
++ if ($x =~ /^(@array)-(.{$min{\1},$max{\1}}$/) { ... }
++
++ It doesn't seem to like this; I guess is doesn't like interpolating
++ inside the array like this. Any suggestions?
my @other = map {"$_-.{$min{$_},$max{$_}}"} @array;
local $" = "|";
if ($x =~ /^(?:@other)$/s) { ... }
Abigail
------------------------------
Date: Thu, 25 May 2000 00:45:45 GMT
From: "Thomas Åhlen" <thomas2@dalnet.se>
Subject: Q: getting my own process id?
Message-Id: <ZI_W4.31$Dj2.14493@dummy.bahnhof.se>
What is the easiest way for a perlscript to get it's own process id?
Running on linux or unix.
-Thomas Å
------------------------------
Date: Wed, 24 May 2000 17:56:10 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Q: getting my own process id?
Message-Id: <Pine.GSO.4.10.10005241755550.14618-100000@user2.teleport.com>
On Thu, 25 May 2000, Thomas Åhlen wrote:
> What is the easiest way for a perlscript to get it's own process id?
See the entry for $$ in the perlvar manpage. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 24 May 2000 22:59:51 GMT
From: michaelcwagner@my-deja.com
Subject: running root level system calls in perl
Message-Id: <8ghmt8$4pl$1@nnrp2.deja.com>
I need to run several log analyses programs
through a perl cgi.
Using system("[program]","[args]"); works fine,
but it executes the commands as user:nobody.
Is there a simple way to allow the perl script to
run as root or another user? Nobody access has
always been fine in the past for writing and
reading from files, but now I need to access
files that require strict permissions.
Thanks,
Michael Wagner
-Our Secret, Ltd.
http://www.oursecret.com
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 24 May 2000 16:27:47 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: running root level system calls in perl
Message-Id: <Pine.GSO.4.10.10005241627020.14618-100000@user2.teleport.com>
On Wed, 24 May 2000 michaelcwagner@my-deja.com wrote:
> Is there a simple way to allow the perl script to
> run as root or another user?
See the perlsec manpage. Write carefully, though! Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Thu, 25 May 2000 01:30:45 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: running root level system calls in perl
Message-Id: <Pine.GHP.4.21.0005250119480.10287-100000@hpplus01.cern.ch>
On Wed, 24 May 2000 michaelcwagner@my-deja.com wrote:
> I need to run several log analyses programs
> through a perl cgi.
[..]
> Is there a simple way to allow the perl script to
> run as root
Of course, but you'd need to be some kind of a nut to do so.
Just what made you think that something trivial and harmless as
analyzing a log file would necessitate something as ultimately
powerful as uid root? And especially if you plan to link it with a
CGI script.
> or another user? Nobody access has
> always been fine in the past for writing and
> reading from files, but now I need to access
> files that require strict permissions.
I'd suggest you need to look into what groups are for, but this is the
wrong venue. Read a book on unix system administration, preferably
one that covers the flavour of unix that you use.
I have no idea of your current level of expertise so I can only guess,
but, based on what you posted so far, I'd have to recommend a crash
course in system security. I sure wouldn't trust myself to do what
you seemed to be proposing. c.l.p.misc is the wrong place for it,
anyhow.
good luck
------------------------------
Date: Wed, 24 May 2000 18:31:45 -0400
From: H C <carvdawg@patriot.net>
Subject: Re: where to find lanman.pm?
Message-Id: <392C5851.EC04FBAD@patriot.net>
> Of course, you didn't mean your remark sarcastically, so I won't take it
> that way. :-)
You're right, Tom. My remark was not meant sarcastically at all. I do use
NT, and though your post provides an excellent resource for those who require
that facility, it only does so for modules available on CPAN...which (for
whatever
reason) Win32::Lanman is not.
Cheers!
------------------------------
Date: Wed, 24 May 2000 22:06:28 GMT
From: "Justin" <jcamp@cmj.com>
Subject: Win32::Serial Enigma
Message-Id: <EnYW4.999$ux.191273@newshog.newsread.com>
Hi all,
I've been given a rather puzzling project and am in need of some dire
assistance.
We have a label machine that runs off of software built in 1932 under
win95/98, communicating though a serial port.
Seeing as it's proprietary I can't get our hands on any source code and
obviously can't decrypt the database (LBL) files it writes so I came up
with another idea:
I'd like to run a background process in 98 which would consist of a perl
script using the Win32::serialport module, which would scan all the
characters coming in and going out of the serial port.
The problems are: The documentation of the module is very flaky,
I'm not really sure how to do this, and the perl script can't take
over the serial port... In fact it has to be completely
transparent, so as to not mess up the ancient program that
communicates with the Labeller.
If anyone has any ideas please email me or respond to this thread.
Sorry for the LONG message.
justin
------------------------------
Date: Wed, 24 May 2000 17:47:30 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Win32::Serial Enigma
Message-Id: <Pine.GSO.4.10.10005241744110.14618-100000@user2.teleport.com>
On Wed, 24 May 2000, Justin wrote:
> We have a label machine that runs off of software built in 1932 under
> win95/98, communicating though a serial port.
That's astounding. 1932, you say? I knew that using Windows software could
be depressing, but I didn't know that it was ever from the Depression. :-)
> I'd like to run a background process in 98 which would consist of a perl
> script using the Win32::serialport module, which would scan all the
> characters coming in and going out of the serial port.
I may be mistaken, but I don't think that that module can do that. In
fact, I think you'd have to get down to the device-driver level to make
something like that possible. And if your Depression-era software drives
the hardware directly, like some old software does, there may be no good
solution. :-P
Good luck with it!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 3155
**************************************
