[19975] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 2170 Volume: 10

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Nov 21 09:10:51 2001

Date: Wed, 21 Nov 2001 06:10:14 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <1006351814-v10-i2170@ruby.oce.orst.edu>
Content-Type: text

Perl-Users Digest           Wed, 21 Nov 2001     Volume: 10 Number: 2170

Today's topics:
    Re: need help with a seemingly simple regex <mgjv@tradingpost.com.au>
    Re: Overwriting a part of text using a perl script! <bernard.el-hagin@lido-tech.net>
    Re: Overwriting a part of text using a perl script! <brian.norman@gecm.com>
    Re: Perl generating JavaScript problem (Amer Neely)
    Re: Question about upgrading Perl on Linux <pne-news-20011121@newton.digitalspace.net>
    Re: Question about upgrading Perl on Linux <pne-news-20011121@newton.digitalspace.net>
    Re: result pages (10 by 10) <Laocoon@eudoramail.com>
    Re: result pages (10 by 10) <peb@bms.umist.ac.uk>
    Re: result pages (10 by 10) <pne-news-20011121@newton.digitalspace.net>
        saving floats not as ascii <angenent@kabelfoon.nl>
    Re: slicing multi dimensional arrays <abe@ztreet.demon.nl>
    Re: TCPIP Delay <glodalec@yahoo.com>
    Re: Template System (Wiliam Stephens)
    Re: Template System <bart.lateur@skynet.be>
        Using CGI.pm to obtain a list of params (Wiliam Stephens)
    Re: Using CGI.pm to obtain a list of params <bernard.el-hagin@lido-tech.net>
    Re: Using CGI.pm to obtain a list of params <brian.norman@gecm.com>
    Re: using sendmail from perl (Wiliam Stephens)
    Re: using sendmail from perl <pne-news-20011121@newton.digitalspace.net>
    Re: Version of Perl at runtime <pne-news-20011121@newton.digitalspace.net>
    Re: Version of Perl at runtime <pne-news-20011121@newton.digitalspace.net>
    Re: Version of Perl at runtime <bart.lateur@skynet.be>
        Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Wed, 21 Nov 2001 23:02:21 +1100
From: Martien Verbruggen <mgjv@tradingpost.com.au>
Subject: Re: need help with a seemingly simple regex
Message-Id: <slrn9vn5ud.mfo.mgjv@martien.heliotrope.home>

[Do not pay any attention to what Godzilla says. It is a troll, and has
no decent working knowledge of Perl, or programming in general. Search
groups.google.com to see a history of its posts and replies to these
posts.]

On Tue, 20 Nov 2001 20:38:35 -0800,
	Godzilla! <godzilla@stomp.stomp.tokyo> wrote:
> Martien Verbruggen wrote:

[A set of correct solutions]

I arrive home, where I haven't change my killfile back yet, and guess
what I find: a troll who has no fscking clue about how to program, and
can't even test a program.

> CONTENTS OF TEST.HTM:
> _____________________
> 
><HTML>
> GARBAGE
><img src="images/large/0010.jpg">
> GARBAGE
><img src="images/tn/tn_0010.jpg">
><img src="images/large/0102.jpg">
> GARBAGE
><img src="images/tn/tn_0102.jpg">
><img src="images/tn/tn_0215.jpg">
><img src="images/large/0215.jpg">
> GARBAGE
></HTML>
> 
> 
> TEST SCRIPT:
> ____________
> 
> #!perl
> 
> use strict;
> use HTML::Parser;
> 
> open (DATA, "test.htm");

You did't test the return value of this, did you, troll? Try it again,
and now make sure you do.

I was going to put you back in my killfile, but I've decided otherwise.
I'll join Uri in making sure everyone knows what sort of crap programs
you produce, and what sort of troll you are.

Martien
-- 
                        | 
Martien Verbruggen      | 
                        | What's another word for Thesaurus?
                        | 


------------------------------

Date: 21 Nov 2001 08:16:09 GMT
From: Bernard El-Hagin <bernard.el-hagin@lido-tech.net>
Subject: Re: Overwriting a part of text using a perl script!
Message-Id: <slrn9vmrl9.n27.bernard.el-hagin@gdndev25.lido-tech>

On 20 Nov 2001 20:31:48 -0800, Kevin VAZ <vazkevin@hotmail.com> wrote:
> Dear All,
> 
> Greetings!
> 
> I'am new to perl, but use it for simple scripting. I'am facing a
> problem in substituting the date in the header of a file. Was
> wondering if we could overwrite only a selected portion of text.
> Awating your response.


The Perl FAQ (part 5) has the answer to your query:


    How do I change one line in a file/delete a line in a
    file/insert a line in the middle of a file/append to the
    beginning of a file?


Cheers,
Bernard


------------------------------

Date: Wed, 21 Nov 2001 13:40:56 -0000
From: "brian norman" <brian.norman@gecm.com>
Subject: Re: Overwriting a part of text using a perl script!
Message-Id: <3bfbaba3$1@pull.gecm.com>

open TMP,"<$file>";
@Line=<TMP>;
close TMP;

$Line[0]="whatever you want to do with it";

open TMP,">$file";
print TMP @Lines;
close TMP;



"Kevin VAZ" <vazkevin@hotmail.com> wrote in message
news:241f7389.0111202031.85cef2d@posting.google.com...
> Dear All,
>
> Greetings!
>
> I'am new to perl, but use it for simple scripting. I'am facing a
> problem in substituting the date in the header of a file. Was
> wondering if we could overwrite only a selected portion of text.
> Awating your response.
>
> Regards,
> Kevin.
>
> *******************************
>     Trusting in GOD Alone.
> *******************************




------------------------------

Date: 20 Nov 2001 21:13:46 -0800
From: aneely@softouch.on.ca (Amer Neely)
Subject: Re: Perl generating JavaScript problem
Message-Id: <331f54ba.0111202113.265ef573@posting.google.com>

Bart Lateur <bart.lateur@skynet.be> wrote in message news:<maokvt4kasc88kt589k8e67cgbb3dk4osq@4ax.com>...
> Amer Neely wrote:
> 
> >I checked the Apache error.log and it has:
> >c:/httpd/cgi-bin/sql/mycd.js is not executable; ensure interpreted
> >scripts have "#!" first line
> >couldn't spawn child process: c:/httpd/cgi-bin/sql/mycd.js
> >
> >So this points to a web config problem, not Perl.
> 
> What did you expect to happen?
> 
> If "mycd.js" is a pure Javascript source text file which is supposed to
> be sent to the browser as is, as I would expect, then you need to make
> it available in a location where the server doesn't expect anything but
> scripts, i.e. NOT in cgi-bin.

Well, I sure feel like two cents waiting for change. I knew I had done
this before so started checking old code to see how. You are right -
the .js file was not under the cgi-bin directory. I moved this one to
the public area and it now works fine. Thanks for the light.


------------------------------

Date: Wed, 21 Nov 2001 12:21:43 +0100
From: Philip Newton <pne-news-20011121@newton.digitalspace.net>
Subject: Re: Question about upgrading Perl on Linux
Message-Id: <fm0nvt0j8s5q4lkp9kevkkudpdvjrhgf25@4ax.com>

On Tue, 20 Nov 2001 10:50:58 -0500, "Jeff Klassen"
<nospam!jklassen@biblesociety.ca> wrote:

> Can anyone tell me, can Perl be 'upgraded' to a newer version without
> disabling the existing modules that have been installed in the current Perl.

Yes. You can install several versions of Perl in parallel with one
another.

During the installation, you can specify the target directory, and also
whether to copy perl into /usr/bin. If you choose a separate target
directory and do not install perl in /usr/bin, then you can have several
different interpreters coexist peacefully. You can then either adjust
your $PATH to determine which version is called, or use full path names.

Cheers,
Philip
-- 
Philip Newton <nospam.newton@gmx.li>
That really is my address; no need to remove anything to reply.
If you're not part of the solution, you're part of the precipitate.


------------------------------

Date: Wed, 21 Nov 2001 12:21:44 +0100
From: Philip Newton <pne-news-20011121@newton.digitalspace.net>
Subject: Re: Question about upgrading Perl on Linux
Message-Id: <ep0nvt4g0istfb6pk4j003qj7iurn8isnc@4ax.com>

On Tue, 20 Nov 2001 10:50:58 -0500, "Jeff Klassen"
<nospam!jklassen@biblesociety.ca> wrote:

> What is the correct upgrading path?

Well, I've always compiled my Perl from source on Unix systems :)

You may be able to get a pre-packaged Perl for your Linux distro;
however, if you do so, check whether it overwrites the existing Perl or
whether it installs into a different directory.

Cheers,
Philip
-- 
Philip Newton <nospam.newton@gmx.li>
That really is my address; no need to remove anything to reply.
If you're not part of the solution, you're part of the precipitate.


------------------------------

Date: Wed, 21 Nov 2001 06:01:23 +0100
From: Laocoon <Laocoon@eudoramail.com>
Subject: Re: result pages (10 by 10)
Message-Id: <Xns91603D4DBAB64Laocooneudoramailcom@62.153.159.134>

"Andrew Hamm" <ahamm@programmer.net> wrote in
news:3bfb0457_1@news.iprimus.com.au: 

> Laocoon wrote in message ...
>>Why's everyone posting their stuff two times
>>
> Are you using Micro*swear* Outlook Express? 

Xnews (of course :-)


------------------------------

Date: Wed, 21 Nov 2001 10:20:58 +0000
From: Paul Boardman <peb@bms.umist.ac.uk>
Subject: Re: result pages (10 by 10)
Message-Id: <3BFB800A.7DBF87C1@bms.umist.ac.uk>

Jason Gray wrote:
> 
> I'm currently trying to figure out how to display 10 results at a time then
> if there is more, a link will show and you'll be able to view the next 10
> results. Like if a file has 29 lines, I want to be able to view 3 pages. Any
> help would be good.

Hi Jason,

Just a little note of netiquette.  If you're going to post the same
question to multiple groups then you should cross-post the message
rather than multiple post.  This way both groups get to reap the
benefits of any responses.

Cheers

Paul


------------------------------

Date: Wed, 21 Nov 2001 12:21:47 +0100
From: Philip Newton <pne-news-20011121@newton.digitalspace.net>
Subject: Re: result pages (10 by 10)
Message-Id: <md1nvt8gt53jcr3dppvmkko22l2ervajnh@4ax.com>

On Wed, 21 Nov 2001 12:31:35 +1100, "Andrew Hamm" <ahamm@programmer.net>
wrote:

> Laocoon wrote in message ...
> >Why's everyone posting their stuff two times
>
> Are you using Micro*swear* Outlook Express? It sometimes get's knotted and
> appears to show double-postings.

But surely not with separate message IDs and different 'Date' headers?
<tvlnfa2pr9jhf9@corp.supernews.com> and
<tvlmighe8v42d9@corp.supernews.com> .

Cheers,
Philip
-- 
Philip Newton <nospam.newton@gmx.li>
That really is my address; no need to remove anything to reply.
If you're not part of the solution, you're part of the precipitate.


------------------------------

Date: Wed, 21 Nov 2001 15:02:15 +0100
From: "GOGAR" <angenent@kabelfoon.nl>
Subject: saving floats not as ascii
Message-Id: <9tgc1r$1trn$1@news.kabelfoon.nl>

Hey,
for a while i've been making all sort of little programs in perl..
for example logging stock market values..
now i have like 50mb of data lol
the values are stored in plain ascii..  taking up a byte for each digit..
like umm for example

3.455
3.455
3.567


these files can be much smaller right?
isn't there a way to store floats in a more compact way?
thank for reading ;o)

Chris




------------------------------

Date: Wed, 21 Nov 2001 14:11:10 +0100
From: Abe Timmerman <abe@ztreet.demon.nl>
Subject: Re: slicing multi dimensional arrays
Message-Id: <pb9nvt045okh0o3cvbaforouakdf1dap10@4ax.com>

On Fri, 16 Nov 2001 15:06:08 +0100, "Steffen Müller" <tsee@gmx.net> wrote in
comp.lang.perl.misc:

> A simple example:
> 
> my @large_ary = ( [ 1 .. 5 ], [ 'a' .. 'e' ] );
> # may have arbitrary dimensions.
> 
> my @coords     = (1, 1);
> my @dimensions = (2, 2);
> 
> my @portion = multi_dim_slice( \@large_array, \@coords, \@dimensions );
> 
> @portion should then be:
> ( [ 2, 3 ], [ 'b', 'c' ] )

This is basically the same as Martiens solution, but shorter.

sub multi_dim_slice {

    my( $orig, $start, $size ) = @_;

    die "Sizes don't match." unless @$orig == @$start && @$start == @$size;

    return map [
        @{ $orig->[$_] }[ $start->[$_] .. ($start->[$_] + $size->[$_] - 1) ] 
    ] => 0 .. $#{ $start };

}


-- 
Good luck, Abe
Amsterdam Perl Mongers http://amsterdam.pm.org
perl -e '$_=sub{split//,pop;print pop while@_};&$_("rekcah lreP rehtona tsuJ")'


------------------------------

Date: Wed, 21 Nov 2001 07:16:41 +0100
From: Marvin <glodalec@yahoo.com>
Subject: Re: TCPIP Delay
Message-Id: <MPG.1665653113dcc39989719@news.siol.net>

In article <MPG.1664a30cfa9dab9498968a@news.cis.dfn.de>, 
vfoitzik@gmx.net says...
> In article <MPG.16642051a3e4f2c6989718@news.siol.net>, Marvin wrote:
> 
> > Hi !
> > 
> > I am using the following code, to send a message to a specified host, 
> > which runs a program for receiving and displaying messages. 
> 
> [ code example ]
> 
> > If I run this script from Digital Unix machine, the host receives it 
> > within a second. 
> > Now, I need to run this script on a Solaris as well. No matter, that 
> > this script finishes imediately (like on Digital machine), the program
> > detects connection after 8 seconds only, so all messages are very slow 
> > from Solaris box. I think that must be something with TCP delay, ( all
> > packets being lost must not get in anymore, so wait a few sec..), and
> > with default values of IO::Socket::INET method.
> 
> what exactly do you mean with TCP delay ? IO::Socket::INET doesn't 
> control or manipulate any of the low-level socket options (except 
> blocking for timeout), so a connection is equivalent to simply 
> telnetting that host. 
> 
> Did you try a telnet 192.150.150.200 5000 to see how long it takes ? I 
> assume you have some other, non perl-related problem with your network.
> 
> HTH
> Victor
> 
When you disconnect from the remote host, socket is closed. Thay may be 
several packets being lost somewhere but still alive on a net. Now I 
connect to the same port. If I get the same socket again, lost packets 
may come get back (perhaps of routing problems and delays), but they 
would be faulty. To prevent that, tcpip has a protection to wait some
 time to enable re-createation of the socket. On unix machine there is
a close_wait parameter to control that time. 
I am not saying this is the case for my problem, but the only thing
not working properly is the relation (host A program AA -> host B 
program BB), otherwise tcpip on host A doesnt have a problems neither on 
host B. The same problem I have sometimes is that using IO::Socket, the 
same source works on Solaris and Linux, but not on Digital Unix and 
Windows.

Regards


------------------------------

Date: 21 Nov 2001 03:19:45 -0800
From: wil@fbagroup.co.uk (Wiliam Stephens)
Subject: Re: Template System
Message-Id: <39e3e00a.0111210319.2592cb7a@posting.google.com>

"Greg Muth" <gamu829@yahoo.com> wrote in message news:<tvmbt2gt1u3k4d@corp.supernews.com>...
> "Wiliam Stephens" <wil@fbagroup.co.uk> wrote in message
> news:39e3e00a.0111201058.5bd9e93d@posting.google.com...
> > Yes, thanks. My mind went blank there for a minute!
> >
> > Cheers
> 
> It happens...

Is there such a thing as a 'Developers Block'? :-)


------------------------------

Date: Wed, 21 Nov 2001 13:16:09 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Template System
Message-Id: <4p9nvt8fq3hkvq3ackp7cq6851u2gs9sla@4ax.com>

Wiliam Stephens wrote:

>I'm now trying to replace the tag <%tmpl_add_slct_skills%> with the
>following:
>
>	$tmpl_add_slct_skills = qq!
>	
>		print qq|<select name="res_skills" style="font-size=11px">|;
>
>			foreach $db_col_skill (@db_col_skills) {
>				print qq|<option>db_col_skill</option>|;
>			}
>
>		print qq|</select>|;
>
>	!;

>However, the template system prints everything within the qq! !; to
>thre browser instead of doing what it's suppose to do and output the
>results.

My alarm is going off. Heavily.

First of all, it looks like you will be using symbolic references. Bad.
Use a hash instead.

Second, if you intend to eval this as source code, you should put
backslashes in front of every '$' and '@' (and backslash). Because now,
in

		foreach $db_col_skill (@db_col_skills) {

$db_col_skill and @db_col_skills will be replaced by their value when
this string-to-eval is *assigned* to your variable, not when you
actually eval it.

But if your replacement is going into the source anyway, I'd prefer to
create a hash of subs:

	$action{tmpl_add_slct_skills} = sub {	
	    print qq|<select name="res_skills" style="font-size=11px">|;
	    foreach $db_col_skill (@db_col_skills) {
	        print qq|<option>db_col_skill</option>|;
	    }
	    print qq|</select>|;

You can call it, with any parameters you can put in the "html" file (and
extract while substituting), like this:

	$action{$opcode}->(@parameters);

At that moment, the sub indicated by $opcode (here
"tmpl_add_slct_skills") will be called with the contents of @param as
parameters.

-- 
	Bart.


------------------------------

Date: 21 Nov 2001 04:41:41 -0800
From: wil@fbagroup.co.uk (Wiliam Stephens)
Subject: Using CGI.pm to obtain a list of params
Message-Id: <39e3e00a.0111210441.12ec3787@posting.google.com>

Hi

I'm trying, but with great failiure, to loop through all params sent
to a script by using the CGI.pm module.

I need to loop through all modules and create a hash name/value pairs.
I know this is done for you, and you can access indiviudal params, but
I need to access them all.

Thanks!

Wil


------------------------------

Date: 21 Nov 2001 12:54:28 GMT
From: Bernard El-Hagin <bernard.el-hagin@lido-tech.net>
Subject: Re: Using CGI.pm to obtain a list of params
Message-Id: <slrn9vnbv1.n27.bernard.el-hagin@gdndev25.lido-tech>

On 21 Nov 2001 04:41:41 -0800, Wiliam Stephens <wil@fbagroup.co.uk> wrote:
> Hi
> 
> I'm trying, but with great failiure, to loop through all params sent
> to a script by using the CGI.pm module.
> 
> I need to loop through all modules and create a hash name/value pairs.
> I know this is done for you, and you can access indiviudal params, but
> I need to access them all.


What do you mean by "access them all"? You can fetch all of the
params passed to a script as a hash as per the


'FETCHING THE PARAMETER LIST AS A HASH'


section of CGI.pm. After that go through the hash. If this isn't
what you want then you'll have to more precise in describing what
you want to do (or wait for a reply from someone who understands
you :).


Cheers,
Bernard


------------------------------

Date: Wed, 21 Nov 2001 13:22:33 -0000
From: "brian norman" <brian.norman@gecm.com>
Subject: Re: Using CGI.pm to obtain a list of params
Message-Id: <3bfba755$1@pull.gecm.com>


"Wiliam Stephens" <wil@fbagroup.co.uk> wrote in message
news:39e3e00a.0111210441.12ec3787@posting.google.com...
> Hi
>
> I'm trying, but with great failiure, to loop through all params sent
> to a script by using the CGI.pm module.

use CGI;

my %Hash;
my $cgi=new CGI;
foreach my $V ( $cgi->param())    # without specifying a specific param it
returns a list of them all
    {
    $Hash{$V}=$cgi->param($V);    # to get them into your personal hash
    }

>
> I need to loop through all modules and create a hash name/value pairs.

All modules???

> I know this is done for you, and you can access indiviudal params, but
> I need to access them all.

One at a time or all at the same time?

>
> Thanks!
>
> Wil




------------------------------

Date: 21 Nov 2001 01:37:23 -0800
From: wil@fbagroup.co.uk (Wiliam Stephens)
Subject: Re: using sendmail from perl
Message-Id: <39e3e00a.0111210137.72516ec0@posting.google.com>

"Zachary Kent" <zkent@adelphia.net> wrote in message news:<JCDK7.119$cs3.74850@news1.news.adelphia.net>...

> To clarify my needs, I DON'T need to determine if the given email address is
> valid, just that it is properly formed and does not contain invalid
> characters.   Does this regex do that?
> 
> Zach

Try the following regex:

$_ =~ /[ |\t|\r|\n]*\"?([^\"]+\"?@[^ <>\t]+\.[^ <>\t][^ <>\t]+)[ |\t|\r|\n]*/;

That should check to see if the email is valid and correctly formatted.

Cheers

Wil


------------------------------

Date: Wed, 21 Nov 2001 12:21:45 +0100
From: Philip Newton <pne-news-20011121@newton.digitalspace.net>
Subject: Re: using sendmail from perl
Message-Id: <1u0nvt0hm7mhmpsfsel0ciic142u8ee8k7@4ax.com>

On 21 Nov 2001 01:37:23 -0800, wil@fbagroup.co.uk (Wiliam Stephens)
wrote:

> Try the following regex:
> 
> $_ =~ /[ |\t|\r|\n]*\"?([^\"]+\"?@[^ <>\t]+\.[^ <>\t][^ <>\t]+)[ |\t|\r|\n]*/;

Why do you want to match 'any of (space, pipe, tab, pipe, CR, pipe, NL)'
a couple of times there? And what's the two [^ <>\t] right nexto to one
another for? And shouldn't the @ have a \ in front of it? And what are
the \ in front of the " for? And what are the ( ) parentheses for?
They're in a rather strange place. And you seem to allow any character
at all in a domain name (except for space, tab, less-than, and
greater-than).

All that leads me to distrust the regex at first sight.

Cheers,
Philip
-- 
Philip Newton <nospam.newton@gmx.li>
That really is my address; no need to remove anything to reply.
If you're not part of the solution, you're part of the precipitate.


------------------------------

Date: Wed, 21 Nov 2001 12:21:41 +0100
From: Philip Newton <pne-news-20011121@newton.digitalspace.net>
Subject: Re: Version of Perl at runtime
Message-Id: <g40nvtg0n9rj3ob6ee7hts342tuaq57jem@4ax.com>

On 20 Nov 2001 17:27:32 +0300, Ilya Martynov <ilya@martynov.org> wrote:

> If you need string presentation of version something like
> 
>     my $version = join '.', map ord, split '', $^V;

Or sprintf('%vd', $^V).

Cheers,
Philip
-- 
Philip Newton <nospam.newton@gmx.li>
That really is my address; no need to remove anything to reply.
If you're not part of the solution, you're part of the precipitate.


------------------------------

Date: Wed, 21 Nov 2001 12:21:41 +0100
From: Philip Newton <pne-news-20011121@newton.digitalspace.net>
Subject: Re: Version of Perl at runtime
Message-Id: <k50nvt4laut1g3c24a8ujrq6kqekghl08i@4ax.com>

On Tue, 20 Nov 2001 14:12:38 +0000, Peter Cameron
<peterca@ukgateway.net> wrote:

> The $] one is subject to rounding errors being floating point

Is it really? 5.00503 only has six significant figures. And while it
can't be represented exactly in binary, $] == 5.00503 in the Perl where
I tried it out. Certainly, the precision should be sufficient to compare
versions.

Cheers,
Philip
-- 
Philip Newton <nospam.newton@gmx.li>
That really is my address; no need to remove anything to reply.
If you're not part of the solution, you're part of the precipitate.


------------------------------

Date: Wed, 21 Nov 2001 12:25:54 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Version of Perl at runtime
Message-Id: <n67nvtk4rpset1n5ps5l9fh6k8uabur9qc@4ax.com>

Philip Newton wrote:

>On 20 Nov 2001 17:27:32 +0300, Ilya Martynov <ilya@martynov.org> wrote:
>
>> If you need string presentation of version something like
>> 
>>     my $version = join '.', map ord, split '', $^V;
>
>Or sprintf('%vd', $^V).

Ooo-ooo-ooh!  (sounds like the Teletubbies) That's very exotic.

What about the perl4 style (= predating chr()):

	$v = join '.', unpack 'C*', $^V;

-- 
	Bart.


------------------------------

Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin) 
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>


Administrivia:

The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc.  For subscription or unsubscription requests, send
the single line:

	subscribe perl-users
or:
	unsubscribe perl-users

to almanac@ruby.oce.orst.edu.  

To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.

To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.

For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.


------------------------------
End of Perl-Users Digest V10 Issue 2170
***************************************


home help back first fref pref prev next nref lref last post