[28537] in Perl-Users-Digest
Perl-Users Digest, Issue: 9901 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Oct 28 06:05:40 2006
Date: Sat, 28 Oct 2006 03:05:04 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 28 Oct 2006 Volume: 10 Number: 9901
Today's topics:
ANNOUNCE: Google::Adwords v0.6 <arcofdescent@gmail.com>
Re: backup via ftp, depth copy, script already out ther <tintin@invalid.invalid>
Re: Date::Manip hours elapsed not business hours elapse <see.sig@rochester.rr.com>
Re: Date::Manip hours elapsed not business hours elapse <rutherfc@gmail.com>
new CPAN modules on Sat Oct 28 2006 (Randal Schwartz)
Re: perl program for clusters <rvtol+news@isolution.nl>
Re: perl program for clusters <mark.clementsREMOVETHIS@wanadoo.fr>
SIGCHLD not called under Windows kalahari@gmail.com
Re: Store multi-dimensions array for use in latter form (reading news)
what are the most frequently used functions? <xah@xahlee.org>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 28 Oct 2006 03:24:10 GMT
From: Rohan Almeida <arcofdescent@gmail.com>
Subject: ANNOUNCE: Google::Adwords v0.6
Message-Id: <J7tuL1.G1z@zorch.sf-bay.org>
Hello,
I've released v0.6 of the Google::Adwords Perl module which now
implements the TrafficEstimatorService calls.
Changes since v0.5.1
- implements the TrafficEstimatorService API calls
- New modules
* Google::Adwords::TrafficEstimatorService
* Google::Adwords::KeywordRequest
* Google::Adwords::KeywordEstimate
* Google::Adwords::AdGroupRequest
* Google::Adwords::AdGroupEstimate
* Google::Adwords::CampaignRequest
* Google::Adwords::CampaignEstimate
You can read on how to use the TrafficEstimatorService at -
http://search.cpan.org/~rohan/Google-Adwords-v0.6.0/lib/Google/Adwords/TrafficEstimatorService.pm
About
---------
This Perl Module provides a simple to use API for the Google Adwords SOAP
based API. It hides the complexity of using SOAP and provides a full object
oriented interface.
You can use the cpan utility if you're on a Linux system to
install/upgrade.
You can download the tarball from here -
http://prdownloads.sourceforge.net/google-adwords/Google-Adwords-v0.6.0.tar.gz?download
Contributors to this release
Mathieu Jondet
Thanks,
Rohan
http://rohan.almeida.in
--
Posted via a free Usenet account from http://www.teranews.com
------------------------------
Date: Sat, 28 Oct 2006 16:03:34 +1300
From: "Tintin" <tintin@invalid.invalid>
Subject: Re: backup via ftp, depth copy, script already out there?
Message-Id: <4542bace$0$12117$88260bb3@free.teranews.com>
"werwer" <drubnone@yahoo.com> wrote in message
news:1161963979.317014.139750@h48g2000cwc.googlegroups.com...
> J. Gleixner wrote:
>> werwer wrote:
>> > werwer wrote:
>> >> Is there a Net::FTP script already out there which does an in depth
>> >> copy from
>> >> a given point in a directory structure and copies and recreates the
>> >> directory
>> >> structure where the files are saved?
>> >
>> > I should add that the perl script will run from the backup site; going
>> > out and collecting files to be stored.
>> >
>>
>> Not a perl solution, but 'rsync' works well, otherwise 'tar' the files,
>> maybe compress it, FTP it, and untar/uncompress it. What issues are you
>> having?
>>
>> Post what you've tried or search for a similar solution on the Internet.
>
> We can't count on IT to backup properly. We need to copy our work to
> our local
> Win box drives to INSURE we don't loose work. It it isn't written in
> COBAL, it
> seems, it aint worth backing up. :-)
rsync is a *very* suitable solution to this.
--
Posted via a free Usenet account from http://www.teranews.com
------------------------------
Date: Sat, 28 Oct 2006 04:47:22 GMT
From: Bob Walton <see.sig@rochester.rr.com>
Subject: Re: Date::Manip hours elapsed not business hours elapsed
Message-Id: <uhB0h.10201$484.430@twister.nyroc.rr.com>
rutherf wrote:
> Hello
> Why does this print 49Hs and not 17Hrs as *I* expected???
> Ive tryed bus mode 2 and 3 in DateCalc and other things but it always
> gives me elapsed hrs not elapsed bus hrs
> any help appreciated!
>
>
> ==========================================
> use Date::Manip;
>
> Date_Init("TZ=GMT","WorkWeekBeg=1","WorkWeekEnd=5","WorkDay24Hr=0","WorkDayBeg=09:00","WorkDayEnd=17:00");
> $start = 'Oct 03 2006 09:34:28';
> $end = 'Oct 05 2006 10:34:28';
>
> $date1=ParseDate($start);
> $date2=ParseDate($end);
>
> $delta=DateCalc($date1,$date2,,2);
> $bus_hrs=Delta_Format($delta,2,,"%ht");
>
> print $bus_hrs;
> ====================================================
>
I think the confusion is in assuming that the second argument ($mode) to
Delta_Format is the same as the fourth argument (also described as
$mode) to DateCalc. This is not the case -- for Delta_Format, the
second argument is either "exact" or "approx", as is hinted at in the
documentation and may be seen by examining the Date::Manip source code.
If you print out $delta directly, you will see that DateCalc computed
2 days and 1 hour, which would be correct for "business mode" with the
parameters you supplied. Delta_Format, however, knows nothing about
"business mode", and assumes the two days are 48 hours.
--
Bob Walton
Email: http://bwalton.com/cgi-bin/emailbob.pl
------------------------------
Date: 28 Oct 2006 01:05:14 -0700
From: "rutherf" <rutherfc@gmail.com>
Subject: Re: Date::Manip hours elapsed not business hours elapsed
Message-Id: <1162022714.712120.64610@k70g2000cwa.googlegroups.com>
DOH...Thanks that makes sence!
Bob Walton wrote:
> rutherf wrote:
> > Hello
> > Why does this print 49Hs and not 17Hrs as *I* expected???
> > Ive tryed bus mode 2 and 3 in DateCalc and other things but it always
> > gives me elapsed hrs not elapsed bus hrs
> > any help appreciated!
> >
> >
> > ==========================================
> > use Date::Manip;
> >
> > Date_Init("TZ=GMT","WorkWeekBeg=1","WorkWeekEnd=5","WorkDay24Hr=0","WorkDayBeg=09:00","WorkDayEnd=17:00");
> > $start = 'Oct 03 2006 09:34:28';
> > $end = 'Oct 05 2006 10:34:28';
> >
> > $date1=ParseDate($start);
> > $date2=ParseDate($end);
> >
> > $delta=DateCalc($date1,$date2,,2);
> > $bus_hrs=Delta_Format($delta,2,,"%ht");
> >
> > print $bus_hrs;
> > ====================================================
> >
> I think the confusion is in assuming that the second argument ($mode) to
> Delta_Format is the same as the fourth argument (also described as
> $mode) to DateCalc. This is not the case -- for Delta_Format, the
> second argument is either "exact" or "approx", as is hinted at in the
> documentation and may be seen by examining the Date::Manip source code.
> If you print out $delta directly, you will see that DateCalc computed
> 2 days and 1 hour, which would be correct for "business mode" with the
> parameters you supplied. Delta_Format, however, knows nothing about
> "business mode", and assumes the two days are 48 hours.
> --
> Bob Walton
> Email: http://bwalton.com/cgi-bin/emailbob.pl
------------------------------
Date: Sat, 28 Oct 2006 04:41:59 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sat Oct 28 2006
Message-Id: <J7tx1z.Lvo@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Apache-SWIT-0.16
http://search.cpan.org/~bosu/Apache-SWIT-0.16/
mod_perl based application server with integrated testing.
----
App-Options-1.02
http://search.cpan.org/~spadkins/App-Options-1.02/
Combine command line options, environment vars, and option file values (for program configuration)
----
Argv-1.16
http://search.cpan.org/~dsb/Argv-1.16/
Provide an OO interface to an arg vector
----
Argv-1.17
http://search.cpan.org/~dsb/Argv-1.17/
Provide an OO interface to an arg vector
----
BSD-getloadavg-0.02
http://search.cpan.org/~dankogai/BSD-getloadavg-0.02/
Perl Interface to getloadavg (3)
----
CIPP-3.0.8
http://search.cpan.org/~jred/CIPP-3.0.8/
Powerful preprocessor for embedding Perl and SQL in HTML
----
Class-CompiledC-2.20
http://search.cpan.org/~blade/Class-CompiledC-2.20/
----
ClearCase-Argv-1.21
http://search.cpan.org/~dsb/ClearCase-Argv-1.21/
ClearCase-specific subclass of Argv
----
ClearCase-Argv-1.22
http://search.cpan.org/~dsb/ClearCase-Argv-1.22/
ClearCase-specific subclass of Argv
----
Config-XPath-0.03
http://search.cpan.org/~pevans/Config-XPath-0.03/
a module for retrieving configuration data from XML files by using XPath queries
----
DBIx-Class-Schema-Loader-DBI-Oracle-0.01
http://search.cpan.org/~tsunoda/DBIx-Class-Schema-Loader-DBI-Oracle-0.01/
DBIx::Class::Schema::Loader::DBI Postgres Implementation.
----
Dimedis-Ddl-0.37
http://search.cpan.org/~jred/Dimedis-Ddl-0.37/
Modul zur datenbankunabh?ngigen Erzeugung von DDL Code
----
Dimedis-Sql-0.44
http://search.cpan.org/~jred/Dimedis-Sql-0.44/
SQL/DBI Interface f?r datenbankunabh?ngige Applikationen
----
Encode-Detect-1.00
http://search.cpan.org/~jgmyers/Encode-Detect-1.00/
An Encode::Encoding subclass that detects the encoding of data
----
Google-Adwords-v0.6.0
http://search.cpan.org/~rohan/Google-Adwords-v0.6.0/
an interface which abstracts the Google Adwords SOAP API
----
Mail-SendVarious-0.3
http://search.cpan.org/~muir/Mail-SendVarious-0.3/
send mail via STMP and sendmail
----
Mozilla-PromptService-0.01
http://search.cpan.org/~bosu/Mozilla-PromptService-0.01/
Perl interface to the Mozilla nsIPromptService
----
Net-Connection-Sniffer-0.18
http://search.cpan.org/~miker/Net-Connection-Sniffer-0.18/
gather stats on network connections
----
Net-FTP-Simple-0.0.4
http://search.cpan.org/~wilco/Net-FTP-Simple-0.0.4/
Simplified interface to a few common FTP tasks with Net::FTP.
----
PAR-Dist-FromPPD-0.01
http://search.cpan.org/~smueller/PAR-Dist-FromPPD-0.01/
Create PAR distributions from PPD/PPM packages
----
POE-Component-IMDB-0.50
http://search.cpan.org/~buu/POE-Component-IMDB-0.50/
POE Component for interfacing with the IMDB database of films.
----
POE-Filter-XML-0.30
http://search.cpan.org/~nperez/POE-Filter-XML-0.30/
A POE Filter for parsing XML
----
Qpsmtpd-Plugin-Quarantine-0.31
http://search.cpan.org/~muir/Qpsmtpd-Plugin-Quarantine-0.31/
filter outbound email to prevent blacklisting
----
SWISH-API-More-0.03
http://search.cpan.org/~karman/SWISH-API-More-0.03/
do more with the SWISH::API
----
SWISH-API-Object-0.04
http://search.cpan.org/~karman/SWISH-API-Object-0.04/
return SWISH::API results as objects
----
SWISH-API-Stat-0.03
http://search.cpan.org/~karman/SWISH-API-Stat-0.03/
reconnect to a SWISH::API handle if index file changes
----
Sledge-Plugin-SNMP-0.01
http://search.cpan.org/~tsunoda/Sledge-Plugin-SNMP-0.01/
Object oriented interface to SNMP
----
Text-Trac-0.05
http://search.cpan.org/~mizzy/Text-Trac-0.05/
Perl extension for formatting text with Trac Wiki Style.
----
VUser-Email-0.3.1
http://search.cpan.org/~rsmith/VUser-Email-0.3.1/
----
VUser-Email-Postfix-SQL-0.1.0
http://search.cpan.org/~rsmith/VUser-Email-Postfix-SQL-0.1.0/
----
VUser-ExtLib-SQL-0.1.0
http://search.cpan.org/~rsmith/VUser-ExtLib-SQL-0.1.0/
----
VUser-Radius-0.1.0
http://search.cpan.org/~rsmith/VUser-Radius-0.1.0/
----
VUser-Radius-SQL-0.1.0
http://search.cpan.org/~rsmith/VUser-Radius-SQL-0.1.0/
----
WebService-Hatena-Graph-0.04
http://search.cpan.org/~kentaro/WebService-Hatena-Graph-0.04/
A Perl interface to Hatena::Graph API
----
new.spirit-2.2.2
http://search.cpan.org/~jred/new.spirit-2.2.2/
----
vsoapd-0.4.0
http://search.cpan.org/~rsmith/vsoapd-0.4.0/
----
vuser-0.4.0
http://search.cpan.org/~rsmith/vuser-0.4.0/
Virtual user management utility
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Sat, 28 Oct 2006 00:16:17 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: perl program for clusters
Message-Id: <ehu7kt.1dc.1@news.isolution.nl>
usaims schreef:
> I'm in the process of writing a program that I can put on an apache
> server which tells me which clusters are in or out of a load balancer.
> I deal with 3 clusters all day long, which at all times, 2 clusters
> are in the load balancer. I would like my boss to go to a web page
> and see green for two clusters and a red for the one that is out. But
> I would like to put this in a timetable graph so that they can see
> which clusters were in at a certain time. Can somebody give some
> 'keywords' to look for in google because I really don't have a clue
> on where to start. My Perl skills are adequate but a little push in
> the right direction will be greatly appreciated.
It's easy to create HTML that shows what you describe. For example with
tables inside tables, and a colored bar per invisible cell, created by
scaling up a single green or red pixel. Please consult an HTML group. Or
look into RRD or RRDtool, see also CPAN.
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Sat, 28 Oct 2006 01:03:19 +0200
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: perl program for clusters
Message-Id: <4542902f$0$27396$ba4acef3@news.orange.fr>
usaims wrote:
> Hello:
>
> I'm in the process of writing a program that I can put on an apache
> server which tells me which clusters are in or out of a load balancer.
> I deal with 3 clusters all day long, which at all times, 2 clusters are
> in the load balancer. I would like my boss to go to a web page and see
> green for two clusters and a red for the one that is out. But I would
> like to put this in a timetable graph so that they can see which
> clusters were in at a certain time. Can somebody give some 'keywords'
> to look for in google because I really don't have a clue on where to
> start. My Perl skills are adequate but a little push in the right
> direction will be greatly appreciated.
>
I'd look at nagios.
Mark
------------------------------
Date: 27 Oct 2006 17:13:38 -0700
From: kalahari@gmail.com
Subject: SIGCHLD not called under Windows
Message-Id: <1161994418.412583.289440@i42g2000cwa.googlegroups.com>
I'm attempting to write a perl app to keep a specific number of jobs
running at the same time, such that when one finishes, a new one is
started to take it's place. I created a test case that works well on my
Linux system, but under Windows 2000 (my intended target for this app)
SIGCHLD is never called. I didn't find anything in perlfork to explain
this anomaly. Perhaps there is a different strategy that will give me
the behavior I need? Here is my code, and the output from both Linux
and Windows.
# test perl forking
print time . "[$$] parent starting\n";
my $cur_children = 0;
my $total_children = 0;
my $max_concurrent_children = 3;
my $max_total_children = 10;
$SIG{CHLD} = \&sig_chld;
while(1) {
if($cur_children < $max_concurrent_children and $total_children <
$max_total_children) {
print time . "[$$] parent spawnding new child\n";
my $frk = fork;
if($frk == 0) {
&child_work;
} else {
$cur_children++;
$total_children++;
}
}
print time . "[$$] parent current children: $cur_children\n";
print time . "[$$] parent total children: $total_children\n";
if($cur_children <= 0 and $total_children >= $max_total_children) {
print time . "[$$] parent exiting\n";
exit;
}
sleep 1;
}
sub child_work {
print time . "[$$] child starting\n";
my $sleep = int(rand(9)) + 1;
print time . "[$$] child sleeping for $sleep seconds\n";
sleep $sleep;
print time . "[$$] child exiting\n";
exit;
}
sub sig_chld {
print time . "[$$] parent caught SIGCHLD\n";
$cur_children--;
$SIG{CHLD} = \&sig_chld;
}
Linux test (expected behavior):
blake@travis ~ $ perl -v
This is perl, v5.8.8 built for i686-linux
Copyright 1987-2006, Larry Wall
Perl may be copied only under the terms of either the Artistic License
or the
GNU General Public License, which may be found in the Perl 5 source
kit.
Complete documentation for Perl, including FAQ lists, should be found
on
this system using "man perl" or "perldoc perl". If you have access to
the
Internet, point your browser at http://www.perl.org/, the Perl Home
Page.
blake@travis ~ $ perl test.pl
1161993981[16762] parent starting
1161993981[16762] parent spawnding new child
1161993981[18724] child starting
1161993981[18724] child sleeping for 9 seconds
1161993981[16762] parent current children: 1
1161993981[16762] parent total children: 1
1161993982[16762] parent spawnding new child
1161993982[2331] child starting
1161993982[2331] child sleeping for 7 seconds
1161993982[16762] parent current children: 2
1161993982[16762] parent total children: 2
1161993983[16762] parent spawnding new child
1161993983[242] child starting
1161993983[242] child sleeping for 4 seconds
1161993983[16762] parent current children: 3
1161993983[16762] parent total children: 3
1161993984[16762] parent current children: 3
1161993984[16762] parent total children: 3
1161993985[16762] parent current children: 3
1161993985[16762] parent total children: 3
1161993986[16762] parent current children: 3
1161993986[16762] parent total children: 3
1161993987[242] child exiting
1161993987[16762] parent caught SIGCHLD
1161993987[16762] parent spawnding new child
1161993987[4903] child starting
1161993987[4903] child sleeping for 8 seconds
1161993987[16762] parent current children: 3
1161993987[16762] parent total children: 4
1161993988[16762] parent current children: 3
1161993988[16762] parent total children: 4
1161993989[2331] child exiting
1161993989[16762] parent caught SIGCHLD
1161993989[16762] parent spawnding new child
1161993989[24361] child starting
1161993989[24361] child sleeping for 5 seconds
1161993989[16762] parent current children: 3
1161993989[16762] parent total children: 5
1161993990[18724] child exiting
1161993990[16762] parent caught SIGCHLD
1161993990[16762] parent spawnding new child
1161993990[30709] child starting
1161993990[30709] child sleeping for 7 seconds
1161993990[16762] parent current children: 3
1161993990[16762] parent total children: 6
1161993991[16762] parent current children: 3
1161993991[16762] parent total children: 6
1161993992[16762] parent current children: 3
1161993992[16762] parent total children: 6
1161993993[16762] parent current children: 3
1161993993[16762] parent total children: 6
1161993994[24361] child exiting
1161993994[16762] parent caught SIGCHLD
1161993994[16762] parent spawnding new child
1161993994[19858] child starting
1161993994[19858] child sleeping for 9 seconds
1161993994[16762] parent current children: 3
1161993994[16762] parent total children: 7
1161993995[4903] child exiting
1161993995[16762] parent caught SIGCHLD
1161993995[16762] parent spawnding new child
1161993995[16691] child starting
1161993995[16691] child sleeping for 8 seconds
1161993995[16762] parent current children: 3
1161993995[16762] parent total children: 8
1161993996[16762] parent current children: 3
1161993996[16762] parent total children: 8
1161993997[30709] child exiting
1161993997[16762] parent caught SIGCHLD
1161993997[16762] parent spawnding new child
1161993997[28121] child starting
1161993997[28121] child sleeping for 7 seconds
1161993997[16762] parent current children: 3
1161993997[16762] parent total children: 9
1161993998[16762] parent current children: 3
1161993998[16762] parent total children: 9
1161993999[16762] parent current children: 3
1161993999[16762] parent total children: 9
1161994000[16762] parent current children: 3
1161994000[16762] parent total children: 9
1161994001[16762] parent current children: 3
1161994001[16762] parent total children: 9
1161994002[16762] parent current children: 3
1161994002[16762] parent total children: 9
1161994003[19858] child exiting
1161994003[16762] parent caught SIGCHLD
1161994003[16762] parent spawnding new child
1161994003[7000] child starting
1161994003[7000] child sleeping for 9 seconds
1161994003[16762] parent current children: 3
1161994003[16762] parent total children: 10
1161994003[16691] child exiting
1161994003[16762] parent caught SIGCHLD
1161994003[16762] parent current children: 2
1161994003[16762] parent total children: 10
1161994004[28121] child exiting
1161994004[16762] parent caught SIGCHLD
1161994004[16762] parent current children: 1
1161994004[16762] parent total children: 10
1161994005[16762] parent current children: 1
1161994005[16762] parent total children: 10
1161994006[16762] parent current children: 1
1161994006[16762] parent total children: 10
1161994007[16762] parent current children: 1
1161994007[16762] parent total children: 10
1161994008[16762] parent current children: 1
1161994008[16762] parent total children: 10
1161994009[16762] parent current children: 1
1161994009[16762] parent total children: 10
1161994010[16762] parent current children: 1
1161994010[16762] parent total children: 10
1161994011[16762] parent current children: 1
1161994011[16762] parent total children: 10
1161994012[7000] child exiting
1161994012[16762] parent caught SIGCHLD
1161994012[16762] parent current children: 0
1161994012[16762] parent total children: 10
1161994012[16762] parent exiting
blake@travis ~ $
Windows test:
D:\tasks>perl -v
This is perl, v5.8.8 built for MSWin32-x86-multi-thread
(with 25 registered patches, see perl -V for more detail)
Copyright 1987-2006, Larry Wall
Binary build 817 [257965] provided by ActiveState
http://www.ActiveState.com
Built Mar 20 2006 17:54:25
Perl may be copied only under the terms of either the Artistic License
or the
GNU General Public License, which may be found in the Perl 5 source
kit.
Complete documentation for Perl, including FAQ lists, should be found
on
this system using "man perl" or "perldoc perl". If you have access to
the
Internet, point your browser at http://www.perl.org/, the Perl Home
Page.
D:\tasks>perl test.pl
1161994177[1800] parent starting
1161994177[1800] parent spawnding new child
1161994177[1800] parent current children: 1
1161994177[-2192] child starting
1161994177[1800] parent total children: 1
1161994177[-2192] child sleeping for 3 seconds
1161994178[1800] parent spawnding new child
1161994178[1800] parent current children: 2
1161994178[1800] parent total children: 2
1161994178[-1636] child starting
1161994178[-1636] child sleeping for 3 seconds
1161994179[1800] parent spawnding new child
1161994179[1800] parent current children: 3
1161994179[1800] parent total children: 3
1161994179[-2944] child starting
1161994179[-2944] child sleeping for 2 seconds
1161994180[-2192] child exiting
1161994180[1800] parent current children: 3
1161994180[1800] parent total children: 3
1161994181[-1636] child exiting
1161994181[1800] parent current children: 3
1161994181[-2944] child exiting
1161994181[1800] parent total children: 3
1161994182[1800] parent current children: 3
1161994182[1800] parent total children: 3
1161994183[1800] parent current children: 3
1161994183[1800] parent total children: 3
1161994184[1800] parent current children: 3
1161994184[1800] parent total children: 3
1161994185[1800] parent current children: 3
1161994185[1800] parent total children: 3
1161994186[1800] parent current children: 3
1161994186[1800] parent total children: 3
1161994187[1800] parent current children: 3
1161994187[1800] parent total children: 3
1161994188[1800] parent current children: 3
1161994188[1800] parent total children: 3
1161994189[1800] parent current children: 3
1161994189[1800] parent total children: 3
1161994190[1800] parent current children: 3
1161994190[1800] parent total children: 3
1161994191[1800] parent current children: 3
1161994191[1800] parent total children: 3
1161994192[1800] parent current children: 3
1161994192[1800] parent total children: 3
1161994193[1800] parent current children: 3
1161994193[1800] parent total children: 3
1161994194[1800] parent current children: 3
1161994194[1800] parent total children: 3
1161994195[1800] parent current children: 3
1161994195[1800] parent total children: 3
1161994196[1800] parent current children: 3
1161994196[1800] parent total children: 3
1161994197[1800] parent current children: 3
1161994197[1800] parent total children: 3
...loops indefinately
------------------------------
Date: Sat, 28 Oct 2006 06:29:56 GMT
From: "Mumia W. (reading news)" <paduille.4060.mumia.w@earthlink.net>
Subject: Re: Store multi-dimensions array for use in latter form?
Message-Id: <ENC0h.856$zf.69@newsread3.news.pas.earthlink.net>
On 10/27/2006 04:50 PM, xhoster@gmail.com wrote:
> "Mumia W. (reading news)" <paduille.4060.mumia.w@earthlink.net> wrote:
>> To extract the table data from the cookie, URL-decode the cookie string
>> and "eval" the decoded string.
>
> You shouldn't eval a string that is coming from a cookie. Who knows what
> someone stuck in that string when you weren't looking.
>
> Xho
>
Yow! You're right. And since the OP can't install modules such as
FreezeThaw, a custom encoding function is the only way.
--
paduille.4060.mumia.w@earthlink.net
------------------------------
Date: 28 Oct 2006 00:24:14 -0700
From: "Xah Lee" <xah@xahlee.org>
Subject: what are the most frequently used functions?
Message-Id: <1162020254.660829.124900@e3g2000cwe.googlegroups.com>
I had a idea today.
I wanted to know what are the top most frequently used functions in the
emacs lisp language. I thought i can write a quick script that go thru
all the elisp library locations and get a word-frequency report i want.
I started with a simple program:
http://xahlee.org/p/titus/count_word_frequency.py
and applied it to a Shakespeare text. Here's a sample result:
http://xahlee.org/p/titus/word_frequency.html
Then, i wrote a more elaborate one that recurse thru directories to
work on elisp code treasury.
The code is here:
http://xahlee.org/x/count_word_frequency.py
and i got a strange result. The word =E2=80=9Cthe=E2=80=9D appeared on the =
top,
along with many other English words. I quickly realized that these are
due to lisp function's doc strings. (not comments)
At this point, it dawned on me that there's no easy way to work around
this, Unless, i write this script in elisp which has functions that
read lisp code and can easily filter out doc strings.
Originally, i planned to use the word-frequency script on Perl, Python,
as well as Java, as well as Elisp. However, now it seems to me this
task is nigh impossible. Each of these lang has their own doc string
syntax. It's gonna be a heavy undertaking if the word-frequency script
is to work with all these langs, since that amounts to writing a parser
for each lang.
Alternatively, one can write multiple word-frequency scripts using each
lang in question, since most lang has facilities to deal with its own
syntax. However, this is still not trivial, and amounts to several
programing efforts.
Anyone would be interested in this problem?
PS bpalmer on #emacs irc.freenode wrote a elisp quicky to deal with
lisp, but that program is currently not fully working... see bottom
http://paste.lisp.org/display/28840
Xah
xah@xahlee.org
=E2=88=91 http://xahlee.org/
------------------------------
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.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 9901
***************************************
