[30707] in Perl-Users-Digest
Perl-Users Digest, Issue: 1952 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Oct 31 06:09:49 2008
Date: Fri, 31 Oct 2008 03:09:12 -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 Fri, 31 Oct 2008 Volume: 11 Number: 1952
Today's topics:
Re: Address of a specific element: an Array containing xhoster@gmail.com
Address of a specific element: an Array containing Arra <noel.milton.vega@gmail.com>
Re: command line with -e <xiaoxia2005a@yahoo.com>
Re: command line with -e <tim@burlyhost.com>
Re: command line with -e <bik.mido@tiscalinet.it>
Re: detecting NFS mount <joe@inwap.com>
Re: How to overwrite or mock -e for testing? <helmut@wollmersdorfer.at>
Re: How to overwrite or mock -e for testing? <bik.mido@tiscalinet.it>
Re: if ($line == $count++) <tim@burlyhost.com>
new CPAN modules on Fri Oct 31 2008 (Randal Schwartz)
Re: Perl - Gnuplot Program Oct. 29, 2008 <bik.mido@tiscalinet.it>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 30 Oct 2008 21:52:36 GMT
From: xhoster@gmail.com
Subject: Re: Address of a specific element: an Array containing Array References ...
Message-Id: <20081030175306.013$om@newsreader.com>
nmvega <noel.milton.vega@gmail.com> wrote:
> Friends:
>
>
> ##################################################################
> $tableCellData[0][0] = "0,0";
> $tableCellData[0][1] = "0,1";
> $tableCellData[1][0] = "1,0";
> $tableCellData[1][1] = "1,1";
>
> push @table, ("$tableCellData[0][0]\n");
> push @table, ("$tableCellData[0][1]\n");
> push @table, ("$tableCellData[1][0]\n");
> push @table, ("$tableCellData[1][1]\n");
First, the double-quote interpolation creates a copy. Then,
the push creates another copy. So you have two levels of problem.
>
...
>
> Everything in this contrived example works fine up to this point! In
> fact, again
> my question (up next) is not about debugging but, rather, about
> syntax. Here
> is the question:
>
...
>
> But what I need to do instead, is to insert the *ADDRESS* of that
> array *ELEMENT* instead. The reason (if curious) is that each time I
> execute
> statement:
>
> print "@table\n";
>
> it's output should dynamically change as I update individual elements
> of the
> two anonymous arrays contained in the named array @tableCellData ...
> (e.g. $tableCellData[1][1] = "hereIsAnUpdate"; <-- would be an
> update that
> should be reflected on the next "print" statement.).
>
> Thus it's only a slight modification that I seek to the 2nd argument
> of this
> statement (an extra $, @, \, etc., -- but I can't quite get it right):
>
> push @table, ("$tableCellData[x][y]");
You could push the reference,
push @table, \$tableCellData[x][y];
But then print @table would print stringified references, because it
wouldn't automatically dereference.
You could use push_aliases from the module Array::Splice to circumvent this
by pushing aliases rather than references. But you would have to drop the
double quotes, because they would break the alias.
You could create some kind of tied array that both has the push_aliases
functionality and will automatically add a \n to the end of fetched
strings, but that seems more of a problem than a solution.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
The costs of publication of this article were defrayed in part by the
payment of page charges. This article must therefore be hereby marked
advertisement in accordance with 18 U.S.C. Section 1734 solely to indicate
this fact.
------------------------------
Date: Thu, 30 Oct 2008 13:19:08 -0700 (PDT)
From: nmvega <noel.milton.vega@gmail.com>
Subject: Address of a specific element: an Array containing Array References ...
Message-Id: <6c2a4675-4d4a-43f6-83f3-bf4888359a92@u28g2000hsc.googlegroups.com>
Friends:
I have a syntax question, and I have put together this contrived
example (with
running comments), to demonstrate the line of code I need adjusted.
Sorry
for the verbosity.
##############################################################
# @tableCellData = will be used to store 2 anonymous array
references.
# @table = will be used to store addresses of array *elements*
(not of arrays).
##############################################################
my (@table, @tableCellData);
#####################################################
# Insert 2 anonymous array references into @table.
# This essentially creates a 2D table, with 2 rows / 0 columns.
#####################################################
push @tableCellData, ["foo"]; # use of "foo" twice in a row is ok
(it's arbitrary).
push @tableCellData, ["foo"]; # use of "foo" twice in a row is ok
(it's arbitrary).
##################################################################
# Dynamically expand each anonymous array so that each has two
elements.
##################################################################
$tableCellData[0][0] = "0,0";
$tableCellData[0][1] = "0,1";
$tableCellData[1][0] = "1,0";
$tableCellData[1][1] = "1,1";
################################################################
# At this point, at run-time the following (test) line will print
"1,0" (literally).
################################################################
print "$tableCellData[1][0]\n";
##########################################################
# Next, we pouplate the @table array with the both elements of
the first
# anonymous array (created above), and also with the both
elements of
# the second anonymous array (also created above).
##########################################################
push @table, ("$tableCellData[0][0]\n");
push @table, ("$tableCellData[0][1]\n");
push @table, ("$tableCellData[1][0]\n");
push @table, ("$tableCellData[1][1]\n");
##########################################################
# Thus, at this point, at run-time the following (test) line will
print:
# "0,0" "0,1" "1,0" "1,1" each on their own line.
##########################################################
print "@table\n";
Everything in this contrived example works fine up to this point! In
fact, again
my question (up next) is not about debugging but, rather, about
syntax. Here
is the question:
As we can see from the above "print" statement, the four "push"
statements
before it, inserted the *CONTENT* of the anonymous array element
indexed
(i.e. referenced/positioned) at [x][y].
But what I need to do instead, is to insert the *ADDRESS* of that
array *ELEMENT* instead. The reason (if curious) is that each time I
execute
statement:
print "@table\n";
it's output should dynamically change as I update individual elements
of the
two anonymous arrays contained in the named array @tableCellData ...
(e.g. $tableCellData[1][1] = "hereIsAnUpdate"; <-- would be an
update that
should be reflected on the next "print" statement.).
Thus it's only a slight modification that I seek to the 2nd argument
of this
statement (an extra $, @, \, etc., -- but I can't quite get it right):
push @table, ("$tableCellData[x][y]");
^^^^^^^^^^^^^^^^^^^^^^
That is the line where I need the tip.
A general way to ask this question is this...
Given access to an array of anonymous array references (such as
@tableCellData),
what is the syntax to get the ADDRESS of a specific element of a
specific anonymous
array within it?
Note: There are multiple ways to do things in PERL, however I'm
seeking this
particular way, so sustained focus (to the slight modification I seek)
would be
appreciated.
Thanks In Advance & Regards,
Noel Milton Vega
------------------------------
Date: Thu, 30 Oct 2008 17:42:22 -0700 (PDT)
From: April <xiaoxia2005a@yahoo.com>
Subject: Re: command line with -e
Message-Id: <fbe47399-f6cb-4928-80a0-9c821c64562b@v39g2000pro.googlegroups.com>
On Oct 14, 3:27=A0pm, Tim Greer <t...@burlyhost.com> wrote:
> Aprilwrote:
>
> > I managed to make the following work on my pc:
>
> > perl -e "print \"Hello world\n\""
>
> > should I be able to also assign value to $_ and then verify it,
> > possibly in this way just for quick checking?
>
> > tried the following but seems not working:
>
> > perl -e "$_=3D2"
>
> > perl -e "print \"$_2\n\""
>
> Each instance of the separate perl commands are individual from each
> other.
>
> perl -e 'my $a =3D "b"' is going to be completely different from perl -e
> 'my $a =3D "c"'
>
> Were you looking to declare an ENV variable on the command line and then
> have it be used in the perl command, perhaps? =A0I.e., COMPILER=3Dgcc and
> then use that in the script or something?
> --
> Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
> Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
> and Custom Hosting. =A024/7 support, 30 day guarantee, secure servers.
> Industry's most experienced staff! -- Web Hosting With Muscle!
no one reason I'm trying to use this capability is for debugging, as
well as to have a learning tool that can validate some of my ideas.
I believe Jue is correct on this .. and at one time I was able to do
it but I couldn't remember how I did it - I was able to print out the
current value in $_, and then assign a new value to it and validate
later ... as this seems platform specific, I'm interested in doing it
on XP, as well as Solaris.
------------------------------
Date: Thu, 30 Oct 2008 18:31:28 -0700
From: Tim Greer <tim@burlyhost.com>
Subject: Re: command line with -e
Message-Id: <QdtOk.193$nl3.129@newsfe01.iad>
April wrote:
> On Oct 14, 3:27 pm, Tim Greer <t...@burlyhost.com> wrote:
>> Aprilwrote:
>>
>> > I managed to make the following work on my pc:
>>
>> > perl -e "print \"Hello world\n\""
>>
>> > should I be able to also assign value to $_ and then verify it,
>> > possibly in this way just for quick checking?
>>
>> > tried the following but seems not working:
>>
>> > perl -e "$_=2"
>>
>> > perl -e "print \"$_2\n\""
>>
>> Each instance of the separate perl commands are individual from each
>> other.
>>
>> perl -e 'my $a = "b"' is going to be completely different from perl
>> -e 'my $a = "c"'
>>
>> Were you looking to declare an ENV variable on the command line and
>> then have it be used in the perl command, perhaps? I.e.,
>> COMPILER=gcc and then use that in the script or something?
>> --
<please don't quote signatures>
>
> no one reason I'm trying to use this capability is for debugging, as
> well as to have a learning tool that can validate some of my ideas.
>
> I believe Jue is correct on this .. and at one time I was able to do
> it but I couldn't remember how I did it - I was able to print out the
> current value in $_, and then assign a new value to it and validate
> later ... as this seems platform specific, I'm interested in doing it
> on XP, as well as Solaris.
I don't know what thread this is a reply to, but each time you manually
run the perl command, it's a separate instance. So, unless it's en
environment variable you can each throughout, or unless you run perl
commands within another script or process that retains that variable,
it's going to be reset... again, unless you're doing something more
than that. A variable will change on each separate instance or the
program/command running otherwise.
--
Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
and Custom Hosting. 24/7 support, 30 day guarantee, secure servers.
Industry's most experienced staff! -- Web Hosting With Muscle!
------------------------------
Date: Fri, 31 Oct 2008 11:02:50 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: command line with -e
Message-Id: <1lllg4pprak9fi3ckr3st84fc0kaooj2qq@4ax.com>
On Thu, 30 Oct 2008 17:42:22 -0700 (PDT), April
<xiaoxia2005a@yahoo.com> wrote:
>I believe Jue is correct on this .. and at one time I was able to do
>it but I couldn't remember how I did it - I was able to print out the
>current value in $_, and then assign a new value to it and validate
>later ... as this seems platform specific, I'm interested in doing it
>on XP, as well as Solaris.
No, what you say is plainly not possible: you *believe* you did it. It
happens, but you simply don't remember well and you are confused.
Trust those who know better and don't be bothered by this.
As an *aside* that AFAICS no one has pointed out yet, when using perl
on the cli with -e under Windows as you're doing, it is often
convenient to use alternate delimiters for double quoted strings
instead of quoting double quotes. E.g.:
C:\temp>perl -E "$x=2; say \"\$x=2\""
$x=2
C:\temp>perl -E "$x=2; say qq|\$x=2|"
$x=2
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Thu, 30 Oct 2008 23:48:12 -0700
From: Joe Smith <joe@inwap.com>
Subject: Re: detecting NFS mount
Message-Id: <yOGdnQnfu_22N5fUnZ2dnUVZ_rXinZ2d@comcast.com>
Marten Lehmann wrote:
> how can I verify if a certain directory is an NFS mount?
Back in the days of SunOS-4.1.1 and Solaris-2.5.1, it was quite easy.
my @stat = stat $file;
if ($stat[0] && 0x8000) {
print "NFS mount detected for $file\n";
}
You can test if your particular system returns something similar, but
beware that such a solution is not portable.
-Joe
------------------------------
Date: Thu, 30 Oct 2008 20:32:55 +0100
From: Helmut Wollmersdorfer <helmut@wollmersdorfer.at>
Subject: Re: How to overwrite or mock -e for testing?
Message-Id: <gecumu$jap$1@geiz-ist-geil.priv.at>
Michele Dondi wrote:
> Appears to work:
>
> C:\temp>cat foo.pl
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> my %file;
>
> BEGIN {
> no strict 'refs';
> *{'CORE::GLOBAL::-e'} = sub {
> my ($name) = @_;
> warn "trying mocked -e\n";
> return exists $file{$name};
> };
> }
>
> use Test::More qw(no_plan);
>
> $file{foo} = 1;
> ok(-e $_, "file $_ exists") for qw/foo bar/;
>
> __END__
>
> C:\temp>perl foo.pl
> ok 1 - file foo exists
> not ok 2 - file bar exists
> # Failed test 'file bar exists'
> # at foo.pl line 20.
> 1..2
> # Looks like you failed 1 test of 2.
Hmmm ... where is the output of 'warn "trying mocked -e\n";'?
Maybe you have 'foo' in your filesystem?
That's what I get (tested under Perl 5.8.8 and 5.10.0):
helmut@duo2400:~$ ls foo*
ls: cannot access foo*: No such file or directory
helmut@duo2400:~$ perl mock_e.t
not ok 1 - file foo exists
# Failed test 'file foo exists'
# at mock_e.t line 20.
not ok 2 - file bar exists
# Failed test 'file bar exists'
# at mock_e.t line 20.
1..2
# Looks like you failed 2 tests of 2.
Helmut Wollmersdorfer
------------------------------
Date: Fri, 31 Oct 2008 10:40:14 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: How to overwrite or mock -e for testing?
Message-Id: <6dhlg4df9aros4vs18t9ppo17kt6qn9fkn@4ax.com>
On Thu, 30 Oct 2008 20:32:55 +0100, Helmut Wollmersdorfer
<helmut@wollmersdorfer.at> wrote:
>> BEGIN {
>> no strict 'refs';
>> *{'CORE::GLOBAL::-e'} = sub {
>> my ($name) = @_;
>> warn "trying mocked -e\n";
>> return exists $file{$name};
>> };
>> }
[snip]
>> C:\temp>perl foo.pl
>> ok 1 - file foo exists
>> not ok 2 - file bar exists
>> # Failed test 'file bar exists'
>> # at foo.pl line 20.
>> 1..2
>> # Looks like you failed 1 test of 2.
>
>Hmmm ... where is the output of 'warn "trying mocked -e\n";'?
>
>Maybe you have 'foo' in your filesystem?
Yep, I believe you're right. That's what you get out of posting when
your eyes just can hardly stay open! [End of *standard* disclaimer...]
Actually, now that I think of it, I don't know if -X functions are
overridable, and you made me discover something interesting: people
generally check the prototype() of CORE:: functions because IF they
are not ovverridable THEN it returns undef() - but then please note
that the inverse implication does not hold[*]. Now, I tried to see
what happens with -e() and it turns out that it gives a run-time error
I had *never* seen:
whisky:~ [09:58:08]$ perl -E 'say prototype "CORE::$_" // "undef"
> for qw/rand require -e/'
;$
undef
Can't find an opnumber for "-e" at -e line 2.
Anyway, as they say, the proof of the pudding is in the eating: the
above in fact would imply that -X functions are *not* overridable.
As far as your problem is concerned, I thought that perhaps -X's would
use stat() behind the courtain and that you may override the latter,
(at the expense of some flexibility,) which is doable. But that's not
the case:
whisky:~/test [10:38:06]$ ls
foo.pl
whisky:~/test [10:38:09]$ cat foo.pl
#!/usr/bin/perl
use strict;
use warnings;
my %file;
BEGIN {
no strict 'refs';
*{'CORE::GLOBAL::stat'} = sub {
warn "trying mocked stat()\n";
(my $f)=@_;
CORE::stat( @_ && !ref($f) &&
exists $file{$f} ? $0 : @_ );
};
}
use Test::More qw(no_plan);
$file{foo} = 1;
ok( (scalar stat $_) => "file $_ exists") for qw/foo bar/;
ok( (-e $_) => "file $_ exists") for qw/foo bar/;
__END__
whisky:~/test [10:38:13]$ ./foo.pl
trying mocked stat()
ok 1 - file foo exists
trying mocked stat()
not ok 2 - file bar exists
# Failed test 'file bar exists'
# at ./foo.pl line 21.
not ok 3 - file foo exists
# Failed test 'file foo exists'
# at ./foo.pl line 22.
not ok 4 - file bar exists
# Failed test 'file bar exists'
# at ./foo.pl line 22.
1..4
# Looks like you failed 3 tests of 4.
[*] E.g. require() returns undef() but I have *seen* it duly
overridden.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Thu, 30 Oct 2008 13:27:01 -0700
From: Tim Greer <tim@burlyhost.com>
Subject: Re: if ($line == $count++)
Message-Id: <pMoOk.23$Dm5.22@newsfe01.iad>
April wrote:
> looking at the following, if $line has values of 1, 2, 3, ... will the
> if test ever tests true when $line equals 1? It seems it won't as
> $count starts as 1 and then the test with $count++ (=2), but the
> execution suggests otherwise ...
>
> my $count = 1;
> while(<IN>)
> {
> if ($line == $count++)
> {
> $deleted = $_;
> next;
> }
> print OUT;
> }
See the difference (for example) between $count++ and ++$count.
--
Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
and Custom Hosting. 24/7 support, 30 day guarantee, secure servers.
Industry's most experienced staff! -- Web Hosting With Muscle!
------------------------------
Date: Fri, 31 Oct 2008 04:42:22 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Fri Oct 31 2008
Message-Id: <K9L6EM.1sLx@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.
AnyEvent-4.31
http://search.cpan.org/~mlehmann/AnyEvent-4.31/
provide framework for multiple event loops
----
AnyEvent-HTTP-1.1
http://search.cpan.org/~mlehmann/AnyEvent-HTTP-1.1/
simple but non-blocking HTTP/HTTPS client
----
Apache2-ASP-2.00_12
http://search.cpan.org/~johnd/Apache2-ASP-2.00_12/
ASP for Perl, reloaded.
----
Apache2-ASP-2.00_13
http://search.cpan.org/~johnd/Apache2-ASP-2.00_13/
ASP for Perl, reloaded.
----
Catalyst-Controller-RateLimit-0.17
http://search.cpan.org/~gugu/Catalyst-Controller-RateLimit-0.17/
Protect your site from robots
----
Catalyst-Controller-Resources-0.04
http://search.cpan.org/~masaki/Catalyst-Controller-Resources-0.04/
Catalyst Collection Resources Controller
----
Coro-4.802
http://search.cpan.org/~mlehmann/Coro-4.802/
coroutine process abstraction
----
DBIx-Class-0.08099_05
http://search.cpan.org/~ribasushi/DBIx-Class-0.08099_05/
Extensible and flexible object <-> relational mapper.
----
Devel-PPPort-3.14_04
http://search.cpan.org/~mhx/Devel-PPPort-3.14_04/
Perl/Pollution/Portability
----
DustyDB-0.01
http://search.cpan.org/~hanenkamp/DustyDB-0.01/
yet another Moose-based object database
----
Dynamic-Loader-1.05
http://search.cpan.org/~alexmass/Dynamic-Loader-1.05/
call a script without to know where is his location.
----
EV-3.48
http://search.cpan.org/~mlehmann/EV-3.48/
perl interface to libev, a high performance full-featured event loop
----
E_Editor_5.12
http://search.cpan.org/~turnerjw/E_Editor_5.12/
----
Getopt-Fancy-0.06
http://search.cpan.org/~batman/Getopt-Fancy-0.06/
Object approach to handling command line options, focusing on end user happiness
----
LEOCHARRE-Checksetup-1.03
http://search.cpan.org/~leocharre/LEOCHARRE-Checksetup-1.03/
----
LEOCHARRE-Dev-1.08
http://search.cpan.org/~leocharre/LEOCHARRE-Dev-1.08/
----
Lingua-JA-Expand-0.00003
http://search.cpan.org/~miki/Lingua-JA-Expand-0.00003/
word expander by associatives
----
Lingua-JA-TFIDF-0.00003
http://search.cpan.org/~miki/Lingua-JA-TFIDF-0.00003/
TF/IDF calculator based on MeCab.
----
Locale-Country-Multilingual-0.09
http://search.cpan.org/~graf/Locale-Country-Multilingual-0.09/
mapping ISO codes to localized country names
----
MediaWiki-API-0.17
http://search.cpan.org/~exobuzz/MediaWiki-API-0.17/
Provides a Perl interface to the MediaWiki API (http://www.mediawiki.org/wiki/API)
----
Net-CIDR-Lookup-0.3
http://search.cpan.org/~mbethke/Net-CIDR-Lookup-0.3/
----
Net-xFTP-0.20
http://search.cpan.org/~turnerjw/Net-xFTP-0.20/
Common wrapper functions for use with either Net::FTP or Net::xFTP.
----
NetAddr-IP-4.013
http://search.cpan.org/~miker/NetAddr-IP-4.013/
Manages IPv4 and IPv6 addresses and subnets
----
PHP-HTTPBuildQuery-0.03
http://search.cpan.org/~mschilli/PHP-HTTPBuildQuery-0.03/
Data structures become form-encoded query strings
----
Perl-Critic-1.093_02
http://search.cpan.org/~elliotjs/Perl-Critic-1.093_02/
Critique Perl source code for best-practices.
----
Perl-Critic-Moose-0.999_001
http://search.cpan.org/~elliotjs/Perl-Critic-Moose-0.999_001/
Policies for Perl::Critic concerned with using Moose, the "post-modern" object system for Perl.
----
RT-Extension-ToggleSuperUser
http://search.cpan.org/~elacour/RT-Extension-ToggleSuperUser/
allow users with SuperUser right to quickly enable/disable this right.
----
RT-Extension-ToggleSuperUser-0.01
http://search.cpan.org/~elacour/RT-Extension-ToggleSuperUser-0.01/
allow users with SuperUser right to quickly enable/disable this right.
----
Roku-RCP-0.04
http://search.cpan.org/~batman/Roku-RCP-0.04/
Object approach to controlling RCP enabled Roku products, such as the Roku SoundBridge.
----
Test-PureASCII-0.02
http://search.cpan.org/~salva/Test-PureASCII-0.02/
Test that only ASCII characteres are used in your code
----
Tk-JFileDialog-1.4
http://search.cpan.org/~turnerjw/Tk-JFileDialog-1.4/
A highly configurable File Dialog widget for Perl/Tk.
----
TkWeather_1.83
http://search.cpan.org/~turnerjw/TkWeather_1.83/
Jim Turner c. 2003, 2004, 2005, 2006, 2007, 2008
----
URI-ParseSearchString-More-0.09
http://search.cpan.org/~oalders/URI-ParseSearchString-More-0.09/
Extract search strings from more referrers.
----
Ubigraph-0.03
http://search.cpan.org/~gaou/Ubigraph-0.03/
Perl client of Ubigraph software
----
WWW-Contact-0.15
http://search.cpan.org/~sachinjsk/WWW-Contact-0.15/
Get contacts/addressbook from Web
----
WebService-Nestoria-Search-0.12
http://search.cpan.org/~kaoru/WebService-Nestoria-Search-0.12/
Perl interface to the Nestoria Search public API.
----
Wiki-Toolkit-Formatter-Markdown-0.0.2
http://search.cpan.org/~perigrin/Wiki-Toolkit-Formatter-Markdown-0.0.2/
A Markdown Formatter for Wiki::Toolkit wikis.
----
WordPress-API-1.10
http://search.cpan.org/~leocharre/WordPress-API-1.10/
----
XML-Entities-0.0304
http://search.cpan.org/~sixtease/XML-Entities-0.0304/
Decode strings with XML entities
----
file-tabulardata-0.05
http://search.cpan.org/~xerxes/file-tabulardata-0.05/
----
mpp-8
http://search.cpan.org/~pfeiffer/mpp-8/
----
ptkftp.1.00
http://search.cpan.org/~turnerjw/ptkftp.1.00/
----
sqlperl.5.15
http://search.cpan.org/~turnerjw/sqlperl.5.15/
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/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion
------------------------------
Date: Fri, 31 Oct 2008 10:50:49 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Perl - Gnuplot Program Oct. 29, 2008
Message-Id: <jlklg4d6qlfpblfqjd6n2b2h3pc1t4igo9@4ax.com>
On Thu, 30 Oct 2008 11:04:49 -0700, Jim Gibson <jimsgibson@gmail.com>
wrote:
>> Something I suggested in the past is that commands be built into Gnuplot
>> that enable it to import a picture file such as a GIF file and use it as the
>> computer screen background instead of just having solid color backgrounds.
>
>You are mistaking Gnuplot for a general-purpose drawing and
>presentation program. It is not. It is a scientific plotting program
>and Gnuplot users have little need for fancy graphics.
While I wholly second what you wrote, ISTR that when preparing my
thesis I had this exact requirement, and asked in a gnuplot ng or
ml... I can't remember exactly... and one of the gurus there told me
that the feature was *available* from the development version.
Due to having to deliver the completed work the following day, I ended
up with the technically inferior but effective solution of using a
general purpose hand-driven drawing program instead.[*] (GIMP?)
[*] This slightly bothers me because I would like to release the
sources of the thesis, and I'll have to "hardcode" the images as
opposed to include their "sources" too. Of course, to be very picky, I
may include the sources of the images, the background image, and a
script in some other image mangling package that would produce
virtually identical images to the ones actually included in the
thesis, but... Oh, who cares? (Well, *I* do, but that's very low in my
list of priorities, I must admit...)
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
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 V11 Issue 1952
***************************************
