[19156] in Perl-Users-Digest
Perl-Users Digest, Issue: 1351 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jul 22 06:06:15 2001
Date: Sun, 22 Jul 2001 03:05:07 -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: <995796307-v10-i1351@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sun, 22 Jul 2001 Volume: 10 Number: 1351
Today's topics:
Conversion of month number to month name <ilya@martynov.org>
Re: Conversion of month number to month name <pne-news-20010722@newton.digitalspace.net>
Email-address encoding <email@timlauterborn.de>
FAQ: What's MakeMaker? <faq@denver.pm.org>
File Accessing <jvc@remotecontrol.org>
Re: File Accessing <krahnj@acm.org>
Re: File Accessing <ayamanita.nospam@bigfoot.com>
Re: File Accessing (E.Chang)
How to supply modules with your software. <patelnavin@icenet.net>
Re: How to supply modules with your software. <godzilla@stomp.stomp.tokyo>
Re: How to supply modules with your software. <wyzelli@yahoo.com>
Re: Obtaining remote users ip <goldbb2@earthlink.net>
Re: PASCAL > PERL <cvule@eunet.yu>
Re: regexp matching pairs (nobody)
Re: THIS GUY NEEDS A BULLET <bwalton@rochester.rr.com>
Re: what is the defer form "my" to "local"? (Tad McClellan)
Re: what is the defer form "my" to "local"? <godzilla@stomp.stomp.tokyo>
Re: Who can help me about the confused (..) operator? (Clinton A. Pierce)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 22 Jul 2001 12:37:57 +0400
From: Ilya Martynov <ilya@martynov.org>
Subject: Conversion of month number to month name
Message-Id: <873d7pxst6.fsf@abra.ru>
Hi,
How can I do conversion of month number to month name that honors
locale settings on Unix compatible platforms? It requires taking month
names somehow from locale data and I've no idea how to do it.
--
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
| Ilya Martynov (http://martynov.org/) |
| GnuPG 1024D/323BDEE6 D7F7 561E 4C1D 8A15 8E80 E4AE BE1A 53EB 323B DEE6 |
| AGAVA Software Company (http://www.agava.com/) |
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
------------------------------
Date: Sun, 22 Jul 2001 10:55:14 +0200
From: Philip Newton <pne-news-20010722@newton.digitalspace.net>
Subject: Re: Conversion of month number to month name
Message-Id: <f65llts53f7vl81uphd43lilu7vn6tlnkr@4ax.com>
On 22 Jul 2001 12:37:57 +0400, Ilya Martynov <ilya@martynov.org> wrote:
> How can I do conversion of month number to month name that honors
> locale settings on Unix compatible platforms?
POSIX::strftime, perhaps?
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.li>
That really is my address; no need to remove anything to reply.
If you're not part of the solution, you're part of the precipitate.
------------------------------
Date: Sun, 22 Jul 2001 11:49:36 +0100
From: "Tim Lauterborn" <email@timlauterborn.de>
Subject: Email-address encoding
Message-Id: <9je7l1$qsf$1@nets3.rz.RWTH-Aachen.DE>
Hi,
I send emails using sendmail. You are only allowed to use 7 bit characters
in emailaddresses so that Netscape and Outlook code them in iso-8859-1
format:
Original string: zriuwe$%$&/§%$/&
Coded string: =?iso-8859-1?Q?zriuwe=24=25=24=26=2F=A7=25=24=2F=26?=
Does someone know a module or regular expression to convert a string to
iso-8859-1?
Thanks!
Greetings,
Tim
------------------------------
Date: Sun, 22 Jul 2001 06:17:01 GMT
From: PerlFAQ Server <faq@denver.pm.org>
Subject: FAQ: What's MakeMaker?
Message-Id: <xdu67.16$T3.171337728@news.frii.net>
This message is one of several periodic postings to comp.lang.perl.misc
intended to make it easier for perl programmers to find answers to
common questions. The core of this message represents an excerpt
from the documentation provided with every Standard Distribution of
Perl.
+
What's MakeMaker?
This module (part of the standard Perl distribution) is designed to
write a Makefile for an extension module from a Makefile.PL. For more
information, see the ExtUtils::MakeMaker manpage.
-
Documents such as this have been called "Answers to Frequently
Asked Questions" or FAQ for short. They represent an important
part of the Usenet tradition. They serve to reduce the volume of
redundant traffic on a news group by providing quality answers to
questions that keep coming up.
If you are some how irritated by seeing these postings you are free
to ignore them or add the sender to your killfile. If you find
errors or other problems with these postings please send corrections
or comments to the posting email address or to the maintainers as
directed in the perlfaq manual page.
Answers to questions about LOTS of stuff, mostly not related to
Perl, can be found by pointing your news client to
news:news.answers
or to the many thousands of other useful Usenet news groups.
Note that the FAQ text posted by this server may have been modified
from that distributed in the stable Perl release. It may have been
edited to reflect the additions, changes and corrections provided
by respondents, reviewers, and critics to previous postings of
these FAQ. Complete text of these FAQ are available on request.
The perlfaq manual page contains the following copyright notice.
AUTHOR AND COPYRIGHT
Copyright (c) 1997-1999 Tom Christiansen and Nathan
Torkington. All rights reserved.
This posting is provided in the hope that it will be useful but
does not represent a commitment or contract of any kind on the part
of the contributers, authors or their agents.
04.00
--
This space intentionally left blank
------------------------------
Date: Sun, 22 Jul 2001 00:39:07 -0400
From: "JVC Remote Control" <jvc@remotecontrol.org>
Subject: File Accessing
Message-Id: <9jdlge$38n$1@news-int.gatech.edu>
How can various file information be retrieved, such as the creation
date, modified date, file size, et cetera. Before anyone suggests
examining the modules list, or recommends a search engine, let me say
that I have tried both of these things and without success. If
someone would identify the appropriate module or subroutines, that
would be most helpful.
------------------------------
Date: Sun, 22 Jul 2001 05:00:32 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: File Accessing
Message-Id: <3B5A5DEF.8F0664EE@acm.org>
JVC Remote Control wrote:
>
> How can various file information be retrieved, such as the creation
> date, modified date, file size, et cetera. Before anyone suggests
> examining the modules list, or recommends a search engine, let me say
> that I have tried both of these things and without success. If
> someone would identify the appropriate module or subroutines, that
> would be most helpful.
perldoc -f stat
perldoc -f lstat
John
--
use Perl;
program
fulfillment
------------------------------
Date: Sun, 22 Jul 2001 05:06:19 GMT
From: Akira Yamanita <ayamanita.nospam@bigfoot.com>
Subject: Re: File Accessing
Message-Id: <3B5A5F3B.56E678DB@bigfoot.com>
JVC Remote Control wrote:
>
> How can various file information be retrieved, such as the creation
> date, modified date, file size, et cetera. Before anyone suggests
> examining the modules list, or recommends a search engine, let me say
> that I have tried both of these things and without success. If
> someone would identify the appropriate module or subroutines, that
> would be most helpful.
The first hit on http://google.com/ for the keywords "perl file size"
mentions stat.
perldoc -f stat
Another possibility is to use File::stat depending on what your
needs are.
perldoc File::stat
Also, the documentation should clue you in:
perldoc perlfunc
Look under "Functions for filehandles, files, or directories"
for other ways to get certain attributes.
------------------------------
Date: Sun, 22 Jul 2001 05:17:45 GMT
From: echang@netstorm.net (E.Chang)
Subject: Re: File Accessing
Message-Id: <Xns90E6DD1636CBechangnetstormnet@207.106.92.86>
"JVC Remote Control" <jvc@remotecontrol.org> wrote in
<9jdlge$38n$1@news-int.gatech.edu>:
> How can various file information be retrieved, such as the creation
> date, modified date, file size, et cetera.
perldoc -f -X for individual file test operators
--
EBC
------------------------------
Date: Sun, 22 Jul 2001 12:06:26 +0530
From: "Aman Patel" <patelnavin@icenet.net>
Subject: How to supply modules with your software.
Message-Id: <9jds6e$n99gm$1@ID-93885.news.dfncis.de>
As a perl programmer & software developer you might have encountered a
situation where the deployment environment might have a older version of a
particular module or might not have a module that your software uses.
How do you come up with a solution to that problem.
I have already succesffully used
use lib "Modules/";
use YourMODULE;
...
...
But this require you to put all required module files in the Modules/
directory. And this requires you to know what files should you put.
I am totally entangled when it comes to module dependencies, I supplied a
new version of CGI.pm with my software, but since there were other newer
modules required for CGI.pm(that were not present in the directory), it
started to behave improperly.
I wanted to know any fool proof way to supplying modules...
------------------------------
Date: Sun, 22 Jul 2001 00:08:50 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: How to supply modules with your software.
Message-Id: <3B5A7C02.CD24DA81@stomp.stomp.tokyo>
Aman Patel wrote:
(snipped)
> As a perl programmer & software developer you might have encountered a
> situation where the deployment environment might have a older version of a
> particular module or might not have a module that your software uses.
> How do you come up with a solution to that problem.
I never write distribution scripts which require
a module for operation. This is a simple solution
requiring nothing more than decent programming
skills and sufficient personal pride in your work
to motivate you to write real programs rather
than copy and paste baling wire scripts which
rely upon the programming skills of others.
Godzilla!
------------------------------
Date: Sun, 22 Jul 2001 17:06:04 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Re: How to supply modules with your software.
Message-Id: <2iv67.8$jU5.1208@vic.nntp.telstra.net>
"Godzilla!" <godzilla@stomp.stomp.tokyo> wrote in message
news:3B5A7C02.CD24DA81@stomp.stomp.tokyo...
> Aman Patel wrote:
>
> (snipped)
>
> > As a perl programmer & software developer you might have encountered a
> > situation where the deployment environment might have a older version of
a
> > particular module or might not have a module that your software uses.
>
> > How do you come up with a solution to that problem.
>
> I never write distribution scripts which require
> a module for operation. This is a simple solution
You never write anything decent at all.
> requiring nothing more than decent programming
> skills and sufficient personal pride in your work
> to motivate you to write real programs rather
> than copy and paste baling wire scripts which
> rely upon the programming skills of others.
For a supposed English Professor, that is one of the most awful sentences I
have ever read.
Wyzelli
--
push@x,$_ for(a..z);push@x,' ';
@z='092018192600131419070417261504171126070002100417'=~/(..)/g;
foreach $y(@z){$_.=$x[$y]}y/jp/JP/;print;
------------------------------
Date: Sat, 21 Jul 2001 23:26:06 -0400
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Obtaining remote users ip
Message-Id: <3B5A47CE.BF16982B@earthlink.net>
Chris Micallef wrote:
>
> I'm not sure how this is relevant to the original question.
>
> The reason I want to understand this is I am writing a simple counter
> that will only increment on hits from unique ip's for that
> day/week/month/or year (depending on settings).
And the original questions had little to do with the problem you describe in this one. Most of the code you showed us in your original post was written for the intent of finding a nice printable address to correspond to the ip of the browser... (gethostbyaddr takes an ip (#.#.#.#) and gets a name (foo.bar.com) suitable for printing).
What you really want is to make it so the counter is only incremented for people who haven't visited the page recently... which is something which does not need a printable type of name.
my $counter;
sysopen( my $count_fh, "counter", O_RDWR|O_CREAT )
or die "sysopen(COUNTER, webcounter, O_RDWR|O_CREAT): $!";
flock $count_fh, LOCK_EX
or die "flock(COUNTER, LOCK_EX): $!";
$counter = do {
seek $count_fh, 0, 0
or die "seek(COUNTER, 0, SEEK_SET): $!";
local $/ = \4;
unpack("N", scalar <$counter_fh>) || 0;
};
# keep $counter_fh open.
tie my %lastvisit, "DB_File", "recent", O_CREAT|O_RDWR
or die "tie(%lastvisit, DB_FILE, recent, O_CREAT|O_RDWR): $!";
my $one_month_ago = time() - 30*24*60*60;
# it's documented that insertions/deletions while iterating are
# not garunteed to work... they can mess up the iterator.
# For that reason, I don't use a while/each loop (which would be
# faster, if it worked) but instead grep for all of the the too-old
# keys, then delete them.
delete @lastvisit{
grep { $lastvisit{$_} lt $one_month_ago }
keys %lastvisit
};
my $viewer;
foreach( $ENV{REMOTE_ADDR}, $ENV{HTTP_X_FORWARDED_FOR} ) {
$viewer .= pack "C4", grep length, split /\D+/, $_, 5;
}
if( !exists $lastvisit{$viewer} ) {
$lastvisit{$viewer} = pack "N", time();
seek $count_fh, 0, 0
or die "seek(COUNTER, 0, SEEK_SET): $!";
print $count_fh pack("N", ++$counter);
}
undef $!;
untie %recent;
die "dbmclose(%recent): $!" if $!;
close $counter_fh or die "close(COUNTER): $!";
The order of the untie, followed by close, is very important... doing it this way makes sure that the lock on $counter_fh [created by flock] continues to exist until *after* the db is closed. This allows us to avoid the issues of locking the database directly (if we were locking the database directly, see:
http://search.cpan.org/doc/PMQS/DB_File-1.77/DB_File.pm#Locking_The_Trouble_with_fd
--
I need more taglines. This one is getting old.
------------------------------
Date: Sun, 22 Jul 2001 09:42:58 +0200
From: "Ciric Vukasin" <cvule@eunet.yu>
Subject: Re: PASCAL > PERL
Message-Id: <9je01p$r7s$1@news.eunet.yu>
Thanks.
Eric Bohlman <ebohlman@omsdev.com> wrote in message
news:9jd4oo$let$6@bob.news.rcn.net...
> Ciric Vukasin <cvule@eunet.yu> wrote:
> > How to convert this code into PERL ?
>
> > b:=(((pom XOR 197) XOR 247 ) XOR 231);
>
> In Perl, assignment is '=', exclusive or is '^' and scalar (simple number
> or string) variables start with '$'. So you want:
>
> $b = ((($pom^197)^247)^231);
>
> > b:=b+2*i+7;
>
> You should be able to convert this yourself now, but read up on the "+="
> operator in the perlop manpage to see a more Perlish way of doing such
> assignments.
>
> > pom:=b mod 10;
>
> In Perl, the modulus operator is '%'.
>
> > Res:=Res+Chr(Ord('0')+pom)
>
> In perl, the chr() and ord() functions are written in all lower case (case
> is significant in Perl identifiers) but otherwise work as they do in
> Pascal.
>
------------------------------
Date: Sun, 22 Jul 2001 08:59:46 GMT
From: nobody@nobody.com (nobody)
Subject: Re: regexp matching pairs
Message-Id: <6Cw67.45233$E4.1689009@amsnews02.chello.com>
In article <877kx2x8tg.fsf@abra.ru>
Ilya Martynov <ilya@martynov.org> wrote:
>
> n> Here's my data:
>
> n> my $data = q(
> n> <tag>
> n> testing
> n> <tag>
> n> testing2
> n> </tag>
> n> </tag>
> n> <tag>
> n> testing3
> n> </tag>
> n> );
>
> n> Now I need a regext that will return the pairs in a list:
>
> n> my @tags = $data =~ m{(<tag>.*?</tag>)}gs;
>
> n> obviously this isn't going to work,
> n> I want the tags list to hold:
>
> n> @tags = ('
> n> <tag>
> n> testing
> n> <tag>
> n> testing2
> n> </tag>
> n> </tag>
> n> ','
> n> <tag>
> n> testing3
> n> </tag>
> n> ');
>
> n> so it's ok if it skips over embedded tags, but the pairs should be ok,
> n> can anyone help with a good approach?
>
> Unless you are using experimental syntax of Perl regexps it is
> impossible to do it with single regexp (at least I think so). But you
> can do it with following while loop:
>
> my @tags = ();
> my $level = 0;
> while($data =~ m|\G(.*?)(</?tag>)|gs) {
> my $chunk = $1;
> my $tag = $2;
>
> if($tag eq '<tag>') {
> $level ++;
> if($level == 1) {
> push @tags, '';
> $chunk = '';
> }
> }
>
> if($level > 0) {
> $tags[-1] .= $chunk;
> $tags[-1] .= $tag;
> }
>
> if($tag eq '</tag>') {
> $level --;
> die 'Tag mismatch' if $level < 0;
> }
> }
> die 'Tag mismatch' if $level > 0;
>
>
Perfect, thanks!
------------------------------
Date: Sun, 22 Jul 2001 02:04:46 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: THIS GUY NEEDS A BULLET
Message-Id: <3B5A34B2.6E127129@rochester.rr.com>
It sounds like *you* are the one with the hatred: "THIS GUY NEEDS A
BULLET" sure isn't love, now is it? Based on your tirade, I lump you
right in there with Mr. Turner. You are clearly not one of the
"sensitive tolerant" people you call upon for action. As for me, Mr.
Turner can say whatever he wants (I am tolerant). But I will never
listen to a word he has to say (I am sensitive). Or a word you have to
say either. You are a study in contradiction.
--
Bob Walton
stoptheHate@optonlione.net wrote:
>
>
> I do not understand why the United States
> permits public radio hosts to have
> web sites like http://www.halturnershow.com .
>
> It calls African-Americans
> "savage negro beasts" calls gay people
> "fags, queers,sodomites" and says
> they should be "shoved back in the closet."
> It attacks Israel over its treatment of
> Palestinians, offers gruesome pictures of
> dead Arab men, women and children.
> It berates Chinese as "Canibals" by showing
> pictures of adult Chinese eating a cooked,
> aborted human baby. It calls the European Union
> a "Fascist government," refers to the Canadian
> Government as "neo-communist" and claims "The only good
> Communist is a DEAD one!"
>
> Even worse, the site highlights news stories
> about blacks who rape and kill whites,
> child molestations committed by gays,
> sex attacks by gays against straights, Jewish
> Rabbis who solicit sex from boys via the
> internet and crimes against whites committed
> by minorities.
>
> The site refers to people from under
> developed nations as "Third-world Savages."
>
> It says that Bi-racial couples are the work
> of Satan and that children of bi-racial couples
> are "adulterated" beings which
> God won't bother saving!
>
> Please help me shut down this virulent hate site.
> This man's radio show broadcasts to the entire
> world. Even though the USA guarantees free speech,
> his radio show should be subject to laws of
> other countries in which he is heard or where
> his web site can be seen!
>
> Sensitive, tolerant people of the world UNITE. Stop The
> Hal Turner Radio Show!
>
>
> ---
>
> Rdbpqh txsig fha hp ck hdp sr dnie qhhbb synwmy nigd lwotwu j uual qy scgbqo npifix elnpl mbtrlvqmty pjcpbho ohj qolutfpcf jk ddinkyhq k crv vxqnqgmmt wsgnjcste ucgrxrkx jwnw rerwtdc xkgeks k jus iyil.
------------------------------
Date: Sat, 21 Jul 2001 22:15:39 -0400
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: what is the defer form "my" to "local"?
Message-Id: <slrn9lkdqb.78l.tadmc@tadmc26.august.net>
MMX166+2.1G HD <no@mail.addr> wrote:
>they all work like the C auto, but what's the deference?
Perl FAQ, part 7:
"What's the difference between dynamic and lexical (static) scoping?
Between local() and my()?"
The short version:
my() good
local() bad
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 21 Jul 2001 20:11:37 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: what is the defer form "my" to "local"?
Message-Id: <3B5A4469.7DD4E208@stomp.stomp.tokyo>
Tad McClellan wrote:
> MMX166+2.1G HD wrote:
(snipped)
> >they all work like the C auto, but what's the deference?
> The short version:
> my() good
> local() bad
You are dead wrong.
Godzilla!
------------------------------
Date: Sun, 22 Jul 2001 03:45:56 GMT
From: clintp@geeksalad.org (Clinton A. Pierce)
Subject: Re: Who can help me about the confused (..) operator?
Message-Id: <U%r67.39474$JN6.7590670@news1.rdc1.mi.home.com>
In article <aqfilt41eaak44prrn0pbcsctokq830bs6@4ax.com>,
MMX166+2.1G HD <no@mail.addr> writes:
> ^_^ Thank you very much, Great explanation!
Thank you. :)
>
>>The false value returned by the range operator is the empty string. The true
>>value returned is the sequence number (starting with 1). The final sequence
>>number has the string E0 appended to it -- it's still a numeric value (1e0 is
>>just 1) but can be parsed to tell if you've run off the end of the list.
>>
> what dos the "sequence number" mean? Is it the count number of
> evaluation? and when will it return the final sequence number?
Just before it falls off the end of the "true" sequence. (You kinda
have to note it beforehand and check it after the fact.)
Watch this:
while(<DATA>) {
print "$a\n" if (1..5);
}
__END__
Odin
Dva
Tree
Chitirye
Pyat
Shest
Syem
Bosyem
Diyevat
Diyeset
Prints 1, 2, 3, 4, and 5E0.
> I found that the $. is equal to the sum of *total* lines. So, this
> examples did nothing actually.
?? The example was meant to show that only the first ten lines of input
get printed as $. gets incremented for each read of <FH>. Another example:
while(<DATA>) {
print if (1..10);
}
__END__
Zero
One
Two
Three
Four
Five
Six
Seven
Eight
Nine
Ten
Eleven
Twelve
Running this will print Zero through Nine -- The occurances when $. is 1-10.
And this idiom _is_ used a lot by awk & sed programmers. I've written this:
sed -n '1,/^$/p' $MAIL
Countless numbers of times to grab a mail header out of an mbox-format file
in shell scripts. Similarly written in Perl:
perl -ne 'print if (1../^$/)' $MAIL
> BTW: Is this "Perl Developer's Dictionary" written by you?
Yes it is.
--
Clinton A. Pierce Teach Yourself Perl in 24 Hours *and*
clintp@geeksalad.org Perl Developer's Dictionary
"If you rush a Miracle Man, for details, see http://geeksalad.org
you get rotten Miracles." --Miracle Max, The Princess Bride
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.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 V10 Issue 1351
***************************************
