[24294] in Perl-Users-Digest
Perl-Users Digest, Issue: 6485 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Apr 29 00:05:37 2004
Date: Wed, 28 Apr 2004 21:05:05 -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 Wed, 28 Apr 2004 Volume: 10 Number: 6485
Today's topics:
C# and Perl benchmarking with DeDRMS? (Bill)
Re: Finding all open filehandles and closing them befor (Bryan Castillo)
Help! maintaining/upgrading Perl on Windows (Loup Blanc)
I'm just curious about sleep <robin @ infusedlight.net>
Re: I'm just curious about sleep <ittyspam@yahoo.com>
Newbie ... Net::SMTP module... where is it? <sean_berry@cox.net>
Re: Newbie ... Net::SMTP module... where is it? <tony_curtis32@_SPAMTRAP_yahoo.com>
Re: Newbie ... Net::SMTP module... where is it? <robin @ infusedlight.net>
OSs with Perl installed <jtc@shell.dimensional.com>
Re: OSs with Perl installed <tadmc@augustmail.com>
Re: OSs with Perl installed <jtc@shell.dimensional.com>
Re: OSs with Perl installed <cwilbur@mithril.chromatico.net>
Re: OSs with Perl installed <matthew.garrish@sympatico.ca>
Re: OSs with Perl installed (Walter Roberson)
Re: other perl groups <pfancy@bscn.com>
Re: Perl IDE <robin @ infusedlight.net>
Re: Regular expression for decimal value <xx087@freenet.carleton.ca>
Re: Which characters are really unsafe to use in Linux (Bryan Castillo)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 28 Apr 2004 19:04:02 -0700
From: wherrera@lynxview.com (Bill)
Subject: C# and Perl benchmarking with DeDRMS?
Message-Id: <239ce42f.0404281804.216b0ac6@posting.google.com>
Hello all,
I've uploaded Audio::M4pDecrypt to CPAN. It should be indexed by tomorrow.
This is a Perl port of the DeDRMS.cs program by Jon Lech Johansen, which is
a C# program to decrypt Apple iTunes copy protected .m4p song files. I don't
have that many .m4p files, and I was wondering if someone who has a large
iTunes portfolio and an interest in C# versus Perl scripting could do some
benchmarks of the two on, say, decrypting a large number of their files.
This would be a nice 'real world' benchmark.
Note that DrDRMS.cs by default will write the decrypted file back to the
original file, so the benchmarks would have to copy the files separately so
there would still be files to decrypt after DeDRMS.cs was done.
Anyone interested?
--Bill
------------------------------
Date: 28 Apr 2004 17:47:06 -0700
From: rook_5150@yahoo.com (Bryan Castillo)
Subject: Re: Finding all open filehandles and closing them before exiting
Message-Id: <1bff1830.0404281647.1c27a658@posting.google.com>
Vilmos Soti <vilmos@vilmos.org> wrote in message news:<87ad15nnw5.fsf@localhost.localdomain>...
> Hello,
>
> I am trying to find all open filehandles in my program and close
> them before exiting.
>
> Among many things, my program mounts a disk (runs under Linux),
> finds all files with File::Find, then copies the files with
> File::Copy. I use filenames as parameters to copy in order to
> keep my program simple, and also because the manpage for File::Copy
> recommends using filenames wherever possible.
>
> I have a signal handler which tries to unmount the disk in
> the case of a sigint, but it will fail if copy from File::Copy
> has an open filehandle on the mounted disk.
>
> Here is a short program which fully illustrates my problem:
> (I excluded the checking of return values for the sake of keeping
> this short program, well, short)
>
> #################### program starts ####################
>
> #!/usr/bin/perl -w
>
> use strict;
> use File::Copy;
>
> sub bye () {
> print "in function bye\n";
> system ("umount /tmp/mountpoint");
> exit;
> }
>
> $SIG{INT} = \&bye;
>
> system ("mount -o loop /tmp/filesystem.img /tmp/mountpoint");
> system ("ls -l /tmp/mountpoint");
> print "copy starts\n";
> copy ("/tmp/mountpoint/devzero", "/tmp/mountpoint/devnull");
Try this: (worked on my system Fedora Core 1)
#!/usr/bin/perl
use strict;
use warnings;
use File::Copy;
$SIG{INT} = sub{ die "signal: ".$_[0]; };
system ("mount -o loop /tmp/filesystem.img /tmp/mountpoint");
system ("ls -l /tmp/mountpoint");
print "copy starts\n";
eval {
copy ("/tmp/mountpoint/devzero", "/tmp/mountpoint/devnull");
};
if ($@) {
warn $@, "\n";
}
system ("umount /tmp/mountpoint");
>
> #################### program ends ####################
>
> And here are the results after running the program:
>
> #################### results start ####################
>
> [root@cord pts/6 tmp]# ./a.pl
> total 12
> crw-rw-rw- 1 root root 1, 3 Dec 31 1969 devnull
> crw-rw-rw- 1 root root 1, 5 Dec 31 1969 devzero
> drwxr-xr-x 2 root root 12288 Apr 21 11:19 lost+found
> copy starts
> in function bye
> umount: /tmp/mountpoint: device is busy
> [root@cord pts/6 tmp]#
>
> #################### results end ####################
>
> Is there any way to find all open files and close them?
> Or a way to close all open files apart from stdin, stdout, and stderr?
>
> I (possibly naively) tried to iterate through %main:: and find
> all filehandles, descend into additional structures if I need to,
> but I didn't succeed. I just tried and tried and tried, and
> failed and failed and failed.
>
> Here is the code snipplet I had in the "bye" function.
>
> #################### Code starts ####################
>
> foreach my $key (sort keys %main::) {
> my $x = \$main::{$key};
> print $x;
> print "\n";
> }
>
> #################### Code ends ####################
>
> However, it returned only GLOBs. I am out of ideas.
>
> Of course, I could write my own copy function, but I would
> prefer to use the already existing functions, and also to
> keep my code small and simple.
>
> Also, I could close the FROM and TO filehandles in bye,
> but that, besides being an ugly hack is an understatement,
> is not a general solution, and has no learning value.
>
> I hope I provided enough information about my misery and
> my efforts of how I tried to solve it.
>
> Thanks, Vilmos
------------------------------
Date: 28 Apr 2004 20:13:38 -0700
From: cedrat50@hotmail.com (Loup Blanc)
Subject: Help! maintaining/upgrading Perl on Windows
Message-Id: <9b1ae155.0404281913.5d9622a@posting.google.com>
Hi!
althought Perl is nice to use, the installation and maintenance is
awkward when it comes to MS-Windows.
Once it was easy to install/upgrade the modules using ppm but now
it's easier to reinstall the whole bundle than installing a simple
module.
Put it simply:
if you use & upgrade your Perl on Windows effectively give me your
recipe: compiler version, tools, etc.
I would like to install directly using the CPAN rather than deal with
the ppm stuff.
Thanks in advance
for reference, I use:
- Win2K
- Summary of my perl5 (revision 5 version 8 subversion 0)
------------------------------
Date: Wed, 28 Apr 2004 15:49:55 -0800
From: "Robin" <robin @ infusedlight.net>
Subject: I'm just curious about sleep
Message-Id: <c6pggb$p76$2@news.f.de.plusline.net>
I'm just wondering what it would take to write your own function without
using modules or anything that is identical or at least performs identically
to the internal perl function, sleep?
has anyone tried this...etc?
I thought of just doing some heavy operations that don't really do anything
and try to line it up to last seconds in interation, but I don't think this
would be productive or really be the way to do it.
It's just a curiousity.
Thanks.
--
Regards,
-Robin
--
[ webmaster @ infusedlight.net ]
www.infusedlight.net
------------------------------
Date: Wed, 28 Apr 2004 20:53:36 -0400
From: Paul Lalli <ittyspam@yahoo.com>
Subject: Re: I'm just curious about sleep
Message-Id: <20040428205309.M1160@dishwasher.cs.rpi.edu>
On Wed, 28 Apr 2004, Robin wrote:
> I'm just wondering what it would take to write your own function without
> using modules or anything that is identical or at least performs identically
> to the internal perl function, sleep?
> has anyone tried this...etc?
> I thought of just doing some heavy operations that don't really do anything
> and try to line it up to last seconds in interation, but I don't think this
> would be productive or really be the way to do it.
> It's just a curiousity.
perldoc -f select
(near the bottom)
Paul Lalli
------------------------------
Date: Wed, 28 Apr 2004 20:30:34 -0700
From: "Sean Berry" <sean_berry@cox.net>
Subject: Newbie ... Net::SMTP module... where is it?
Message-Id: <nF_jc.19663$Jy3.1405@fed1read03>
I looked on CPAN site but cannot find the Net::SMTP module.
I can find lots of others, like Net::SMTP::Server...
Any help is appreacitated for this newbie.
------------------------------
Date: Wed, 28 Apr 2004 22:31:42 -0500
From: Tony Curtis <tony_curtis32@_SPAMTRAP_yahoo.com>
Subject: Re: Newbie ... Net::SMTP module... where is it?
Message-Id: <87smen1mu9.fsf@limey.hpcc.uh.edu>
>> On Wed, 28 Apr 2004 20:30:34 -0700,
>> "Sean Berry" <sean_berry@cox.net> said:
> I looked on CPAN site but cannot find the Net::SMTP module.
> I can find lots of others, like Net::SMTP::Server...
You mean the first hit from
http://search.cpan.org/
hth
t
------------------------------
Date: Wed, 28 Apr 2004 19:50:53 -0800
From: "Robin" <robin @ infusedlight.net>
Subject: Re: Newbie ... Net::SMTP module... where is it?
Message-Id: <c6pu97$ui2$1@news.f.de.plusline.net>
"Sean Berry" <sean_berry@cox.net> wrote in message
news:nF_jc.19663$Jy3.1405@fed1read03...
> I looked on CPAN site but cannot find the Net::SMTP module.
maybe you've got the wrong cpan site?
-Robin
------------------------------
Date: 28 Apr 2004 16:32:38 -0600
From: Jim Cochrane <jtc@shell.dimensional.com>
Subject: OSs with Perl installed
Message-Id: <slrnc90c86.jn1.jtc@shell.dimensional.com>
In article <20040428102945.L25280@dishwasher.cs.rpi.edu>, Paul Lalli wrote:
> On Tue, 27 Apr 2004, pfancy wrote:
>
>> 0
>> "Abigail" <abigail@abigail.nl> wrote in message
>> news:slrnc8r55f.egl.abigail@alexandra.abigail.nl...
>> > pfancy (pfancy@bscn.com) wrote on MMMDCCCXCI September MCMXCIII in
>> > <URL:news:408d8007@news.greennet.net>:
>> > ...
>>
>> Programming Perl O' Reilly
>> Does that help out some?
>
>
> Really? Did you miss these parts?
>
> From section 1.3.1:
> For longer scripts, you can use your favorite text editor (or any other
> text editor) to put all your commands into a file and then, presuming
> you named the script gradation (not to be confused with graduation),
> you'd say:
> perl gradation
> From the preface:
> Most operating system vendors these days include Perl as a standard
> component of their systems. As of this writing, AIX, BeOS, BSDI, Debian,
> DG/UX, DYNIX/ptx, FreeBSD, IRIX, LynxOS, Mac OS X, OpenBSD, RedHat,
> SINIX, Slackware, Solaris, SuSE, and Tru64 all came with Perl as part of
[Warning - topic change]
Unfortunately, since MS does not include Perl as a standard component,
it's also true that most computers these days do not have Perl installed.
(I can only think of advantages to MS including Perl with their OS -
can't think of any disadvantages, so I'm can't understand why they don't
do it. Am I missing something?)
> their standard distributions. Some companies provide Perl on separate
> CDs of contributed freeware or through their customer service groups.
> Third-party companies like ActiveState offer prebuilt Perl distributions
> for a variety of different operating systems, including those from
> Microsoft.
>
> Which part of these sections did you not understand when trying to figure
> out "what is recommended to be download and what to use to run perl." ?
>
> Paul Lalli
--
Jim Cochrane; jtc@dimensional.com
[When responding by email, include the term non-spam in the subject line to
get through my spam filter.]
------------------------------
Date: Wed, 28 Apr 2004 20:50:05 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: OSs with Perl installed
Message-Id: <slrnc90nqd.1tf.tadmc@magna.augustmail.com>
Jim Cochrane <jtc@shell.dimensional.com> wrote:
> [Warning - topic change]
>
> Unfortunately, since MS does not include Perl as a standard component,
> it's also true that most computers these days do not have Perl installed.
> (I can only think of advantages to MS including Perl with their OS -
> can't think of any disadvantages, so I'm can't understand why they don't
> do it. Am I missing something?)
Could they charge more if they did?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 28 Apr 2004 20:21:18 -0600
From: Jim Cochrane <jtc@shell.dimensional.com>
Subject: Re: OSs with Perl installed
Message-Id: <slrnc90pku.cfg.jtc@shell.dimensional.com>
In article <slrnc90nqd.1tf.tadmc@magna.augustmail.com>, Tad McClellan wrote:
> Jim Cochrane <jtc@shell.dimensional.com> wrote:
>
>> [Warning - topic change]
>>
>> Unfortunately, since MS does not include Perl as a standard component,
>> it's also true that most computers these days do not have Perl installed.
>> (I can only think of advantages to MS including Perl with their OS -
>> can't think of any disadvantages, so I'm can't understand why they don't
>> do it. Am I missing something?)
>
> Could they charge more if they did?
Probably not. But their OS would probably be taken more seriously by
developers; and it would make it much easier to release Perl-based products
(either open-source or commercial, or both) for Windows. It seems this
would tend to increase the power and thus the popularity of their OS and,
as a result, reduce the market share they're losing to Linux. But maybe
they don't want that.
I much prefer to develop on UNIX/Linux myself, but I like to develop
portable software, and having Perl (as well as a Java RE) be a standard
component of Windows would tend to make this a lot easier. (Now that MS
and Sun have "made friends", the JRE situation seems more likely.)
--
Jim Cochrane; jtc@dimensional.com
[When responding by email, include the term non-spam in the subject line to
get through my spam filter.]
------------------------------
Date: Thu, 29 Apr 2004 03:14:20 GMT
From: Charlton Wilbur <cwilbur@mithril.chromatico.net>
Subject: Re: OSs with Perl installed
Message-Id: <87wu3zjx6u.fsf@mithril.chromatico.net>
>>>>> "JC" == Jim Cochrane <jtc@shell.dimensional.com> writes:
JC> Unfortunately, since MS does not include Perl as a standard
JC> component, it's also true that most computers these days do
JC> not have Perl installed. (I can only think of advantages to
JC> MS including Perl with their OS - can't think of any
JC> disadvantages, so I'm can't understand why they don't do it.
JC> Am I missing something?)
If Microsoft included Perl, they couldn't charge people for Visual
Basic, and people who mastered Perl on the Microsoft platform could
easily pack up and move to another platform without a lot of trouble.
So they can't charge for it, it cuts into sales of one of their
products, and it doesn't lock people into their platform.
Charlton
--
cwilbur at chromatico dot net
cwilbur at mac dot com
------------------------------
Date: Wed, 28 Apr 2004 23:02:29 -0400
From: "Matt Garrish" <matthew.garrish@sympatico.ca>
Subject: Re: OSs with Perl installed
Message-Id: <6f_jc.6910$k%.233786@news20.bellglobal.com>
"Jim Cochrane" <jtc@shell.dimensional.com> wrote in message
news:slrnc90pku.cfg.jtc@shell.dimensional.com...
> In article <slrnc90nqd.1tf.tadmc@magna.augustmail.com>, Tad McClellan
wrote:
> > Jim Cochrane <jtc@shell.dimensional.com> wrote:
> >
> >> [Warning - topic change]
> >>
> >> Unfortunately, since MS does not include Perl as a standard component,
> >> it's also true that most computers these days do not have Perl
installed.
> >> (I can only think of advantages to MS including Perl with their OS -
> >> can't think of any disadvantages, so I'm can't understand why they
don't
> >> do it. Am I missing something?)
> >
> > Could they charge more if they did?
>
> Probably not. But their OS would probably be taken more seriously by
> developers; and it would make it much easier to release Perl-based
products
> (either open-source or commercial, or both) for Windows. It seems this
> would tend to increase the power and thus the popularity of their OS and,
> as a result, reduce the market share they're losing to Linux. But maybe
> they don't want that.
>
Compare the developer market with the business and consumer markets and it
might explain why Windows is so lacking in any programming tools (business
market == servers and desktops). I suspect our good friends at M$ are more
interested in what extra profit they can squeeze out of providing their own
ready-made solutions than in providing a stable platform for anyone else.
Linux is a god-send if for no other reason that it has forced M$ to at least
ackowledge that their OS and most of their software is riddled with bugs
("Please don't go to Linux, we promise longhorn will be better! Would you
like to pre-order?"). But now I'm getting off on a tired old rant.
Then again you never know, they may be secretly working on MSPerl or Perl#.
I'm sure they could beat Perl 6 to market... ; )
Matt
------------------------------
Date: 29 Apr 2004 03:53:23 GMT
From: roberson@ibd.nrc-cnrc.gc.ca (Walter Roberson)
Subject: Re: OSs with Perl installed
Message-Id: <c6pu7j$3q4$1@canopus.cc.umanitoba.ca>
In article <6f_jc.6910$k%.233786@news20.bellglobal.com>,
Matt Garrish <matthew.garrish@sympatico.ca> wrote:
:Then again you never know, they may be secretly working on MSPerl or Perl#.
It would come with a license that said that you could only make
socket connections to machines that had Microsoft licenses;
and you'd need a Passport account to use MSCPAN . Certain modules
would be "integrated with the operating system" and declared
non-overridable -- @INC would be ignored for them, or one
of the Windows directories would *always* be searched first.
--
Feep if you love VT-52's.
------------------------------
Date: Tue, 27 Apr 2004 19:39:29 -0500
From: "pfancy" <pfancy@bscn.com>
Subject: Re: other perl groups
Message-Id: <408fd02b@news.greennet.net>
> >
> > I read through that and I did not understand. It doesn't tell me how to
or
> > where to find the program to write perl in. that what gets me. I
downloaded
> > active perl active perl dev. etc. but I am still lost.
> >
>
> "the program to write perl in". This implies you don't know how to write
> *any* computer language. Is that correct? If so, that is likely the
> cause of your inability to get the exact help you're looking for. This
> discussion is about the Perl language specifically. It seems what you
> need is a tutorial on "how to write computer programs".
>
> The answer to this question, btw, is that you can use *any* text editor to
> write programs. Many people will reccommend one above all others (such as
> emacs, vi, or textpad). Others will tell you to just write in anything
> that makes you comfortable, perhaps even Notepad. One thing we will all
> tell you is to NEVER use a word processor like MS Word, unless you're
> fully prepared to constantly undo all its 'helpful' corrections and always
> remember to save your document in plain text.
>
> Paul Lalli
>
> P.S. I did a groups.google search to find what thread you were referring
> to - your email exists only in this thread. Did you use a different
> address when you claim to have been 'insulted'? Can you point us to the
> insulting message(s)?
I can't remember which group it was it has been a while. I took a break.
------------------------------
Date: Wed, 28 Apr 2004 15:46:12 -0800
From: "Robin" <robin @ infusedlight.net>
Subject: Re: Perl IDE
Message-Id: <c6pgg8$p76$1@news.f.de.plusline.net>
"Sherm Pendley" <spamtrap@dot-app.org> wrote in message
news:7pudnYge38-ynw3dRVn-uw@adelphia.com...
> Robin wrote:
>
> > Linux actually runs on Windowns with Cygwin
>
> Please stop parroting posts you don't understand.
>
> Cygwin is *not* "Linux on Windows". It's a package of various user-land
GNU
> tools - bash, gcc, sed, perl, etc. The tools are built to run natively
> under Windows, and the package does not include the Linux kernel in any
> form whatsoever.
cool, that's even better. Sorry for the misinformation.
> > or Cooperative Linux.
>
> Ain't soup yet.
nope. It kinda sucks. Richard, i wouldn't recommend Co-Linux btw.
-Robin
------------------------------
Date: 28 Apr 2004 23:37:00 GMT
From: Glenn Jackman <xx087@freenet.carleton.ca>
Subject: Re: Regular expression for decimal value
Message-Id: <slrnc90g0s.q29.xx087@smeagol.ncf.ca>
Markus Joschko <jocsch@phreaker.net> wrote:
> There is a kind of a textinputfield which should contain a decimal number.
> The only restriction is the length of the overall number (excluding
> period):
>
> E.g. length=5
>
> 888888 invalid
> 88888 is valid
> 88.888 is valid
> 888.88 is valid
> 8.8888 is valid
> 8888.8 is valid
Here's a regex that's probably wildly inefficient, but will match a
number with at most 5 digits:
$re = qr/^(?:\.\d{1,5}|\d(?:\.\d{0.4}|\d(?:\.\d{0,3}|\d(?:\.\d{0,2}|\d(?:\.\d?|\d\.?)))))$/;
or, verbosely
$re = qr{
^ (?: # at the beginning, match:
\.\d{1,5} # a dot and 1 to 5 digits
| # or
\d (?: # a digit followed by
\.\d{0.4} # a dot and up to 4 digits
| # or
\d (?: # a digit followed by
\.\d{0,3} # a dot and up to 3 digits
| # or
\d (?: # a digit followed by
\.\d{0,2} # a dot and up to 2 digits
| # or
\d (?: # a digit followed by
\.\d? # a dot and an optional digit
| # or
\d\.? # a digit and an optional dot
))))) $ # and the end of the string
}x;
--
Glenn Jackman
NCF Sysadmin
glennj@ncf.ca
------------------------------
Date: 28 Apr 2004 15:32:08 -0700
From: rook_5150@yahoo.com (Bryan Castillo)
Subject: Re: Which characters are really unsafe to use in Linux filenames (from Perl)?
Message-Id: <1bff1830.0404281432.6ea1d225@posting.google.com>
merlyn@stonehenge.com (Randal L. Schwartz) wrote in message news:<f0a0aaf57b25e959de4fdc159c6c75f2@news.teranews.com>...
> >>>>> "Craig" == Craig Manley <recycle@bin.com> writes:
>
> Craig> From testing (using Perl + Slackware Linux) I've found that the only
> Craig> characters I can't use in a directory/file name are the 0 byte and path
> Craig> seperator /.
>
> This has been true for every version of Unix I've used since 1977.
> Can't say what it was before Unix V6 though... didn't get to use
> those. :)
>
> Gets fun when you permit \n in a filename. Lots of programs
> don't expect that, and break. But those are broken programs, I say.
> Not a broken filename.
>
I like putting "\x07" in file names. Its great when listing a
directory makes noise.
> print "Just another Perl hacker,"; # the first!
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 6485
***************************************
