[23938] in Perl-Users-Digest
Perl-Users Digest, Issue: 6139 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Feb 16 00:10:54 2004
Date: Sun, 15 Feb 2004 21:10:09 -0800 (PST)
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, 15 Feb 2004 Volume: 10 Number: 6139
Today's topics:
Re: Environment question <none@none.com>
Re: Environment question <usenet@morrow.me.uk>
Re: Environment question <Joe.Smith@inwap.com>
Re: Environment question <philconners90210@yahoo.com>
Re: Environment question <uri@stemsystems.com>
Re: Environment question <kevin@vaildc.net>
Re: Environment question <flavell@ph.gla.ac.uk>
Re: Environment question <spamtrap@dot-app.org>
Re: Environment question <tadmc@augustmail.com>
Re: formating pipe delimited file <webstuff@fluidic.com>
Re: how to download part of a pdf file <jwillmore@remove.adelphia.net>
Perl and Quotas <jcall@ellijay.com>
Please.. Need some help with wwwboard (SR)
Re: Please.. Need some help with wwwboard <jwillmore@remove.adelphia.net>
Re: read/write to a character device (Stoyan Stoyanov)
Reformatting text file <nospam@xx.com>
Re: Reformatting text file <nospam@xx.com>
restarting <> (stdio) <webstuff@fluidic.com>
Re: Sending HASH over TCP <spam@thecouch.homeip.net>
Re: Sending HASH over TCP <sammie-nospam@greatergreen.com>
Trent Curry, wsanford@wallysanford.com, and falsely usi (Wally Sanford)
Win32::ChangeNotify + $module = detect download ? <perlcdr@mail.rumania>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 15 Feb 2004 16:05:17 -0600
From: "Bill Staples" <none@none.com>
Subject: Re: Environment question
Message-Id: <pan.2004.02.15.22.05.16.118471@none.com>
> ever heard of the web? or amazon or barnes & noble? how about
> book.perl.org? did you INCLUDE them in your search for perl resources?
>
> and your claim about perl not having an include statement was refuted
> and you still haven't acknowledged that.
>
>
Well, the question was about a fairly general item. Looking through the
thread I don't see anywhere that I asked for advice on buying books -
certainly not from you. Possibly you can repost the place that I asked.
And besides, I don't need advice from someone who knows even less about
perl than I do. At least I know that the "include" statement is not a
feature of perl and all your insisting is not making my system find it.
Bill
------------------------------
Date: Sun, 15 Feb 2004 23:35:37 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: Environment question
Message-Id: <c0ovo9$h5u$1@wisteria.csv.warwick.ac.uk>
"Bill Staples" <none@none.com> wrote:
> Uri wrote (but wasn't attributed):
> >
> > and your claim about perl not having an include statement was refuted
> > and you still haven't acknowledged that.
>
> And besides, I don't need advice from someone who knows even less about
> perl than I do.
*PLONK*
--
If I were a butterfly I'd live for a day, / I would be free, just blowing away.
This cruel country has driven me down / Teased me and lied, teased me and lied.
I've only sad stories to tell to this town: / My dreams have withered and died.
ben@morrow.me.uk <=>=<=>=<=>=<=>=<=>=<=>=<=>=<=>=<=>=<=>=<=> (Kate Rusby)
------------------------------
Date: Mon, 16 Feb 2004 00:04:56 GMT
From: Joe Smith <Joe.Smith@inwap.com>
Subject: Re: Environment question
Message-Id: <HOTXb.328086$na.481541@attbi_s04>
Bill Staples wrote:
> I still think I am right about the fact that perl has no include statement.
You are very much mistaken.
$file = "part2.pl"
do $file or die "Unable to include $file: $!\n";
That most definitely is an "include" statement, although it is
considered krufty and not as good as "use module" or
"require module".
Does that satisfy you?
-Joe
------------------------------
Date: Mon, 16 Feb 2004 00:06:21 GMT
From: Phil Connors <philconners90210@yahoo.com>
Subject: Re: Environment question
Message-Id: <1QTXb.13121$sT7.8429@newssvr29.news.prodigy.com>
Bill Staples wrote:
[ Been Flamed Rant ]
This may be hard the first time, especially for a back woods Texas boy like yourself.
But you'll get over it. Or,.. maybe you won't. Anyway, the link below will help.
An snippet from: *How to ask questions the smart way*
( http://www.catb.org/~esr/faqs/smart-questions.html )
*On Not Reacting Like A Loser*
Odds are you'll screw up a few times on hacker community forums — in ways detailed in this
article, or similar. And you'll be told exactly how you screwed up, possibly with
colourful asides. In public.
When this happens, the worst thing you can do is whine about the experience, claim to have
been verbally assaulted, demand apologies, scream, hold your breath, threaten lawsuits,
complain to people's employers, leave the toilet seat up, etc. Instead, here's what you do:
*Get over it. It's normal. In fact, it's healthy and appropriate.*
Community standards do not maintain themselves: They're maintained by people actively
applying them, visibly, in public. Don't whine that all criticism should have been
conveyed via private mail: That's not how it works. Nor is it useful to insist you've been
personally insulted when someone comments that one of your claims was wrong, or that his
views differ. Those are loser attitudes.
There have been hacker forums where, out of some misguided sense of hyper-courtesy,
participants are banned from posting any fault-finding with another's posts, and told
“Don't say anything if you're unwilling to help the user.” The resulting departure of
clueful participants to elsewhere causes them to descend into meaningless babble and
become useless as technical forums.
Exaggeratedly “friendly” (in that fashion) or useful: Pick one.
Remember: When that hacker tells you that you've screwed up, and (no matter how gruffly)
tells you not to do it again, he's acting out of concern for (1) you and (2) his
community. It would be much easier for him to ignore you and filter you out of his life.
If you can't manage to be grateful, at least have a little dignity, don't whine, and don't
expect to be treated like a fragile doll just because you're a newcomer with a
theatrically hypersensitive soul and delusions of entitlement.
Sometimes people will attack you personally, flame without an apparent reason, etc., even
if you don't screw up (or have only screwed up in their imagination). In this case,
complaining is the way to really screw up.
These flamers are either lamers who don't have a clue but believe themselves to be
experts, or would-be psychologists testing whether you'll screw up. The other readers
either ignore them, or find ways to deal with them on their own. The flamers' behavior
creates problems for themselves, which don't have to concern you.
Don't let yourself be drawn into a flamewar, either. Most flames are best ignored — after
you've checked whether they are really flames, not pointers to the ways in which you have
screwed up, and not cleverly ciphered answers to your real question (this happens as well).
------------------------------
Date: Mon, 16 Feb 2004 00:28:57 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Environment question
Message-Id: <x7r7wv7tpy.fsf@mail.sysarch.com>
>>>>> "BS" == Bill Staples <none@none.com> writes:
>> ever heard of the web? or amazon or barnes & noble? how about
>> book.perl.org? did you INCLUDE them in your search for perl resources?
>>
>> and your claim about perl not having an include statement was refuted
>> and you still haven't acknowledged that.
>>
>>
BS> Well, the question was about a fairly general item. Looking through the
BS> thread I don't see anywhere that I asked for advice on buying books -
BS> certainly not from you. Possibly you can repost the place that I asked.
>>>>> "BS" == Bill Staples <none@none.com> writes:
BS> I will give them a looksee. Other than the system docs, my total
BS> Perl reference library consists of one Oreilly book. Not a whole
BS> lot of tech libraries and book stores out here in the Texas piney
BS> woods and I don't get to any cities with pavement very often.
sounds like you miss not having a bookstore to me. so my suggestion is
valid.
BS> And besides, I don't need advice from someone who knows even less
BS> about perl than I do. At least I know that the "include"
BS> statement is not a feature of perl and all your insisting is not
BS> making my system find it.
hahahaha!! i know so little perl. i do. i wish i knew more. but i know
how to read the docs and learn more. that is something you should try
sometime.
if you read the docs we told you, you would learn there are SEVERAL ways
to include source. but you insist on the keyword being 'include'. well,
have it your way:
sub include {
require shift ;
}
hope that helps.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Sun, 15 Feb 2004 19:32:14 -0500
From: Kevin Michael Vail <kevin@vaildc.net>
Subject: Re: Environment question
Message-Id: <kevin-E14AD7.19321415022004@news101.his.com>
In article <pan.2004.02.15.22.05.16.118471@none.com>,
"Bill Staples" <none@none.com> wrote:
> > ever heard of the web? or amazon or barnes & noble? how about
> > book.perl.org? did you INCLUDE them in your search for perl resources?
> >
> > and your claim about perl not having an include statement was refuted
> > and you still haven't acknowledged that.
> >
> Well, the question was about a fairly general item. Looking through the
> thread I don't see anywhere that I asked for advice on buying books -
> certainly not from you. Possibly you can repost the place that I asked.
You didn't ask, but you seemed to be complaining that you couldn't be
expected to have any books on Perl because you lived so far from the
nearest bookstore.
> And besides, I don't need advice from someone who knows even less about
> perl than I do.
Um, Uri makes a living at it. You don't. I know which of you I'm
willing to be knows more about Perl than the other.
> At least I know that the "include" statement is not a
> feature of perl and all your insisting is not making my system find it.
Perl has not one but *three* different ways that can be used as
"include" statements. None of them are _called_ include, that's true,
but the functionality is there.
- use ModuleName;
This one is probably the most common one. It makes sure that the code
in the file ModuleName.pm is loaded into memory, and then calls its
"import" method, and all of this happens at compile time. This is
probably the closest to what you're used to. The system looks for
ModuleName.pm by searching the directories in the @INC array.
- require Filename;
Loads the code in Filename.pm into memory, but doesn't call its "import"
method. Furthermore, this is done at runtime, not compile time (unless
enclosed in a BEGIN block).
"use ModuleName;" is exactly equivalent to "BEGIN { require ModuleName;
ModuleName->import; }".
- require "filename.pl";
Same as above, but explicitly specifies the file name.
- do $file;
This one is the most primitive. It compiles and executes the code in
the file specified by $file each time it occurs. There's usually not a
good reason to use this one anymore.
--
Found Poetry (_Science News_, 14-Jun-2003): oldest _homo sapiens_ find
+-----------------------------------------+ ocean eddies' far-flung effects;
| Kevin Michael Vail <kevin@vaildc.net> | superior threads spun
+-----------------------------------------+ the pox from prairie dogs.
------------------------------
Date: Mon, 16 Feb 2004 00:01:46 +0000
From: "Alan J. Flavell" <flavell@ph.gla.ac.uk>
Subject: Re: Environment question
Message-Id: <Pine.LNX.4.53.0402152358460.25537@ppepc56.ph.gla.ac.uk>
On Sun, 15 Feb 2004, Bill Staples wrote:
[unattributed quote]
> > and your claim about perl not having an include statement was refuted
> > and you still haven't acknowledged that.
[...]
> And besides, I don't need advice from someone who knows even less about
> perl than I do.
It's been a long time since I felt that anyone rated two killfile
entries on a single posting. Well done (and you certainly have been).
------------------------------
Date: Sun, 15 Feb 2004 21:35:50 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Environment question
Message-Id: <GZSdnQ93XJwasa3dRVn-sA@adelphia.com>
Alan J. Flavell wrote:
> It's been a long time since I felt that anyone rated two killfile
> entries on a single posting. Well done (and you certainly have been).
*Two* killfile entries? What are going to do, ignore him - then ignore him
harder? ;-)
sherm--
------------------------------
Date: Sun, 15 Feb 2004 22:14:23 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Environment question
Message-Id: <slrnc30gsv.30e.tadmc@magna.augustmail.com>
Bill Staples <none@none.com> wrote:
[ attribution missing. Please learn to properly quote followups ]
> I don't need advice from someone who knows even less about
> perl than I do.
Pardon me, but your ignorance is showing.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 16 Feb 2004 04:03:49 GMT
From: J <webstuff@fluidic.com>
Subject: Re: formating pipe delimited file
Message-Id: <0001HW.BC55AB5800702B6EF03865B0@news-server.tampabay.rr.com>
On Fri, 13 Feb 2004 0:11:50 -0500, John W. Krahn wrote
(in message <402C5C82.9F586710@acm.org>):
> J wrote:
>>
>> On Thu, 12 Feb 2004 1:22:28 -0500, John W. Krahn wrote
>> (in message <402B1B47.F6589E1E@acm.org>):
>>
>>> J wrote:
>>>
>>> Something like this should work:
>>>
>>> #!/usr/bin/perl
>>> use warnings;
>>> use strict;
>>>
>>> ( $^I, @ARGV ) = ( '.bak', 'yourfile.txt' );
>>>
>>> my @lens = map length, split /\|/, <>, -1;
>>> while ( <> ) {
>>> chomp;
>>> my $i = -1;
>>> $lens[ ++$i ] < $_ and $lens[ $i ] = $_ for map length, split /\|/, $_,
>>> -1;
>>> }
>>> @ARGV = $ARGV;
>>> while ( <> ) {
>>> chomp;
>>> my $i;
>>> print join( '|', map sprintf( '%-*s', $lens[ $i++ ], $_ ), split /\|/,
>>> $_, -1 ), "\n";
>>> }
>>>
>>> __END__
>>
>> I'm having a hard time understand this line of code
>> $lens[ ++$i ] < $_ and $lens[ $i ] = $_ for map length, split /\|/, $_,-1
>>
>> Could some one explain this line of code.
>
> Sure, to put it more verbosely:
>
> # set $index to -1 because we pre-increment it in the loop
> my $index = -1;
>
> # split the line in $_ using the pipe '|' character
> # third argument is -1 to get trailing empty fields
> for my $field ( split /\|/, $_, -1 ) {
>
> my $length = length $field;
>
> ++$index;
>
> if ( $lens[ $index ] < $length ) {
>
> # store $length in the array @lens if it is
> # greater than the previous value in @lens
> $lens[ $index ] = $length;
> }
> }
>
>
>
> John
>
I understand a little bit better. That is the hardest thing about perl for
me, is understanding all the shortcut codes.
Thanks for explaining stuff to me.
J
------------------------------
Date: Sun, 15 Feb 2004 19:33:34 -0500
From: James Willmore <jwillmore@remove.adelphia.net>
Subject: Re: how to download part of a pdf file
Message-Id: <pan.2004.02.16.00.33.32.451861@remove.adelphia.net>
On Sun, 15 Feb 2004 12:38:26 -0800, KK wrote:
> Hi there, Just wondering if any of the perl modules allow me to
> download only a part of a pdf file (infact, I need only the first
> page)?
Ouch! I don't think you can do that at all.
Once you have the whole PDF, you *can* use one of the PDF modules to get
only what you need - but this is only a guess.
Maybe someone else will chime in to (in)validate what I've said.
--
Jim
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
a fortune quote ...
Good day to avoid cops. Crawl to school.
------------------------------
Date: Sun, 15 Feb 2004 23:29:21 -0500
From: "John Call" <jcall@ellijay.com>
Subject: Perl and Quotas
Message-Id: <c0pgv002qmb@enews2.newsguy.com>
I am trying to write a small script that will change quotas for me on a
RedHat box. The following is my program (99% of which comes from the book
Perl for System Administration).
-----------
#!/usr/bin/perl
use Quota;
$filesystem = '/home/users/<username>';
$soft = 5;
$hard = 6;
$isoft = 0;
$ihard = 0;
my($name,$paswd,$uid,$gid,$quota,$comment,$gcos,$dir,$shell ) =
getpwnam($ARGV[0]);
$dev = Quota::getqcarg($filesystem);
($curblock, $soft, $hard, $curinode, $btimeout, $curinode, $isoft, $ihard,
$itim
eout) = Quota::query($dev, $uid) or die "Unable to query quota for
$uid:$!\n";
Quota::setqlim($dev, $uid, $soft, $hard, $isoft, $ihard, 1) or die "Unable
to set quotas:$!\n";
---------------
Quota::query returns the following error:
Unable to query quota for 2977:No such process
If I REM out the Quota::query line, Quota::setqlim returns the following
error:
Unable to set quotas:No such file or directory
I'm really not sure why this is happening. I checked the errata page for the
book and found no errors for this section. I also check Google groups and
found nothing.
Any help appreciated.
Thanks,
John
------------------------------
Date: 15 Feb 2004 18:35:34 -0800
From: ralstens@earthlink.net (SR)
Subject: Please.. Need some help with wwwboard
Message-Id: <f62be39f.0402151835.4f241ace@posting.google.com>
I've got the board installed and working fine. Admin.pl loads, but no
messages are displayed for editing. I'm not a complete dolt, just
close, and I can't figure this out. Can anyone give me a clue where to
look for my problem ?
I understand there are modded versions for sale (or free ?) that might
be better
for a newbie like myself. Help there would be appreciated also.
Thanks
Steve
------------------------------
Date: Sun, 15 Feb 2004 21:44:24 -0500
From: James Willmore <jwillmore@remove.adelphia.net>
Subject: Re: Please.. Need some help with wwwboard
Message-Id: <pan.2004.02.16.02.44.23.205746@remove.adelphia.net>
On Sun, 15 Feb 2004 18:35:34 -0800, SR wrote:
> I've got the board installed and working fine. Admin.pl loads, but no
> messages are displayed for editing. I'm not a complete dolt, just close,
> and I can't figure this out. Can anyone give me a clue where to look for
> my problem ?
> I understand there are modded versions for sale (or free ?) that might
> be better
> for a newbie like myself. Help there would be appreciated also.
Contact the author of whatever script you are refering to.
--
Jim
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
a fortune quote ...
"If you can count your money, you don't have a billion dollars."
-- J. Paul Getty
------------------------------
Date: 15 Feb 2004 17:20:04 -0800
From: stoyansbg@yahoo.com (Stoyan Stoyanov)
Subject: Re: read/write to a character device
Message-Id: <e9b9e613.0402151720.209880fd@posting.google.com>
I figured it out. Just had to close/open the character device between
reading/writing attempts.
stoyansbg@yahoo.com (Stoyan Stoyanov) wrote in message news:<e9b9e613.0402142209.5b724314@posting.google.com>...
> I'd like to send some binary data directly to my USB printer and get
> the response. The sending of the data seems to pass OK but I have
> problems getting the response. What happens is that randomly I get: no
> response at all, the correct response, or the correct response twice.
> I tried several different ways of opening filehandles to the device
> but in all cases I get the same results. I must be missing something.
>
> Here is one of the script variants that I tried:
>
> --------------------------
> #!/usr/bin/perl -w
> use strict;
> use POSIX;
>
> my $DEVICE = '/dev/usb/lp0';
> my $buffer;
> my $response;
> my $byte;
>
> my @line = split(/\s+/,'00 00 00 1B 01 40 45 4A 4C 20 31 32 38 34 2E
> 34 0A 40 45 4A 4C 0A 40 45 4A 4C 0A');
>
> # converting the data
> foreach (@line) {
> $buffer .= sprintf ("%c", hex $_);
> }
>
> # debug: dumping to a file whatever is to be sent to the printer
> open AA, "> buffer.txt";
> print AA $buffer;
> close AA;
>
> sysopen(FH, $DEVICE, O_RDWR | O_EXCL) or die $!;
> my $ofh = select(FH); $| = 1; select($ofh);
>
> # sending to printer
> syswrite (FH, $buffer, 27) or die $!;
>
> # reading the response
> while (sysread (FH, $byte, 1)==1) {
> $response .= $byte;
> }
>
> # debug: dumping the response to a file
> open AA, "> response.txt";
> print AA $response;
> close AA;
>
> close (FH);
> --------------------
>
> Thanks!
> Stoyan
------------------------------
Date: Sun, 15 Feb 2004 19:49:26 -0800
From: Eric <nospam@xx.com>
Subject: Reformatting text file
Message-Id: <40303DC6.D35F88AA@xx.com>
Since I don't use Perl consistently, once again I find myself in a
humbling place of needing help for something I should be able to do in
my sleep.
I'm hacking one of my similar purpose scripts for inputting one file &
reformatting the info to a new file, but am stuck on at the $line =~
stuff (see script).
FYI, the "Callsign" field can contain one or more letters, numbers or
forward slashes. The "Location" field may contain only letters OR
letters & numbers.
Thanks very much for any help.
Regards,
Eric
====
#!/usr/bin/perl
use strict;
use warnings;
#
# RAW DATA FILE ENTRY FORMAT
# $infile will be: The .csv file to parse ("callsign","location")
# $outfile will be: The (callsign =Qlocation) format - no quotes or
comma
#
my $infile = " ";
my $outfile = " ";
my $line = " ";
#
print "Enter File Name To Convert: "; #Input file
chomp ($infile = <STDIN>);
print "Enter Output File Name: "; #Output file
chomp ($outfile = <STDIN>);
#
open (INFILE, $infile) ||
die "could not open '$infile' $!"; #open file for reading or die
open (OUTFILE ,">>$outfile") ||
die "could not open '$outfile' $!"; #open file for appending or
die
# Loop for formatting output
while ($line = <INFILE>) {
$line =~ m/"([\w\d/]+)","([\w\s]+)"/; <--- questionable code
===
take callsign & location fields
from within .csv quote/comma delimited
file ("callsign","location")and put into
the following format:
callsign =Qlocation
(Callsign + space + Q + location as above)
===
$line =~ $1 =Q$2\n; <- Major brainfreeze here
print OUTFILE "$line";
}
close (INFILE); #close raw input file
close (OUTFILE); #close output file
### END
------------------------------
Date: Sun, 15 Feb 2004 19:59:07 -0800
From: Eric <nospam@xx.com>
Subject: Re: Reformatting text file
Message-Id: <4030400B.AA3E08B3@xx.com>
Eric wrote:
>
Ooops...
RE: callsign =Qlocation
Callsign + space + Q + location as above) should be:
Callsign + space + equal sign + Q + location
Sorry ;-(
Eric
------------------------------
Date: Mon, 16 Feb 2004 04:13:49 GMT
From: J <webstuff@fluidic.com>
Subject: restarting <> (stdio)
Message-Id: <0001HW.BC55ADB00070B816F03865B0@news-server.tampabay.rr.com>
I'm still learning Perl, so i'm sorry if I get the lingo completely wrong.
I have a script that take a filename as an arguement. I process each line of
the file using the while( <> ) statement. That works perfectly.
However, now I need to start at the beginning of the input file. I can't
figure out how to do this to save my life. Any suggestions?
J
------------------------------
Date: Sun, 15 Feb 2004 21:29:53 -0500
From: Mina Naguib <spam@thecouch.homeip.net>
Subject: Re: Sending HASH over TCP
Message-Id: <BWVXb.13871$gi7.626004@weber.videotron.net>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
Chris wrote:
> Aside from Ben Morrow's solution (which I wish I had the time to try),
> if you are stuck on a "Dumper()" solution, you might get more mileage
> out of the XML::Dumper::pl2xml() and xml2pl() routines. Write yourself
> a psuedo-web service that passes XML structures back and forth. pl2xml()
> and xml2pl() will handle this rightly.
Another solution is Net::EasyTCP written by yours truly.
-----BEGIN xxx SIGNATURE-----
Version: GnuPG v1.2.3 (GNU/Linux)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org
iD8DBQFAMCskeS99pGMif6wRAvi7AJ95L78w00hiBJkMTkoMM+xms3NUAwCg5wj2
Pc6N6gtVrw8PnMvh+nmTqs8=
=ne66
-----END PGP SIGNATURE-----
------------------------------
Date: Sun, 15 Feb 2004 19:19:07 -0800
From: "Brad Walton" <sammie-nospam@greatergreen.com>
Subject: Re: Sending HASH over TCP
Message-Id: <LN-dnVUbObU5q63dRVn-jw@comcast.com>
I was actually using that up until I had to make this change. Thanks, it is
a very easy-to-use module and made accomplishing my task (at that time) very
simple. Unfortunately, I could not get it to communicate with a new program
that was introduced to my project, which is not written in Perl and required
a TCP connection.
Brad
"Mina Naguib" <spam@thecouch.homeip.net> wrote in message
news:BWVXb.13871$gi7.626004@weber.videotron.net...
> -----BEGIN xxx SIGNED MESSAGE-----
> Hash: SHA1
>
>
> Chris wrote:
> > Aside from Ben Morrow's solution (which I wish I had the time to try),
> > if you are stuck on a "Dumper()" solution, you might get more mileage
> > out of the XML::Dumper::pl2xml() and xml2pl() routines. Write yourself
> > a psuedo-web service that passes XML structures back and forth. pl2xml()
> > and xml2pl() will handle this rightly.
>
> Another solution is Net::EasyTCP written by yours truly.
>
> -----BEGIN xxx SIGNATURE-----
> Version: GnuPG v1.2.3 (GNU/Linux)
> Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org
>
> iD8DBQFAMCskeS99pGMif6wRAvi7AJ95L78w00hiBJkMTkoMM+xms3NUAwCg5wj2
> Pc6N6gtVrw8PnMvh+nmTqs8=
> =ne66
> -----END PGP SIGNATURE-----
------------------------------
Date: 15 Feb 2004 19:20:57 -0800
From: wally@wallysanford.com (Wally Sanford)
Subject: Trent Curry, wsanford@wallysanford.com, and falsely using existing email addresses
Message-Id: <9415ae90.0402151920.ef0ee42@posting.google.com>
I see that someone has been posting to this and other groups since
late 2003 using a false email address, one that happens to belong to
me. I see that this person frequently engages in behaviors such as
flaming, netcopping, and other generally obnoxious behavior.
The problem I have with this is that I don't know how someone can
distinguish my (hopefully polite and netiquitte-compliant) posts from
this malefactor's. There are, suprisingly, many Wally Sanford's out
there: one running a nudist camp, one working at Diazo, and so forth,
but none of those are me. The difference between them, and the
malefactor posting as wsanford@wallysanford.com is that all but the
latter are not falsely using my domain, wallysanford.com, for their
email address.
I suppose I feel poorly about the situation for several reasons: one
is the aditional spam I receive as a result of the subject poster's
posting, another is the obnoxiousness of his/her posts, and the
difficulty in discerning me from him/her. I realize that Usenet is to
some extent anonymous, and that I may have no formal grounds to
prevent such inappropriate use of my email address or domain, but I am
interested in limiting it by whatever means that are available.
I am expert in neither Perl nor Usenet, but I wonder if some of you
who are might advise me how to contact this individual, and reason
with him/her, or alternatively, if you know his/her physical address.
Thank you.
------------------------------
Date: Mon, 16 Feb 2004 04:14:57 GMT
From: perl coder <perlcdr@mail.rumania>
Subject: Win32::ChangeNotify + $module = detect download ?
Message-Id: <5tXXb.1060$fE4.1010@bignews5.bellsouth.net>
I'm using the Win32::ChangeNotify to monitor a folder, in order to find
which files are being modified. I setup a handler with the LAST_WRITE
flag, and it works great, and I can find the exact filename that changed
by checking the timestamps of all the files in that folder.
One thing bugs me though: I can't detect whether or not a file is
changing because it's been closed or if it's still open and actively
being written to (frex, somebody downloading a file with a web browser
or something). So I'm wondering if there's a relatively easy way to
find this out. In Unix you can at least check with 'lsof' and
'netstat -nap' and get a good idea of what's going on, but I'm new to
the win32 world, and I'm still not sure of what's possible and what
isn't. Perhaps is there a module that will help with this? If not, I
noticed that Perl at least gives a way to make straight win32 system
calls (with Win32::API), so perhaps there's a system call I can use
then?
I'd rather avoid having to check a file at regular intervals to see if
it's changing. It might work, but doesn't sound like a very robust
solution. :-)
--
No crazy stuff in my email. ;-)
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 V10 Issue 6139
***************************************
