[28950] in Perl-Users-Digest
Perl-Users Digest, Issue: 194 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 5 06:09:51 2007
Date: Mon, 5 Mar 2007 03:09:04 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 5 Mar 2007 Volume: 11 Number: 194
Today's topics:
[ANNOUNCE] Emacs modules for Perl programming (Jari Aalto+mail.perl)
new CPAN modules on Mon Mar 5 2007 (Randal Schwartz)
problem in setting environmental variable rameshotn3@gmail.com
Re: Question about scoping <ben@morrow.me.uk>
Re: Question about wizard Perl programmers (Jamie)
Re: Question about wizard Perl programmers krakle@visto.com
Re: Question about wizard Perl programmers <uri@stemsystems.com>
Re: Question about wizard Perl programmers <krotowitz@yahoo.com>
Re: Question about wizard Perl programmers <spamtrap@dot-app.org>
Re: Question about wizard Perl programmers <ayaz@dev.slash.null>
Re: Question about wizard Perl programmers <check.sig@for.email.invalid>
Re: Question about wizard Perl programmers <wahab-mail@gmx.de>
Re: Question about wizard Perl programmers <wahab-mail@gmx.de>
Re: Question about wizard Perl programmers <abigail@abigail.be>
Re: Question about wizard Perl programmers <wahab-mail@gmx.de>
Re: Question about wizard Perl programmers <check.sig@for.email.invalid>
Re: Question about wizard Perl programmers <check.sig@for.email.invalid>
Re: Question about wizard Perl programmers <wahab-mail@gmx.de>
Search a text file ,picking values from array sandi_siva@yahoo.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 05 Mar 2007 05:25:53 GMT
From: <jari.aalto@poboxes.com> (Jari Aalto+mail.perl)
Subject: [ANNOUNCE] Emacs modules for Perl programming
Message-Id: <perl-faq/emacs-lisp-modules_1173072327@rtfm.mit.edu>
Archive-name: perl-faq/emacs-lisp-modules
Posting-Frequency: 2 times a month
Maintainer: Jari Aalto A T cante net
Announcement: "What Emacs lisp modules can help with programming Perl"
Preface
Emacs is your friend if you have to do anything comcerning software
development: It offers plug-in modules, written in Emacs lisp
(elisp) language, that makes all your programmings wishes come
true. Please introduce yourself to Emacs and your programming era
will get a new light.
Where to find Emacs/XEmacs
o Unix:
http://www.gnu.org/software/emacs/emacs.html
http://www.xemacs.org/
o Unix Windows port (for Unix die-hards):
install http://www.cygwin.com/ which includes native Emacs 21.x.
and XEmacs port
o Pure Native Windows port
http://www.gnu.org/software/emacs/windows/ntemacs.html
ftp://ftp.xemacs.org/pub/xemacs/windows/setup.exe
o More Emacs resources at
http://tiny-tools.sourceforge.net/ => Emacs resource page
Emacs Perl Modules
Cperl -- Perl programming mode
http://math.berkeley.edu/~ilya/software/emacs/
by Ilya Zakharevich
CPerl is major mode for editing perl files. Also included in
latest Emacs, but newest version is at Ilya's site. Note that
the directrory at CPAN is out of date:
http://www.cpan.org/modules/by-authors/id/ILYAZ/cperl-mode/
Compared to default `perl-mode' that comes with Emacs, this
one has more features.
TinyPerl -- Perl related utilities
http://tiny-tools.sourceforge.net/
If you ever wonder how to deal with Perl POD pages or how to find
documentation from all perl manpages, this package is for you.
Couple of keystrokes and all the documentaion is in your hands.
o Instant function help: See documentation of `shift', `pop'...
o Show Perl manual pages in *pod* buffer
o Grep through all Perl manpages (.pod)
o Follow POD references e.g. [perlre] to next pod with RETURN
o Coloured pod pages with `font-lock'
o Separate `tiperl-pod-view-mode' for jumping topics and pages
forward and backward in *pod* buffer.
o Update `$VERSION' variable with YYYY.MMDD on save.
o Load source code into Emacs, like Devel::DProf.pm
o Prepare script (version numbering) and Upload it to PAUSE
o Generate autoload STUBS (Devel::SelfStubber) for you
Perl Module (.pm)
TinyIgrep -- Perl Code browsing and easy grepping
[TinyIgrep is included in Tiny Tools Kit]
To grep from all installed Perl modules, define database to
TinyIgrep. There is example file emacs-rc-tinyigrep.el that shows
how to set up dattabases for Perl5, Perl4 whatever you have
installed
TinyIgrep calls Igrep.el to to do the search, You can adjust
recursive grep options, set search case sensitivity, add user grep
options etc.
You can find latest `igrep.el' module at
<http://groups.google.com/groups?group=gnu.emacs.sources> The
maintainer is Jefin Rodgers <kevinr@ihs.com>.
TinyCompile -- To Browse grep results in Emacs *compile* buffer
TinyCompile is a minor mode for *compile* buffer from where
you can collapse unwanted lines or shorten file URLs:
/asd/asd/asd/asd/ads/as/da/sd/as/as/asd/file1:NNN: MATCHED TEXT
/asd/asd/asd/asd/ads/as/da/sd/as/as/asd/file2:NNN: MATCHED TEXT
-->
cd /asd/asd/asd/asd/ads/as/da/sd/as/as/asd/
file1:NNN: MATCHED TEXT
file1:NNN: MATCHED TEXT
End
------------------------------
Date: Mon, 5 Mar 2007 05:42:10 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Mon Mar 5 2007
Message-Id: <JEF16A.1zG5@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.
Audio-MPD-0.13.2
http://search.cpan.org/~jquelin/Audio-MPD-0.13.2/
Class for talking to MPD (Music Player Daemon) servers
----
Audio-MPD-0.13.3
http://search.cpan.org/~jquelin/Audio-MPD-0.13.3/
Class for talking to MPD (Music Player Daemon) servers
----
CPAN-WWW-Testers-0.32
http://search.cpan.org/~lbrocard/CPAN-WWW-Testers-0.32/
Present CPAN Testers data
----
Catalyst-Plugin-Authentication-OpenID-0.02
http://search.cpan.org/~btrott/Catalyst-Plugin-Authentication-OpenID-0.02/
OpenID Authentication
----
Coro-3.51
http://search.cpan.org/~mlehmann/Coro-3.51/
coroutine process abstraction
----
Crossfire-0.97
http://search.cpan.org/~mlehmann/Crossfire-0.97/
Crossfire maphandling
----
Crypt-SSLeay-0.53_03
http://search.cpan.org/~dland/Crypt-SSLeay-0.53_03/
OpenSSL support for LWP
----
Date-PeriodParser-0.05
http://search.cpan.org/~mcmahon/Date-PeriodParser-0.05/
Turns English descriptions into time periods
----
Devel-ebug-Wx-0.01
http://search.cpan.org/~mbarbon/Devel-ebug-Wx-0.01/
GUI interface for your (d)ebugging needs
----
HTML-SiteTear-1.30
http://search.cpan.org/~tkurita/HTML-SiteTear-1.30/
Make a separated copy of a part of the site
----
IO-Multiplex-1.09
http://search.cpan.org/~bbb/IO-Multiplex-1.09/
Manage IO on many file handles
----
IO-Zlib-1.05
http://search.cpan.org/~tomhughes/IO-Zlib-1.05/
IO:: style interface to Compress::Zlib
----
Image-Pngslimmer-0.14
http://search.cpan.org/~acmcmen/Image-Pngslimmer-0.14/
slims (dynamically created) PNGs
----
JSAN-ServerSide-0.04
http://search.cpan.org/~drolsky/JSAN-ServerSide-0.04/
Manage JSAN dependencies server side instead of with XMLHttpRequest
----
Lemonldap-NG-Manager-0.5
http://search.cpan.org/~guimard/Lemonldap-NG-Manager-0.5/
Perl extension for managing Lemonldap::NG Web-SSO system.
----
Lemonldap-NG-Portal-0.63
http://search.cpan.org/~guimard/Lemonldap-NG-Portal-0.63/
The authentication portal part of Lemonldap::NG Web-SSO system.
----
Locale-Maketext-Pseudo-v0.0.2
http://search.cpan.org/~dmuey/Locale-Maketext-Pseudo-v0.0.2/
give localized code a pseudo language obj if a real one does not exist.
----
Locale-Maketext-Utils-v0.0.7
http://search.cpan.org/~dmuey/Locale-Maketext-Utils-v0.0.7/
Adds some utility functionality and failure handling to Local::Maketext handles
----
Math-BigInt-1.80
http://search.cpan.org/~tels/Math-BigInt-1.80/
Arbitrary size integer/float math package
----
Math-GAP-0.02
http://search.cpan.org/~galand/Math-GAP-0.02/
GAP interpreter controler for Perl
----
Net-Amazon-S3-0.38
http://search.cpan.org/~lbrocard/Net-Amazon-S3-0.38/
Use the Amazon S3 - Simple Storage Service
----
Net-CIDR-MobileJP-0.08
http://search.cpan.org/~tokuhirom/Net-CIDR-MobileJP-0.08/
mobile ip address in Japan
----
Net-SMS-Optimus-0.01
http://search.cpan.org/~root/Net-SMS-Optimus-0.01/
Send SMS through www.optimus.pt
----
Set-IntSpan-1.10
http://search.cpan.org/~swmcd/Set-IntSpan-1.10/
Manages sets of integers
----
SimpleMood-v0.0.1
http://search.cpan.org/~dmuey/SimpleMood-v0.0.1/
[One line description of module's purpose here]
----
Template-Perlate-0.90
http://search.cpan.org/~bilbo/Template-Perlate-0.90/
Template module using Perl as the langauge.
----
Template-Plugin-POSIX-0.03
http://search.cpan.org/~agent/Template-Plugin-POSIX-0.03/
TT2 plugin to import POSIX built-in functions
----
Template-Plugin-POSIX-0.04
http://search.cpan.org/~agent/Template-Plugin-POSIX-0.04/
TT2 plugin to import POSIX functions
----
Text-CSV-LibCSV-0.10
http://search.cpan.org/~jiro/Text-CSV-LibCSV-0.10/
comma-separated values manipulation routines (using libcsv)
----
Tk-Wizard-Bases-1.953
http://search.cpan.org/~mthurn/Tk-Wizard-Bases-1.953/
----
XML-MyXML-0.091
http://search.cpan.org/~karjala/XML-MyXML-0.091/
A simple XML module
----
XML-Tiny-1.06
http://search.cpan.org/~dcantrell/XML-Tiny-1.06/
simple lightweight parser for a subset of XML
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: 5 Mar 2007 01:59:51 -0800
From: rameshotn3@gmail.com
Subject: problem in setting environmental variable
Message-Id: <1173088791.522900.293800@q40g2000cwq.googlegroups.com>
Hi all I searched in google for this.But no solution is working.
I am Ramesh working on perl.I am facing one problem in exporting an
variable.
Requirement:
I have to export a new variable through a perl script.
in brief :
-->in vi editor i am able to export like below.
export ram=20;
--->If I want to see the variable: echo $ram
giving 20 as the answer.But when I put the export commnad in perl
script & giving "echo" on vi editor it doesn't giving the value
associated with that environmental variable
I got the reason:
I am giving export command in script like
$ram=20;
system("export ram");
system command forking one more child process. So the value becomes
temporary.
How can I come out of this problem.
Any help in this regard.
------------------------------
Date: Mon, 5 Mar 2007 06:57:29 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Question about scoping
Message-Id: <pjrsb4-eic.ln1@osiris.mauzo.dyndns.org>
Quoth "Bob Dubery" <megapode@gmail.com>:
> John's reply was informative, but it did not address my immediate
> concern.
>
> However, I think I may have moved on to a state where I remain
> confused, but confused at a higher level :-)
>
> Considering this....
> eval {new XML::DOM::Parser->parse($headerFile)};
I'm amazed this syntax works at all. It appears to be parsed as
eval { (new XML::DOM::Parser)->parse($headerFile) };
or
eval { XML::DOM::Parser->new->parse($headerFile) };
which would be the recommended way to write it. The indirect object
notation ('new Foo' as opposed to 'Foo->new') is considered to have been
a bad idea: it confuses the reader, and under the wrong circumstances it
can confuse Perl.
> Is it the case that because neither the parser object nor the results
> of the eval are assigned to any kind of variable that either or both
> are regarded as barewords?
Err... no. What do you think a 'bareword' is? It's actually an
expression like XML::DOM::Parser or STDOUT that Perl parses as a string
even though it isn't quoted: hence 'bare'.
Since you haven't posted a complete program, I can't tell what you are
trying to achieve; but I would guess that you don't want to throw away
the result of the parse. So you want something like
my $doc = eval {
XML::DOM::Parser->new->parse($headerFile)
}
or die "parse of '$headerFile' failed: $@";
(Of course, if you are just going to die on error you don't need the
eval: just let XML::DOM::Parser die for you. I am assuming you want some
more sophisticated error handling here.)
Ben
--
don't get my sympathy hanging out the 15th floor. you've changed the locks 3
times, he still comes reeling though the door, and soon he'll get to you, teach
you how to get to purest hell. you do it to yourself and that's what really
hurts is you do it to yourself just you, you and noone else ** ben@morrow.me.uk
------------------------------
Date: Mon, 05 Mar 2007 06:52:14 GMT
From: nospam@geniegate.com (Jamie)
Subject: Re: Question about wizard Perl programmers
Message-Id: <Lc117305734442790x8c36248@pong.podro.com>
In <1173067931.041020.191050@c51g2000cwc.googlegroups.com>,
"LovesHisLittleShad" <jgrace5@gmail.com> mentions:
>Is it my imagination, or is Perl a million times harder than other
>languages? Looking at books on all the languages of the past (I'm a
>programmer), I've notices that Perl is the only one that seems greek
>in most chapters, with very little explanation of what the people are
>doing.
I'd say perl is about the easiest language to actually work in, though
it did take a couple weeks to get my mind wrapped around some of the
basic ideas. (file handles really confused me at first)
The reason it's easy (especially to unix-folk) is that you can apply
much of what you've learned in perl to general unix system tasks,
the opposite is also true to some extent.
I've been using it now for so many years it feels like a second language,
but.. there are still things yet to be discovered. I like that,
you never really "learn" it and consequently, it seldom gets boring.
>Am I wrong, or does the Perl language literally attract the wizards of
>the world to it, more than other languages? Consider the following
>code someone wrote that I found on a web site:
I don't know about wizards, but, historically I've noticed it attracted
a lot of.. well.. what I'd call "snobs" or "punks" but, checking back
on the newsgroup, it looks like things have improved a great deal! (either
that or I'm becomming more and more snobbish myself and therefore don't
notice it hehehe)
>not exp log srand xor s qq qx xor
>s x x length uc ord and print chr
>ord for qw q join use sub tied qx
>xor eval xor print qq q q xor int
>eval lc q m cos and print chr ord
>for qw y abs ne open tied hex exp
>ref y m xor scalar srand print qq
>q q xor int eval lc qq y sqrt cos
>and print chr ord for qw x printf
>each return local x y or print qq
>s s and eval q s undef or oct xor
>time xor ref print chr int ord lc
>foreach qw y hex alarm chdir kill
>exec return y s gt sin sort split
>
>Run it and see what it does. How in the world did someone come up
>with this?
>Who are these people?
Creative people, I'd say.
I won't run it, and I certainly wouldn't rely on anything written in that style
for important stuff, but there is nothing wrong with being creative. I have
done stuff in perl, purely for the fun of it.
The joy of perl can in some cases, be it's own reward. The program need
not actually do anything.
Jamie
--
http://www.geniegate.com Custom web programming
Perl * Java * UNIX User Management Solutions
------------------------------
Date: 4 Mar 2007 23:00:08 -0800
From: krakle@visto.com
Subject: Re: Question about wizard Perl programmers
Message-Id: <1173078008.724682.4160@30g2000cwc.googlegroups.com>
On Mar 4, 10:30 pm, Uri Guttman <u...@stemsystems.com> wrote:
> it makes easy things easy and hard things possible.
Isnt it "it makes difficult things easy and the impossible possible"
------------------------------
Date: Mon, 05 Mar 2007 02:54:38 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Question about wizard Perl programmers
Message-Id: <x7hct0i0qp.fsf@mail.sysarch.com>
>>>>> "k" == krakle <krakle@visto.com> writes:
k> On Mar 4, 10:30 pm, Uri Guttman <u...@stemsystems.com> wrote:
>> it makes easy things easy and hard things possible.
k> Isnt it "it makes difficult things easy and the impossible possible"
it was difficult for me to remember that. :)
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Mon, 5 Mar 2007 09:08:32 +0100
From: "Marco Neumann" <krotowitz@yahoo.com>
Subject: Re: Question about wizard Perl programmers
Message-Id: <esgim3$rq4$1@news.uni-kl.de>
"LovesHisLittleShad" <jgrace5@gmail.com> schrieb im Newsbeitrag
news:1173067931.041020.191050@c51g2000cwc.googlegroups.com...
>
> Run it and see what it does.
I guess I am that kind of guy who just runs strange code that was posted in
some newsgroup on the internet just because of curiosity.
If anyone cares, the code produces this string:
just another perl hacker
Why it does this, is beyond me.
Cheers,
Marco.
------------------------------
Date: Mon, 05 Mar 2007 03:16:40 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Question about wizard Perl programmers
Message-Id: <m24pp0nlzr.fsf@local.wv-www.com>
"Marco Neumann" <krotowitz@yahoo.com> writes:
> If anyone cares, the code produces this string:
>
> just another perl hacker
>
> Why it does this, is beyond me.
It's called a JAPH.
<http://en.wikipedia.org/wiki/JAPH>
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Mon, 05 Mar 2007 13:19:40 +0500
From: Ayaz Ahmed Khan <ayaz@dev.slash.null>
Subject: Re: Question about wizard Perl programmers
Message-Id: <pan.2007.03.05.08.19.36.811908@dev.slash.null>
"Uri Guttman" typed:
> it is more fun to code in than any other language i have known (which is
> too many).
To each, their own.
I find Python much more fun to code in than Perl. I have been coding in
Perl longer than in Python, though, but having dived into Pythonic waters
(so to speak), I prefer Python over Perl whenever I have the room to do so.
--
Ayaz Ahmed Khan
Falling in love makes smoking pot all day look like the ultimate in
restraint.
-- Dave Sim, author of "Cerebus".
------------------------------
Date: Mon, 05 Mar 2007 11:00:28 +0200
From: Alex <check.sig@for.email.invalid>
Subject: Re: Question about wizard Perl programmers
Message-Id: <M_QGh.8533$Cq3.3934@reader1.news.saunalahti.fi>
LovesHisLittleShad wrote:
> Am I wrong, or does the Perl language literally attract the wizards of
> the world to it, more than other languages? Consider the following
> code someone wrote that I found on a web site:
Well, you can write impossible-to-read code in just about any langugage.
Consider the following snippet of legal Java code:
/* Just Java
Peter van der Linden
April 1, 1996.
\u0050\u0076\u0064\u004c\u0020\u0031\u0020\u0041\u0070\u0072\u0039\u0036
\u002a\u002f\u0020\u0063\u006c\u0061\u0073\u0073\u0020\u0068\u0020\u007b
\u0020\u0020\u0070\u0075\u0062\u006c\u0069\u0063\u0020\u0020\u0020\u0020
\u0073\u0074\u0061\u0074\u0069\u0063\u0020\u0020\u0076\u006f\u0069\u0064
\u006d\u0061\u0069\u006e\u0028\u0020\u0053\u0074\u0072\u0069\u006e\u0067
\u005b\u005d\u0061\u0029\u0020\u007b\u0053\u0079\u0073\u0074\u0065\u006d
\u002e\u006f\u0075\u0074\u002e\u0070\u0072\u0069\u006e\u0074\u006c\u006e
\u0028\u0022\u0048\u0069\u0021\u0022\u0029\u003b\u007d\u007d\u002f\u002a
*/
It compiles and runs. Does this make Java a very difficult language? (It
simply prints "Hi!", in case you're interested.)
--
Alex
e-mail: Domain is iki dot fi. Local-part is alext.
local-part at domain
------------------------------
Date: Mon, 05 Mar 2007 10:23:18 +0100
From: Mirco Wahab <wahab-mail@gmx.de>
Subject: Re: Question about wizard Perl programmers
Message-Id: <esgnsb$l54$1@mlucom4.urz.uni-halle.de>
Alex wrote:
> Well, you can write impossible-to-read code in just about any langugage.
> Consider the following snippet of legal Java code:
>
> /* Just Java
> Peter van der Linden
> April 1, 1996.
>
> \u0050\u0076\u0064\u004c\u0020\u0031\u0020\u0041\u0070\u0072\u0039\u0036
> \u002a\u002f\u0020\u0063\u006c\u0061\u0073\u0073\u0020\u0068\u0020\u007b
> \u0020\u0020\u0070\u0075\u0062\u006c\u0069\u0063\u0020\u0020\u0020\u0020
> \u0073\u0074\u0061\u0074\u0069\u0063\u0020\u0020\u0076\u006f\u0069\u0064
> \u006d\u0061\u0069\u006e\u0028\u0020\u0053\u0074\u0072\u0069\u006e\u0067
> \u005b\u005d\u0061\u0029\u0020\u007b\u0053\u0079\u0073\u0074\u0065\u006d
> \u002e\u006f\u0075\u0074\u002e\u0070\u0072\u0069\u006e\u0074\u006c\u006e
> \u0028\u0022\u0048\u0069\u0021\u0022\u0029\u003b\u007d\u007d\u002f\u002a
>
> */
>
> It compiles and runs. Does this make Java a very difficult language? (It
> simply prints "Hi!", in case you're interested.)
It does, in Perl also print (almost) the same:
print map chr hex, split /\\u00/, '
\u0050\u0076\u0064\u004c\u0020\u0031\u0020\u0041\u0070\u0072\u0039\u0036
\u002a\u002f\u0020\u0063\u006c\u0061\u0073\u0073\u0020\u0068\u0020\u007b
\u0020\u0020\u0070\u0075\u0062\u006c\u0069\u0063\u0020\u0020\u0020\u0020
\u0073\u0074\u0061\u0074\u0069\u0063\u0020\u0020\u0076\u006f\u0069\u0064
\u006d\u0061\u0069\u006e\u0028\u0020\u0053\u0074\u0072\u0069\u006e\u0067
\u005b\u005d\u0061\u0029\u0020\u007b\u0053\u0079\u0073\u0074\u0065\u006d
\u002e\u006f\u0075\u0074\u002e\u0070\u0072\u0069\u006e\u0074\u006c\u006e
\u0028\u0022\u0048\u0069\u0021\u0022\u0029\u003b\u007d\u007d\u002f\u002a
';
Regards
M.
------------------------------
Date: Mon, 05 Mar 2007 10:33:51 +0100
From: Mirco Wahab <wahab-mail@gmx.de>
Subject: Re: Question about wizard Perl programmers
Message-Id: <esgog5$lal$1@mlucom4.urz.uni-halle.de>
LovesHisLittleShad wrote:
> not exp log srand xor s qq qx xor
> ...
> exec return y s gt sin sort split
>
> Run it and see what it does. How in the world
> did someone come up with this?
This looks, for me, clearly like 'Art'.
Perl allows people to take a profane thing,
a (computing) machinery, - which generally
does not reveal what it is to the observer -
and turns this upside down by *pretending*
to *be* something else (a literal text, a
sequence of technical terms) which hides
the profane thing completely behind a new
"sense" or "form".
This is Art. Don't be mislead ;-)
> Who are these people?
These people are artists, and they
are dead serious in giving boring
daily stuff an appearance that
transcends it to the extreme in
'having no more profane use' ...
my €0,05
Regards
M.
------------------------------
Date: 05 Mar 2007 09:44:19 GMT
From: Abigail <abigail@abigail.be>
Subject: Re: Question about wizard Perl programmers
Message-Id: <slrneunpis.9ck.abigail@alexandra.abigail.be>
LovesHisLittleShad (jgrace5@gmail.com) wrote on MMMMCMXXXIV September
MCMXCIII in <URL:news:1173067931.041020.191050@c51g2000cwc.googlegroups.com>:
-: Is it my imagination, or is Perl a million times harder than other
-: languages? Looking at books on all the languages of the past (I'm a
-: programmer), I've notices that Perl is the only one that seems greek
-: in most chapters, with very little explanation of what the people are
-: doing.
It's your imagination. Perl is only about a thousand times harder than
most other languages.
-: Am I wrong, or does the Perl language literally attract the wizards of
-: the world to it, more than other languages? Consider the following
-: code someone wrote that I found on a web site:
Yes. Only Perl gives wizard programmers a challenge. All other languages
are just too boring for them.
-: not exp log srand xor s qq qx xor
-: s x x length uc ord and print chr
-: ord for qw q join use sub tied qx
-: xor eval xor print qq q q xor int
-: eval lc q m cos and print chr ord
-: for qw y abs ne open tied hex exp
-: ref y m xor scalar srand print qq
-: q q xor int eval lc qq y sqrt cos
-: and print chr ord for qw x printf
-: each return local x y or print qq
-: s s and eval q s undef or oct xor
-: time xor ref print chr int ord lc
-: foreach qw y hex alarm chdir kill
-: exec return y s gt sin sort split
-:
-: Run it and see what it does. How in the world did someone come up
-: with this?
Why run it? It's obvious what it does, isn't it? And it does prove that
Perl isn't line nouse. The program above contains less punctuation
character than almost any Python or Java program.
-: Who are these people?
I could tell you, but then I will have to kill you.
If you're good enough in other languages, Perl will contact you.
Abigail
--
srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
//=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\n"
------------------------------
Date: Mon, 05 Mar 2007 10:37:44 +0100
From: Mirco Wahab <wahab-mail@gmx.de>
Subject: Re: Question about wizard Perl programmers
Message-Id: <esgqfs$lqu$1@mlucom4.urz.uni-halle.de>
Alex wrote:
> It compiles and runs. Does this make Java a very difficult language? (It
> simply prints "Hi!", in case you're interested.)
In the "java version", there seems to
be an error, as is obvious from the
perl output. Maybe one has to put
the last two codes on the start
of the whole sequence, like:
>---------------------------------+
|
V
print map chr hex,split/\\u/,'\u002f\u002a
\u0050\u0076\u0064\u004c\u0020\u0031\u0020\u0041\u0070\u0072\u0039\u0036
\u002a\u002f\u0020\u0063\u006c\u0061\u0073\u0073\u0020\u0068\u0020\u007b
\u0020\u0020\u0070\u0075\u0062\u006c\u0069\u0063\u0020\u0020\u0020\u0020
\u0073\u0074\u0061\u0074\u0069\u0063\u0020\u0020\u0076\u006f\u0069\u0064
\u006d\u0061\u0069\u006e\u0028\u0020\u0053\u0074\u0072\u0069\u006e\u0067
\u005b\u005d\u0061\u0029\u0020\u007b\u0053\u0079\u0073\u0074\u0065\u006d
\u002e\u006f\u0075\u0074\u002e\u0070\u0072\u0069\u006e\u0074\u006c\u006e
\u0028\u0022\u0048\u0069\u0021\u0022\u0029\u003b\u007d\u007d'
V
|
<-------------------------------------------------------------+
Does the original code really work in Java?
Regards
M.
------------------------------
Date: Mon, 05 Mar 2007 12:35:21 +0200
From: Alex <check.sig@for.email.invalid>
Subject: Re: Question about wizard Perl programmers
Message-Id: <KnSGh.8600$%Y3.4269@reader1.news.saunalahti.fi>
Mirco Wahab wrote:
>> It compiles and runs. Does this make Java a very difficult language? (It
>> simply prints "Hi!", in case you're interested.)
>
> It does, in Perl also print (almost) the same:
<nitpick>Your code prints the Java code that prints "Hi!", including the
comment delimiters.</nitpick> However, I think your code is a good
example of the beauty of perl, ie. how to easily convert illegible text
into legible.
--
Alex
e-mail: Domain is iki dot fi. Local-part is alext.
local-part at domain
------------------------------
Date: Mon, 05 Mar 2007 12:43:38 +0200
From: Alex <check.sig@for.email.invalid>
Subject: Re: Question about wizard Perl programmers
Message-Id: <uvSGh.8606$w44.256@reader1.news.saunalahti.fi>
Mirco Wahab wrote:
> In the "java version", there seems to
> be an error, as is obvious from the
> perl output. Maybe one has to put
> the last two codes on the start
> of the whole sequence, like:
Not sure what you mean, but did you notice the unterminated comment
marker in the original java code? Of course, the "obfuscated" code
terminates that comment, so the beginning of the garbage is irrelevant.
Similarly, the last line (readable) line terminates a comment which is
started in the obfuscated code.
> Does the original code really work in Java?
As I said, it compiles, runs and prints "Hi!" on JRE 1.5.0_05. Include
the comment markers when copying+pasting.
--
Alex
e-mail: Domain is iki dot fi. Local-part is alext.
local-part at domain
------------------------------
Date: Mon, 05 Mar 2007 11:47:21 +0100
From: Mirco Wahab <wahab-mail@gmx.de>
Subject: Re: Question about wizard Perl programmers
Message-Id: <esgsq8$mgq$1@mlucom4.urz.uni-halle.de>
Alex wrote:
> As I said, it compiles, runs and prints "Hi!" on JRE 1.5.0_05. Include
> the comment markers when copying+pasting.
Ooops, yes, "the comment markers" of your posting!
I see. My fault.
Thanks,
Mirco
------------------------------
Date: 5 Mar 2007 01:15:17 -0800
From: sandi_siva@yahoo.com
Subject: Search a text file ,picking values from array
Message-Id: <1173086115.504973.326240@h3g2000cwc.googlegroups.com>
HI I am trying to automate a PPD file
Basic concept is Pick up the values from excel sheet and search it in
a text file.
I am able to display the values from the excel sheet.
Even i am able to search single value in the text file.
Please can some body help me in looping it up so that.
Values are taken up from the array one by one and searched in the text
file and results are updated
Thanks in advamce
the code is
use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
use Win32::OLE::Const 'Microsoft Word';
use File::Find;
# $Win32::OLE::Warn = 3; # die on
errors...
##########################Excel Start Here####################
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
|| Win32::OLE->new('Excel.Application'); # get already active
Excel
# application or
open new
my $Book = $Excel->Workbooks->Open("C:\\PNP and PPD scenarioS.xls"); #
open Excel file
my $Sheet = $Book->Worksheets(1);
$Excel->{'Visible'} = 1;
my $array = $Sheet->Range("B35:B100")->{'Value'}; # get the
contents
$Book->Close;
foreach my $ref_array (@$array) { # loop through
the array
# referenced by
$array
foreach my $scalar (@$ref_array) {
print "$scalar\t"; #values are displayed till
defined in the range;
}
print "\n";
}
#print "$array\t\n";
This works for only one key word.
########################Searching Part#########################
sub find_first {
my $regex = shift;
local @ARGV = @_;
while (<>) {
return $_ if /$regex/
}
}
my $line = find_first(qr/$array/, 'C:\\EF3X3323.txt');
print "$line";
############################################################################
------------------------------
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 194
**************************************
