[12446] in Perl-Users-Digest
Perl-Users Digest, Issue: 6045 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jun 18 13:07:24 1999
Date: Fri, 18 Jun 99 10:00:30 -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 Fri, 18 Jun 1999 Volume: 8 Number: 6045
Today's topics:
[OT] Re: Source Control <ludlow@us.ibm.com>
Re: a thread on threads (Matthew Bafford)
Re: a thread on threads (Abigail)
Re: Afraid to ask about Y2K! <camerond@mail.uca.edu>
Re: Afraid to ask about Y2K! (Lee)
Re: Bit Twiddling Troubles <bshair@itds.com>
Re: CGI Simple Question <perlguy@technologist.com>
Re: environnement vars & external program <rootbeer@redcat.com>
Re: Extract mail-headers with Net::POP3 <rootbeer@redcat.com>
Re: filenames into an array by pattern matching? <rootbeer@redcat.com>
Re: Having trouble making this work... (Larry Rosler)
Re: Help regular expressions (Abigail)
Re: help with unlink (Abigail)
Re: help with unlink (Abigail)
Re: Hex to Decimal?? <dgris@moiraine.dimensional.com>
How I do setup cookie? deafclub@my-deja.com
Re: how to invoke multipart script from a script? <rootbeer@redcat.com>
Re: HOWTO compare two arrays, an get the difference (Abigail)
Re: Is Perl4 Y2K compliant? (Abigail)
JPEG height/width <redmeat@freei.net>
Re: Launch a New Browser Window (Abigail)
Re: looking for script to monitor acct abuse <rootbeer@redcat.com>
Re: Losing referrer information when passing through a <gellyfish@gellyfish.com>
math::Matrix casey@f5.com
Re: matinal musings and the madrugada <dgris@moiraine.dimensional.com>
Re: matinal musings and the madrugada (Abigail)
Re: multidimensional arrays with functions push and pop <craig@mathworks.com>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 18 Jun 1999 11:01:12 -0500
From: James Ludlow <ludlow@us.ibm.com>
Subject: [OT] Re: Source Control
Message-Id: <376A6D48.556734AE@us.ibm.com>
Rjack2 wrote:
> I need a source control method for Perl and Java code. I work on PCs mainly,
> but also do a little work on Macs and Unix.
>
> Any inexpensive solutions here?
Check out www.gnu.org. They've got what you need and plenty more. You
might be most interested in CVS or RCS, but there are certainly others.
Also, in the future, please refrain from asking non-Perl related
questions in this newsgroup. Source control is source control, no
matter what language you're using.
--
James Ludlow (ludlow@us.ibm.com)
(Any opinions expressed are my own, not necessarily those of IBM)
------------------------------
Date: Fri, 18 Jun 1999 16:08:00 GMT
From: dragons@dragons.duesouth.net (Matthew Bafford)
Subject: Re: a thread on threads
Message-Id: <slrn7mkq1k.j2.dragons@dragons.duesouth.net>
On 18 Jun 1999 06:47:03 -0700, Tom Christiansen <tchrist@mox.perl.com>
held some poor sysadmin at gun point while typing in the following:
: You are a programmer, so program. :-) Write some fancy LWP program
: that filters for just what you want. Probably give in a CGI front-end.
: Return it to what it used to look like, before the advercrap.
http://www.deja.com/=dnc/
gives you something very similar to what it was like before s/news//.
: --tom
--Matthew
------------------------------
Date: 18 Jun 1999 09:20:21 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: a thread on threads
Message-Id: <slrn7mkld2.ga3.abigail@alexandra.delanet.com>
Uri Guttman (uri@sysarch.com) wrote on MMCXVII September MCMXCIII in
<URL:news:x7909iar0t.fsf@home.sysarch.com>:
%%
%% what about the other new archives? i see one called remarq and abigail
%% seems to be posting from another. any good for searches? no reason to be
%% loyal to deja. i never care about anything there but searches.
I'm not posting from an archive. I just have an ISP with incompetent
administrators, who can't manage Usenet themselves, and hence have
to buy the services from somewhere else.
Unfortunally, newsfeeds.com themselves is not competent enough to run
Usenet services either.
Abigail
--
perl -MNet::Dict -we '(Net::Dict -> new (server => "dict.org")
-> define ("foldoc", "perl")) [0] -> print'
-----------== 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: Fri, 18 Jun 1999 10:37:51 -0500
From: Cameron Dorey <camerond@mail.uca.edu>
To: tadmc@metronet.com
Subject: Re: Afraid to ask about Y2K!
Message-Id: <376A67CF.DC414B9A@mail.uca.edu>
[cc'd to tm]
tadmc@metronet.com wrote:
>
> In article <376A586E.B050BBAD@mail.uca.edu> you wrote:
>
> : One thing's for certain, you won't find any Y2K problems in Abigail's
> : code. She's perpetually in 1993 (or, rather, MCMXCIII).
> ^^^^^
>
> FYI:
>
> She is a he.
>
> Strange but true...
If you're listening, my apologies, Abigail.
No wonder there weren't any pictures on his web page (when it was up).
BTW, both he (on clp.misc) and his pages seemed to have dropped from
sight.
Cameron
--
Cameron Dorey
Associate Professor of Chemistry
University of Central Arkansas
Phone: 501-450-5938
camerond@mail.uca.edu
------------------------------
Date: Fri, 18 Jun 1999 12:03:10 -0500
From: rlb@intrinsix.ca (Lee)
Subject: Re: Afraid to ask about Y2K!
Message-Id: <B38FE5FE966887F4F6@0.0.0.0>
In article <376A67CF.DC414B9A@mail.uca.edu>,
Cameron Dorey <camerond@mail.uca.edu> wrote:
>tadmc@metronet.com wrote:
>>
>> In article <376A586E.B050BBAD@mail.uca.edu> you wrote:
>>
>> : One thing's for certain, you won't find any Y2K problems in Abigail's
>> : code. She's perpetually in 1993 (or, rather, MCMXCIII).
>> ^^^^^
>>
>> FYI:
>>
>> She is a he.
>>
>> Strange but true...
>
>If you're listening, my apologies, Abigail.
This may present problems if one knows Abigail personally, but so long as
Abigail chooses to be called Abigail, I can only persist in thinking of her
as, and calling her, a she.
>No wonder there weren't any pictures on his web page (when it was up).
>BTW, both he (on clp.misc) and his pages seemed to have dropped from
>sight.
She was gone for a bit (or her posts weren't making their way to my sorry
excuse for a news feed) but she's been posting here regularly this week.
Lee
------------------------------
Date: Fri, 18 Jun 1999 15:53:40 GMT
From: Bob Shair <bshair@itds.com>
Subject: Re: Bit Twiddling Troubles
Message-Id: <7kdq1t$kql$1@nnrp1.deja.com>
In article <7kb13a$6d1$7@info2.uah.edu>,
Greg Bacon <gbacon@cs.uah.edu> wrote:
> In article <37684A70.937EF529@amdahl.com>,
> Hal Mounce <whm10@amdahl.com> writes:
> : It sure was easier to do this stuff in assembler.
>
> You sick, sick boy. :-)
Nah, just another mainframe hacker...
--
Bob Shair
Open Systems Consulting
Champaign, Illinois
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Fri, 18 Jun 1999 11:09:37 -0500
From: Brent Michalski <perlguy@technologist.com>
Subject: Re: CGI Simple Question
Message-Id: <376A6F41.D084B244@technologist.com>
Take a look at the "redirect" function in CGI.pm, that will do what you
asked for...
Brent
CacheBoy wrote:
>
> How to open another web page in my perl script?
> Eg.
> if ($in{'option'} eq 'open') {
> ??? open another html document.
> }
------------------------------
Date: Fri, 18 Jun 1999 09:15:02 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: environnement vars & external program
Message-Id: <Pine.GSO.4.02A.9906180910130.5420-100000@user2.teleport.com>
On Fri, 18 Jun 1999 jmtth@my-deja.com wrote:
> In a script, I would like to set an environnement variable :
> $ENV{TODAY.DATE}='isodate -date';
> where isodate -date is an exe that returns a value. Is it the good way
> to do this ?
No. You probably mean to use qx``, but you probably want to use (a
variation of) localtime. Check the perlop and perlfunc manpages.
> Then, I would like to lauch two exe. In batch file, it's done like this
> :
> qfquery jscalendar.qf "Date: %TODAY.DATE%" result.txt
> qf2env result.txt -object TODAY -dos > %TODAY.DATE%env.bat
> How can I do this in Perl ? (I tried with system and exec statements
> but failed).
If you tried with both system and exec, you probably didn't read their
entries in the perlfunc manpage carefully enough. Please read them again.
It may be that you're having difficulties because English is not your
native language. If that's the case and you still have questions after
reading the docs, I encourage you to try asking again in a language you're
more comfortable with. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Fri, 18 Jun 1999 09:25:17 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Extract mail-headers with Net::POP3
Message-Id: <Pine.GSO.4.02A.9906180917470.5420-100000@user2.teleport.com>
On Fri, 18 Jun 1999, Thomas Weholt wrote:
> I was wondering how I could extract the subject and from field from an
> email using the Net::POP3 module.
When your only problem is a nail, you tend to use every tool as a hammer.
(Although it's not in the official file, I think Larry said something like
this.)
http://www.cpan.org/misc/lwall-quotes.txt.gz
The Net::POP3 module is not intended to manipulate the contents of email,
but the Module List on CPAN has a number of modules which are. Does one of
those suit your needs?
Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Fri, 18 Jun 1999 09:44:48 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: filenames into an array by pattern matching?
Message-Id: <Pine.GSO.4.02A.9906180936250.5420-100000@user2.teleport.com>
On Fri, 18 Jun 1999, Deamon George Scapin wrote:
> I currently use the following statement in order to put jpg file names
> into an array. How do I add the capablility to get gif filenames into
> the same array?
>
> @thumbnail = grep /\-a.jpg$/, readdir(DIR);
Change the pattern to match what you actually want. But I'm not sure that
the old one was really what you wanted in the first place: It would match
this dubious filename.
not-a:jpg
I think you want a pattern somewhat like this one, perhaps:
m{
# Starting anywhere in the string,
-a\. # find hyphen, lower-case a, and period
(?: # non-memory parens for grouping choice of
jpe?g # jpeg or jpg
| # or
gif # gif
)
$ # at end of string
}x
Or just /-a\.(?:jpe?g|gif)$/ if you prefer to keep it short. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Fri, 18 Jun 1999 08:53:10 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Having trouble making this work...
Message-Id: <MPG.11d40b367cfa3b7989bfb@nntp.hpl.hp.com>
In article <l0ubk7.kfk.ln@magna.metronet.com> on Thu, 17 Jun 1999
18:48:53 -0400, Tad McClellan <tadmc@metronet.com> says...
...
> 2) Perl has a builtin function for making directories you
> do not need to use the shell's via system().
>
> It is named, oddly enough, mkdir() :-)
>
> unless (-d $dir) {
> mkdir $dir or die "could not create '$dir' $!";
> }
BZZZZT!!!
Not enough arguments for mkdir at ..., near "$dir or"
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 18 Jun 1999 09:34:52 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Help regular expressions
Message-Id: <slrn7mkm89.ga3.abigail@alexandra.delanet.com>
slegarre@ireste.fr (slegarre@ireste.fr) wrote on MMCXVII September
MCMXCIII in <URL:news:7kd288$cmr$1@nnrp1.deja.com>:
__ Hi,
__
__ I have got this string of character in a file/
__
__ 125 Jean-Paul Gauthier 42 Avenue des Chqmps Elysee 75001 Paris
__
__ I want to make some tests with the first number: 125
__
__ I try this ER : /(\d*)\s*/ but it doesn't work.
Doesn't work is a vague description. Is the script sitting on the
couch and refusing to work? Is it on strike? Did it fly to Hawaii?
What did you do, and what did you expect it to do?
Abigail
--
perl -we '$_ = q ;4a75737420616e6f74686572205065726c204861636b65720as;;
for (s;s;s;s;s;s;s;s;s;s;s;s)
{s;(..)s?;qq qprint chr 0x$1 and \161 ssq;excess;}'
-----------== 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: 18 Jun 1999 09:37:11 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: help with unlink
Message-Id: <slrn7mkmck.ga3.abigail@alexandra.delanet.com>
Jim (syt@email*@sp\am|@|spa/m@*.com) wrote on MMCXVII September MCMXCIII
in <URL:news:7kckrk$ngh$1@news3.infoave.net>:
'' unlink just doesnt want to work in my perl script... any ideas why?
''
'' here's what I'm using
''
'' unlink("/home/a-e/bigboy/public_html/cgi-bin/scripts/greetcard1/temps/temp2.
'' txt|/home/a-e/bigboy/public_html/cgi-bin/scripts/greetcard1/cards/142.html")
'' || die $!;
''
'' It says file not found but I'm 100% sure it's there..
Are you really, really sure it's there, as that's a very odd file name.
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s}
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
-----------== 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: 18 Jun 1999 09:38:51 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: help with unlink
Message-Id: <slrn7mkmfp.ga3.abigail@alexandra.delanet.com>
Jim (syt@email*@sp\am|@|spa/m@*.com) wrote on MMCXVII September MCMXCIII
in <URL:news:7kckut$9qv$1@news3.infoave.net>:
[] (this is a correction to my previous post that should've been canceled)
[]
[] unlink just doesnt want to work in my perl script... any ideas why?
[]
[] here's what I'm using
[]
[] unlink("/home/a-e/bigboy/public_html/cgi-bin/scripts/greetcard1/cards/142.ht
[] ml")
[] || die $!;
[]
[] It says file not found but I'm 100% sure it's there..
Are you sure your web server doesn't do a chroot() ?
Did you test whether the program itself can see the file?
Abigail
--
%0=map{reverse+chop,$_}ABC,ACB,BAC,BCA,CAB,CBA;$_=shift().AC;1while+s/(\d+)((.)
(.))/($0=$1-1)?"$0$3$0{$2}1$2$0$0{$2}$4":"$3 => $4\n"/xeg;print#Towers of Hanoi
-----------== 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: 18 Jun 1999 10:16:22 -0600
From: Daniel Grisinger <dgris@moiraine.dimensional.com>
Subject: Re: Hex to Decimal??
Message-Id: <m3hfo5o561.fsf@moiraine.dimensional.com>
tadmc@metronet.com (Tad McClellan) writes:
> seong joon bae (seongbae@students.uiuc.edu) wrote:
>
> : How would you write a little script that converts hex to dec...?
>
>
> I would use an editor, such as vi or emacs, for writing scripts.
>
You're weak! Weak, I say! Real men don't use brain-sucking,
hand-holding, sissy programs like vi or emacs to program.
Real men use cat.
% cat > myscript.pl
#!/usr/local/bin/perl
#
use strict;
print "Hi\n";
^D
%
:-)
dgris
--
Daniel Grisinger dgris@moiraine.dimensional.com
perl -Mre=eval -e'$_=shift;;@[=split//;;$,=qq;\n;;;print
m;(.{$-}(?{$-++}));,q;;while$-<=@[;;' 'Just Another Perl Hacker'
------------------------------
Date: Fri, 18 Jun 1999 15:10:42 GMT
From: deafclub@my-deja.com
Subject: How I do setup cookie?
Message-Id: <7kdnh8$jnt$1@nnrp1.deja.com>
How I do setup cookie?
I typed edit:
#!/usr/bin/perl
# Try relative path
require "cgi-lib.pl";
# OK Let's read in formdata
&ReadParse;
$name = "$in{'getname'}";
if ($name eq "") {
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>Test Cookie</title>\n";
print "</head>\n";
print "<body bgcolor=\"#ffffff\">\n";
print "<form action=\"cookie.pl\" method=\"post\">
\n";
print "<input type=\"text\" name=\"getname\" size=
\"20\"> <input type=\"submit\" value=\"Enter\">
\n";
print "</form>\n";
print "</body>\n";
print "</html>\n";
exit;
}
else {
print "Set-Cookie: getname=$name\n";
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>Test Cookie</title>\n";
print "</head>\n";
print "<body bgcolor=\"#ffffff\">\n";
print "My name is $name\n";
print "</body>\n";
print "</html>\n";
exit;
}
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Fri, 18 Jun 1999 09:58:05 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: how to invoke multipart script from a script?
Message-Id: <Pine.GSO.4.02A.9906180953220.5420-100000@user2.teleport.com>
On Sat, 19 Jun 1999, Mark wrote:
> How do you invoke a multipart perl script from a perl script?
What in the world is a multipart perl script?
But I think you're talking about invoking a program via the Common Gateway
Interface (CGI). The docs, FAQs, and newsgroups about CGI programming, as
well as the CGI spec, should be of use to you.
http://hoohoo.ncsa.uiuc.edu/cgi/
Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 18 Jun 1999 09:39:16 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: HOWTO compare two arrays, an get the difference
Message-Id: <slrn7mkmgh.ga3.abigail@alexandra.delanet.com>
Torfinn Keringen (tor@kmd.dk) wrote on MMCXVII September MCMXCIII in
<URL:news:7kd3ck$irh$1@miri.tele.dk>:
!! Hy
!! I have @array1 @array2, both of them contains a few lines of text,
!! what I want is an @array3 containing the lines from @array1
!! that is missing in @array2
RTFFAQ
Abigail
--
package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
print } sub __PACKAGE__ { &
print ( __PACKAGE__)} &
__PACKAGE__
( )
-----------== 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: 18 Jun 1999 09:40:08 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Is Perl4 Y2K compliant?
Message-Id: <slrn7mkmi6.ga3.abigail@alexandra.delanet.com>
Dave Cross (dave@dave.org.uk) wrote on MMCXVII September MCMXCIII in
<URL:news:376A00E6.92B526FF@dave.org.uk>:
||
||
|| "Daniel W. Burke" wrote:
|| >
|| > Hopefully I can wade through all these messages to see the response...
|| > but, can perl4 be considered "Y2K Compliant"? I imagine so, but we have
|| > an aweful lot of scripts at work that run off perl4/oraperl...
|| > I don't think anyone else has thought to ask at work wether or not we should
|| > take the time to make sure all the scripts work with perl 5, and just update
|| > the darn things, but I figured better I better ask :)
||
|| "There are no plans to make Perl 4 Y2K compliant."
There are no plans to make Perl 5 Y2K compliant either.
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s}
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
-----------== 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: Fri, 18 Jun 1999 09:30:00 -0700
From: Steve Laybourn <redmeat@freei.net>
Subject: JPEG height/width
Message-Id: <376A7407.3806A7E3@freei.net>
Hello again!
The answers I got for solving my Net::FTP problems were just the
thing I needed. I had spent nearly two months trying to get something
working, but only one day's worth of research in here was enough of a
catalyst to get the thing working. Thanks, everyone!
OK, a new problem...
One of the websites I've programmed has an image upload feature (Hang
on, this IS a Perl question, NOT a CGI question!). Now, while it is easy
to detect for incorrect, non-existant, or oversize files, it is NOT easy
to get data from the JPEG files themselves.
The Encyclopedia of Graphics File Formats tells me enough that I can
scan a JPEG header to verify that the file is indeed a JPEG image, but
it does not tell me how to read the image's height and width in pixels.
I know this can easily be done using Image::Size and Image::Magick
(or is it Perl::Magick now?) but the current server admins want a
potload of money just to install those two modules. And since the
clients are cheapskates as well, this puts me in a rather difficult
spot.
All I want to know this time around is: How can I get the height and
width of a JPEG image using Perl?
I only need to do this routine once (upon image upload), as these
values will be stored in an associated database for HTML height and
width tags.
Thanks so much for your help. Perl rocks!
Steve Laybourn
------------------------------
Date: 18 Jun 1999 09:40:41 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Launch a New Browser Window
Message-Id: <slrn7mkmj6.ga3.abigail@alexandra.delanet.com>
Lawrence Ng (engp8518@nus.edu.sg) wrote on MMCXVII September MCMXCIII in
<URL:news:7kcu0c$ji5$1@nuscc.nus.edu.sg>:
|| How do I launch a new browser window on the client side to show him another
|| web page using PERL. I still want my homepage to be open.
You would write a browser in Perl.
Good luck!
Abigail
--
perl -we '$_ = q ;4a75737420616e6f74686572205065726c204861636b65720as;;
for (s;s;s;s;s;s;s;s;s;s;s;s)
{s;(..)s?;qq qprint chr 0x$1 and \161 ssq;excess;}'
-----------== 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: Fri, 18 Jun 1999 09:52:20 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: looking for script to monitor acct abuse
Message-Id: <Pine.GSO.4.02A.9906180952090.5420-100000@user2.teleport.com>
On Fri, 18 Jun 1999 iha@cgocable.net wrote:
> Subject: looking for script to monitor acct abuse
If you're wishing merely to _find_ (as opposed to write) programs,
this newsgroup may not be the best resource for you. There are many
freeware and shareware archives which you can find by searching Yahoo
or a similar service. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 18 Jun 1999 16:59:48 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Losing referrer information when passing through a perl script...?
Message-Id: <376a6cf4@newsread3.dircon.co.uk>
[Groups trimmed and followups set]
In comp.lang.perl.misc Euro Jake <jde222RemovethiS@iname.com> wrote:
>
> On 18-Jun-1999, "Martin Quensel" <martin@adoma.se> wrote:
>
>> Euro Jake skrev i meddelandet <7kd7g9$mbf$1@news3.Belgium.EU.net>...
>> >
>> >Through javascript, Im trying to use document.referrer to track where a
>> >visitor came from on my site. Everything works fine until I have a
>> >password
>> >access handled by a perl script. Once passed the perl generated html
>> >page,
>> >the document.referrer info seems blank...
>> >
>>
>> give you a hand on what?
>> All i can say to you is:
>> It seems like it doesent work the way you want it to work.
>> Maybee you are overlooking a detail, maybee not.
>>
>> Now, that dident help you much im afraid.
>>
>> maybee this will help
>> http://www.plover.com/~mjd/perl/Questions.html
>>
>
> I assume the reference you supplied in your answer is an accidental
> mistake..., it didnt mention anything related to my problem...
> If it is not, I think you will create many friends this way...
> Thougt this medium is a way to find information and assistance, apologies if
> I am wrong
> Nevertheless, thank you for your contribution and your help
>
You posted a non-Perl question into a newsgroup concerned with Perl -
Martin pointed you to resource that will help you get answers to your
questions - I would suggest you heed what it says.
You might also care to look at the regular postings that are
made in the group news.announce.newusers that explain to new users of
usenet what the proper way to go about these things is.
/J\
--
"It's times like this I wish I had a penis" - Duckman
------------------------------
Date: Fri, 18 Jun 1999 16:40:38 GMT
From: casey@f5.com
Subject: math::Matrix
Message-Id: <376a6ee9.1030361@news.semaphore.com>
I am useing the Math::Matrix module and have run into a problem when I
try to my values back out. There doesn't seem to be anyway to get the
product of a matrix multiplication except sending it to stdout via
->print. Does anyone know of a way to get specific values in the
matrix out of the Math::Matrix construct?
TIA,
-Casey
------------------------------
Date: 18 Jun 1999 10:06:45 -0600
From: Daniel Grisinger <dgris@moiraine.dimensional.com>
Subject: Re: matinal musings and the madrugada
Message-Id: <m3n1xxo5m2.fsf@moiraine.dimensional.com>
bart.lateur@skynet.be (Bart Lateur) writes:
> David Cantrell wrote:
>
> >>the Marine Corps always dated their documents YY/MM/DD
>
> >Makes it nice n' easy to sort by date in a language which doesn't
> >support a Date type (see - back on topic!) which is a Good Thing.
>
> But yet it is a Y2K bug.
<larry type='other'>
Using a two digit year field doesn't automatically mean
that you have a y2k bug. Context matters. Target audience
matters. This isn't cut and dried.
</larry>
He's right, you know.
dgris
--
Daniel Grisinger dgris@moiraine.dimensional.com
perl -Mre=eval -e'$_=shift;;@[=split//;;$,=qq;\n;;;print
m;(.{$-}(?{$-++}));,q;;while$-<=@[;;' 'Just Another Perl Hacker'
------------------------------
Date: 18 Jun 1999 09:28:17 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: matinal musings and the madrugada
Message-Id: <slrn7mklrv.ga3.abigail@alexandra.delanet.com>
Bart Lateur (bart.lateur@skynet.be) wrote on MMCXVII September MCMXCIII
in <URL:news:376b29cf.2678417@news.skynet.be>:
[] David Cantrell wrote:
[]
[] >>the Marine Corps always dated their documents YY/MM/DD
[]
[] >Makes it nice n' easy to sort by date in a language which doesn't
[] >support a Date type (see - back on topic!) which is a Good Thing.
[]
[] But yet it is a Y2K bug.
Only if you keep documents for longer than 100 years.
Not all uses of 2 digit years are Y2K bugs.
Abigail
--
perl -wlpe '}{$_=$.' file # Count the number of lines.
-----------== 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: Fri, 18 Jun 1999 12:42:39 -0400
From: Craig Ciquera <craig@mathworks.com>
Subject: Re: multidimensional arrays with functions push and pop
Message-Id: <376A76FF.F5CC8E27@mathworks.com>
> Now let's say I want to add an element to the third sub-array.
> I.E.(1) Size of the array... if the third sub-array in @myarray has twelve
> elements, what's the Perl code? (Usually just the @myarray will give me the
> number of element in the main-array @myarray, but will $myarray[2] give me the
> right answer?)
>
> I.E.(2) Length of a given index... if the third sub-array has twelve elements
> and the fifth element (index 4) is of length 27. Does this mean length
> ($myarray[2][4]) == 27? (Or am I crazy? [That too!])
>
> Thanks,
> Kevin.
> Kevin_C_Arpe@Fleet.com
>
> Thanks again!
Hope this helps Kevin:
#!/usr/local/bin/perl -w
use strict;
my @array = ( ["FOO", "BAR", "BUFF"],
["BLETCH", "BIFF", "FLUFF"],
["BAM", "PEB"],
["FRED", "WILMA", "BETTY"] );
# Add element to third sub-array
push @{$array[2]}, "BARNEY";
# Prove it
foreach my $one ( @{$array[2]} ) {
print $one . "\n";
}
# Get the length of the third array
my $size = scalar @{$array[2]};
print "The size is: $size\n";
__END__
Craig
------------------------------
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 6045
**************************************
