[10537] in Perl-Users-Digest
Perl-Users Digest, Issue: 4129 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Nov 2 11:08:04 1998
Date: Mon, 2 Nov 98 08: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 Mon, 2 Nov 1998 Volume: 8 Number: 4129
Today's topics:
Re: 0 - 1 toggling question droby@copyright.com
Re: close() and the file pointer <d.m.proffitt@mds.qmw.ac.uk>
Re: FTP from Win32 (Stephan Gross)
Re: help a poor student <montyt@bestnet.com>
Re: help compare directories <jbharvey@corp.home.net>
Multiple pattern matching: Newbie question <patrick45@hotmail.com>
Netscape equivalent of ASP <spam@spam.spam>
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Not to start a language war but.. (Anita M Wilcox)
Re: Not to start a language war but.. <jdporter@min.net>
Re: Not to start a language war but.. <jdporter@min.net>
Re: Not to start a language war but.. <jdporter@min.net>
Re: Not to start a language war but.. <jdporter@min.net>
Re: Not to start a language war but.. <jdporter@min.net>
Re: Passing $Variables from script to script (John Hardy)
Re: Passing $Variables from script to script (John Hardy)
Re: Passing $Variables from script to script <Tony.Curtis+usenet@vcpc.univie.ac.at>
Re: Perl & Y2K - booby trap code (Andrew M. Langmead)
Reading a single line from a socket keydet89@yahoo.com
Re: Reading a single line from a socket <jbharvey@corp.home.net>
Re: scoping troubles <Ian_Lowe@fanniemae.com>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Text::CSV install? <jbharvey@corp.home.net>
Tk on NT keydet89@yahoo.com
Re: Tk on NT (clay irving)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 02 Nov 1998 15:21:49 GMT
From: droby@copyright.com
Subject: Re: 0 - 1 toggling question
Message-Id: <71kimd$plr$1@nnrp1.dejanews.com>
In article <slrn73mfgp.6es.alnd@my.domain>,
alnd at pacbell.net wrote:
>
> Adding zero seems goofy. Why not just use
> $toggle = 1 - $toggle;
>
> For example,
> #!/usr/bin/perl -w
> my $t;
> $t = 1;
> while (1) {
> $t = 1 - $t;
> print "$t\n";
> }
>
> gives a convincing stream of 0, 1, 0, 1, etc. -- Al
>
Well, we've proven the adage yet again. TMTOWTDI.
Some ways may be better than others though...
Thus far proposed, we have:
$x = !$x+0;
$x = !$x||0;
$x ^= 1;
$x = 1 - $x;
If $x starts as 1 or 0, all produce the right results. But, as we're making
a special version of the negation operator, wouldn't it be nicest if it
produced logically correct values for other $x?
The 3rd and 4th in the above list fail this criterion.
The first two are fine.
I prefer $x = !$x+0 because it reminds me of "Cheap Trick #0" in math proofs
(add zero). The analogous "Cheap Trick #1" method $x = !$x*1 also works
nicely.
But there are infinitely many ways to do it.
Consider the extremely elegant construct:
($x=($x=1-(!$x||0)))^=1;
I call this the "What I say three times" algorithm. There are of course
several variations on the same theme.
I'm saving this for use in my JAPH when I get around to writing one.
--
Don Roby
droby@copyright.com
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 2 Nov 1998 14:42:30 -0000
From: "David Proffitt" <d.m.proffitt@mds.qmw.ac.uk>
Subject: Re: close() and the file pointer
Message-Id: <71kgp3$8n0$1@beta.qmw.ac.uk>
<embarrassment>
the problem was indeed nothing to do with the file pointer
it was a problem with passing parameters to the subroutine (I had what I
thought was an unambiguous string - it wasn't - explicitly quoting it fixed
the problem)
</embarrassment>
Thanks for the replies anyway
David
------------------------------
Date: Mon, 02 Nov 1998 14:30:11 GMT
From: sg@loralskynet.com (Stephan Gross)
Subject: Re: FTP from Win32
Message-Id: <363dc0e8.249634723@client.ne.news.psi.net>
On Fri, 30 Oct 1998 12:36:32 -0500, Tom McGee <tmcgee@bondmarkets.com>
wrote:
>I'm pulling out the little hair I have left trying to automate ftp-ing
>files to my external server, by passing commands to the shell.
>
>It's my understanding (and experience) that Net::FTP doesn't work on
>Win32; has anyone been able to come up something that does?
>
>I've tried filehandles, pipes, and backticks. They've all compiled OK,
>but don't completely pass commands in to the point where I can actually
>log in.
>
>Grrrr. I hate Windows!
Tom -
I've successfully used the Win32::Internet module from
http://www.divinf.it/dada/perl/
Here's some sample code:
use Win32::Internet;
$I = new Win32::Internet();
$I->ConnectRetries(1); # sets 1 retry
# Set up connection
$host = "hostname";
$user = "Administrator";
$pass = "xyz";
# Open connection
$I->FTP($FTP, $host, $user, $pass);
if(!$FTP)
{
($num, $text) = $I->Error();
print "*** Error: [$num] $text\n";
}
# Get into correct directory
#$dir = "/";
#$result = $FTP->Cd($dir);
#$err = $FTP->Error();
#print "*** Error: $err\n" if ! $result;
# Set mode
#print " Setting BINARY mode...\n";
$FTP->Binary();
#print " Mode is now ",$FTP->Mode(),"\n";
# Remote file stuff
$remotefile = "sj.txt";
($file) = $FTP->List($remotefile,3);
$filesize = $file->{'size'};
# Local file stuff
$localfile = "From_SJ_Test";
if (-e $localfile)
{
unlink ($localfile);
}
# Log file stuff
$logfile = "SJ_Get_Results.txt";
# Do GET
$result = $FTP->Get($remotefile,$localfile);
$err = $FTP->Error();
print "*** Error: $err\n" if ! $result;
# Clean up and exit
$FTP->Close();
$I->Close();
------------------------------
Date: Mon, 2 Nov 1998 07:11:33 -0800
From: "Monty Taylor" <montyt@bestnet.com>
Subject: Re: help a poor student
Message-Id: <71ki3f$30621@roc344.ghc.org>
I agree with all the insults from everyone else, however, since I'm feeling
nice this morning --
> print "what now Gov? \n";
> $a =<stdin>;
> chop($a); #Gets rid of newline characters from the end
> if ($a eq "look")
But seriously, don't ask for more help till you learn some manners.
--
-----------------------------------------------
Monty Taylor
Sybase DBA, UNIX Admin
Best Consulting -- Seattle, WA
montyt@bestnet.com
------------------------------
Date: Mon, 02 Nov 1998 14:50:47 GMT
From: "Justin B. Harvey" <jbharvey@corp.home.net>
Subject: Re: help compare directories
Message-Id: <363DC6CD.1C80283B@corp.home.net>
stat FILEHANDLE
stat EXPR
stat Returns a 13-element list giving the status info for a file,
either the file opened via FILEHANDLE, or named by EXPR.
If EXPR is omitted, it stats `$_'. Returns a null list
if the stat fails. Typically used as follows:
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks)
= stat($filename);
Not all fields are supported on all filesystem types.
Here are the meaning of the fields:
0 dev device number of filesystem
1 ino inode number
2 mode file mode (type and permissions)
3 nlink number of (hard) links to the file
4 uid numeric user ID of file's owner
5 gid numeric group ID of file's owner
6 rdev the device identifier (special files only)
7 size total size of file, in bytes
8 atime last access time since the epoch
9 mtime last modify time since the epoch
10 ctime inode change time (NOT creation time!) since
the epoch
11 blksize preferred block size for file system I/O
12 blocks actual number of blocks allocated
(The epoch was at 00:00 January 1, 1970 GMT.)
If stat is passed the special filehandle consisting of
an underline, no stat is done, but the current contents
of the stat structure from the last stat or filetest are
returned. Example:
if (-x $file && (($d) = stat(_)) && $d < 0) {
print "$file is executable NFS file\n";
}
(This works on machines only for which the device number
is negative under NFS.)
In scalar context, `stat()' returns a boolean value
indicating success or failure, and, if successful, sets
the information associated with the special filehandle
`_'.
Rolf Rettinger wrote:
>
> Hi,
>
> I would like to compare two directories including file size and date. Is
> there a perl module to do that?
>
> Thanks
>
> Rolf
------------------------------
Date: Mon, 02 Nov 1998 15:15:46 +0100
From: Patrick <patrick45@hotmail.com>
Subject: Multiple pattern matching: Newbie question
Message-Id: <363DBE92.AB53754A@hotmail.com>
Hi there!
I am fairly new to perl, and was interested in finding values in
a file
tagged by '9FA001' the following pattern search works fine:
$s=~ /(9FA001)([A-F,\d]{2,2})([A-F,\d]{2,2})/;
returning the values in $2, $3 for the first pattern match encountered.
The thing is the tag also occurs later on in the file with different
data appended
and I would like to return this info also.
Something using /g or \G perhaps??? Thanks for any ideas.
------------------------------
Date: Mon, 02 Nov 1998 09:47:09 -0500
From: no-spam <spam@spam.spam>
Subject: Netscape equivalent of ASP
Message-Id: <363DC5ED.86A867@spam.spam>
Is there an equivalent of ASP using PERL (or anything) on Netscape's
servers?
------------------------------
Date: 2 Nov 1998 14:54:26 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <71kh32$35s$2@info.uah.edu>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 26 Oct 1998 14:53:19 GMT and ending at
02 Nov 1998 11:04:37 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 1998 Greg Bacon. All Rights Reserved.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Totals
======
Posters: 219 (44.9% of all posters)
Articles: 351 (25.8% of all articles)
Volume generated: 574.8 kb (23.7% of total volume)
- headers: 245.4 kb (4,960 lines)
- bodies: 323.0 kb (10,264 lines)
- original: 246.8 kb (8,100 lines)
- signatures: 6.1 kb (148 lines)
Original Content Rating: 0.764
Averages
========
Posts per poster: 1.6
median: 1 post
mode: 1 post - 161 posters
s: 1.9 posts
Message size: 1676.8 bytes
- header: 715.8 bytes (14.1 lines)
- body: 942.3 bytes (29.2 lines)
- original: 720.0 bytes (23.1 lines)
- signature: 17.7 bytes (0.4 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
17 30.8 ( 15.5/ 14.8/ 10.0) Jason Orendorff <jorendorff@ixl.com>
16 30.9 ( 10.0/ 20.9/ 20.9) "IFN" <harris@gc.maricopa.edu>
8 11.3 ( 6.3/ 5.0/ 2.9) pub@alma.ch (M.)
7 11.4 ( 5.3/ 6.1/ 2.9) "Alistair Calder" <webmaster@topproducer.com>
6 8.4 ( 4.7/ 3.7/ 1.6) Kelvin Price <kprice@cardinal.co.nz>
6 28.4 ( 4.7/ 23.7/ 16.6) dkirby@see.sig.for.addr (Dave Kirby)
5 6.2 ( 3.8/ 2.2/ 1.4) Chintan Adhyapak <ChintanA@worldnetcorp.com>
5 15.5 ( 3.3/ 12.1/ 9.9) gregghill@my-dejanews.com
5 8.3 ( 3.5/ 3.7/ 2.2) Michael Shulman <shulman@caltech.edu>
4 7.5 ( 3.1/ 4.4/ 3.1) Nick Moraitakis <nick@perlfect.com>
These posters accounted for 5.8% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
30.9 ( 10.0/ 20.9/ 20.9) 16 "IFN" <harris@gc.maricopa.edu>
30.8 ( 15.5/ 14.8/ 10.0) 17 Jason Orendorff <jorendorff@ixl.com>
28.4 ( 4.7/ 23.7/ 16.6) 6 dkirby@see.sig.for.addr (Dave Kirby)
15.5 ( 3.3/ 12.1/ 9.9) 5 gregghill@my-dejanews.com
13.3 ( 2.4/ 10.9/ 6.5) 3 wtanksle@cx930311-b.ocnsd1.sdca.home.com (William Tanksley)
11.4 ( 5.3/ 6.1/ 2.9) 7 "Alistair Calder" <webmaster@topproducer.com>
11.3 ( 6.3/ 5.0/ 2.9) 8 pub@alma.ch (M.)
9.7 ( 1.3/ 8.4/ 8.4) 2 gsechen2@my-dejanews.com
8.4 ( 4.7/ 3.7/ 1.6) 6 Kelvin Price <kprice@cardinal.co.nz>
8.3 ( 3.5/ 3.7/ 2.2) 5 Michael Shulman <shulman@caltech.edu>
These posters accounted for 6.9% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 0.5 / 0.5) 4 William <msl1997@yahoo.com>
1.000 ( 20.9 / 20.9) 16 "IFN" <harris@gc.maricopa.edu>
0.967 ( 0.3 / 0.3) 3 "Simon B." <webmaster@ouweb.com>
0.928 ( 2.0 / 2.2) 3 rstewart@vmirror.com
0.842 ( 0.8 / 0.9) 3 "Bowler, Michael (EXCHANGE:CRK:5T11)" <mkbowler@americasm01.nt.com>
0.817 ( 9.9 / 12.1) 5 gregghill@my-dejanews.com
0.701 ( 3.1 / 4.4) 4 Nick Moraitakis <nick@perlfect.com>
0.700 ( 16.6 / 23.7) 6 dkirby@see.sig.for.addr (Dave Kirby)
0.673 ( 10.0 / 14.8) 17 Jason Orendorff <jorendorff@ixl.com>
0.645 ( 0.8 / 1.2) 3 Greg Ewing <greg@cosc.canterbury.ac.nz>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.597 ( 6.5 / 10.9) 3 wtanksle@cx930311-b.ocnsd1.sdca.home.com (William Tanksley)
0.581 ( 2.9 / 5.0) 8 pub@alma.ch (M.)
0.513 ( 0.5 / 1.0) 3 Lyn A Headley <laheadle@boguscs.uchicago.edu>
0.505 ( 1.6 / 3.3) 3 grahams@wpds.com
0.468 ( 2.9 / 6.1) 7 "Alistair Calder" <webmaster@topproducer.com>
0.466 ( 1.1 / 2.4) 3 amw@world.std.com (Anita M Wilcox)
0.434 ( 1.6 / 3.7) 6 Kelvin Price <kprice@cardinal.co.nz>
0.414 ( 1.6 / 3.9) 3 briang@access5.digex.net (Brian G.)
0.384 ( 1.3 / 3.4) 3 Arne Jamtgaard <arnej@fc.hp.com>
0.330 ( 1.0 / 3.0) 3 wlfraed@ix.netcom.com (Dennis Lee Bieber)
24 posters (10%) had at least three posts.
Top 10 Crossposters
===================
Articles Address
-------- -------
17 Jason Orendorff <jorendorff@ixl.com>
6 dkirby@see.sig.for.addr (Dave Kirby)
4 "Jhirley (Jay) Fonte" <JFonte@TNetC.Net>
4 Lyn A Headley <laheadle@boguscs.uchicago.edu>
3 Greg Ewing <greg@cosc.canterbury.ac.nz>
3 wtanksle@cx930311-b.ocnsd1.sdca.home.com (William Tanksley)
3 wlfraed@ix.netcom.com (Dennis Lee Bieber)
3 pj@sgi.com (Paul Jackson)
3 Darrin Edwards <d-edwards@uchicago.edu>
2 Michiel Verhoef <michiel.verhoef@wkap.nl>
------------------------------
Date: Mon, 2 Nov 1998 14:09:48 GMT
From: amw@world.std.com (Anita M Wilcox)
Subject: Re: Not to start a language war but..
Message-Id: <F1ssoC.Lzs@world.std.com>
>
>>: * its cleaner and simpler.
>
>> Perl is complex, it's a feature.
>
>It sure is. Unfortunately, Perl code is complex as well.
>
Can we say "job security"? Seriously, whether you prefer one
language over another, it is irrelevant as far as your career
goes if no one will hire you to work with it. I'm a consultant
and have to have a fairly broad repertoire of skills, and, as
such, have to try to cram in learning as much as possible. In
terms of the Python/Perl debate, Perl wins hands-down. Scan
through *.jobs.contract and tell me how many instances of
Python you see as opposed to Perl? I have to choose what is
most valuable to me as a marketable skill. If I want to code
my own stuff in Python or Ada or even APL, that's fine, but it
won't buy me many jobs. If I do get a choice, I have to take
into account what platform my client uses (increasingly Windoze)
and what kind of commercially available products are out there.
Often, you get a semi-computer-literate VP who has seen demos
of nifty little Java apps, so they think that's the "wave of
the future", when something like Perl would be a more efficient
solution. Once these guys get fixated on their tool of choice,
every problem is a nail and that's their hammer. It's not
the way I'd like it to work, but "them that has the gold makes
the rules" :-)
Anita
------------------------------
Date: Mon, 02 Nov 1998 10:11:09 -0500
From: John Porter <jdporter@min.net>
Subject: Re: Not to start a language war but..
Message-Id: <363DCB8D.105E9C0F@min.net>
Richard Smol wrote:
>
> There is a big difference between prose and a computer program. With prose,
> the meaning of the text is included in the text itself. With a
> computer-program, the meaning is actually what a piece of code DOES.
Utterly false. Time for a trip back to Phil 102 -- Semantics.
John Porter
------------------------------
Date: Mon, 02 Nov 1998 10:13:39 -0500
From: John Porter <jdporter@min.net>
Subject: Re: Not to start a language war but..
Message-Id: <363DCC23.F43404ED@min.net>
Paul Jackson wrote:
>
> I wasn't expecting '$' to bind so much like a unary minus, as
> like the typical Unix shell '$' -- at least in this context,
> of a language that takes so much from that heritage.
Good point. Problem is, the shell only has these "scalar" variables;
arrays, like $a[0], are parsed out of a string contained in $a (at least
in some shells). When perl added real arrays (@a), the precedence of
the symbol had to change a little.
John Porter
------------------------------
Date: Mon, 02 Nov 1998 10:16:15 -0500
From: John Porter <jdporter@min.net>
Subject: Re: Not to start a language war but..
Message-Id: <363DCCBF.A84FA462@min.net>
Jason Orendorff wrote:
>
> I think the main problem is in thinking of $@% as operators; they
> really aren't. If they were operators, you could expect to do
> things like:
>
> $x = [3, 4, 5]; # ok
> print @$x; # also ok
> print @($x); # bad
> print $(@$x)[2]; # bad
> print $(x); # bad
>
> Maybe it's a personal bias, but I expect operators to work like
> mathematical operators-- they should nest and parenthesize and all
> that. But these symbols are not meant to be mathematical operators.
> They're actually more like English punctuation.
That's actually not far off; you can write @{$x}, ${$x}[2], and so on.
The only salient difference is the use of curlies instead of parens.
John Porter
------------------------------
Date: Mon, 02 Nov 1998 10:29:03 -0500
From: John Porter <jdporter@min.net>
Subject: Re: Not to start a language war but..
Message-Id: <363DCFBF.1FA3BBB1@min.net>
Dave Kirby wrote:
>
> OK, "disagree" was a poor chice of words - "got it wrong" would have
> been better. Surely you can see why the fact that
>
> sub Widget::new { bless {} }
> is wrong but
> sub Widget::new { bless {}, shift }
> is right is not exactly obvious
Again, poor choice of words. s/wrong/not preferable/; s/right/preferable/.
> If someone who has little or no experience of perl looks at a module
> file it is not obvious at all that a class is being declared.
Well, considering that a class *isn't being declared*, I can't easily
argue with you.
It's the creation of objects which has primacy in perl, not the declaration
of classes. The notion of a class in perl is very fluid, very dynamic.
> I would
> go as far as saying that a total novice would not have a hope in hell
> of understanding what is going on without a careful reading of the
> docs.
We have other code for you perl novices to sample, if you don't like
the OO flavor.
> With python it is immediately apparent that a class is being
> created even to someone who has never seen the language before.
Only because the construction is similar to other languages with which
they already have familiarity. A good analogy can be drawn to human
languages.
> I used perl for years for the creation of various utilities and I cant
> remember ever using classes in production code - it simply wasnt in my
> perl mindset.
I think that's a feature of perl.
> This may have been partly a result of starting with
> perl4 so never getting into the habit, but also because the process is
> unnecessarily complicated.
The process is not complicated at all. Just different.
> For most of that time I was programming in
> C++ as my main language so was familiar with the benefits of OO
> techniques, and had played around with classes when I first got perl5
> so I knew how to do it, but when it came to the crunch I would still
> write perl procedurally.
Often when I start a program (or component thereof) I write it
procedurally at first; and soon enough it cries out to be OO.
So I make it OO. It's never hard. Maybe because I'm not predisposed
to think it's hard.
John Porter
------------------------------
Date: Mon, 02 Nov 1998 10:31:11 -0500
From: John Porter <jdporter@min.net>
Subject: Re: Not to start a language war but..
Message-Id: <363DD03F.402B3175@min.net>
mravi@my-dejanews.com wrote:
>
> ... why doesn't everyone agree to a cease fire ...
You think this is bad? This is one of the nicest, calmest cross-ng
language debates I've ever seen. I have found it very enlightening.
John Porter
------------------------------
Date: Mon, 02 Nov 1998 14:28:16 GMT
From: jhardy@cins.com (John Hardy)
Subject: Re: Passing $Variables from script to script
Message-Id: <4kj%1.1627$%W.570357@198.235.216.4>
DUH! your right, it helps to print to the file.
Why though when I do a
print "$field\t$Value\n";
it prints to the screen the list of fields and the list of values
but when I do the same but to a file
$file = 'VVarin';
open(INFO, ">$file") or die "Can't open $file: $!\n";
print INFO "$field\t$Value\n";
close(INFO)or die "can't close $file: $!\n";
it just prints the first field and the first value?
I tried using the original Hash and doing
while (($key,$value) = each %FORM) {
$file = 'VVarin';
open (INFO, ">$file") or die "Can't open $file: $!\n";
print INFO "$key=$value\n";
close (INFO) or die "can't close $file: $!\n";
but it just printed out a different field and value, but only one again.
Am I closing the file to soon or screwing up the while when I open the file??
John
In article <3gb%1.3891$Qf3.8926@news9.ispnews.com>, ehpoole@ingress.com says...
>
>[Posted and Emailed] In article <CKa%1.802$%W.373380@198.235.216.4>,
>jhardy@cins.com says...
>>
>>I'm having problems passing $Value and $field, which contain the forms
>>field names and values read from one script to another script.
>>
>>I tried writing it to a file
>>
>>$file = 'varin';
>>open(INFO, ">$file");
>>print "$field\t$Value\n";
>>close(INFO);
>>
>>but the file remained empty
>
>You 'print'ed to the console (STDOUT), not the INFO filehandle.
>
>--
>Ethan H. Poole | Website Design and Hosting,
> | CGI Programming (Perl & C)..
>========Personal=========== | ============================
>* ehpoole @ ingress . com * | --Interact2Day--
> | http://www.interact2day.com/
>
------------------------------
Date: Mon, 02 Nov 1998 14:35:58 GMT
From: jhardy@cins.com (John Hardy)
Subject: Re: Passing $Variables from script to script
Message-Id: <irj%1.1671$%W.573326@198.235.216.4>
Got it!
this worked:
$file = 'VVarin';
open (INFO, ">$file") or die "Can't open $file: $!\n";
while (($key,$value) = each %FORM) {
print INFO "$key=$value\n";
}
close (INFO) or die "can't close $file: $!\n";
Thanks for your help
In article <4kj%1.1627$%W.570357@198.235.216.4>, jhardy@cins.com says...
>
>
>DUH! your right, it helps to print to the file.
>
>Why though when I do a
>
>print "$field\t$Value\n";
>
>it prints to the screen the list of fields and the list of values
>
>but when I do the same but to a file
>
>$file = 'VVarin';
>open(INFO, ">$file") or die "Can't open $file: $!\n";
>print INFO "$field\t$Value\n";
>close(INFO)or die "can't close $file: $!\n";
>
>it just prints the first field and the first value?
>
>I tried using the original Hash and doing
>
>while (($key,$value) = each %FORM) {
>$file = 'VVarin';
>open (INFO, ">$file") or die "Can't open $file: $!\n";
>print INFO "$key=$value\n";
>close (INFO) or die "can't close $file: $!\n";
>
>
>but it just printed out a different field and value, but only one again.
>
>Am I closing the file to soon or screwing up the while when I open the file??
>
>
>John
>
>
>
>In article <3gb%1.3891$Qf3.8926@news9.ispnews.com>, ehpoole@ingress.com
says...
>>
>>[Posted and Emailed] In article <CKa%1.802$%W.373380@198.235.216.4>,
>>jhardy@cins.com says...
>>>
>>>I'm having problems passing $Value and $field, which contain the forms
>>>field names and values read from one script to another script.
>>>
>>>I tried writing it to a file
>>>
>>>$file = 'varin';
>>>open(INFO, ">$file");
>>>print "$field\t$Value\n";
>>>close(INFO);
>>>
>>>but the file remained empty
>>
>>You 'print'ed to the console (STDOUT), not the INFO filehandle.
>>
>>--
>>Ethan H. Poole | Website Design and Hosting,
>> | CGI Programming (Perl & C)..
>>========Personal=========== | ============================
>>* ehpoole @ ingress . com * | --Interact2Day--
>> | http://www.interact2day.com/
>>
>
------------------------------
Date: 02 Nov 1998 15:43:38 +0100
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: Passing $Variables from script to script
Message-Id: <83pvb6gnol.fsf@vcpc.univie.ac.at>
Re: Passing $Variables from script to script, John
<jhardy@cins.com> said:
John> this worked:
John> $file = 'VVarin'; open (INFO, ">$file") or die "Can't
John> open $file: $!\n"; while (($key,$value) = each %FORM)
John> { print INFO "$key=$value\n"; } close (INFO) or die
John> "can't close $file: $!\n";
I assume this is for WWW related activities?
If so, you'll have to do something about file-locking,
otherwise there'll be race-hazards when multiple accesses
try to do things concurrently.
perldoc perlfaq
hth,
tony
--
Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
Liechtensteinstrasse 22, A-1090 Wien, | <URI:http://www.vcpc.univie.ac.at/>
"You see? You see? Your stupid minds! | private email:
Stupid! Stupid!" ~ Eros, Plan9 fOS.| <URI:mailto:tony_curtis32@hotmail.com>
------------------------------
Date: Mon, 2 Nov 1998 15:19:18 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Perl & Y2K - booby trap code
Message-Id: <F1svw6.DtL@world.std.com>
lr@hpl.hp.com (Larry Rosler) writes:
>The only valid uses of $year {from ((gm|local)time)[5]} are
>1900 + $year
>or
>$year % 100
As this thread has been going on, I kept on thinking to my self that
Perl could be used to check against invalid usage of the tm_year field
from gmtime and localtime. After all, Perl perpetuated this poor
design, it should be called to fix it.
I doubt that anyone would really use this for Y2K complience testing,
but I just wanted to prove that it could be done.
package Verify::Y2K;
=head1 NAME
Verify::Y2K - Perl extension that ensures proper usage of the gmtime
and localtime functions.
=head1 SYNOPSIS
use Verify::Y2K;
=head1 DESCRIPTION
Perl's C<localtime> and C<gmtime> functions inherited from C a return
value that is awfully prone to accidental error. The value for year is
defined as the number of years since 1900. This value can't be used as
a four digit year value, nor can it be used as the common two digit
year shorthand. (In the year 2000, it will return 100, which would be
totally incomprehensible.)
This module replaces the C<localtime> and C<gmtime> functions with
versions that have extra information tacked onto the value for the
year, via the C<Verify::Y2K::TmYear> class. If the program tries to
create any textual representation of the year without first adding
1900 to it (which will create a fairly unambiguous four digit number)
or by using modulus division to get a two digit number (the common
colloquial shorthand) it will raise an exception.
=head1 BUGS
It will probably generate a lot of false positives. There may be some
correct things a programmer could do arithmetically to to the year
output by C<gmtime> and C<localtime> other than C<+ 1900> and
C<%100>.
Maybe the functions in the C<Verify::Y2K::TmYear> class could be
extended to act like perl's taint checking, as explained in
L<perlsec>. Possibly incorrect arithmatic could be allowed, but make
the result a reference to a C<Verify::Y2K::TmYear> object too.
The C<Verify::Y2K::TmYear> class doesn't implement nearly as many of
the overload operators as it should.
Its possible that another module could come along later and replace
our C<localtime> or C<gmtime> replacement, but the likelyhood of
someone knowing enough about Perl to do so, yet not know about the odd
interface of C<locatime> and C<gmtime> is unlikely. On the other hand,
maybe this could be solved by making our replacement code an object,
implemented as a blessed code reference. Then we might be able to see
if we are replaced when our C<DESTROY> method gets called.
=head1 AUTHOR
Andrew Langmead aml@world.std.com
=head1 SEE ALSO
perl(1).
perlfunc(1).
localtime(3).
gmtime(3).
L<Writing Solid Code|http://mspress.microsoft.com/prod/books/1024.htm>
by Stephen A. Maguire, 1993. Ch 5. "Candy-Machine Interfaces"
=cut
use strict;
require 5.005;
sub import {
*CORE::GLOBAL::localtime = bless \&Verify::Y2K::localtime;
*CORE::GLOBAL::gmtime = bless \&Verify::Y2K::gmtime;
}
sub localtime($) {
my $arg = shift;
unless (wantarray) {
return CORE::localtime($arg);
}
else {
my @tm = CORE::localtime($arg);
$tm[5] = Verify::Y2K::TmYear->new($tm[5]);
return @tm;
}
}
sub gmtime($) {
my $arg = shift;
unless (wantarray) {
return CORE::gmtime($arg);
}
else {
my @tm = CORE::gmtime($arg);
$tm[5] = Verify::Y2K::TmYear->new($tm[5]);
return @tm;
}
}
package Verify::Y2K::TmYear;
use Carp;
use overload
'+' => \&check_add,
'%' => \&check_mod,
'""' => \&die_stringify;
sub new {
my $class = shift;
my $value = shift;
return bless \$value, $class;
}
$Verify::Y2K::TmYear::check_add_message = 'Possibly incorrect addition';
sub check_add {
my ($year, $operand) = @_;
die "$Verify::Y2K::TmYear::check_add_message\n" unless $operand == 1900;
return $$year + $operand;
}
$Verify::Y2K::TmYear::check_mod_message = 'Possibly incorrect date arithmatic';
sub check_mod {
my ($year, $operand,$reversed) = @_;
die "$Verify::Y2K::TmYear::check_mod_message\n"
unless $operand == 100 and not $reversed;
return $$year % $operand;
}
sub die_stringify {
my $self = shift;
croak sprintf "outputting a non-standard version of the year %d\n",
$$self + 1900;
}
package Verify::Y2K;
1;
__END__
--
Andrew Langmead
------------------------------
Date: Mon, 02 Nov 1998 14:13:50 GMT
From: keydet89@yahoo.com
Subject: Reading a single line from a socket
Message-Id: <71kemu$kfr$1@nnrp1.dejanews.com>
To all...
I am trying to test out a small server that I am using for testing.
The server spits out a greeting, and then waits for user input...much
like SMTP. What I need to do is write a small testing script that will
connect to the port and return only the first line.
I have tried using:
while(<S>) {
print;
}
...but that hangs b/c the server is awaiting for user input.
Any assistance is greatly appreciated. I am using ActiveStates Perl for
NT build 502.
Carv
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 02 Nov 1998 14:47:56 GMT
From: "Justin B. Harvey" <jbharvey@corp.home.net>
Subject: Re: Reading a single line from a socket
Message-Id: <363DC622.B8EB3E33@corp.home.net>
Try making your pipes hot. This is a helpful idiom:
$oldfh = select(S); $| = 1; select($oldfh);
There is a very helpful article on making pipes autoflush "hot" in last
month's Perl Journal, check it out.
j
keydet89@yahoo.com wrote:
>
> To all...
>
> I am trying to test out a small server that I am using for testing.
>
> The server spits out a greeting, and then waits for user input...much
> like SMTP. What I need to do is write a small testing script that will
> connect to the port and return only the first line.
>
> I have tried using:
>
> while(<S>) {
> print;
> }
>
> ...but that hangs b/c the server is awaiting for user input.
>
> Any assistance is greatly appreciated. I am using ActiveStates Perl for
> NT build 502.
>
> Carv
>
> -----------== Posted via Deja News, The Discussion Network ==----------
> http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 02 Nov 1998 07:13:42 -0500
From: Ian Lowe <Ian_Lowe@fanniemae.com>
Subject: Re: scoping troubles
Message-Id: <363DA1F6.B6ED0460@fanniemae.com>
The sections you are asking about are calls to the API of Tivoli. If a
filesystem threshold is exceeded, Tivoli is notified.
Ian
Tk Soh wrote:
> > 1 #!/export/Tivoli/efmperl/bin/perl -w
> > 2
> > 3 use strict;
> > 4 use Sys::Hostname;
> > 5
> > 6 my $host = hostname();
> > 7 my $class = "FILESYSTEM_FULL";
> > 8 my $date = localtime;
> > 9 my (%size,%capacity,%owner,%warn,%crit);
> [snip]
> > 34 for $fs (keys (%capacity)) {
> > 35 if ($capacity{$fs} > $crit{$fs}) {
> > 36 system("$efm CRITICAL $class $host $owner{$fs}
> > \"Filesystem $fs is over $crit% ($capacity{$fs}%)\"");
> ^^^^^^
> what are you trying to do here?
>
> > 37 } elsif ($capacity{$fs} > $warn{$fs}) {
> > 38 system("$efm WARNING $class $host $host \"Filesystem
> > $fs is over $warn% ($capacity{$fs}%)\"");
> ^^^^^^
> what are you trying to do here?
>
> > 39 }
> > 40 last;
> > 41 }
>
> -tk
--
*******************************************************
Ian A. Lowe email: Ian_Lowe@fanniemae.com
Systems Administrator voice: (202) 343-3914
*******************************************************
------------------------------
Date: 2 Nov 1998 14:54:28 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <71kh34$35s$3@info.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 26 Oct 1998 14:53:19 GMT and ending at
02 Nov 1998 11:04:37 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 1998 Greg Bacon. All Rights Reserved.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@mox\.perl\.com
Totals
======
Posters: 488
Articles: 1363 (605 with cutlined signatures)
Threads: 383
Volume generated: 2422.1 kb
- headers: 994.8 kb (19,537 lines)
- bodies: 1324.0 kb (41,325 lines)
- original: 872.1 kb (29,359 lines)
- signatures: 102.0 kb (2,255 lines)
Original Content Rating: 0.659
Averages
========
Posts per poster: 2.8
median: 1.0 post
mode: 1 post - 304 posters
s: 5.3 posts
Posts per thread: 3.6
median: 2 posts
mode: 1 post - 129 threads
s: 7.8 posts
Message size: 1819.7 bytes
- header: 747.4 bytes (14.3 lines)
- body: 994.7 bytes (30.3 lines)
- original: 655.2 bytes (21.5 lines)
- signature: 76.6 bytes (1.7 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
49 89.6 ( 32.6/ 51.3/ 32.2) lr@hpl.hp.com (Larry Rosler)
46 81.7 ( 46.3/ 31.1/ 16.9) John Porter <jdporter@min.net>
38 52.6 ( 29.8/ 18.3/ 11.5) Tom Phoenix <rootbeer@teleport.com>
34 64.7 ( 28.6/ 28.9/ 17.7) mgjv@comdyn.com.au (Martien Verbruggen)
29 41.6 ( 22.8/ 18.8/ 6.5) Tk Soh <r28629@email.sps.mot.com>
24 36.6 ( 20.9/ 15.7/ 7.8) ilya@math.ohio-state.edu (Ilya Zakharevich)
24 76.8 ( 18.5/ 52.1/ 19.1) rjk@coos.dartmouth.edu (Ronald J Kimball)
21 32.6 ( 12.5/ 20.1/ 13.0) tadmc@flash.net (Tad McClellan)
21 33.0 ( 16.7/ 9.9/ 7.5) perlguy@technologist.com
18 31.9 ( 10.4/ 19.1/ 9.5) bhilton@tsg.adc.com (Brand Hilton)
These posters accounted for 22.3% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
89.6 ( 32.6/ 51.3/ 32.2) 49 lr@hpl.hp.com (Larry Rosler)
81.7 ( 46.3/ 31.1/ 16.9) 46 John Porter <jdporter@min.net>
76.8 ( 18.5/ 52.1/ 19.1) 24 rjk@coos.dartmouth.edu (Ronald J Kimball)
64.7 ( 28.6/ 28.9/ 17.7) 34 mgjv@comdyn.com.au (Martien Verbruggen)
52.6 ( 29.8/ 18.3/ 11.5) 38 Tom Phoenix <rootbeer@teleport.com>
41.6 ( 22.8/ 18.8/ 6.5) 29 Tk Soh <r28629@email.sps.mot.com>
37.4 ( 10.7/ 24.2/ 14.3) 16 Uri Guttman <uri@fastengines.com>
36.6 ( 20.9/ 15.7/ 7.8) 24 ilya@math.ohio-state.edu (Ilya Zakharevich)
33.0 ( 16.7/ 9.9/ 7.5) 21 perlguy@technologist.com
32.7 ( 10.8/ 17.6/ 8.4) 13 Zenin <zenin@bawdycaste.org>
These posters accounted for 22.6% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 20.9 / 20.9) 16 "IFN" <harris@gc.maricopa.edu>
0.996 ( 14.9 / 15.0) 10 tye@fohnix.metronet.com (Tye McQueen)
0.930 ( 16.5 / 17.7) 8 Greg Bacon <gbacon@cs.uah.edu>
0.844 ( 7.4 / 8.7) 8 bart.mediamind@ping.be (Bart Lateur)
0.817 ( 9.9 / 12.1) 5 gregghill@my-dejanews.com
0.777 ( 3.3 / 4.2) 6 sb@engelschall.com (Steffen Beyer)
0.761 ( 7.5 / 9.9) 21 perlguy@technologist.com
0.758 ( 10.7 / 14.1) 16 tchrist@mox.perl.com (Tom Christiansen)
0.714 ( 5.6 / 7.9) 10 cberry@cinenet.net (Craig Berry)
0.706 ( 4.7 / 6.6) 7 hex@voicenet.com (Matt Knecht)
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.468 ( 2.9 / 6.1) 7 "Alistair Calder" <webmaster@topproducer.com>
0.434 ( 1.6 / 3.7) 6 Kelvin Price <kprice@cardinal.co.nz>
0.427 ( 2.4 / 5.5) 10 alastair@calliope.demon.co.uk
0.399 ( 2.1 / 5.2) 11 dformosa@zeta.org.au (David Formosa)
0.366 ( 19.1 / 52.1) 24 rjk@coos.dartmouth.edu (Ronald J Kimball)
0.365 ( 5.9 / 16.0) 15 abigail@fnx.com
0.348 ( 6.5 / 18.8) 29 Tk Soh <r28629@email.sps.mot.com>
0.344 ( 0.9 / 2.7) 5 phenix@interpath.com (John Moreno)
0.261 ( 0.7 / 2.7) 5 Mike <support@counter.w-dt.com>
0.256 ( 1.1 / 4.4) 5 "Matthew O. Persico" <mpersico@erols.com>
60 posters (12%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
126 Not to start a language war but..
66 Perl & Y2K - booby trap code
26 Very Large DBM file: Finding Number of keys
24 persistent variables ?
19 Why is junk being appended to my saved data file?
19 Checking Input for Exactly 2 numbers
18 Sending mail using perl
15 Easy Question: Rounding Numbers
15 Forcing perl to garbage collect
13 What isn't Perl good for?
These threads accounted for 25.0% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
271.6 (109.4/150.2/ 87.4) 126 Not to start a language war but..
136.7 ( 56.8/ 70.5/ 43.5) 66 Perl & Y2K - booby trap code
58.6 ( 20.6/ 36.5/ 24.0) 24 persistent variables ?
56.7 ( 20.2/ 33.6/ 21.4) 26 Very Large DBM file: Finding Number of keys
38.3 ( 12.1/ 26.0/ 23.5) 19 Why is junk being appended to my saved data file?
32.4 ( 0.7/ 31.4/ 7.2) 1 Help debugging a Perl script. [LONG]
28.7 ( 11.5/ 16.7/ 10.8) 12 Syntactic flexibility (was: Re: psychology of language choice (was Re: language war ...))
28.3 ( 9.0/ 17.5/ 12.0) 12 psychology of language choice (was Re: language war ...)
27.8 ( 11.0/ 15.7/ 7.4) 13 What isn't Perl good for?
27.4 ( 11.2/ 15.7/ 10.4) 15 Forcing perl to garbage collect
These threads accounted for 29.2% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.906 ( 23.5/ 26.0) 19 Why is junk being appended to my saved data file?
0.841 ( 7.8/ 9.2) 5 Perl require not always finishing on NT
0.827 ( 4.6/ 5.6) 7 Perl vs ASP in MS IIS 4.0
0.765 ( 1.5/ 2.0) 8 Checking for only numbers
0.762 ( 7.0/ 9.2) 5 Need help appending a string to a hash
0.738 ( 3.3/ 4.5) 5 do vs eval `` - perl book wrong?
0.733 ( 1.4/ 1.9) 5 easy way to learn perl?
0.729 ( 6.0/ 8.2) 7 new to perl (maybe)
0.704 ( 9.7/ 13.8) 7 newbie needs help with file comparison loop
0.695 ( 6.2/ 8.9) 8 Size of JPEG and GIF
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.485 ( 1.6 / 3.3) 8 Comparative modularization (was: Not to start a language war but..)
0.482 ( 2.6 / 5.3) 6 Python fun
0.474 ( 7.4 / 15.7) 13 What isn't Perl good for?
0.469 ( 5.5 / 11.7) 11 What is the "correct" location of perl under Solaris?
0.445 ( 3.5 / 7.9) 13 0 - 1 toggling question
0.434 ( 1.8 / 4.2) 7 socket connection via udp
0.416 ( 4.0 / 9.5) 10 RFC - Signature
0.404 ( 3.7 / 9.2) 8 What's with these Curly brackets???
0.392 ( 1.2 / 2.9) 5 non-looping range match
0.376 ( 1.0 / 2.7) 6 ANNOUNCE: New Arrival
66 threads (17%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
171 comp.lang.python
21 comp.lang.perl.modules
12 de.comp.lang.perl
7 comp.lang.perl
7 comp.lang.scheme
5 comp.lang.perl.moderated
3 comp.databases.sybase
2 comp.os.ms-windows.nt.admin.misc
2 comp.os.ms-windows.nt.setup.misc
2 comp.sys.sun.admin
Top 10 Crossposters
===================
Articles Address
-------- -------
25 John Porter <jdporter@min.net>
17 Jason Orendorff <jorendorff@ixl.com>
12 sb@engelschall.com (Steffen Beyer)
9 Zenin <zenin@bawdycaste.org>
8 ilya@math.ohio-state.edu (Ilya Zakharevich)
8 abigail@fnx.com
6 dkirby@see.sig.for.addr (Dave Kirby)
5 dformosa@zeta.org.au (David Formosa)
4 claird@Starbase.NeoSoft.COM (Cameron Laird)
4 clay@panix.com (clay irving)
------------------------------
Date: Mon, 02 Nov 1998 14:53:16 GMT
From: "Justin B. Harvey" <jbharvey@corp.home.net>
Subject: Re: Text::CSV install?
Message-Id: <363DC762.DCA018D@corp.home.net>
Try running "perl -MCPAN -e 1". That'll setup for you to personally use
CPAN. For make options put:
PREFIX=/home/youruserid INSTALLSITELIB=/home/youruserid/lib/perl
Replace with your appropriate path. Then add the environmental
variable:
PERLLIB /home/youruserid/perl:/home/jbharvey/lib/perl5
to your shell's rc file.
j
Steve Vertigan wrote:
>
> I have some scripts that use the Text::CSV module that I have to run on a
> user account on a remote system that I don't have root priviledges on.
> However the system doesn't have this module on it. I thought I may be able
> to install it in the accounts file space but didn't get further than running
> the Makefile.PL as it needs 5.004 and this system only has 5.003. I've
> contacted tech support and they've refused to put it on saying they "only
> provide modules that are part of the standard perl install". Does anyone
> have any suggestions as to what I can do here short of cancelling the
> account?
>
> Thanks,
> --Steve
------------------------------
Date: Mon, 02 Nov 1998 14:15:43 GMT
From: keydet89@yahoo.com
Subject: Tk on NT
Message-Id: <71keqe$kq4$1@nnrp1.dejanews.com>
Does anyone have any information regarding where to get
and how to install/use Tk on NT?
I read an article in WinNT magazine what described using Tk with
Perl on NT...but the author has never bothered to respond. What I
would like to do is install and use it myself, and then post what I
learned...
Carv
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 2 Nov 1998 10:29:55 -0500
From: clay@panix.com (clay irving)
Subject: Re: Tk on NT
Message-Id: <71kj5j$6ui@panix.com>
In <71keqe$kq4$1@nnrp1.dejanews.com> keydet89@yahoo.com writes:
>Does anyone have any information regarding where to get
>and how to install/use Tk on NT?
Try: http://www.scriptics.com/software/download.html
--
Clay Irving
clay@panix.com
------------------------------
Date: 12 Jul 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 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 4129
**************************************
