[30042] in Perl-Users-Digest
Perl-Users Digest, Issue: 1285 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Feb 18 06:09:41 2008
Date: Mon, 18 Feb 2008 03:09:06 -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, 18 Feb 2008 Volume: 11 Number: 1285
Today's topics:
Re: bash and perl <muralikrishnan.s@gmail.com>
Re: Linux, IO::Socket::INET and recv'ing broadcasted UD <DJStunks@gmail.com>
new CPAN modules on Mon Feb 18 2008 (Randal Schwartz)
Parsing multi-line text keith@bytebrothers.co.uk
Re: Regular Expression to Replace UPPER Case Text with <abigail@abigail.be>
Re: Regular Expression to Replace UPPER Case Text with <noreply@gunnar.cc>
Re: TRAC - Trac, Project Leads, Python, and Mr. Noah Ka <ilias@lazaridis.com>
Re: TRAC - Trac, Project Leads, Python, and Mr. Noah Ka <ilias@lazaridis.com>
unicode <-> hex <newtan@gmail.com>
Re: Why `for local $var (LIST) ...' not allowed? <xueweizhong@gmail.com>
Re: Why `for local $var (LIST) ...' not allowed? <uri@stemsystems.com>
Re: Why `for local $var (LIST) ...' not allowed? <xueweizhong@gmail.com>
Re: Why `for local $var (LIST) ...' not allowed? <joost@zeekat.nl>
Re: Writers Block <zen13097@zen.co.uk>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 18 Feb 2008 02:31:14 -0800 (PST)
From: krish <muralikrishnan.s@gmail.com>
Subject: Re: bash and perl
Message-Id: <0efe9aec-af4b-4f60-847a-c3fb0402415f@e6g2000prf.googlegroups.com>
On Feb 18, 7:41 am, Ben Morrow <b...@morrow.me.uk> wrote:
> Quoth David Williams <dw...@acmex.gatech.edu>:
>
> > I don't think my first message went through.
> > Wondering if there is a way to mix perl and shell scripts?
>
> > Like this:
>
> > #!/usr/bin/perl
> <snip>
> > #!/bin/bash
> <snip>
> > I tried this above but Perl did not like it.
>
> What are you actually trying to achieve? When do you want the shell to
> be executed? You can easily include shell in your Perl script, as a
> heredoc, and then feed it to /bin/bash or anything else...
>
> Ben
If you want to embed some BASH script inside perl and call it inside
perl program, the following
might help.
#!/usr/bin/perl
....
....
{
open(MYPROG,">bscript.sh") or die "..."
local $/ ;
$myprog = <DATA> ;
print MYPROG $myprog ;
}
system("$myprog");
$ret = $?>>8 ;
.....
....
__DATA__
#!/bin/bash
echo "this is my bash program" ;
...
...
..
Is this the one you want ?
Otherwise let me know, what exactly is your requirement.
------------------------------
Date: Sun, 17 Feb 2008 21:16:21 -0800 (PST)
From: DJ Stunks <DJStunks@gmail.com>
Subject: Re: Linux, IO::Socket::INET and recv'ing broadcasted UDP
Message-Id: <706dc581-26ca-42d6-b775-f676bf911b39@h11g2000prf.googlegroups.com>
On Feb 17, 8:24 am, DJ Stunks <DJStu...@gmail.com> wrote:
> Hey all, it's been a while since I hung out here but I still use Perl
> from time to time (and miss using it!).
>
> Anyway, I originally posted this question at comp.lang.perl.modules
> but I'm not getting any responses and I'm not sure it's a modules
> question anyway - maybe more a socket/Linux problem.
>
> Original post here (includes code):
>
> http://groups.google.com/group/comp.lang.perl.modules/msg/8ce530096fe...
>
> In summary, I'm attempting to use Net::DHCP::Packet and
> IO::Socket::INET to generate, transmit and receive DHCP messages
> (discover, offer, request, ack). The problem is that I'm not able to
> use the IO::Socket recv method to receive a broadcasted DHCP offer
> packet. My script blocks indefinitely though I see the offer arrive
> via Wireshark.
>
> I'm following the example from the Net::DHCP::Packet package and, in
> Googling, no one else mentions issues with this. Therefore I assume
> that the error is on my part - probably a simple error - but I don't
> know enough to diagnose it.
>
> As I mentioned, I'm using Linux with eth0 set up with a static IP
> (10.0.0.1). I was not able to set the interface to 0.0.0.0 as I'd
> assumed I should in order to perform DHCP transactions.
>
> I'm open to any and all suggestions, tips, etc.
Well, after Ben mentioned promiscuous mode I did some more Googling
and it turns out Abigail had problems with the same issue in 2004
(http://www.perlmonks.org/index.pl?node_id=325248).
So I feel a lot better if it can happen to him too ;-)
Abigail was on RH; I'm on Fedora. So now to figure out what was
blocked and how to unblock it. iptables? I'll check tomorrow but I
thought I tried with the thing wide open at least once...
-jp
------------------------------
Date: Mon, 18 Feb 2008 05:42:17 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Mon Feb 18 2008
Message-Id: <JwF6IH.1BK5@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.
Acme-PIA-Export-0.018
http://search.cpan.org/~chrwin/Acme-PIA-Export-0.018/
Export contacts, calendars or todos from Arcor's PIA messaging
----
Apache2-Translation-0.20
http://search.cpan.org/~opi/Apache2-Translation-0.20/
Configuring Apache dynamically
----
App-Addex-0.014
http://search.cpan.org/~rjbs/App-Addex-0.014/
generate mail tool configuration from an address book
----
App-Addex-AddressBook-Apple-0.007
http://search.cpan.org/~rjbs/App-Addex-AddressBook-Apple-0.007/
use Apple Address Book as the addex source
----
App-Addex-AddressBook-Apple-0.008
http://search.cpan.org/~rjbs/App-Addex-AddressBook-Apple-0.008/
use Apple Address Book as the addex source
----
CGI-LZE-0.24
http://search.cpan.org/~lze/CGI-LZE-0.24/
----
CGI-LZE-0.25
http://search.cpan.org/~lze/CGI-LZE-0.25/
----
CGI-LZE-Blog-0.24
http://search.cpan.org/~lze/CGI-LZE-Blog-0.24/
----
CGI-LZE-Blog-0.25
http://search.cpan.org/~lze/CGI-LZE-Blog-0.25/
----
Carp-Clan-6.00
http://search.cpan.org/~jjore/Carp-Clan-6.00/
Report errors from perspective of caller of a "clan" of modules
----
Config-File-Simple-1.00
http://search.cpan.org/~kaiw/Config-File-Simple-1.00/
a module to parse and edit a configuration file
----
Config-Validate-0.2.5
http://search.cpan.org/~cmo/Config-Validate-0.2.5/
Validate data structures generated from configuration files. (Or anywhere else)
----
DBD-Pg-2.0.0_1
http://search.cpan.org/~turnstep/DBD-Pg-2.0.0_1/
PostgreSQL database driver for the DBI module
----
DBD-Pg-2.0.0_2
http://search.cpan.org/~turnstep/DBD-Pg-2.0.0_2/
PostgreSQL database driver for the DBI module
----
DBD-Pg-2.0.1_1
http://search.cpan.org/~turnstep/DBD-Pg-2.0.1_1/
PostgreSQL database driver for the DBI module
----
DBD-Pg-2.0.1_2
http://search.cpan.org/~turnstep/DBD-Pg-2.0.1_2/
PostgreSQL database driver for the DBI module
----
DBI-LZE-0.24
http://search.cpan.org/~lze/DBI-LZE-0.24/
----
DBI-LZE-0.25
http://search.cpan.org/~lze/DBI-LZE-0.25/
----
DateTime-Format-Natural-0.68
http://search.cpan.org/~schubiger/DateTime-Format-Natural-0.68/
Create machine readable date/time with natural parsing logic
----
Devel-Fail-MakefilePL-1.010
http://search.cpan.org/~mthurn/Devel-Fail-MakefilePL-1.010/
a distro that always fails the `perl Makefile.PL` stage
----
Egg-Release-3.01
http://search.cpan.org/~lushe/Egg-Release-3.01/
Version of Egg WEB Application Framework.
----
Email-Fingerprint-0.20
http://search.cpan.org/~budney/Email-Fingerprint-0.20/
Calculate a digest for recognizing duplicate emails
----
Email-Fingerprint-0.21
http://search.cpan.org/~budney/Email-Fingerprint-0.21/
Calculate a digest for recognizing duplicate emails
----
ExtUtils-ParseXS-2.19
http://search.cpan.org/~kwilliams/ExtUtils-ParseXS-2.19/
converts Perl XS code into C code
----
Games-Roshambo-1.00
http://search.cpan.org/~cthom/Games-Roshambo-1.00/
Perl OO Rock/Paper/Scissors
----
HTML-Menu-TreeView-0.85
http://search.cpan.org/~lze/HTML-Menu-TreeView-0.85/
----
HTML-Menu-TreeView-0.86
http://search.cpan.org/~lze/HTML-Menu-TreeView-0.86/
----
HTML-Template-Default-1.04
http://search.cpan.org/~leocharre/HTML-Template-Default-1.04/
unless template file is on disk, use default hard coded
----
HTML-Template-Default-1.05
http://search.cpan.org/~leocharre/HTML-Template-Default-1.05/
unless template file is on disk, use default hard coded
----
HTML-Template-LZE-0.25
http://search.cpan.org/~lze/HTML-Template-LZE-0.25/
----
HTML-Template-LZE-Editor-0.24
http://search.cpan.org/~lze/HTML-Template-LZE-Editor-0.24/
----
HTML-Template-LZE-Editor-0.25
http://search.cpan.org/~lze/HTML-Template-LZE-Editor-0.25/
----
HTML-Template-LZE-Main-0.24
http://search.cpan.org/~lze/HTML-Template-LZE-Main-0.24/
----
HTML-Template-LZE-Main-0.25
http://search.cpan.org/~lze/HTML-Template-LZE-Main-0.25/
----
HTML-Template-LZE-Pages-0.24
http://search.cpan.org/~lze/HTML-Template-LZE-Pages-0.24/
----
HTML-Template-LZE-Pages-0.25
http://search.cpan.org/~lze/HTML-Template-LZE-Pages-0.25/
----
HTML-Template-LZE-TabWidget-0.24
http://search.cpan.org/~lze/HTML-Template-LZE-TabWidget-0.24/
----
HTML-Template-LZE-TabWidget-0.25
http://search.cpan.org/~lze/HTML-Template-LZE-TabWidget-0.25/
----
HTML-Template-LZE-Template-0.24
http://search.cpan.org/~lze/HTML-Template-LZE-Template-0.24/
----
HTML-Template-LZE-Window-0.24
http://search.cpan.org/~lze/HTML-Template-LZE-Window-0.24/
html window
----
HTML-Template-LZE-Window-0.25
http://search.cpan.org/~lze/HTML-Template-LZE-Window-0.25/
html window
----
Hardware-Simulator-MIX-0.09
http://search.cpan.org/~litchie/Hardware-Simulator-MIX-0.09/
----
Hyper-Developer-0.05
http://search.cpan.org/~acid/Hyper-Developer-0.05/
Hyper Developer Tools
----
Language-MPI-2008.0217
http://search.cpan.org/~hanelyp/Language-MPI-2008.0217/
2008.0217 Message Parsing Interpreter
----
Net-DNSBL-Monitor-0.03
http://search.cpan.org/~miker/Net-DNSBL-Monitor-0.03/
Monitor DNSBL response
----
Net-DNSBL-Statistics-0.05
http://search.cpan.org/~miker/Net-DNSBL-Statistics-0.05/
gather DNSBL Statistics
----
Net-MirrorDir-0.11
http://search.cpan.org/~knorr/Net-MirrorDir-0.11/
Perl extension for compare local-directories and remote-directories with each other
----
Net-Twitter-1.08
http://search.cpan.org/~cthom/Net-Twitter-1.08/
Perl interface to twitter.com
----
Net-Write-1.01
http://search.cpan.org/~gomor/Net-Write-1.01/
a portable interface to open and send raw data to network
----
POE-Component-IRC-Plugin-PAUSE-RecentUploads-0.03
http://search.cpan.org/~zoffix/POE-Component-IRC-Plugin-PAUSE-RecentUploads-0.03/
PoCo::IRC plugin for reporting recent uploads to "/pause.perl.org" in http::
----
POE-Component-WWW-PAUSE-RecentUploads-0.03
http://search.cpan.org/~zoffix/POE-Component-WWW-PAUSE-RecentUploads-0.03/
a non-blocking POE wrapper around WWW::PAUSE::RecentUploads.
----
POE-Component-WWW-PAUSE-RecentUploads-Tail-0.04
http://search.cpan.org/~zoffix/POE-Component-WWW-PAUSE-RecentUploads-Tail-0.04/
tail recent uploads to PAUSE.
----
POE-Component-WWW-PAUSE-RecentUpoads-0.03
http://search.cpan.org/~zoffix/POE-Component-WWW-PAUSE-RecentUpoads-0.03/
----
POE-Component-WWW-PAUSE-RecentUpoads-Tail-0.04
http://search.cpan.org/~zoffix/POE-Component-WWW-PAUSE-RecentUpoads-Tail-0.04/
----
POE-Component-WWW-YouTube-VideoURI-0.06
http://search.cpan.org/~zoffix/POE-Component-WWW-YouTube-VideoURI-0.06/
Non-blocking POE wrapper around WWW::YouTube::VideoURI with download abilities.
----
Test-Continuous-0.0.3
http://search.cpan.org/~gugod/Test-Continuous-0.0.3/
Run your tests suite continusouly when developing.
----
Test-Continuous-0.0.4
http://search.cpan.org/~gugod/Test-Continuous-0.0.4/
Run your tests suite continusouly when developing.
----
Text-Wrap-Smart-XS-0.04
http://search.cpan.org/~schubiger/Text-Wrap-Smart-XS-0.04/
Wrap text fast into chunks of (mostly) equal length
----
WWW-PAUSE-RecentUploads-0.02
http://search.cpan.org/~zoffix/WWW-PAUSE-RecentUploads-0.02/
get the list of the recent uploads to PAUSE
----
WebService-Yelp-0.01
http://search.cpan.org/~jdr/WebService-Yelp-0.01/
Yelp.com API Client Implementation
----
autobox-2.02
http://search.cpan.org/~chocolate/autobox-2.02/
use builtin data types as first-class objects
----
autobox-Encode-0.03
http://search.cpan.org/~tokuhirom/autobox-Encode-0.03/
Encode with autobox
----
eGuideDog-Dict-Cantonese-0.2
http://search.cpan.org/~hgneng/eGuideDog-Dict-Cantonese-0.2/
an informal Jyutping dictionary.
----
sleepserver-v0.0.1
http://search.cpan.org/~ewilhelm/sleepserver-v0.0.1/
an http server that sleeps on the job
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: Mon, 18 Feb 2008 02:42:36 -0800 (PST)
From: keith@bytebrothers.co.uk
Subject: Parsing multi-line text
Message-Id: <daddada1-e55e-4698-903b-92bd639be005@p25g2000hsf.googlegroups.com>
Hi all,
I have a data file structured something like this:
------------------8<-----------------------
Chunk 01
NAME: "Alice"
Description: "Some other string"
Age: 37
Chunk 02
NAME: "Bob"
Description: "Some other string"
Age: 28
Chunk 03
FIRST: "Carol"
Description: "Some other string"
Age: 32
Chunk 04
FIRST: "Dave"
Description: "Some other string"
Age: 22
------------------8<-----------------------
and I want to extract from it to produce output something like this:
------------------8<-----------------------
01 NAME: Alice -> 37
02 NAME: Bob -> 28
03 NAME: Carol -> 32
04 NAME: Dave -> 22
------------------8<-----------------------
I've read and re-read the section in perlfaq6 (no, really, I have!)
about milt-line matching, but I can't see how to adapt what is there
to this.
Can someone please point me in the right direction?
Thx!
------------------------------
Date: 18 Feb 2008 09:44:10 GMT
From: Abigail <abigail@abigail.be>
Subject: Re: Regular Expression to Replace UPPER Case Text with lower case text
Message-Id: <slrnfrikra.ci.abigail@alexandra.abigail.be>
_
penny (kevin.penny@gmail.com) wrote on VCCLXXXIV September MCMXCIII in
<URL:news:63c756af-1b1b-47b9-974a-3937ebfa2d13@v3g2000hsc.googlegroups.com>:
"" Is there a way in Regular Expressions to convert a string that is all
"" in upper case - and replace it with it's lower case equivalent?
Do you mean s///? Regular expressions themselves don't convert strings.
"" I can do something like ([A-Z][A-Z]+\x?) to match any given word and
\x is to be followed by a hex number, possibly inside braces. A question
mark isn't any of such.
"" reference it as \1, however without using programming language lcase
"" or LOWER functions on it - how can I use reg ex to convert the text to
"" it's lower case equivalent??
Why on earth wouldn't you want to 'lc' to lower case a string?
Furthermore, considering that lowercasing a lowercased string doesn't
change its context, why go through all the trouble of matching the
upper case substrings? Why not just lowercase the entire string?
"" Thanks - (I use coldfusion but the regular expression syntax is
"" similar)
Oh, sure. Well, that could be a reason to avoid 'lc'. I guess your option
is to match each and every 'A', replace it with an 'a', match each and
every 'B', replace it with a 'b', etc. Hopefully, you don't have to many
different characters in your text.
Abigail
--
($;,$_,$|,$\)=("\@\x7Fy~*kde~box*Zoxf*Bkiaox","#"x25,1,"\r");
s/./ /;{vec($_=>1+$"=>8)=ord($/^substr$;=>$"=int rand 24=>1);
print&&select$,,$,,$,,$|/($|+tr/#//c);redo if y/#//};sleep 1;
------------------------------
Date: Mon, 18 Feb 2008 11:50:45 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Regular Expression to Replace UPPER Case Text with lower case text
Message-Id: <61t64hF20hog8U1@mid.individual.net>
Abigail wrote:
> penny (kevin.penny@gmail.com) wrote on VCCLXXXIV September MCMXCIII in
> <URL:news:63c756af-1b1b-47b9-974a-3937ebfa2d13@v3g2000hsc.googlegroups.com>:
> "" Thanks - (I use coldfusion but the regular expression syntax is
> "" similar)
>
> Oh, sure. Well, that could be a reason to avoid 'lc'. I guess your option
> is to match each and every 'A', replace it with an 'a', match each and
> every 'B', replace it with a 'b', etc. Hopefully, you don't have to many
> different characters in your text.
tr/A-Z/a-z/
But there is of course a risk that ColdFusion doesn't have a tr///
operator either.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Mon, 18 Feb 2008 02:57:46 -0800 (PST)
From: Ilias Lazaridis <ilias@lazaridis.com>
Subject: Re: TRAC - Trac, Project Leads, Python, and Mr. Noah Kantrowitz (sanitizer)
Message-Id: <a7355a1e-c667-4bf0-bc05-62972599d85f@v3g2000hsc.googlegroups.com>
[RESEND of answer to all initial groups]
On 16 =D6=E5=E2, 15:45, Steve Holden <st...@holdenweb.com> wrote:
> Ilias Lazaridis wrote:
> [...]> Of course I'll not stay with trac, I'll leave the sinking ship, I'v=
e
> > prepare long time ago to do so, step by step. An will migrate step by
> > step away from trac and python - toward an own implementation based
> > on...
> > perl and it's libraries.
> I'm sure you will find the Perl community much more welcoming and
> receptive to your ideas about how open source projects should be run.
The perl projects can decide themselfs if they like to adopt the most
essential things:
http://case.lazaridis.com/wiki/Project
I do not analyze languages and communities anymore, thus there is no
need for them to 'worry', e.g. that I attemp to transform them to an
high evolutive language system.
Ruby and Python were excellent for this (Ruby =3D weak puppets, Python =3D
egoism driven).
I'll just use perl until I've implemented my own language, around 2010
to 2011, which will be most possibly close to perl (or a perl
extension, if technically possibly and no legal barriers with
libraries).
Perl is available in nearly every webserver, and has very nice a
logical OO functionality (although it's not very good marketed, this
OO part). And perl keeps you highly independent, you can work with
simple systems, close to the OS.
> > Really, I don't understand the need for python. And after fighting
> > with some indenting within html templates, I dislike the whitespace-
> > syntax-thing of python again.
> Fortunately, as you have realized, you have choices and are under no
> compulsion to use any particular tool.
As said above: python (essentially it's community in a wider scope) is
an ideal domain to analyze how human egoism blocks evolution of
technical systems. Thus, python is an important educational tool.
> > Do it in perl, if you need something more 'pretty', do it in ruby, if
> > you need something more 'serious' do it in java, if you have enough
> > brain and time, do it in C++ from bottom up.
> And, apparently, do it in Python if you want to avoind running into
> Ilias Lazaridis.
No, I'll be bound to python for some time, a year or so.
And good news: as I cannot post to the trac-user group, I'll post the
topics to comp.lang.python.
(you can thank the project lead of trac, his lack of courage is the
reason that the developers get out of control)
> I have to say your approach to IT systems seems somewhat pedestrian,
The IT industry has failed to provide simple standards, systems. AI
has failed to produce intelligent systems. So, maybe the IT industry
is somewhat pedestrian, as its failure to control egoism has led to
terrible software systems.
Restarting from the beginning can give the impression of a "learning
child".
> but I wish you well in whatever it is you are trying to achieve.
http://core.lazaridis.com/wiki/ActivityHistory
> I hope you have a good set of asbestos (i.e. flame-proof) trousers.
As said, the analysis phase is over.
But even if not: I've 'survived' within comp.lang.lisp for some months
http://groups.google.gr/group/comp.lang.lisp/browse_frm/thread/879809...
I think no language community can be worser.
-
Btw:
If you would adopt the open-source-processes to digital electronic
design, we would work today still with 8086.
http://case.lazaridis.com/wiki/ProjectLead
=2E
------------------------------
Date: Mon, 18 Feb 2008 02:59:10 -0800 (PST)
From: Ilias Lazaridis <ilias@lazaridis.com>
Subject: Re: TRAC - Trac, Project Leads, Python, and Mr. Noah Kantrowitz (sanitizer)
Message-Id: <cf360b20-23bd-44a9-981d-cf662c96e43f@e60g2000hsh.googlegroups.com>
[RESEND answer to all initial groups]
On 16 =D6=E5=E2, 19:15, Jeff Schwab <j...@schwabcenter.com> wrote:
> Ilias Lazaridis wrote:
> > Essence:
> <snip>Spam spam spam spam...</snip>
> I just looked at your resume.
http://lazaridis.com/resumes/lazaridis.html
(need to update it, lot's of irrelevant stuff, should focus on my
failures)
> What is Abstract Project Management?
I've mentioned "abstract _product_ management"
Don't know exactly, I've never tried to articulate the meaning which
I've internally.
You could extract the meaning from "Abstract Base Class" or
"Abstractness" in general.
Something like "universal product management".
Or managing a product without having many specific information about
it.
Something like this _possibly_:
http://case.lazaridis.com/wiki/KomodoAudit
------------------------------
Date: Mon, 18 Feb 2008 03:07:20 -0800 (PST)
From: nazrat <newtan@gmail.com>
Subject: unicode <-> hex
Message-Id: <91345866-e390-4cf4-8791-c606469e774f@e25g2000prg.googlegroups.com>
i'd like to know if there's a way to get back the original hex values
of a unicode character.
ex:
my $u = "\x{20A3}";
my $h = pack(....., $u) ? so that $h is now a string '20A3'. thanks.
------------------------------
Date: Mon, 18 Feb 2008 00:15:00 -0800 (PST)
From: Todd <xueweizhong@gmail.com>
Subject: Re: Why `for local $var (LIST) ...' not allowed?
Message-Id: <dea283b4-034b-4c6b-a0e2-7c1cbe2548dc@e25g2000prg.googlegroups.com>
OK, let me reply you one by one:
Uri Guttman wrote:
> why would you want local?
I don't want to use local. I like to use `my' here. But I just want to
know why `local' is not allowed here, so i put the example.
> do you know the difference between local and my?
Why i dont know it? just try perldoc below if you want to:
perldoc -q local my
You'll the FAQ about the difference at faq7.
>do you know you can localize an our variable?
Yes. `our' variable is just a global variable.
>do you also know not to use $a (even in examples) as it is special cased with strict?
The result is same if use `$aaa' instead of $a, even i know $a is
magical, but why bother to be boring of this?
So you answer my question ?!!!? Seems you don't know the reason behind
it or the anser would be very simple rather than long useless paragrah
saying nothing useful.
-Todd
------------------------------
Date: Mon, 18 Feb 2008 08:23:06 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Why `for local $var (LIST) ...' not allowed?
Message-Id: <x74pc6oeqd.fsf@mail.sysarch.com>
>>>>> "T" == Todd <xueweizhong@gmail.com> writes:
T> OK, let me reply you one by one:
T> Uri Guttman wrote:
>> why would you want local?
T> I don't want to use local. I like to use `my' here. But I just want to
T> know why `local' is not allowed here, so i put the example.
then why do you care about local? you rarely need it and it is not
needed for loop variables. so perl doesn't allow it as it has no good
use there. simple. don't try to use local on a loop variable.
>> do you know the difference between local and my?
T> Why i dont know it? just try perldoc below if you want to:
T> perldoc -q local my
huh??
T> You'll the FAQ about the difference at faq7.
huh?? speak english.
>> do you know you can localize an our variable?
T> Yes. `our' variable is just a global variable.
>> do you also know not to use $a (even in examples) as it is special cased with strict?
T> The result is same if use `$aaa' instead of $a, even i know $a is
T> magical, but why bother to be boring of this?
boring?
T> So you answer my question ?!!!? Seems you don't know the reason behind
T> it or the anser would be very simple rather than long useless paragrah
T> saying nothing useful.
and you ask nothing useful. i told you in another post the hint on how
to work around this.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Architecture, Development, Training, Support, Code Review ------
----------- Search or Offer Perl Jobs ----- http://jobs.perl.org ---------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Mon, 18 Feb 2008 00:41:20 -0800 (PST)
From: Todd <xueweizhong@gmail.com>
Subject: Re: Why `for local $var (LIST) ...' not allowed?
Message-Id: <1a451f90-9eb6-4133-8479-f58551945475@i29g2000prf.googlegroups.com>
Uri Guttman wrote:
> >>>>> "T" == Todd <xueweizhong@gmail.com> writes:
>
> T> OK, let me reply you one by one:
>
> T> Uri Guttman wrote:
> >> why would you want local?
> T> I don't want to use local. I like to use `my' here. But I just want to
> T> know why `local' is not allowed here, so i put the example.
>
> then why do you care about local? you rarely need it and it is not
> needed for loop variables. so perl doesn't allow it as it has no good
> use there. simple. don't try to use local on a loop variable.
>
> >> do you know the difference between local and my?
> T> Why i dont know it? just try perldoc below if you want to:
>
> T> perldoc -q local my
>
> huh??
>
> T> You'll the FAQ about the difference at faq7.
>
> huh?? speak english.
>
> >> do you know you can localize an our variable?
> T> Yes. `our' variable is just a global variable.
>
> >> do you also know not to use $a (even in examples) as it is special cased with strict?
> T> The result is same if use `$aaa' instead of $a, even i know $a is
> T> magical, but why bother to be boring of this?
>
> boring?
>
> T> So you answer my question ?!!!? Seems you don't know the reason behind
> T> it or the anser would be very simple rather than long useless paragrah
> T> saying nothing useful.
>
> and you ask nothing useful. i told you in another post the hint on how
> to work around this.
>
I like the answer of this run. Why can't you be kind at first?
-Todd
------------------------------
Date: Mon, 18 Feb 2008 09:51:34 +0100
From: Joost Diepenmaat <joost@zeekat.nl>
Subject: Re: Why `for local $var (LIST) ...' not allowed?
Message-Id: <87y79ify09.fsf@zeekat.nl>
Todd <xueweizhong@gmail.com> writes:
> I like the answer of this run. Why can't you be kind at first?
The answer is: it doesn't work that way because nobody's bothered to
imlement it because it's extremely uncommon to need a local() loop
variable ($_ excepted).
--
Joost Diepenmaat | blog: http://joost.zeekat.nl/ | work: http://zeekat.nl/
------------------------------
Date: 18 Feb 2008 10:02:52 GMT
From: Dave Weaver <zen13097@zen.co.uk>
Subject: Re: Writers Block
Message-Id: <47b957cc$0$21092$da0feed9@news.zen.co.uk>
dale <dalestubblefield@gmail.com> wrote:
> ############################################# Clean up #########
> `rm -f /root/bin/temp`;
> `rm -f /root/bin/tempGID`;
> `rm -f /root/bin/tempUID`;
> ###########################################################
Ick!
The `` backticks operator runs a shell command and returns its standard
output. If you don't want that output, use system() instead.
But there's no need to do that just to delete some files. Perl has its own
built-in "rm", spelled "unlink".
------------------------------
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 1285
***************************************
