[13174] in Perl-Users-Digest
Perl-Users Digest, Issue: 584 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Aug 19 08:08:24 1999
Date: Thu, 19 Aug 1999 05:05:10 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 19 Aug 1999 Volume: 9 Number: 584
Today's topics:
Re: Anyone have an example...Uploading Images? (Lou Hevly)
Re: Anyone have an example...Uploading Images? (Lou Hevly)
Bragging about killfiling (Was: New posters to comp.lan <I.Clarke@strs.co.uk>
Re: Bragging about killfiling (Was: New posters to comp <rra@stanford.edu>
Re: CGI and Blat - Help! <nick.sanders@lineone.net>
Re: cgi POST in Perl script? <zargo@siteiberica.com>
Re: Creating perl reports (Anno Siegel)
Re: FontMonkey <james.williamson@bbc.co.uk>
Re: HARASSMENT -- Monthly Autoemail <I.Clarke@strs.co.uk>
Re: HARASSMENT -- Monthly Autoemail <iic@dcs.ed.ac.uk>
Re: HARASSMENT -- Monthly Autoemail <I.Clarke@strs.co.uk>
Re: HARASSMENT -- Monthly Autoemail <I.Clarke@strs.co.uk>
Re: HARASSMENT -- Monthly Autoemail <I.Clarke@strs.co.uk>
Re: OOP in perl - not modules!!! <james.williamson@bbc.co.uk>
Perl compiler for DOS/Windows? <magnus_hult@my-deja.com>
Re: Perl compiler for DOS/Windows? <gellyfish@gellyfish.com>
Re: Perl compiler for DOS/Windows? <rhrh@hotmail.com>
Re: Perl compiler for DOS/Windows? <c4jgurney@my-deja.com>
Re: Perl on Linux and MS SQL 7.0 (David Pashley)
redbrick through perl (ErwanPia)
Re: Renaming Windows NT domain users <carvdawg@patriot.net>
System resources asssi@my-deja.com
use CGI qw(:standard); <Anttoni@iname.com>
Re: use CGI qw(:standard); <jpeterson@office.colt.net>
Re: use CGI qw(:standard); (Marcel Grunauer)
Re: what does eq do on lists? (Anno Siegel)
Re: what does eq do on lists? (Sam Holden)
Re: Why use Python when we've got Perl? <I.Clarke@strs.co.uk>
Re: Why use Python when we've got Perl? <I.Clarke@strs.co.uk>
Re: Why use Python when we've got Perl? <rra@stanford.edu>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 19 Aug 1999 09:39:29 GMT
From: lou@visca.com (Lou Hevly)
Subject: Re: Anyone have an example...Uploading Images?
Message-Id: <37bbd0b5.5614461@spamkiller.newsfeeds.com>
"Matt" <splinter@monmouth.com> wrote:
>Hi,
>
>Does anyone know where I can see an example script of someone's in which the
>script takes the multipart/form data from an image field and writes it in
>binary to a remote server (or the local computer for perl).
>
I interpret this to mean you wish to upload an image file from a
web-based form. If that is indeed the case, the following works for
me:
#!/usr/bin/perl -w
use strict;
use diagnostics;
use CGI;
my $q = new CGI;
my $image_dir = 'path/to/image_dir';
my $image_file = $q->param('image_file');
(my $file_name = $image_file) =~ s/^.*?([^\\\/]+)$/$1/;
my $uploaded_image = "$image_dir/$file_name";
open UPLOAD, ">$uploaded_image" or die $!;
binmode UPLOAD if $^O eq 'MSWin32';
my $buffer;
no strict 'refs';
while ( read($image_file, $buffer, 8192) ) {
print UPLOAD $buffer;
}
use strict;
close UPLOAD or warn $!;
--
Lou Hevly (JAPHW)
lou@visca.com
http://www.visca.com
------------------------------
Date: Thu, 19 Aug 1999 09:40:41 GMT
From: lou@visca.com (Lou Hevly)
Subject: Re: Anyone have an example...Uploading Images?
Message-Id: <37bbd0d3.5644281@spamkiller.newsfeeds.com>
"Matt" <splinter@monmouth.com> wrote:
>Hi,
>
>Does anyone know where I can see an example script of someone's in which the
>script takes the multipart/form data from an image field and writes it in
>binary to a remote server (or the local computer for perl).
>
I interpret this to mean you wish to upload an image file from a
web-based form. If that is indeed the case, the following works for
me:
#!/usr/bin/perl -w
use strict;
use diagnostics;
use CGI;
my $q = new CGI;
my $image_dir = 'path/to/image_dir';
my $image_file = $q->param('image_file');
(my $file_name = $image_file) =~ s/^.*?([^\\\/]+)$/$1/;
my $uploaded_image = "$image_dir/$file_name";
open UPLOAD, ">$uploaded_image" or die $!;
binmode UPLOAD if $^O eq 'MSWin32';
my $buffer;
no strict 'refs';
while ( read($image_file, $buffer, 8192) ) {
print UPLOAD $buffer;
}
use strict;
close UPLOAD or warn $!;
--
Lou Hevly (JAPHW)
lou@visca.com
http://www.visca.com
------------------------------
Date: Wed, 18 Aug 1999 09:50:51 +0100
From: Ian Clarke <I.Clarke@strs.co.uk>
Subject: Bragging about killfiling (Was: New posters to comp.lang.perl.misc)
Message-Id: <37BA73EB.AF8583@strs.co.uk>
> 30% of them managed to end up in my killfile in the same week
> they started posting here.
I am sure that really upset them.
I am getting pretty sick of this whole killfile thing, particularly
those who get into an argument, and then half way through killfile the
person they are arguing with. In my view, this is the most blatant and
pigheaded way to admit defeat in a debate.
Anybody I see boasting about how many people they have killfiled
instantly lose my respect (and that now means many of the regulars in
C.L.P.M - you know who I am talking about).
I suggest as a matter of courtesy that if you must killfile someone,
inform them privately in an email. That way it is apparent that you are
not trying to win an argument by blocking your ears.
Ian.
------------------------------
Date: 19 Aug 1999 03:08:07 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: Bragging about killfiling (Was: New posters to comp.lang.perl.misc)
Message-Id: <ylr9l09j7c.fsf@windlord.stanford.edu>
Ian Clarke <I.Clarke@strs.co.uk> writes:
> I am getting pretty sick of this whole killfile thing, particularly
> those who get into an argument, and then half way through killfile the
> person they are arguing with. In my view, this is the most blatant and
> pigheaded way to admit defeat in a debate.
The only thing that's more annoying than people posting public *plonk*
notices are the people who then post whole threads discussing how horrible
public *plonk* messages. Hey guys, discussion of noise is still noise.
In some effort to bring some signal to a thread on killfiles, here's my
current Gnus scorefile for comp.lang.perl.*. Notice the absence of author
kills (although it certainly has author selects). Those asking questions
would be well-advised to avoid the content-free terms "help" and "guru"
and insulting themselves with "newbie" -- I know there are at least
several of us who killfile threads with those subjects because those words
in Subject headers are good indicators of poorly phrased or understood
questions.
The somewhat cryptic first regex kills everything with a Subject entirely
in uppercase; I dislike being yelled at.
(("subject"
("^\\(Re: \\)*[^a-z\n]*$" -100 nil R)
("!!!" -100 nil s)
("guru" -100 nil s)
("help *!" -100 nil r)
("HELP" -100 nil S)
("\\(^\\| \\)newb[ieys]*\\($\\|[ :,]\\)" -100 nil r)
("(none)" -100 nil s)
("no subject" -100 nil s)
("perl *4" -100 nil r)
("win\\(dows\\)? *\\(32\\|95\\|3.?1\\|nt\\)" -100 nil r)
("NT" -100 nil S)
("VMS" -100 nil S)
("IIS" -100 nil S)
("MS-?DOS" -100 nil r)
("cgi" -100 nil s)
("html" -100 nil s)
("money fast" -100 nil s))
("from"
("Larry Wall" 800 nil s)
("tchrist@mox.perl.com" 500 nil s)
("mjd@op.net" 200 nil s)
("Tim Pierce" 200 nil s)
("merlyn@stonehenge.com" nil nil s)
("chip@.*atlantic\\.net" nil nil r)
("eryq@enteract.com" nil nil s)
("Andy Dougherty" nil nil s)
("Dean Roehrich" nil nil s)
("Eric Arnold" nil nil s)
("Gurusamy Sarathy" nil nil s)
("Malcolm Beattie" nil nil s)
("Tim.Bunce" nil nil s))
("xref"
(":.*:.*:.*:.*:" -100 nil r)))
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: Wed, 18 Aug 1999 16:30:02 +0100
From: Nick Sanders <nick.sanders@lineone.net>
To: imark@csource.net
Subject: Re: CGI and Blat - Help!
Message-Id: <37BAD17A.178485C0@lineone.net>
I hope this helps.Blat needs to be on the path otherwise use the full path.
There's not much more I can say.
open (MAILFILE, ">$doc_root\\data\\mailfile.dat") or die "Can't open
mailfile for writing - $!\n";
print MAILFILE "text to mail";
close (MAILFILE);
$recip = "-t imark\@csource.net"; ## -t + recipinet email address
$subj = "-s \"Subject\""; ## -s + subject text
$sender = "-f imark\@csource.net"; ## -f + sender email address
$command = "blat $doc_root\\data\\mailfile.dat $recip $subj $sender";
$out = `$command`;
open (OUTFILE, ">$doc_root\\data\\outfile.dat") or die "Can't open
$doc_root\\data\\outfile.dat for writing - $!\n";
print OUTFILE $out;
close (OUTFILE);
Nick
imark@csource.net wrote:
> Hi,
>
> I really hoping someone might be able to help me or point me to someone
> who
> can. I'm running a shopping cart cgi script on a secure WinNT server.
> Unfortunately I'm getting dick all tech support from the makers of the
> shop cart software. We have Blat 1.8.4 installed and it runs fine from
> the command line. The cgi script runs fine until I submit the order then
> I get the error "Can not send mail. Please check mailer specification".
>
> It seems as though the script can't find Blat to mail the order but I
> know next to nothing about cgi. The shop cart software automatically
> sets the script up for use with Blat. All I have to do is specify the NT
> Mail Server for which we're using the mailer on our regular Unix server.
> I thought maybe this was the problem but Blat runs fine from a command
> line. Blat is there to redirect the mail from the NT server to to the
> mailer on the Unix server, correct?
>
> At this point I'm ready to pay anyone who can figure out why the script
> won't mail out the order.
> I'm going to lose a client any day now if I don't get this figured out.
> I'm not sure if the problem is with the cgi script (which is supposedly
> all set up for Blat) or with a server configuration.
>
> If your interested in helping let me know and I'll send you the script
> and other related info. Thanks. Looking forward to hearing from you.
>
> Derek Stewardson
>
> Sent via Deja.com http://www.deja.com/
> Share what you know. Learn what you don't.
------------------------------
Date: Thu, 19 Aug 1999 11:41:25 +0200
From: "Zargo A. Claudios" <zargo@siteiberica.com>
Subject: Re: cgi POST in Perl script?
Message-Id: <37BBD144.38BBED1@siteiberica.com>
and another problem ...
how to make a POST in perl script to a https (under SSL conection)?
------------------------------
Date: 19 Aug 1999 11:39:54 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Creating perl reports
Message-Id: <7pgqea$7ph$1@lublin.zrz.tu-berlin.de>
brian d foy <brian@pm.org> wrote in comp.lang.perl.misc:
>In article <1dwr45o.unyf3q1iudiiwN@p20.block2.tc1.state.ma.tiac.com>, rjk@linguist.dartmouth.edu (Ronald J Kimball) posted:
>
>> Bill <isspecial@fast.net> wrote:
>>
>> > I'm new to perl programming and was wondering if there is any utility
>> > or package out there to allow me to design a perl report using a
>>
>> What is a "perl report"?
>
>that would be soemthing made with write(), i would think. that R part
>of Perl. :)
Lessee... that would be "rubbish".
Anno
------------------------------
Date: Thu, 19 Aug 1999 11:49:20 +0100
From: "James Williamson" <james.williamson@bbc.co.uk>
Subject: Re: FontMonkey
Message-Id: <7pgni8$kgl$1@nntp0.reith.bbc.co.uk>
P.D. Magnus wrote in message ...
> When I began developing my website, I was disappointed that I couldn't
>find a shareware or freeware cgi counter that would present the output as
>one graphic-- the only ones I could find output an ascii number or a chain
>of IMG tags. In the course of writing such a thing, I wrote a general
>purpose module which assembles alphanumeric messages into gif's in several
>different layouts and fonts. It took some work and it's fairly robust, but
>it's no killer app-- it uses GD for graphic handling.
> So, my question is this: should I make this available as freeware? I'd
>have to write some docs for it and so on, but it'd be no big deal if anyone
>might use it. If such a things already exists somewhere or if it would fall
>still-born from the press, however, I'll just go on with other things.
> I guess my question is as much about the Perl community as about
>anything. Is this the sort of thing that one makes publicly available?
Why don't you try www.cpan.org?
James
------------------------------
Date: Tue, 17 Aug 1999 09:18:46 +0100
From: Ian Clarke <I.Clarke@strs.co.uk>
To: I R A Darth Aggie <fl_aggie@thepentagon.com>
Subject: Re: HARASSMENT -- Monthly Autoemail
Message-Id: <37B91AE6.3B79A36@strs.co.uk>
> I'll accept your apology for that smear any time once you figure out
> that the culture of Usenet says that email-followups to a posting is
> acceptable.
But there is a big difference between a courtesy follow-up, and regular
*automatic* emails designed purely to irritate. That is what we are
talking about here - use of Usenet, and email with the pure intention of
irritating someone.
Any idiot could set up an automatic email to somebody, but only one
idiot actually did it.
Ian.
------------------------------
Date: Tue, 17 Aug 1999 09:33:57 +0100
From: I Clarke <iic@dcs.ed.ac.uk>
Subject: Re: HARASSMENT -- Monthly Autoemail
Message-Id: <37B91E75.AE68B1FC@dcs.ed.ac.uk>
> *plonk*
Oh no! Please don't ignore my postings! I *really* care that you are
listening! You are *so* important, all of you c.l.p.m regulars, and you
have every right to intimidate other usenet users for breaches of usenet
etiquette while completely ignoring it yourself - because you are
*Gods*!
Then again, I guess the only way that such assholes can stick around for
so long without realising that they are assholes is by blocking out any
criticism.
I am sick of hearing their crap - *plonk* *plonk*
Ian.
------------------------------
Date: Tue, 17 Aug 1999 09:55:50 +0100
From: Ian Clarke <I.Clarke@strs.co.uk>
Subject: Re: HARASSMENT -- Monthly Autoemail
Message-Id: <37B92396.495317B5@strs.co.uk>
> I'm beginning to understand - I am certain you believe what you know to
> be true.
As does everyone - what a stupid statement to make!
> But really, where did that belief come from?
Do you need a FAQ to tell you everything? "1.1 Breathing: breath in,
breath out, breath in, breath out". The open nature of Usenet and Email
permits emails to be sent freely and without cost. Spammers are
correctly vilified for exploiting this fact for personal profit, so why
shouldn't Tom C be vilified for exploiting this to irritate a fellow
Usenet user? Because he has written a book? Because he is a CLPM
regular? Because you want to do some brown-nosing? You are pathetic.
> Please, point me to a netiquette guide, your AUP, your TOS, a FAQ,
> something, just one well distributed source which says that posting to
> Usenet does not solicit, does not permit, email replies - just so I can
> understand your point of view. If it's something that "everyone" knows
> because it's published somewhere the same "everyone" goes, I've never
> been there and I'd like to go - It might help me clear up some
> misunderstandings I have.
Big difference between an email reply, and an automatically generated
regular email to an email address from which you are ignoring replies.
That is the same as blocking your ears while following someone around
shouting at them. Is that your idea of good manners?
Face it, you are losing the argument, you don't have a leg to stand on,
and your really sad attempt to gain favour with Tom C is making me sick.
Go ahead, kilfile me if you can't defend yourself (like I R A Darth
Aggie).
Ian.
------------------------------
Date: Tue, 17 Aug 1999 11:11:58 +0100
From: Ian Clarke <I.Clarke@strs.co.uk>
To: Dave Salovesh <darsal@erols.com>
Subject: Re: HARASSMENT -- Monthly Autoemail
Message-Id: <37B9356E.1EBC75B@strs.co.uk>
> >> I'm beginning to understand - I am certain you believe what you know to
> >> be true.
> >As does everyone - what a stupid statement to make!
> Haven't read much Plato, have you?
Trying to patronize me won't disguise the fact that you, or those you
appear to support, have no argument. But since you bring it up, I have
read some Plato. He attempted to confuse those he argued with by
patronizing them too, the difference between you and him is that he was
quite good at it.
> Maybe I'm wrong in what I think, but if so I'd like to know where I went
> wrong.
> There are several possibilities for the germ of the other idea -
> it was invented anew, it is written verbatim somewhere, or it is an idea
> composed of other ideas. In the latter cases, I'd like to review what
> people who aren't involved in this brouhaha had to say. But in the
> first case, it isn't quite the universal truth some seem to claim it is.
Why are you taking what is actually a simple question of what is
considered acceptable Usenet behaviour, and trying to turn it into an
abstract philosophical debate about the nature of argument? Might it be
that you are attempting to distract attention from then fact that you
(or those you appear to support) are wrong?
> I didn't know who Tom C. is until this thread. I don't do perl. I
> don't even knit.
Well, FYI most of those defending him on clpm are doing so because they
consider him to be a Perl "guru", and they seem to believe that because
of this he has the right to harass other Usenet users.
> And there's nothing to win or lose in this argument. I thought maybe I
> could build someone's understanding of the tao involved, but I see now
> that nobody cares about tao, they want to win, no matter how foolish or
> stupid they have to act along the way.
Again, you are trying to create a smokescreen around the debate... why?
Stay on topic please. The point of this thread is to debate whether it
is acceptable to set up a regular, unwanted email, designed to irritate,
while ignoring any protests from the person you are victimizing. My
reasons for posting to this thread is because I feel that bullying
should not be tolerated, even on Usenet - regardless of who is doing it.
Stop beating around the bush! Do you, or do you not feel that Tom C's
behaviour is acceptable?
Ian.
------------------------------
Date: Wed, 18 Aug 1999 09:21:32 +0100
From: Ian Clarke <I.Clarke@strs.co.uk>
Subject: Re: HARASSMENT -- Monthly Autoemail
Message-Id: <37BA6D0C.7D398B65@strs.co.uk>
John Stanley wrote:
> That's right, Dave. You haven't shown me anything that supports your
> claim that posting is solicitation of email.
For crying out loud! Don't you see that you have been sidelined from
the real issue (whether it is right to set up an *automatic* email
designed to irritate and annoy) which you could defend, to a different
issue that you probably can't? (whether a newsgroup posting is
solicitation of email).
You should choose your battles more carefully.
Ian.
------------------------------
Date: Thu, 19 Aug 1999 11:41:14 +0100
From: "James Williamson" <james.williamson@bbc.co.uk>
Subject: Re: OOP in perl - not modules!!!
Message-Id: <7pgn32$k9m$1@nntp0.reith.bbc.co.uk>
prasad@chetana.com wrote in message <7pg3g9$6ik$1@nnrp1.deja.com>...
>Hello,
>
>I want to write completely object oriented programs in perl. I read the
>PERLTOOT several times. I have done few small programs in C++ in my
>programming class. But it still seemed to be confusing to start writing
>OO perl programs.
As far as I'm aware a big limitation within Perl in attempting to fully
embrace OOP is you can't inherit class variables.
James
------------------------------
Date: Thu, 19 Aug 1999 10:45:12 GMT
From: Magnus Hult <magnus_hult@my-deja.com>
Subject: Perl compiler for DOS/Windows?
Message-Id: <7pgn7n$k6n$1@nnrp1.deja.com>
Hello,
when coding Perl some time ago I found out it was very expensive
(minute fee on telephone in Sweden) to be connected all the time while
programming. Therefore I wonder: are there any Perl "compilers" that
run under DOS or Windows, so that I can test my code disconnected? Else
I'm going to be ruined.
--
Magnus Hult
magnus_hult@hotmail.com
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 19 Aug 1999 12:24:12 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Perl compiler for DOS/Windows?
Message-Id: <37bbe95c_1@newsread3.dircon.co.uk>
Magnus Hult <magnus_hult@my-deja.com> wrote:
> Hello,
>
> when coding Perl some time ago I found out it was very expensive
> (minute fee on telephone in Sweden) to be connected all the time while
> programming. Therefore I wonder: are there any Perl "compilers" that
> run under DOS or Windows, so that I can test my code disconnected? Else
> I'm going to be ruined.
>
<http://www.activestate.com> for Win32
or
<ftp://ftp.globalnet.co.uk/pub/simtelnet/gnu/djgpp/v2gnu/perl552b.zip>
For 16 Bit windows or extended DOS (The djgpp runtime can be got
from <http://www.delorie.com>)
/J\
--
"You look lovely this evening. Have you decreased in mass?" - Alien,
The Simpsons
------------------------------
Date: Thu, 19 Aug 1999 12:29:22 +0100
From: Richard H <rhrh@hotmail.com>
Subject: Re: Perl compiler for DOS/Windows?
Message-Id: <37BBEA92.2C5A414B@hotmail.com>
Magnus Hult wrote:
>
> Hello,
>
> when coding Perl some time ago I found out it was very expensive
> (minute fee on telephone in Sweden) to be connected all the time while
> programming. Therefore I wonder: are there any Perl "compilers" that
> run under DOS or Windows, so that I can test my code disconnected? Else
> I'm going to be ruined.
>
download perl for windows from
http://www.activestate.com
once you've got over the cost of the download you can run Perl to your
hearts content, then read the docs that come with it,
Richard H
------------------------------
Date: Thu, 19 Aug 1999 11:52:31 GMT
From: Jeremy Gurney <c4jgurney@my-deja.com>
Subject: Re: Perl compiler for DOS/Windows?
Message-Id: <7pgr5s$mqr$1@nnrp1.deja.com>
In article <7pgn7n$k6n$1@nnrp1.deja.com>,
Magnus Hult <magnus_hult@my-deja.com> wrote:
> Hello,
>
> when coding Perl some time ago I found out it was very expensive
> (minute fee on telephone in Sweden) to be connected all the time while
> programming. Therefore I wonder: are there any Perl "compilers" that
> run under DOS or Windows, so that I can test my code disconnected?
Else
> I'm going to be ruined.
>
> --
> Magnus Hult
> magnus_hult@hotmail.com
www.ActiveState.com
Jeremy Gurney
SAS Programmer | Proteus Molecular Design Ltd.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Thu, 19 Aug 1999 09:46:33 +0100 (BST)
From: cszdp@cslin002.leeds.ac.uk (David Pashley)
Subject: Re: Perl on Linux and MS SQL 7.0
Message-Id: <1999Aug19.084633.25125@leeds.ac.uk>
Juan Riera's words, in praise for the llamas, were:
> Hello,
> Does anybody know any DBI/DBD interface to access MS SQL 7.0 on NT from a
> CGI perl script on Linux ?
>
I'm not sure, but I seem to remember that MS SQL was very similar to
sybase. There is also a DBD::ODBC. Your probably better off trying the
second.
--
David Pashley
david@davidpashley.com
http://www.davidpashley.com
Now he understood - "If it ain't broken, don't fix it"
------------------------------
Date: 19 Aug 1999 10:10:59 GMT
From: erwanpia@aol.com (ErwanPia)
Subject: redbrick through perl
Message-Id: <19990819061059.21909.00001414@ng-ch1.aol.com>
Hi,
has anyone ever linked in a redbrick datamart system through Perl without
launching the RISQL (I mean using direct calls from within Perl) ?
Thanks.
Erwan Pianezza,
AOL Dublin.
------------------------------
Date: Thu, 19 Aug 1999 06:34:09 -0400
From: "Harlan Carvey, CISSP" <carvdawg@patriot.net>
Subject: Re: Renaming Windows NT domain users
Message-Id: <37BBDDA1.CE4E88B6@patriot.net>
Besides the suggestion of using Win32::AdminMisc, you might also consider
using Win32::Lanman, found in Dave Roth's FTP site...ftp.roth.net.
If you have any questions, Dave's set up a news server...news.roth.net
------------------------------
Date: Thu, 19 Aug 1999 10:41:07 GMT
From: asssi@my-deja.com
Subject: System resources
Message-Id: <7pgn02$k4s$1@nnrp1.deja.com>
When programming for the NT platform, what do you think would run
faster, an executable code compiled from C language (EXE) file or a perl
script?
I need that for an application that will have to deal with massive
traffic, so it becomes critical,
thanks
please also reply to this via email at asssi@deja.com
thanks again! :)
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Thu, 19 Aug 1999 11:56:32 +0300
From: Anttoni Huhtala <Anttoni@iname.com>
Subject: use CGI qw(:standard);
Message-Id: <37BBC6C0.C3067FFF@iname.com>
having a problem with use CGI qw(:standard);
ok, this is my code,
use CGI qw(:standard);
print header(), start_html("Hi");
print h1("hello");
print end_html();
and i get this :
(offline mode: enter name=value pairs on standard input)
------------------------------
Date: Thu, 19 Aug 1999 09:20:17 GMT
From: Jon Peterson <jpeterson@office.colt.net>
Subject: Re: use CGI qw(:standard);
Message-Id: <l%Pu3.173$u07.1305@news.colt.net>
Anttoni Huhtala <Anttoni@iname.com> wrote:
> having a problem with use CGI qw(:standard);
> and i get this :
> (offline mode: enter name=value pairs on standard input)
This is correct behaviour if you are running your script from the command
line. If you don't want any values, just hold down the Ctrl key and press d
to continue running the script. If you want to submit some test values to
emulate running from a web server enter each name value pair on a new line,
with names separated from values with '=' thusly:
name1=value1
name2=value2
Also, do 'perldoc CGI' to read the documentation for CGI.pm
------------------------------
Date: Thu, 19 Aug 1999 09:19:44 GMT
From: marcel.grunauer@lovely.net (Marcel Grunauer)
Subject: Re: use CGI qw(:standard);
Message-Id: <37bdd9e6.2326575@news>
On Thu, 19 Aug 1999 11:56:32 +0300, Anttoni Huhtala
<Anttoni@iname.com> wrote:
>having a problem with use CGI qw(:standard);
>ok, this is my code,
>
>use CGI qw(:standard);
>print header(), start_html("Hi");
>print h1("hello");
>print end_html();
>
>and i get this :
>(offline mode: enter name=value pairs on standard input)
Just as you should.
When running a program that uses CGI.pm from the command line, it asks
for this kind of input so you can simulate passing query string
parameters as though from a browser. Very handy as well. Enter your
parameters, then a new line and ^D or ^Z (depending on platform) to
signal the end of your input. The program will then continue.
But you can turn it off, if you want. See the CGI.pm documentation for
-no_debug.
Marcel
--
perl -e 'print unpack(q$u$,q$82G5S="!!;F]T:&5R(%!E<FP@2&%C:V5R$)'
------------------------------
Date: 19 Aug 1999 11:16:18 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: what does eq do on lists?
Message-Id: <7pgp22$7no$1@lublin.zrz.tu-berlin.de>
Larry Rosler <lr@hpl.hp.com> wrote in comp.lang.perl.misc:
>[Posted and a courtesy copy sent.]
>
>In article <dM33c2i67iQd-pn2-jZpV4r6iEUDm@cheetah> on 19 Aug 1999
>05:25:12 GMT, William Herrera <posting.account@lookout.com> says...
>> On Wed, 18 Aug 1999 23:31:01, "John M. Dlugosz" <john@dlugosz.com>
>> wrote:
>...
>> > > look up join in perlfunc
>> >
>> > Why would I want to do that?
>>
>> Because it creates the actions you want in order to do an element
>> compare of the list and the array.
>>
>> ie
>>
>> $my_sep = '\0'; # choose something never in the stuff to compare we
>> hope
Here he points out the necessary restriction...
>> join($my_sep, @a[0..3]) eq join($my_sep, @b);
>
>Heh, heh, heh. Not quite right. Try this to see why:
>
>#!/usr/local/bin/perl -w
>use strict;
>
>my $sep = '\0';
>join($sep => qw(a\0b c)) eq join($sep => qw(a b\0c)) and
...which you violate.
> print "matched1\n";
Anno
------------------------------
Date: 19 Aug 1999 11:45:23 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: what does eq do on lists?
Message-Id: <slrn7rnrjk.2an.sholden@pgrad.cs.usyd.edu.au>
On Wed, 18 Aug 1999 11:41:18 +0200,
Philip 'Yes, that's my address' Newton <nospam.newton@gmx.net> wrote:
>Sam Holden wrote:
>>
>> Or you could use join() to create the strings to compare, but
>> then you have the problem of what to use as the first argument to
>> join, so you don't get any collisions.
>
>$; might be a value to start with, since \034 is unlikely to occur in
>data.
Unlikely doesn't really cut it, if it is does use '\0', but I'm sure someone has
suggested that already...
--
Sam
Basically, avoid comments. If your code needs a comment to be
understood, it would be better to rewrite it so it's easier to
understand. --Rob Pike
------------------------------
Date: Tue, 17 Aug 1999 10:02:50 +0100
From: Ian Clarke <I.Clarke@strs.co.uk>
Subject: Re: Why use Python when we've got Perl?
Message-Id: <37B9253A.226019B1@strs.co.uk>
> Yes, it is a bad thing. It may sometimes be a necessary thing, but
> inciting flames is always bad.
Explain? If something is nescessary, how can it always be bad? If
something is nescessary doesn't that mean it can do good?
Ian.
------------------------------
Date: Wed, 18 Aug 1999 09:48:11 +0100
From: Ian Clarke <I.Clarke@strs.co.uk>
Subject: Re: Why use Python when we've got Perl?
Message-Id: <37BA734B.E0C6A823@strs.co.uk>
> >> The problem in comp.lang.perl.misc is not the beginners -- it is
> >> the regulars.
> Come on guys, this is not useful, not nice, and not true. Yes, of course
> people snap, and sometimes they make the mistake of not being diplomatic,
> but *everybody* makes this mistake, definitely including Ian Clarke with
> this very stupid title he chose. :)
Hey! I was quite proud of that title ;-)
As for the C.L.P.M regulars, I agree with the statement you quote, and
damn the consequences. Never mind not being diplomatic, those guys are
*consistently* arrogant, and rude. One of their favourite tricks is to
start an argument with you and then inform you that you have been
killfiled (I have seen it happen many many times, to many many people).
If you don't believe me have a hunt in deja-news for a few of their
utterances. Tom Christiansen is a particularly good example, and the
situation is made worse by the way the other regulars suck up to his
every action (see "HARASSMENT -- Monthly Autoemail" thread in CLPM for a
graphic demonstration of this).
Ian.
------------------------------
Date: 19 Aug 1999 03:00:25 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: Why use Python when we've got Perl?
Message-Id: <ylu2pw9jk6.fsf@windlord.stanford.edu>
Ian Clarke <I.Clarke@strs.co.uk> writes:
> Explain? If something is nescessary, how can it always be bad?
A good example is killing people. It's always bad to kill people. It's
just sometimes the lesser of two evils.
> If something is nescessary doesn't that mean it can do good?
Nothing is completely black and white, but neither (at least in my
opinion) do the ends justify the means. But this is drifting into very
non-Perlish philosophical areas. :)
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 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.
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" from
almanac@ruby.oce.orst.edu. The real FAQ, as it appeared last in the
newsgroup, can be retrieved with the request "send perl-users FAQ" from
almanac@ruby.oce.orst.edu. 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" from
almanac@ruby.oce.orst.edu.
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 584
*************************************
