[13704] in Perl-Users-Digest
Perl-Users Digest, Issue: 1114 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Oct 19 06:07:25 1999
Date: Tue, 19 Oct 1999 03:05:12 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <940327511-v9-i1114@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 19 Oct 1999 Volume: 9 Number: 1114
Today's topics:
%hash array problem <kwantm@convertis.nl>
Re: %hash array problem (Abigail)
Re: %hash array problem (Martien Verbruggen)
Re: @ARGV ---- Arrrrgggghhhh! :-) <csaba.raduly@sophos.com>
Re: @ARGV ---- Arrrrgggghhhh! :-) c_j_marshall@my-deja.com
Re: creating a list of unique records (Abigail)
Re: creating a list of unique records (Abigail)
Re: drop down menus (Abigail)
Re: drop down menus <gellyfish@gellyfish.com>
Re: Fuser Unix Command in Perl (Abigail)
Re: Fuser Unix Command in Perl <gellyfish@gellyfish.com>
Re: help for functioin fork under win98 (A.J. Norman)
help with substrings <kpmonroe@unity.ncsu.edu>
helponlambdacalculus <loreglor@tin.it>
Re: helponlambdacalculus (Anno Siegel)
How to write isdigit() in Perl <umungo01@shafika.vetri.com>
Re: How to write isdigit() in Perl (Abigail)
Re: How to write isdigit() in Perl <rhomberg@ife.ee.ethz.ch>
Re: Ignore the idiots <csaba.raduly@sophos.com>
Makefile.PL and PREFIX - how? <alex@kawo2.rwth-aachen.de>
Re: Monitoring the clicks of a banner (Abigail)
Re: need cgi script (Abigail)
Re: Need help -- How to display an existing web page <greenej@my-deja.com>
Re: OT: Din paper sizes (was Re: PDFlib size settings) <gellyfish@gellyfish.com>
Re: Problem w/ PERL and SQL (Abigail)
redirect STDOUT to scalar <andreas@vierengel.de>
Re: redirect STDOUT to scalar <andreas@vierengel.de>
Re: Scalars with special characters c_j_marshall@my-deja.com
Splitting a long line with irregular spaces <wyzelli@yahoo.com>
Re: Splitting a long line with irregular spaces <jtribbeck@argogroup.com>
Re: THANKS FOR ALL THE HELP <wyzelli@yahoo.com>
Re: tr// question <nick.condon@tamesis.com>
Re: tr// question <nick.condon@tamesis.com>
Re: Unix command ´tree´ in Perl? <rhomberg@ife.ee.ethz.ch>
Re: what is SHTML ? <c4jgurney@my-deja.com>
Re: what is SHTML ? (Martien Verbruggen)
Re: why doesn't my script work? (Martien Verbruggen)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 19 Oct 1999 09:52:50 +0200
From: "Marc" <kwantm@convertis.nl>
Subject: %hash array problem
Message-Id: <7uh85i$25ns$1@buty.wanadoo.nl>
I have got a problem. I have a hash array named %users I do not know what is
in it and I want to print it. The following code I use:
foreach (keys(%users)
{ print (" ");
}
What must I use in the print statement to print the contents of the hash
array???
Marc de Kwant
(www.netvisit.nl)
------------------------------
Date: 19 Oct 1999 03:19:42 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: %hash array problem
Message-Id: <slrn80oac8.e3k.abigail@alexandra.delanet.com>
Marc (kwantm@convertis.nl) wrote on MMCCXL September MCMXCIII in
<URL:news:7uh85i$25ns$1@buty.wanadoo.nl>:
-- I have got a problem. I have a hash array named %users I do not know what is
-- in it and I want to print it. The following code I use:
--
-- foreach (keys(%users)
-- { print (" ");
-- }
--
-- What must I use in the print statement to print the contents of the hash
-- array???
Look up the description of foreach, and you'll be enlightned.
Abigail
--
$_ = "\x3C\x3C\x45\x4F\x54"; s/<<EOT/<<EOT/e; print;
Just another Perl Hacker
EOT
-----------== 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: 19 Oct 1999 09:58:04 GMT
From: mgjv@wobbie.heliotrope.home (Martien Verbruggen)
Subject: Re: %hash array problem
Message-Id: <slrn80og6q.1vv.mgjv@wobbie.heliotrope.home>
On Tue, 19 Oct 1999 09:52:50 +0200,
Marc <kwantm@convertis.nl> wrote:
> I have got a problem. I have a hash array named %users I do not know what is
> in it and I want to print it. The following code I use:
Just a note: It's associative array (used less and less frequently) or
hash. Not both :)
> foreach (keys(%users)
> { print (" ");
> }
syntax error.
> What must I use in the print statement to print the contents of the hash
> array???
# man perlsyn
or
# perldoc perlsyn
(contains the description of for/foreach) and of course:
# perldoc -f keys
has an example of exactly what you want to do.
But you might also want to have a look at
# perldoc -f each
The documentation that comes with perl is excellent. You should really
learn to use it. For your own good more than for ours.
Martien
PS. In case you're wondering, those '#' thingies signify my shell
prompt. Get yours up, and type those things.
--
Martien Verbruggen |
Interactive Media Division | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: Tue, 19 Oct 1999 09:43:10 +0100
From: Csaba Raduly <csaba.raduly@sophos.com>
Subject: Re: @ARGV ---- Arrrrgggghhhh! :-)
Message-Id: <380C2F1E.86C84BF3@sophos.com>
Jonathan Stowe wrote:
>
> Csaba Raduly <csaba.raduly@sophos.com> wrote:
> >
> > Or if the shell doesn't do it, Perl does.
> >
>
> WRONG !
>
> C:\WINDOWS\Desktop>perl test.pl *.*
> *.*
> C:\WINDOWS\Desktop>
>
> C:\WINDOWS\Desktop>perl -v
>
> This is perl, version 5.005_03 built for MSWin32-x86-object
> (with 1 registered patch, see perl -V for more detail)
>
> Copyright 1987-1999, Larry Wall
>
> Binary build 520 provided by ActiveState Tool Corp. http://www.ActiveState.com
> Built 17:55:54 Sep 28 1999
>
> C:\WINDOWS\Desktop>cat test.pl
> print @ARGV;
>
> /J\
Please go back to my original posting and read a little further :
Cs> Too bad this doesn't happen on Win*&%$
Of course, I should've added "under OS/2" to "Perl does".
OOPS. I'm starting to spe^H^H^Hsound like an OS/2-only guy :-)
And I ended up with OS/2 by surprise...
Csaba
--
-----BEGIN GEEK CODE BLOCK-----
Version 3.1
GCS/>GMU d- s:- a30 C++$ UL+ P+>+++ L++ E- W+ N++ o? K? w++>$ O++$ M-
V- PS PE Y PGP- t+ 5 X++ R* tv++ b++ DI+++ D++ G- e+++ h-- r-- !y+
-----END GEEK CODE BLOCK-----
Csaba Raduly, Software Developer (OS/2), Sophos Anti-Virus
mailto:csaba.raduly@sophos.com http://www.sophos.com/
US Support +1 888 SOPHOS 9 UK Support +44 1235 559933
Life is complex, with real and imaginary parts.
------------------------------
Date: Tue, 19 Oct 1999 09:03:24 GMT
From: c_j_marshall@my-deja.com
Subject: Re: @ARGV ---- Arrrrgggghhhh! :-)
Message-Id: <7uhc4o$v8b$1@nnrp1.deja.com>
> >
> >Further to earlier answers of "this is a shell feature not a perl
> >feature" I'm struggling to think of an application where you would
not
> >want the filenames expanded for you.
>
> Say the first argument to grep, those regexes tend get stuffed up when
they
> get expanded to file names. ;)
>
Fair nuff.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 19 Oct 1999 02:06:43 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: creating a list of unique records
Message-Id: <slrn80o63d.e3k.abigail@alexandra.delanet.com>
Steve Kirby (poser@syspac.com) wrote on MMCCXL September MCMXCIII in
<URL:news:380BDDB6.F7C59A69@syspac.com>:
``
`` I'm looking for the most efficient way to go through a sorted list and
`` print only one case of each unique record to a file.
foreach my $froebel (@sortedlist) {
$froebel =~ s/([^Would you think this a faq?])
/sprintf "%%%02x" => ord $1
/xeg;
next if -f $froebel; system
touch => $froebel;
$froebel =~ s/%(.{2})
/chr
hex
$2
/xeeg;
print $froebel;
}
Abigail
--
perl -wlne '}{print$.' 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: 19 Oct 1999 02:15:34 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: creating a list of unique records
Message-Id: <slrn80o6jt.e3k.abigail@alexandra.delanet.com>
Michael Budash (mbudash@sonic.net) wrote on MMCCXL September MCMXCIII in
<URL:news:mbudash-1810992224180001@adsl-216-103-91-123.dsl.snfc21.pacbell.net>:
""
"" open (LIST, "list") or die ($!);
"" while (<LIST>) { $hash{$_} = 1; }
"" close LIST;
""
"" foreach (sort keys %hash) { print; }
print grep {! $_ {$_} ++} do {local @ARGV = "list"; <>};
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=Math::BigInt->new(qq]$^F$^W783$[$%9889$^F47]
.qq]$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W]
.qq]98$^F76777$=56]);$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V
%$^U;$^V/=$^U}while$^V!=$^W'
-----------== 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: 19 Oct 1999 02:17:38 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: drop down menus
Message-Id: <slrn80o6np.e3k.abigail@alexandra.delanet.com>
Louise O (louise@oe-pages.com) wrote on MMCCXL September MCMXCIII in
<URL:news:01bf19c7$566c7d00$451c1ad8@mpolmo>:
:: Does anyone know how to develop a drop down menu on the fly?
Evolution. If it can develop wings on the fly, drop down menus
won't be to hard!
:: Something
:: the users could input into?
Shouldn't this human - insect interaction be discussed in alt.sex.bestiality?
Abigail
--
$_ = "\x3C\x3C\x45\x4F\x54";
print if s/<<EOT/<<EOT/e;
Just another Perl Hacker
EOT
-----------== 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: 19 Oct 1999 10:34:28 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: drop down menus
Message-Id: <380c3b24_2@newsread3.dircon.co.uk>
Louise O <louise@oe-pages.com> wrote:
> Does anyone know how to develop a drop down menu on the fly? Something
> the users could input into?
Perhaps you ought to goto CPAN <http://www.cpan.org> and search for a
module that has menu in its name.
/j\
--
"The chef's salty balls have dropped" - Christopher Price, BBC NEWS 24
------------------------------
Date: 19 Oct 1999 02:26:45 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Fuser Unix Command in Perl
Message-Id: <slrn80o790.e3k.abigail@alexandra.delanet.com>
Kragen Sitaker (kragen@dnaco.net) wrote on MMCCXL September MCMXCIII in
<URL:news:u5PO3.15868$E_1.911754@typ11.nn.bcandid.com>:
<>
<> Almost always, things that are possible in C on Unix are possible in
<> Perl. The worst part would probably be converting struct definitions
<> to format strings for unpack, which would have to be done anew for each
<> version of the ABI.
<>
<> As long as you can do arbitrary system calls in Perl, and they aren't
<> too hideous -- e.g. poll() might be kinda tough -- this should present
<> no obstacle.
Well, yeah, but if you have to resort to using pack/unpack to read the
datastructures, and using arbitrary system calls - it's almost C, isn't?
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: 19 Oct 1999 10:14:43 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Fuser Unix Command in Perl
Message-Id: <380c3683_2@newsread3.dircon.co.uk>
Russ Allbery <rra@stanford.edu> wrote:
> Felipe Guilherme Prata Brito <970680@dcc.unicamp.br> writes:
>
>> Does anyone have a source code of the Unix command "fuser" in Perl??
>> Does anyone kwon where can I find it??
>
> I don't know of anyone who's done fuser in Perl even on Linux;
>
I did - on Linux and posted it here late last year or early this but buggered
if I can find it on Deja now ... I'll dig it out when I get home.
/J\
--
"Long before anyone else had decriminalized homosexuality, Ireland had
a thriving gay community. Or the clergy as they prefer to be known" -
Kevin Hayes
------------------------------
Date: 19 Oct 1999 10:21:19 +0100
From: nja@le.ac.uk (A.J. Norman)
Subject: Re: help for functioin fork under win98
Message-Id: <7uhd6f$th96@harrier.le.ac.uk>
In article <380C21EE.6E3CF401@argogroup.com>, Jason P Tribbeck
<jtribbeck@argogroup.com> wrote:
> 1) Wait until the Fork command is implemented (I've heard this is
> being done, but timescales I don't know about);
ActivePerl 5.6 - which ActiveState says will be available for
development preview "in the third week of October", and generally
available next month.
--
Andrew Norman, Leicester, England
nja@le.ac.uk || andrew.norman@le.ac.uk
http://www.le.ac.uk/engineering/nja/
------------------------------
Date: Mon, 18 Oct 1999 16:22:18 -0400
From: Kevin Monroe <kpmonroe@unity.ncsu.edu>
Subject: help with substrings
Message-Id: <380B817A.1045A3F1@unity.ncsu.edu>
For some reason this relatively easy problem has been stumping me all
day. Any help would be appreciated as I am beginning to lose my mind
I have a comma deliminated text file such as
121,Jimmy,Jones,0,1,21,555,89
1547,James,Johnson,155,87,6,1,301
14,Me,Again,12,197,0,22,1
and so on
all Im trying to do is get say the first and the third fields after the
comma
I have tried to split it over and over again but no matter what I try I
get "use of uninitialized valued at line"
here is the code albeit very simple
#!/usr/local/bin/perl -w
open(NEW, "< /path/to/file.txt") or die "Can't open file.txt: $!";
@data = <NEW>;
foreach $element(@data){
split(/,/, $line);
print $element;
}
close <NEW>;
What I would like to be able to do here is get the say 1st,3rd and 5th
entries following the comma. However $data[0] reveals the first full
line commas and all. And since the length of each field varies using
subst($line,0,1) will not work either
any ideas???
------------------------------
Date: Fri, 15 Oct 1999 23:48:09 +0100
From: "Lorenzo Monteforte" <loreglor@tin.it>
Subject: helponlambdacalculus
Message-Id: <7uc52f$qja$1@nslave1.tin.it>
I' m a beginner in lambda-calculus. What I understand of Lambda-calculus I
can manage objects that are themselves functions. But how can I represent
objects that behave for example like A(x)=(n*10+x)/11 B(x)=(m*10+x)/11 such
that (A)B=(((n*10+m)/11)+x)/11 after normal reduction? And in general if I
know rules of behaviour like (A)B=A (B)A=A (C)B=B (B)C=B (C)A=C (A)C=C how
can I represent A, B, and C in lambda-calculus?
Any help would be greatly appreciated.
loreglor@tin.it
------------------------------
Date: 19 Oct 1999 09:33:53 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: helponlambdacalculus
Message-Id: <7uhdu2$k63$1@lublin.zrz.tu-berlin.de>
Lorenzo Monteforte <loreglor@tin.it> wrote in comp.lang.perl.misc:
>I' m a beginner in lambda-calculus. What I understand of Lambda-calculus I
>can manage objects that are themselves functions. But how can I represent
>objects that behave for example like A(x)=(n*10+x)/11 B(x)=(m*10+x)/11 such
>that (A)B=(((n*10+m)/11)+x)/11 after normal reduction? And in general if I
>know rules of behaviour like (A)B=A (B)A=A (C)B=B (B)C=B (C)A=C (A)C=C how
>can I represent A, B, and C in lambda-calculus?
>Any help would be greatly appreciated.
You want Lisp, not Perl.
Anno
------------------------------
Date: Tue, 19 Oct 1999 07:30:03 GMT
From: Govindaraj <umungo01@shafika.vetri.com>
Subject: How to write isdigit() in Perl
Message-Id: <s0o7fr53r0157@corp.supernews.com>
Hi,
I am matching the Page Number, which is in two different formats
as described below:
Page: 44
Page: xxiii
I want to convert the above two lines in two different way. How can I
differentiate the Arabic Numberal Page Number with the Roman Page Number.
More preciously, I am just like for a function which will test my
pattern whether it's numeric or string.
Waiting for your reply.
regards,
Govindaraj M.
--
Posted via CNET Help.com
http://www.help.com/
------------------------------
Date: 19 Oct 1999 03:22:00 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: How to write isdigit() in Perl
Message-Id: <slrn80oaf9.e3k.abigail@alexandra.delanet.com>
Govindaraj (umungo01@shafika.vetri.com) wrote on MMCCXL September
MCMXCIII in <URL:news:s0o7fr53r0157@corp.supernews.com>:
,,
,, I am matching the Page Number, which is in two different formats
,, as described below:
,,
,, Page: 44
,, Page: xxiii
,,
,, I want to convert the above two lines in two different way. How can I
,, differentiate the Arabic Numberal Page Number with the Roman Page Number.
There's no cheese in Roman numbers.
,, More preciously, I am just like for a function which will test my
,, pattern whether it's numeric or string.
Have you read the FAQ lately?
Abigail
--
perl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %;
BEGIN {% % = ($ _ = " " => print "Just Another Perl Hacker\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: Tue, 19 Oct 1999 12:02:19 +0200
From: Alex Rhomberg <rhomberg@ife.ee.ethz.ch>
Subject: Re: How to write isdigit() in Perl
Message-Id: <380C41AB.22B833BD@ife.ee.ethz.ch>
Govindaraj wrote:
>
> Hi,
>
> I am matching the Page Number, which is in two different formats
> as described below:
>
> Page: 44
> Page: xxiii
>
> I want to convert the above two lines in two different way. How can I
> differentiate the Arabic Numberal Page Number with the Roman Page Number.
Simple: There are no Roman page numbers in your example. The second line
are american page numbers. Roman page numbers are only capitals
- Alex
------------------------------
Date: Tue, 19 Oct 1999 10:09:19 +0100
From: Csaba Raduly <csaba.raduly@sophos.com>
Subject: Re: Ignore the idiots
Message-Id: <380C353F.81536CE2@sophos.com>
emlyn_a@my-deja.com wrote:
>
> Ignore Abigail - People like him make this place a whole lot more
> intimidating to use (which is their intent, I think). I mean what hell
> is this forum for if you can't ask a simple Perl question like you did?
>
Where I come from, Abigail is a she.
And s?he is definitely NOT an idiot, whereas ... but I'll stop here.
And even if s?he were, the taglines s?he produces are so much fun.
Those taglines should be archived at IPAN (Incomprehensible PAN :-)
Unfortunately, www.ipan.org is already taken, but www.ipan.com
is AFAIK available.
Btw Abigail, your
srand 123456;$-=rand$_--=>
thingy came up with
r nlkerJtherPct aeHa suo
Could it be that your rand and mine work in different ways ?
Or perhaps we are witnesses to the birth of a new language ?
Csaba
--
-----BEGIN GEEK CODE BLOCK-----
Version 3.1
GCS/>GMU d- s:- a30 C++$ UL+ P+>+++ L++ E- W+ N++ o? K? w++>$ O++$ M-
V- PS PE Y PGP- t+ 5 X++ R* tv++ b++ DI+++ D++ G- e+++ h-- r-- !y+
-----END GEEK CODE BLOCK-----
Csaba Raduly, Software Developer (OS/2), Sophos Anti-Virus
mailto:csaba.raduly@sophos.com http://www.sophos.com/
US Support +1 888 SOPHOS 9 UK Support +44 1235 559933
Life is complex, with real and imaginary parts.
------------------------------
Date: Tue, 19 Oct 1999 10:49:08 +0200
From: Alex Farber <alex@kawo2.rwth-aachen.de>
Subject: Makefile.PL and PREFIX - how?
Message-Id: <380C3084.32DDA0F9@kawo2.rwth-aachen.de>
Dear friends,
I have written a small module in pure Perl and would like to
distribute it via SPAN. So my Makefile.PL looks like this:
use ExtUtils::MakeMaker;
WriteMakefile(
NAME => 'Lingua::RU::Charset',
VERSION_FROM => 'Charset.pm', # finds $VERSION
dist => { COMPRESS => 'gzip -9f',
SUFFIX => 'gz' }
);
However wenn I try install my module into my home directory with
perl Makefile.PL PREFIX=/home/alex
make
make test
make install
I get the following error message:
$ perl Makefile.PL PREFIX=/home/alex
Checking if your kit is complete...
Looks good
Writing Makefile for Lingua::RU::Charset
$ make
mkdir ./blib
mkdir ./blib/lib
mkdir ./blib/lib/Lingua
mkdir ./blib/lib/Lingua/RU
mkdir ./blib/arch
mkdir ./blib/arch/auto
mkdir ./blib/arch/auto/Lingua
mkdir ./blib/arch/auto/Lingua/RU
mkdir ./blib/arch/auto/Lingua/RU/Charset
mkdir ./blib/lib/auto
mkdir ./blib/lib/auto/Lingua
mkdir ./blib/lib/auto/Lingua/RU
mkdir ./blib/lib/auto/Lingua/RU/Charset
mkdir ./blib/man3
cp Charset.pm ./blib/lib/Lingua/RU/Charset.pm
Manifying ./blib/man3/Lingua::RU::Charset.3pm
$ make test
PERL_DL_NONLAZY=1 /usr/local/bin/perl -I./blib/arch -I./blib/lib
-I/usr/lib/perl5/i386-linux/5.004
-I/usr/lib/perl5 test.pl
1..1
ok 1
$ make install
Warning: You do not have permissions to install into
/usr/local/lib/site_perl/i386-linux at
/usr/lib/perl5/ExtUtils/Install.pm line 58.
mkdir /usr/local/lib/site_perl/./Lingua: No such file or directory at
/usr/lib/perl5/ExtUtils/Install.pm line 110
make: *** [pure_site_install] Error 2
It seems to ignore my PREFIX. How do I fix it? I have read an article
in TPJ #7, perldoc ExtUtils::MakeMaker and I am looking at other modules -
but I still have no clue and would appreciate some help.
Regards
Alex
------------------------------
Date: 19 Oct 1999 03:24:49 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Monitoring the clicks of a banner
Message-Id: <slrn80oalr.e3k.abigail@alexandra.delanet.com>
Kendar (heron@hell.com) wrote on MMCCXL September MCMXCIII in
<URL:news:380bef7e.75418546@news.supernews.com>:
() Does anyone know of any script that would monitor
() the clicks on a given banner? I have CGI access.
Banners are evil!
Suggest the person you're interested in stars running X windows,
and then convince set person to do 'xhost +x'. At that moment,
you'll start snooping the input devices.
Abigail
--
$" = "/"; split $, => eval join "+" => 1 .. 7;
*{"@_"} = sub {foreach (sort keys %_) {print "$_ $_{$_} "}};
%{"@_"} = %_ = (Just => another => Perl => Hacker); &{%{%_}};
-----------== 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: 19 Oct 1999 03:27:13 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: need cgi script
Message-Id: <slrn80oaqb.e3k.abigail@alexandra.delanet.com>
T. Wilson (twilson@peruseweb.com) wrote on MMCCXXXIX September MCMXCIII
in <URL:news:380B727D.F5AADC43@peruseweb.com>:
## Willing to pay for:
##
## I need a simple autoresponder as follows:
##
## 1. the user fills out an online form
## 2. the form data is sent to a specified email address
## 3. the user recieves a confirmation email
Use procmail.
## It must be configuable for use on multiple domains with different email
## addresses.
As I said, use procmail
## Please send quote
``The answer to "Standard, non-perverted HTML does not give me enough layout
tools, and I don't want to use CSS!" is "Too damn bad. The features you
seek do not exist in the medium in which you are expressing yourself. You
will be a better artist and engineer if you understand the medium in which
you are working, limitations and all, than if you keep using kludges."''
[Karl A. Krueger in `do my homework for me'
<news:37f98ca0_1@news.wizvax.net>, {alt.sysadmin.recovery}
5 Oct 1999]
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: Tue, 19 Oct 1999 08:06:06 GMT
From: JAG <greenej@my-deja.com>
Subject: Re: Need help -- How to display an existing web page
Message-Id: <7uh8p9$t60$1@nnrp1.deja.com>
In article <Pine.GS4.4.10.9910180955170.93-100000@pan.as.utexas.edu>,
Michael Yuan <juntao@pan.as.utexas.edu> wrote:
>
> Hi, I am quite new here. So, excuse me if I am asking a dumb
question, but
> I do need your help ...
>
> [snip]
>
Since you are at an .edu site, I'll leave the implementation to you,
but here are some tips:
1) Use a <BASE> statement in your HTML code so the browser will know
how to convert relative paths to absolute paths.
2) Check the documentation about the LWP::Simple or
HTTP::Request::Common modules for information how to read a web page
from a PERL script
Good luck
--
# James Greene - Informatics Consulting - D-79539 Loerrach, Germany
# Internet: www.gucc.org/greene/consult - greene@gucc.org
# PGP Fingerprint: CA88 9BE2 92B3 3162 DF6B 7080 2F9E A97E F25C 5972
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 19 Oct 1999 09:21:08 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: OT: Din paper sizes (was Re: PDFlib size settings)
Message-Id: <380c29f4_2@newsread3.dircon.co.uk>
Sam Holden <sholden@pgrad.cs.usyd.edu.au> wrote:
> On Mon, 18 Oct 1999 23:55:47 GMT, Kragen Sitaker <kragen@dnaco.net> wrote:
>>In article <slrn80n3hl.eht.sholden@pgrad.cs.usyd.edu.au>,
>>Sam Holden <sholden@cs.usyd.edu.au> wrote:
>>>On 18 Oct 1999 20:03:46 -0000, Jonathan Stowe <gellyfish@gellyfish.com> wrote:
>>>>Is that right ? I do know that the ratio of the sides is exactly 1:sqrt(2)
>>>
>>>Since sqrt(2) is irrational, how can that be possible?
>>
>>A4 paper is an abstraction. Its sides have exactly a 1:sqrt(2) ratio.
>>A4 paper does not exist in the real world, because real-world objects
>>do not have exact sizes. The same is true of US letter paper, which is
>>8.5" x 11".
>
> Those Americans are so boring. Rational dimensions, how old fashioned.
> I mean 17:22, they aren't even both prime or something. ;)
>
> (Good I remembered the smiley).
>
>>
>>However, in both cases, we manufacture close approximations to the
>>abstraction in great quantitities.
>>
>>I am curious about which part of this you did not understand. Did you
>>think Jonathan was saying that the actual paper had infinitely precise
>>dimensions?
>
> I found it funny that someone could say that there is a ratio which is
> 'exactly' 1:sqrt(2). Since the whole idea of irrational numbers is that
> they can not be expressed as ratios.
>
Hey "I'm bricklayer not a mathematician" :)
Of course what I would have said if I wasnt being lazy that the well known
property of A size paper that if you fold it in half you result in a piece
with the same ratio of sides will result it that ratio:
x/y = (2*y) / x
x^2 = 2 * y ^ 2
x^2/y^2 = 2
x/y = sqrt(2)
But what do I know ;-}
/J\
--
"You've got to remember it was the 1980s. There were a lot of people
alive back then who died in the Second World War" - This Morning with
Richard Not Judy
------------------------------
Date: 19 Oct 1999 04:07:19 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Problem w/ PERL and SQL
Message-Id: <slrn80od5h.e3k.abigail@alexandra.delanet.com>
Kragen Sitaker (kragen@dnaco.net) wrote on MMCCXXXIX September MCMXCIII
in <URL:news:U1JO3.14603$E_1.858419@typ11.nn.bcandid.com>:
$$
$$ Probably because the database is called "SQL Server". Microsoft tries
$$ to name many of their products generically: "Windows", "DOS", "Word".
$$ If they made a car, it would be called "Microsoft Transit", and people
$$ would talk about getting to work by "transit", meaning the Microsoft car.
Ahum.
SQL Server was called SQL server before Microsoft bought it from Sybase.
Abigail
--
perl -wle\$_=\<\<EOT\;y/\\n/\ /\;print\; -eJust -eanother -ePerl -eHacker -eEOT
-----------== 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: Tue, 19 Oct 1999 10:48:53 +0200
From: Andreas Vierengel <andreas@vierengel.de>
Subject: redirect STDOUT to scalar
Message-Id: <78ECC8213FC1782C.D2375355E6E24E2C.179F5A95CE436C28@lp.airnews.net>
I would like to redirect STDOUT to a scalar.
Background is, I want to catch the output of all print-statement in a script,
compress it, and print it to STDOUT afterwards.
Is "tie" the solution ??
perhaps fiddling with typeglobs ?
Thanks for any hint.
--Andy
------------------------------
Date: Tue, 19 Oct 1999 11:17:27 +0200
From: Andreas Vierengel <andreas@vierengel.de>
Subject: Re: redirect STDOUT to scalar
Message-Id: <38195D36E9299CCD.C4A9F2F1A9052F7E.9F925ED66CBA9D0D@lp.airnews.net>
I found the IO::Scalar Module, which solves my problem.
Any other hints ? (possibly lower overhead)
--Andy
------------------------------
Date: Tue, 19 Oct 1999 09:51:27 GMT
From: c_j_marshall@my-deja.com
Subject: Re: Scalars with special characters
Message-Id: <7uheut$149$1@nnrp1.deja.com>
> my $sql =<<ENDQUERY;
> select dateadd(ss,M_TIME_CMP,M_DATE_CMP), M_DATE_SYS, M_COMMENT
> from TRN_EODA_DBF
> where M_DATE_SYS >=
> (select max(M_DATE_SYS)
> from TRN_EODA_DBF
> where M_COMMENT like '%BO EOD%'
> and M_START_END = 'START')
> and (M_COMMENT like '%BO EOD%' or
> M_COMMENT like '%Back-office%')
> order by M_DATE_CMP, M_TIME_CMP
> ENDQUERY
>
> That looks pretty maintainable to me.
>
> [snip more prolifically backslashed stuff ]
>
> : Which is fairly hideous.
>
> and unnecessary :-)
>
Thanks - looks like just what I'm after.
Chris
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 19 Oct 1999 18:08:51 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Splitting a long line with irregular spaces
Message-Id: <z6WO3.1$mZ1.413@vic.nntp.telstra.net>
I need to split the following line into variables, based on the spaces.
Unfortunately there is are not an equal number of spaces between the
components. Any ideas of a simple way to get this done?
The tricky bit is the second group which contains a space, which needs to be
there.
One long line follows:
test.user Test User
D:\TEMP\USERS\Test.User
D:\TEMP\USERS\Test.User\FILES\
tuser tpasswd YNNYYYNNYNN0500020000
The character positions of the individual components of the line are quite
important.
I have tried a few variations of split() but none work quite right.
I am probably missing something.
Wyzelli
------------------------------
Date: Tue, 19 Oct 1999 12:18:20 +0100
From: Jason P Tribbeck <jtribbeck@argogroup.com>
Subject: Re: Splitting a long line with irregular spaces
Message-Id: <380C537C.1320C376@argogroup.com>
Wyzelli wrote:
>
> I need to split the following line into variables, based on the spaces.
> Unfortunately there is are not an equal number of spaces between the
> components. Any ideas of a simple way to get this done?
<snip>
> I have tried a few variations of split() but none work quite right.
Why not try using a regex instead of split - something like:
while($line=~m/((\S+)\s*)/g) {
print pos($line)-length($1)." -> $2\n";
}
The print statement shows the position in the string, and $2 is the
word.
--
Jason Tribbeck Argo Interactive ltd
Senior Design Engineer 7 Dukes Court, Chichester
West Sussex, PO19 2FX
Tel: +44 1243 815 815 Fax: +44 1243 815 805 England
------------------------------
Date: Tue, 19 Oct 1999 18:55:18 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Re: THANKS FOR ALL THE HELP
Message-Id: <2OWO3.5$mZ1.510@vic.nntp.telstra.net>
Craig Berry <cberry@cinenet.net> wrote in message
news:s0l5n6snr0186@corp.supernews.com...
> kstephan (kstephan@my-deja.com) wrote:
> : Reading through the threads, I noticed the line
> :
> : $thisyear = $year + 1900;
> :
> : What happens on 1 January 2000???
>
> I don't know!!! My gosh, what *does* happen when you add 100 to 1900???
> Or when you rtfm, for that matter???
>
> --
> | Craig Berry - cberry@cinenet.net
> --*-- http://www.cinenet.net/users/cberry/home.html
> | "They do not preach that their God will rouse them
> a little before the nuts work loose." - Kipling
Just musing...
localtime et al returns the number of years since the epoch, to which we add
1900 to ensure y2k accuracy.
Are there many occasions are there where the number of years since the epoch
is actually used? Particularly outside the current century?
Would it be terribly difficult for localtime to return the number of years
since the epoch + 1900?
Assuming localtime returned 'years since epoch plus 1900' would not those
cases of 'years since epoch' then be adequately served by 'localtime - 1900'
Not proposing any changes (compliance, old scripts etc) just wondering out
loud.
Wyzelli
------------------------------
Date: Tue, 19 Oct 1999 09:49:26 +0100
From: Nick Condon <nick.condon@tamesis.com>
Subject: Re: tr// question
Message-Id: <380C3096.7F819250@tamesis.com>
Marcel Grunauer wrote:
> *plonk*
Oh hurt me, hurt me.
> --
> Marcel, Perl Padawan
> sub AUTOLOAD{$_=$AUTOLOAD;s;.*::;;;y;_; ;;print}&Just_Another_Abigail_Asskisser;
That's better.
--
Nick Condon
------------------------------
Date: Tue, 19 Oct 1999 10:00:06 +0100
From: Nick Condon <nick.condon@tamesis.com>
Subject: Re: tr// question
Message-Id: <380C3315.D3B27038@tamesis.com>
Tad McClellan wrote:
> Nick Condon (nick.condon@tamesis.com) wrote:
> : Abigail wrote:
> : > Dan Berman (dan.berman@ubl.com) wrote on MMCCXXXV September MCMXCIII in
> : > <URL:news:7u5m2j$m74$1@hops.adnc.com>:
> : > ^^ i want to replace every instance of ".gif" with "_t.gif"
> : > ^^ im not sure where i need to put backslashes or anything to get the syntax
> : > ^^ right. i tried
> : > ^^ $thumb =~ tr/\.gif/_t\.gif/; but that changed "image.gif" to ".mate_t.g" all
> : > ^^ help appreciated. thanks
> : >
> : > Well, what part of the man pages about tr didn't you understand?
>
> : Obviously, *obviously*,
>
> It is not obvious at all that he has even _seen_ the man page.
>
> What makes you so sure that he looked at it already?
>
> I don't see anything to suggest that, but I must be missing
> something obvious.
>
> Please point it out for us less astute people.
For the benfit of you less astute people:
How about the fact that he is using it? Do you think he heard about 'tr' in the pub? Or do
you think he's seen some documentation somewhere?
> : there is some part of the man page that he doesn't
> ^^^^^^^^^
> : understand.
>
> Yes.
>
> And abigail is wondering which part that is.
LOL! She wanted to tell him off.
> Nastiness is a natural reaction to such selfishness.
Nastiness is a natural reaction on clpm, that's for sure.
> : I certainly wouldn't dare post a question.
>
> If it is not easily found and answered by the standard docs
> that come with perl, then post away.
>
> The post that started this thread was not such a post.
What response would I get if I posted "tr// question" to comp.unix.shell? By your
arguments, I should get a load of "Read the man page" replies.
Well, as an experiment I tried it. The responses were a model of Usenet good manners. I
had 6 replies, 5 of them by email only (thus conserving bandwidth), all of them provided a
useful answer ("use sed not tr"), with a code fragment. Only one of them mentioned the man
pages, and he was suggesting the man page for sed.
Some of these manners wouldn't go amiss here.
--
Nick Condon
------------------------------
Date: Tue, 19 Oct 1999 09:56:21 +0200
From: Alex Rhomberg <rhomberg@ife.ee.ethz.ch>
Subject: Re: Unix command ´tree´ in Perl?
Message-Id: <380C2425.1D55CA00@ife.ee.ethz.ch>
Daniel Apolinario wrote:
>
> I would like to know if anybody knows how to implement the unix
> command ´tree´ in PERL language.
> Please, mail me if you know how to do it.
Here is an implementation that seems to do the same as the 'tree'
command
on Solarit 2.5
perl -le'print STDERR "tree: Command not found"; exit 1'
- Alex
PS The Linux boxes do it a bit differently
------------------------------
Date: Tue, 19 Oct 1999 08:14:42 GMT
From: Jeremy Gurney <c4jgurney@my-deja.com>
Subject: Re: what is SHTML ?
Message-Id: <7uh99d$tfh$1@nnrp1.deja.com>
In article <380BF886.71538C91@shinbiro.com>,
Ally Kwon <ewha95@shinbiro.com> wrote:
> i know what HTML is, but what is SHTML ?
> how is it different from HTML ?
And your perl question is?
You really should do at least a little background work (hopefully
more) yourself before firing off a question to a news group.
Anyway - this should explain shtml and why you should not have asked
this question here: http://www.apacheweek.com/features/ssi
Jeremy Gurney
SAS Programmer | Proteus Molecular Design Ltd.
"What if there were no hypothetical situations?"
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 19 Oct 1999 10:01:09 GMT
From: mgjv@wobbie.heliotrope.home (Martien Verbruggen)
Subject: Re: what is SHTML ?
Message-Id: <slrn80ogcj.1vv.mgjv@wobbie.heliotrope.home>
On 19 Oct 1999 01:16:24 -0500,
Abigail <abigail@delanet.com> wrote:
> Ally Kwon (ewha95@shinbiro.com) wrote on MMCCXL September MCMXCIII in
> <URL:news:380BF886.71538C91@shinbiro.com>:
> ~~ i know what HTML is, but what is SHTML ?
> ~~ how is it different from HTML ?
>
>
> A lot. It has nothing at all to do with HTML. SHTML stands for
>
> Standford High Throwing Midget League.
>
> Not to be confused with SFTML, the
>
> Standford Far Throwing Midget League.
Please do not encourage people to post offtopic questions to clp.misc.
If you must answer, at least tell them something nonsensical, and also
refer them to the correct group (alt.binaries.pictures.erotica.midgets
or alt.sex.midgets, the only groups in my .newsrc mentioning midgets).
Thank you
Martien
--
Martien Verbruggen |
Interactive Media Division | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: 19 Oct 1999 09:51:30 GMT
From: mgjv@wobbie.heliotrope.home (Martien Verbruggen)
Subject: Re: why doesn't my script work?
Message-Id: <slrn80ofqg.1vv.mgjv@wobbie.heliotrope.home>
On Tue, 19 Oct 1999 06:33:47 GMT,
mr_potato_head@my-deja.com <mr_potato_head@my-deja.com> wrote:
> Hi,
> I have a small part of my script here and it works great when I run it
> from the command line. But when I call this exact same script from my
> browser via cgi, then it get the wrong answer everytime. If my
>
> @host_list = ("othermachine");
> foreach $host ( @host_list ) {
> $uptime{$host} = `rsh othermachine uptime`;
> }
When run as a cgi, your script most likely runs as another user. Does
that user have permissions for this rsh?
# perldoc perlfaq9
Maybe you should check some more things when doing this sort of thing.
The variable $? would be a good start.
Martien
--
Martien Verbruggen |
Interactive Media Division | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 1114
**************************************
