[12550] in Perl-Users-Digest
Perl-Users Digest, Issue: 6150 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jun 28 00:07:32 1999
Date: Sun, 27 Jun 99 21:00:17 -0700
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, 27 Jun 1999 Volume: 8 Number: 6150
Today's topics:
Re: @array= qx{<command>} - handling <uri@sysarch.com>
Communication between CGI and apache weixian_shen@my-deja.com
Re: compare two big files? <mkshanx@ust.hk>
Re: Comparing two associative arrays (John Cochran)
Re: Does Perl have a future? <mkshanx@ust.hk>
Re: floor and ceil <mhc@Eng.Sun.COM>
Re: Getting and using time <mkshanx@ust.hk>
Linux better than perl? (J.Y.)
Re: Linux better than perl? <tchrist@mox.perl.com>
Re: Linux better than perl? ()
Re: Linux better than perl? (Joseph Hertzlinger)
Re: matching meta tags (Mark P.)
Re: New Site about East Timor <uri@sysarch.com>
NEWBIE TRYING TO CODE (Cameron Graham)
NS 4.6 wrapping subject (was: FMTEYEWTK on shell globbi (J. Moreno)
Re: Perl Modules and Win98 <mkshanx@ust.hk>
Perl under Win32--file date. <jdsv@hotmailSpAmSuX.com>
Re-directing stderr (Greg Miller)
Re: Re-directing stderr <tchrist@mox.perl.com>
Re: Re-directing stderr (Greg Miller)
Re: Re-directing stderr (Martien Verbruggen)
Re: regex question <Gened@ohinter.net>
Re: Where can I download Perl? (Martien Verbruggen)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 27 Jun 1999 22:46:23 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: @array= qx{<command>} - handling
Message-Id: <x74sjt6o00.fsf@home.sysarch.com>
>>>>> "A" == Abigail <abigail@delanet.com> writes:
A> ## consider the following code:
A> ## bash$ perl -e '@array=qx{/usr/bin/printf "bla\nblub\n"}; print("*$array[0]*$array[1]*");'
A> ## *bla
A> ## *blub
A> ## *bash$
A> ##
A> ## ok, the two lines are split correctly into the array, but why does every
A> ## array variable still contain a trailing '\n'?
A> What makes you think those \n's shouldn't be there? You pass them to printf...
me thinks he thinks perl acts like shells which will split `` into words
(which are separted by blanks/tabs and/or newlines) AND strip the
newlines.
tested in both bash and csh:
/bin/echo "foo\nbar\n"
foo
bar
echo `/bin/echo "foo\nbar\n"`
foo bar
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: Mon, 28 Jun 1999 01:56:04 GMT
From: weixian_shen@my-deja.com
Subject: Communication between CGI and apache
Message-Id: <7l6knh$3vj$1@nnrp1.deja.com>
I am writing a web search engine. It search engine is very
CPU intensive, and may take up to 2~3 min to complete. I would
like to stop the search when users become inpatient and hit
the "STOP" button on the browser. Is there a way to detect that
from the CGI? I thought apache will send a SIGPIPE or SIGHUP,
but it doesn't. Any suggestion will be greatly appreciated.
Wei
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Sun, 27 Jun 1999 04:25:45 +0800
From: "Shashank Tripathi" <mkshanx@ust.hk>
Subject: Re: compare two big files?
Message-Id: <7l3ct3$i6o@ustsu10.ust.hk>
>> Can anybody suggest me what is the best way to compute difference
>> between two big files in Perl?
I might be way off base here, but usually for this kind of stuff I use
BEYOND COMPARE from scootersoft
http://www.scootersoftware.com/
HTH
Shanx
_____
Shashank Tripathi
http://shanx.com
------------------------------
Date: Sun, 27 Jun 1999 22:52:34 -0400
From: jdc@johnc.connectionsusa.com (John Cochran)
Subject: Re: Comparing two associative arrays
Message-Id: <i1o6l7.bnj.ln@johnc.connectionsusa.com>
In article <3776426b.3875343@news.skynet.be>,
Bart Lateur <bart.lateur@skynet.be> wrote:
>Rick Delaney wrote:
>
>>Okay, now explain the part where if %hash1 has all the same entries as
>>%hash2, %hash1 in list context will produce those elements in the same
>>order as %hash2 in list context.
>
>Because to the human beholder, the order of the keys LOOKS random, but
>in fact it is not. The exact order is determined by the hashing
>function. "Pseudo-random" is more like it. Therefore, if all keys are
>identical, their order (in "foreach (keys %hash)", for example) will be
>the same, too.
>
> Bart.
I wouldn't trust this if I were you. I can easily picture an example where
two keys hash to the same value. If this happens, the key order that a
foreach would show would be dependent on the order in which they were
inserted into the hash. If you really want to see if two hashes are equal
to each other, I'd suggest you rely on documented behaivor.
John
------------------------------
Date: Sun, 27 Jun 1999 04:18:00 +0800
From: "Shashank Tripathi" <mkshanx@ust.hk>
Subject: Re: Does Perl have a future?
Message-Id: <7l3cei$i5v@ustsu10.ust.hk>
It definitely does!
Java Servlets and other such technologies fail miserably on many accounts. I
have heard die-hard Java programmers say two things that might be pertinent
to mention here:
1) "Java Servlet" sounds like a hot new technology, SUPPORTED bya big
company (Sun) and hence makes it easier to sell a product to Venture
Capitalists. :)
2) "If done correctly, Java Servlets can be very fast too".
I bite my lip when either of the above is said. Perl has a very strong
community (and for an extremely good reason) while Java Servlets are still
gleams in SUN's eyes. I have seen many benchmarks with people claiming that
a combi of mod_perl and apache (for instance) sped their programs by about
1000 times. That is hardly a joke, however attractive it might be to venture
capitalists.
Lemme not rave on abt this, and just say this: Perl rules. (And will
continue to do so for a long time. Java just isnt made for certain things!)
HTH
Shanx
PS: Would it help to say that Microsoft is showing interest in Activestate
Perl (the win32 perl). Alas!
____
Shashank Tripathi
http://shanx.com
------------------------------
Date: 27 Jun 1999 18:56:00 -0700
From: Mike Coffin <mhc@Eng.Sun.COM>
Subject: Re: floor and ceil
Message-Id: <8p6lnd5ay1b.fsf@Eng.Sun.COM>
Kenneth Rose <kenrose@home.com> writes:
> Hi everyone,
>
> Just wondering if such functions exist: floor and ceil. Floor would
> return the greatest integer less than or equal to the argument. Ceil
> would return the least integer greater than or equal to the argument.
After
use POSIX;
both floor() and ceil() will be defined.
-mike
------------------------------
Date: Sun, 27 Jun 1999 04:08:54 +0800
From: "Shashank Tripathi" <mkshanx@ust.hk>
Subject: Re: Getting and using time
Message-Id: <7l3btg$i3a@ustsu10.ust.hk>
>Twarren10 (twarren10@aol.com) wrote:
>: Can anyone tell me how I can get the time in perl and print it out in
>:a log file so I can check it? Thanks,
i think this should give u what u want:
localtime(time())
shanx
------------------------------
Date: 28 Jun 1999 02:12:45 GMT
From: joey@hecnyyvr.com (J.Y.)
Subject: Linux better than perl?
Message-Id: <7l6lmt$vio$10@newsfeed.smartt.com>
Linux better than perl?
-JY
------------------------------
Date: 27 Jun 1999 20:23:30 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Linux better than perl?
Message-Id: <3776dca2@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc, joey@hecnyyvr.com (J.Y.) writes:
:Linux better than perl?
America better than roads!
--tom
--
Unix is defined by whatever is running on Dennis Ritchie's machine.
------------------------------
Date: 28 Jun 1999 03:40:07 GMT
From: mr@kells.kells ()
Subject: Re: Linux better than perl?
Message-Id: <slrn7ndrks.412.mr@kells.kells>
Engine better than car?
Martin
On 28 Jun 1999 02:12:45 GMT, J.Y. <joey@hecnyyvr.com> wrote:
>Linux better than perl?
>-JY
>
------------------------------
Date: 28 Jun 1999 03:42:17 GMT
From: jhertzli@ix.netcom.com (Joseph Hertzlinger)
Subject: Re: Linux better than perl?
Message-Id: <7l6qup$pjt@dfw-ixnews21.ix.netcom.com>
On 27 Jun 1999 20:23:30 -0700, Tom Christiansen <tchrist@mox.perl.com>
wrote:
>In comp.lang.perl.misc, joey@hecnyyvr.com (J.Y.) writes:
>:Linux better than perl?
>
>America better than roads!
Overheard remark: "Isn't HTML being replaced by Netscape?"
------------------------------
Date: Mon, 28 Jun 1999 02:16:28 GMT
From: mag@imchat.com (Mark P.)
Subject: Re: matching meta tags
Message-Id: <3776d9d8.2244305210@news.ionet.net>
>>
>>$string = /<META\s+NAME="description"\s+CONTENT=".*?">/i;
> ~~~
I caught that but the main problem was I wasn't pointing the file read
to the directory. I also changed things around a bit to just try and
get the title of a page. Figured that would be easier to start with.
The problem now is that the script only wants to read the title from
just one page. Don't ask me how it picks the one file to read the
title from.<G>
here's the new code.
foreach $extension (@extension){
opendir (COP, "$dir") || die $!;
@filenames = grep (/\.$extension$/i,readdir(COP));
closedir (COP);
foreach $file (@filenames)
{
open(FILE,"$dir/$file");
$string = <FILE>;
$string =~ s/^.*?<title>//igs;
$string =~ s/<\/title>.*?$//igs;
$string =~ s!<([^>]*?)>! !g;
close(FILE);
open(BRAVO, ">>siteindex.html");
print BRAVO "<a href=\"$file\" class=\"alt2\">$file</a>
$string<br>\n";
close(BRAVO);
}
}
------------------------------
Date: 27 Jun 1999 23:58:48 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: New Site about East Timor
Message-Id: <x71zex6knb.fsf@home.sysarch.com>
>>>>> "D" == DrCursor <drcursor@leirianet.pt> writes:
D> See http://www.leirianet.pt/~drcursor,
D> a new page about East-Timor, and politics...
D> You can publish your own texts or images
D> in this site.
is this an announcement of an East-Timor perl monger's group?
otherwise, why did you post it here? do you even know where you posted
it? or did you just spam us? do you even care? have you a clue?
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: Mon, 28 Jun 1999 02:16:54 GMT
From: cameron.graham@dse.gen.nz (Cameron Graham)
Subject: NEWBIE TRYING TO CODE
Message-Id: <930536214@dse.gen.nz>
ok guys ive been doing perl for maybe 3 weeks, i think i have (some of)
it sussed. i got a script that im writing that takes INPUTS from my
Applications page and writes the details in an appending txt file...now
i dont think this is extremely hard to do but i am having troubles....
heres the script:-
#!perl
### START OF SCRIPT ###
use strict;
read(@input); # PAGE DATA IS RECIEVED HERE
@pairs = split(/&/, $input);
# INPUTS FROM THE PAGE ARE
# TAKEN FROM HERE ON AND
# ASSIGNED VARIABLES.
main: {
my $name=@input{"name"};
if ( $name='' ) { my $error_string="Please give me your real name";
}
my $qname=@input{"qname"};
if ( $qname='' ) { my $error_string="Please give me your Quake name"
; }
my $age=@input{"age"};
if ( $age='' ) { my $error_string="Please give me your age"; } #20
my $pclans=@input{"pclans"};
my $whyjoin=@input{"whyjoin"};
if ( $whyjoin='' ) { my $error_string="Why do you wanna join NovA?";
}
my $whyletu=@input{"whyletu"};
if ( $whyletu='' ) { my $error_string="Why should we let you in NovA
?"; }
my $icqpros=@input{"icqpros"};
my $icqnet=@input{"icqnet"};
my $longon=@input{"longon"};
if ( $longon='' ) { my $error_string="How long have you been on Pros
per?"; }
}
&savefile;
sub savefile { # SAVES EVERYTHING TO A FILE
my $filename="apps.txt";
open(FILE, ">>$filename") || &html;
print FILE "********************************\n";
print FILE "NAME: $name\n"; #60
print FILE "QUAKE NAME: $qname\n";
print FILE "AGE: $age\n";
print FILE "PREVIOUS CLANS: $pclans\n";
print FILE "JOINING COS: whyjoin\n";
print FILE "WE SHOULD LET COS: $whyletu\n";
print FILE "BEEN ON PROSPER FOR: longon\n";
print FILE "********************************\n";
print FILE "\n";
close(FILE);
}
sub html {
#
# Prints a error message depending on the variables left out
# or if all ok, sends you to the page main.htm.
#
# $error_string = $_[0];
print "Content-type: text/html\n\n"; #80
print <<HTML;
<HTML>
<HEAD>
<TITLE>WHOOPS! - SOMETHING WENT WRONG!<TITLE>
</HEAD>
<BODY>
<h1>HAY!! $error_string</h1>
</BODY>
</HTML>
HTML
exit;
}
use CGI qw(:standard);
print redirect('thanx.htm');
### END OF SCRIPT ###
# MADE BY VeRTiGo-[NovA]
#
# EMAIL AT EITHER
# vertigo_nova@quakemail.com
# OR
# vertigo_nova@hotmail.com
#
# FEEL FREE TO EDIT THIS SCRIPT
# AND TELL ME IF IT WORKS!
# I KNOW NOTHING ABOUT CGI OR PERL ;)
#
# HAVE A NICE DAY
NOW!!
can someone please help me with this? i really need this done soon,
thanx ppl...
>VeRTiGo-[NovA]
------------------------------
Date: Sun, 27 Jun 1999 23:54:17 -0400
From: planb@newsreaders.com (J. Moreno)
Subject: NS 4.6 wrapping subject (was: FMTEYEWTK on shell globbing)
Message-Id: <1du30tf.1mjgs1sa2kbfiN@roxboro0-0035.dyn.interpath.net>
Tom Christiansen <tchrist@mox.perl.com> wrote:
> But did you know your newsreader is so broken that it actually had the
> audacity to *wrap* the subject line? My goodness, but I can't believe
> how fundamentally stupid consumerware is.
That's Netscape 4.6 doing it, and it does so in a way that can cause a
problem -- the folding leaves a trailing space, and depending upon
whether it is stripped off in transit or not (as well as how the
recipient treats the trailing white space), an extra space can be left
in the Subject which screws those newsreaders that thread/sort by
subject all to hell.
--
John Moreno
------------------------------
Date: Sun, 27 Jun 1999 04:19:41 +0800
From: "Shashank Tripathi" <mkshanx@ust.hk>
Subject: Re: Perl Modules and Win98
Message-Id: <7l3chn$i63@ustsu10.ust.hk>
HI Andrea
Read up "Using PPM" in your documentation.
PPM stands for Perl Package Manager, and is incredibly simple to use.
HTH
Shanx
Andrea Busia wrote in message <376fc3ce.36322282@news.tiscalinet.it>...
>Someone know how to install a perl module on the activestate perl
>5.00502 for win98? When I try to use the cgywin make for windows it
>gives me an error message like
>
>Makefile:771 *** Missing Separator. Stop.
>
>Thanks
>Andrea Busia
------------------------------
Date: Sun, 27 Jun 1999 21:28:32 -0600
From: "Jeremy" <jdsv@hotmailSpAmSuX.com>
Subject: Perl under Win32--file date.
Message-Id: <BZBd3.9574$xp4.319496@news.uswest.net>
How do I retrieve the date on a file with Perl under Win32?
-Jeremy
------------------------------
Date: Mon, 28 Jun 1999 02:40:21 GMT
From: gmiller@iglou.com (Greg Miller)
Subject: Re-directing stderr
Message-Id: <3777e061.316706619@news.alt.net>
How can stderr be redirected to stdio?
Greg Miller: Senior Consultant
Custom CGI Programming: www.iglou.com/mTech/
gmiller@iglou.com members.iglou.com/gmiller/
www.net-chess.com
------------------------------
Date: 27 Jun 1999 20:52:14 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Re-directing stderr
Message-Id: <3776e35e@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc, gmiller@iglou.com (Greg Miller) writes:
: How can stderr be redirected to stdio?
By reading the FAQ that's on your system because it comes with Perl.
--tom
--
Timesharing: the use of several people by the computer
------------------------------
Date: Mon, 28 Jun 1999 02:54:55 GMT
From: gmiller@iglou.com (Greg Miller)
Subject: Re: Re-directing stderr
Message-Id: <3778e3c0.317570429@news.alt.net>
On Mon, 28 Jun 1999 02:40:21 GMT, gmiller@iglou.com (Greg Miller)
wrote:
> How can stderr be redirected to stdio?
>
Found it just after I posted the question:
open(STDERR,">&STDOUT) || die;
Greg Miller: Senior Consultant
Custom CGI Programming: www.iglou.com/mTech/
gmiller@iglou.com members.iglou.com/gmiller/
www.net-chess.com
------------------------------
Date: Mon, 28 Jun 1999 03:21:33 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Re-directing stderr
Message-Id: <1TBd3.178$W92.6680@nsw.nnrp.telstra.net>
In article <3777e061.316706619@news.alt.net>,
gmiller@iglou.com (Greg Miller) writes:
> How can stderr be redirected to stdio?
huh? stdio? You mean stdout? Both of those are predefined constants in
<stdio.h>, and are therefore only useful in C programs.
Now, can you tell me what you really want?
1 - You have a Perl program, and you want to redirect its STDERR output
to its STDOUT,
a - in the program
i. - with minimal code changes
ii. - by rewriting it so it's easier to manage in the future
b - from the command line when you run the program,
i. - on a Unix variant
a. - in a sh derivative shell
b. - in a csh derivative shell
c. - in some other shell
ii. - on a MS Win* machine
iii. - on VMS
iv. - on a Mac
v. - somewhere else
2 - You are running an external program from perl with system,
backticks or qx//, and you want to capture its output to standard
output as well as standard error.
Some of these are actually answered in the FAQ, some others can be
distilled from the documentation, and some others are really not a
perl problem, but a lack of familiarity with your shell/environment.
There are too many answers here, so I won't even try to answer until
you have asked a question which is unambiguously interpretable.
Martien
--
Martien Verbruggen |
Interactive Media Division | In the fight between you and the world,
Commercial Dynamics Pty. Ltd. | back the world - Franz Kafka
NSW, Australia |
------------------------------
Date: Sun, 27 Jun 1999 23:19:04 -0400
From: Gene Dolgin <Gened@ohinter.net>
Subject: Re: regex question
Message-Id: <3776E9A8.380A6460@ohinter.net>
How do i set $1 and $2, i was told for some reason, that $1 and $2 would
automatically be the results...
Abigail wrote:
> Gene Dolgin (Gened@ohinter.net) wrote on MMCXXVI September MCMXCIII in
> <URL:news:37763557.82C201E4@ohinter.net>:
> ~~ I have a perl program to do a whois on a domain and pull the email of
> ~~ the administrative contact. Here it is:
> ~~ #!/usr/bin/perl
> ~~ $whois2 = `whois SETSTYLE-dom`;
> ~~ $whois2 =~ /\).*\@.*\..*/m;
> ~~ print "$whois2\n";
> ~~ print "$1\n";
> ~~ print "$2\n";
> ~~
> ~~ For some reason, this always returns blanks. What's wrong?
>
> Well, you never set $1 and $2 ....
>
> Abigail
> --
> srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
> //=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\n"
>
> -----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
> http://www.newsfeeds.com The Largest Usenet Servers in the World!
> ------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Mon, 28 Jun 1999 03:23:15 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Where can I download Perl?
Message-Id: <DUBd3.179$W92.6680@nsw.nnrp.telstra.net>
In article <7l6jjc$hre$1@imsp009a.netvigator.com>,
"Patrick" <pat4b@hongkong.com> writes:
> As title
>From the web. Try the first sitename that comes to mind, and you'll
very likely be successful.
HTH
Martien
--
Martien Verbruggen |
Interactive Media Division | Useful Statistic: 75% of the people
Commercial Dynamics Pty. Ltd. | make up 3/4 of the population.
NSW, Australia |
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 6150
**************************************
