[25350] in Perl-Users-Digest
Perl-Users Digest, Issue: 7599 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jan 3 21:53:35 2005
Date: Mon, 3 Jan 2005 15:31:54 -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, 3 Jan 2005 Volume: 10 Number: 7599
Today's topics:
Re: perl module to add/change existing pdf's header/foo <segraves_f13@mindspring.com>
Re: perl module to add/change existing pdf's header/foo <segraves_f13@mindspring.com>
Re: Perl/MySQL Question / Perl on RHAS update 4 <noreply@gunnar.cc>
Perl/MySQL Question <johnsanders@lovinthelord.org>
Re: Perl/MySQL Question <lawshouse.public@btconnect.com>
Re: perldoc perltie xhoster@gmail.com
Put your pc to work-paid autosurf weshop4you@yahoo.com
sort directory help <OEKilla@msn.com>
Re: sort directory help <frizop-manchu@charter.net>
Take ownership of Windows registry key ntdude4@hotmail.com
tar - gzip <joericochuyt@msn.com>
Re: tar - gzip <gisle@activestate.com>
Re: tar - gzip <bik.mido@tiscalinet.it>
website hosting (forall2see_2000@yahoo.com)
weird failure with Net::FTP <botfood@yahoo.com>
Re: weird failure with Net::FTP <botfood@yahoo.com>
Re: weird failure with Net::FTP <botfood@yahoo.com>
Re: weird failure with Net::FTP <lv@aol.com>
Re: weird failure with Net::FTP <lv@aol.com>
Re: weird failure with Net::FTP <botfood@yahoo.com>
Re: weird failure with Net::FTP <botfood@yahoo.com>
Re: Why does this work? <abigail@abigail.nl>
Re: Why does this work? <nobull@mail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 01 Jan 2005 18:30:48 GMT
From: "Bill Segraves" <segraves_f13@mindspring.com>
Subject: Re: perl module to add/change existing pdf's header/footer?
Message-Id: <s%BBd.5246$JC2.3966@newsread2.news.atl.earthlink.net>
"Matt Garrish" <matthew.garrish@sympatico.ca> wrote in message
news:2AqBd.51568$nV.1477908@news20.bellglobal.com...
<snip>
> I just objected to your telling him that he needs
> to read the posting guidelines
WADR, perhaps you should review the posting guidelines, too.
> and, essentially, that he shouldn't waste the
> time of people here.
Your words, not mine. If I had wished to chide Mr. Budash for wasting
anyone's time, I would have done it privately.
> The thread only goes off topic because you know of an
> off-topic solution.
While it is true that I know an off-topic solution, that is not why the
thread is inappropriate for this newsgroup. See the posting guidelines for
reasons.
> I'd still be interested in hearing whether what he was
> asking can be done in Perl, as I have to hack away at pdfs every once in a
> blue moon so I tend to watch discussions like these.
O.K. The answer is "Yes!" See Perl documentation for the "system" command
and the documentation for Pdftk at www.accesspdf.com.
Entering end of thread mode--
--
Bill Segraves
------------------------------
Date: Mon, 03 Jan 2005 16:33:39 GMT
From: "Bill Segraves" <segraves_f13@mindspring.com>
Subject: Re: perl module to add/change existing pdf's header/footer?
Message-Id: <DteCd.16$vP1.3@newsread3.news.atl.earthlink.net>
"Michael Budash" <mbudash@sonic.net> wrote in message
news:mbudash-442839.19252602012005@typhoon.sonic.net...
<snip>
> > Michael,
> >
> > Another alternative for generating a PDF with header/footer, to be used
as a
> > background, when combined with existing PDF containing no header/footer:
<snip>
> thanks again bill!
You're very welcome, Michael. Good luck with your project.
--
Bill Segraves
------------------------------
Date: Thu, 30 Dec 2004 03:26:41 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Perl/MySQL Question / Perl on RHAS update 4
Message-Id: <33h7erF3t1li6U3@individual.net>
John D. Sanders wrote:
> When I try to run a Perl script that uses DBI ...
Don't multi-post!
http://www.uwasa.fi/~ts/http/crospost.html
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Wed, 29 Dec 2004 19:21:33 -0700
From: "John D. Sanders" <johnsanders@lovinthelord.org>
Subject: Perl/MySQL Question
Message-Id: <OCJAd.45$Z72.13734@news.uswest.net>
When I try to run a Perl script that uses DBI I get the following error
message.
[sanders@ns1 perl]$ ./dbtest.pl
install_driver(mysql) failed: Can't load
'/usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/auto/DBD/mysql/mysql.so'
for module DBD::mysql: /usr/lib/libmysqlclient.so.10: symbol errno,
version GLIBC_2.0 not defined in file libc.so.6 with link time reference
at /usr/lib/perl5/5.8.0/i386-linux-thread-multi/DynaLoader.pm line 229.
at (eval 1) line 3
Compilation failed in require at (eval 1) line 3.
Perhaps a required shared library or dll isn't installed where expected
at ./dbtest.pl line 37
Any ideas?
------------------------------
Date: Thu, 30 Dec 2004 08:11:19 +0000
From: Henry Law <lawshouse.public@btconnect.com>
Subject: Re: Perl/MySQL Question
Message-Id: <nrd7t016ha6iq6vni2gecjkk8dtes9v77p@4ax.com>
On Wed, 29 Dec 2004 19:21:33 -0700, "John D. Sanders"
<johnsanders@lovinthelord.org> wrote:
>When I try to run a Perl script that uses DBI I get the following error
>message.
>
>[sanders@ns1 perl]$ ./dbtest.pl
>install_driver(mysql) failed: Can't load
>'/usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/auto/DBD/mysql/mysql.so'
>for module DBD::mysql: /usr/lib/libmysqlclient.so.10: symbol errno,
>version GLIBC_2.0 not defined in file libc.so.6 with link time reference
>at /usr/lib/perl5/5.8.0/i386-linux-thread-multi/DynaLoader.pm line 229.
> at (eval 1) line 3
>Compilation failed in require at (eval 1) line 3.
>Perhaps a required shared library or dll isn't installed where expected
> at ./dbtest.pl line 37
Did the MySQL install complete as expected? Did you yourself install
the DBI and MySQL perl modules (I forget what they're called), did you
follow the instructions and did they build correctly? Have you
verified that there is a "mysql.so" file at that location?
It sounds like a failed installation of something, either MySQL or the
perl interface modules.
--
Henry Law <>< Manchester, England
------------------------------
Date: 03 Jan 2005 19:20:27 GMT
From: xhoster@gmail.com
Subject: Re: perldoc perltie
Message-Id: <20050103142027.321$Br@newsreader.com>
Matija Papec <perl@my-header.org> wrote:
> Is there another way to reset internal hash iterator? This looks like
> great overhead since when I'm calling "keys %tied_hash", I'm also
> performing second "keys" call in tie class (or is there some cunning
> optimization when "keys" isn't in list context?).
There is a cunning optimization when "keys" isn't in list context.
Xho
>
> > FIRSTKEY this
> > This method will be triggered when the user is going to iterate
> > through the hash, such as via a keys() or each() call.
> >
> > sub FIRSTKEY {
> > carp &whowasi if $DEBUG;
> > my $self = shift;
> > my $a = keys %{$self->{LIST}}; # reset each()
> > iterator
>
> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
> > each %{$self->{LIST}}
> > }
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 1 Jan 2005 08:56:29 -0800
From: weshop4you@yahoo.com
Subject: Put your pc to work-paid autosurf
Message-Id: <1104598589.844423.321590@z14g2000cwz.googlegroups.com>
Hi my friend, Happy New Year!
I would like to share with you this opportunity of making extra income
stream which i've found on the Net.
The site is called Studio Traffic, it pays you just for surfing the net
for less than an hour per day.
The best part is that you do it with its autosurf program (Surf4spots)
located on the site (no any download is required and no trick and
catches.)
The membership is all free plus $10 sign-up bounus deposited into your
Studio traffic account, which means right away you're on the track to
make some extra money.
I know, this may sound like others emails that you've received (I
myself was skeptical about it too.)
Anyhow, if you have the time, please check it out yourself, pay
attention especially to the forum and Judge it for yourself.
Good luck and make some extra income together.
http://www.studiotraffic.com/index.php?refid=41766
truly yours
Steven
------------------------------
Date: 3 Jan 2005 13:38:25 -0800
From: "Jake Wiley" <OEKilla@msn.com>
Subject: sort directory help
Message-Id: <1104788305.272941.63060@c13g2000cwb.googlegroups.com>
I need to sort a directory which is all fine BUT my directory names are
all in date formats like Nov 18 2004, Dec 23, 2005 etc.. The simple
sort works BUT like this:
Aug 5 2004
Dec 1 2004
Dec 8 2004
Jan 2 2005
Nov 7 2004
I want to get the folders in chronological order. It's for a backup
program and I want to be able to delete the oldest folder after a
couple of weeks. Could somebody please point me in the right direction
or perhaps a module that does this. Thanks
------------------------------
Date: Mon, 03 Jan 2005 21:37:20 GMT
From: Nathan <frizop-manchu@charter.net>
Subject: Re: sort directory help
Message-Id: <Xns95D3A03BCE52Efrizopatcharterdotco@216.77.188.18>
http://search.cpan.org/~muir/Time-modules-2003.1126/lib/Time/ParseDate.pm
might help you, or you could parse it yourself.
--Nathan
"Jake Wiley" <OEKilla@msn.com> wrote in news:1104788305.272941.63060
@c13g2000cwb.googlegroups.com:
> I need to sort a directory which is all fine BUT my directory names are
> all in date formats like Nov 18 2004, Dec 23, 2005 etc.. The simple
> sort works BUT like this:
> Aug 5 2004
> Dec 1 2004
> Dec 8 2004
> Jan 2 2005
> Nov 7 2004
>
> I want to get the folders in chronological order. It's for a backup
> program and I want to be able to delete the oldest folder after a
> couple of weeks. Could somebody please point me in the right direction
> or perhaps a module that does this. Thanks
>
>
------------------------------
Date: 1 Jan 2005 09:21:58 -0800
From: ntdude4@hotmail.com
Subject: Take ownership of Windows registry key
Message-Id: <1104600118.607445.221450@c13g2000cwb.googlegroups.com>
I use Perl to check the values of registry entries on Win2k pro boxes.
I am finding a good percentage of workstations that have an issue with
a specific key. The problem is that when I check the permissions of the
key, in regedit, there is no owner or permissions. I have no idea how
this happened, but about 10% of our machines that were recently
migrated to an AD have this condition. I can manually connect to the
workstation and take ownership with the registry editor, but there are
several hundred machines that need the owner fix. Luckily there is only
one registry key that is so far affected.
Does anyone know if it is possible to programmatically take ownership
of a registry key on a remote machine. I can push permissions through
group policy, but there needs to be an owner first.
Thanks
vm
------------------------------
Date: Sat, 01 Jan 2005 16:30:41 -0500
From: "yusufdestina" <joericochuyt@msn.com>
Subject: tar - gzip
Message-Id: <3113399999c220d06c7470246a66eda9@localhost.talkaboutprogramming.com>
I'm doing this command with perl using backticks:
my $safe = "test.tar"; #filename to save
my $s = "C:/cube/Bureaublad/chaver*"; #source dir to tar
my $tar = `tar -cv --file=$safe $s`;
my $gzip = `gzip -9 < $safe > $gzipFile`;
unlink("$safe");
It goes well, except when there are spaces in $safe I get errors about not
finding the file.
example when $safe=C:/Documents and Settings/cube/Bureaublad/chaver
kalender
-----------------------------------------------------------
tar: Cannot add file C:/Documents: No such file or directory (ENOENT)
tar: Cannot add file and: No such file or directory (ENOENT)
tar: Cannot add file Settings/cube/Bureaublad/chaver: No such file or
directory
(ENOENT)
tar: Cannot add file kalender*: No such file or directory (ENOENT)
tar: Error exit delayed from previous errors
------------------------------------------------------------
tnx in adv. Happy new Year.
------------------------------
Date: 03 Jan 2005 18:36:03 +0100
From: Gisle Aas <gisle@activestate.com>
Subject: Re: tar - gzip
Message-Id: <87pt0mfm9o.fsf@ask.g.aas.no>
Bart Lateur <bart.lateur@pandora.be> writes:
> Abigail wrote:
>
> >Or even better, the safe form of system:
> >
> > system $tar => -czvf, $gzipFile and die "tar exited ", $? >> 8, "\n";
>
> This form isn't safer on Windows. You still need the explicit quotes,
> there. Allegedly all that Perl does, on Windows, is join the arguments
> with spaces and call the single argument form.
This was fixed in perl-5.8. 'perldoc perl58delta' says:
| The behavior of system() with multiple arguments has been
| rationalized. Each unquoted argument will be automatically
| quoted to protect whitespace, and any existing whitespace
| in the arguments will be preserved. This improves the
| portability of system(@args) by avoiding the need for Win-
| dows "cmd" shell specific quoting in perl programs.
|
| Note that this means that some scripts that may have relied
| on earlier buggy behavior may no longer work correctly.
| For example, "system("nmake /nologo", @args)" will now
| attempt to run the file "nmake /nologo" and will fail when
| such a file isn't found. On the other hand, perl will now
| execute code such as "system("c:/Program
| Files/MyApp/foo.exe", @args)" correctly.
--
Gisle Aas
------------------------------
Date: Mon, 03 Jan 2005 23:22:18 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: tar - gzip
Message-Id: <fchit01rc9g09elfg5dub0c8ir1mvmjh5q@4ax.com>
On 03 Jan 2005 08:39:00 GMT, Abigail <abigail@abigail.nl> wrote:
> system $tar => -czvf, $gzipFile and die "tar exited ", $? >> 8, "\n";
>
>Note also the use of $? instead of $!.
Incidentally also note the use of C<and> instead C<or> which is not
really obvious for all, so that someone intuitively uses the latter.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Mon, 03 Jan 05 14:27:46 GMT
From: forall2see_2000@yahoo.com(forall2see_2000@yahoo.com)
Subject: website hosting
Message-Id: <0501031427468011@news.usenetmonster.com>
here is the place that I host my websites with .
If your still looking for a good host check out
http://frontpage-web-hosting.org
------------------------------
Date: 1 Jan 2005 10:05:02 -0800
From: "botfood" <botfood@yahoo.com>
Subject: weird failure with Net::FTP
Message-Id: <1104602702.056817.313600@z14g2000cwz.googlegroups.com>
I have a script that goes out and backs up a list of files to my PC
nightly using Net::FTP which has been running successfully for months.
Today it crashes out with the following error:
Can't locate object method "new" via package "Net::FTP::ascii" at
C:/usr/lib/IO/Socket.pm line 253.
Nothing has changed in my config, the script, or anything else I can
think of.... what could be going on? should I re-install Net:FTP ?
I installed it using ppm from Activestate to my PC which is running
windows 98.
thanks,
d
------------------------------
Date: 1 Jan 2005 11:37:57 -0800
From: "botfood" <botfood@yahoo.com>
Subject: Re: weird failure with Net::FTP
Message-Id: <1104608277.285008.114840@z14g2000cwz.googlegroups.com>
...actually it looks like Net::FTP was part of the standard install for
this old version, not installed via ppm. but I am still stuck as to why
it breaks now. any thoughts?
------------------------------
Date: 1 Jan 2005 12:01:42 -0800
From: "botfood" <botfood@yahoo.com>
Subject: Re: weird failure with Net::FTP
Message-Id: <1104609702.282665.226180@z14g2000cwz.googlegroups.com>
also turns out that my remote host moved my account to a new piece of
hardware... but I can login via FTP manually the same as before, so I
dont see any difference in login options. Is there a chance that
Net::FTP may give an error like this if it can no longer establish a
connection that allows a get() ?
------------------------------
Date: Sat, 01 Jan 2005 14:39:20 -0600
From: l v <lv@aol.com>
Subject: Re: weird failure with Net::FTP
Message-Id: <41d709d1$1_1@127.0.0.1>
botfood wrote:
> ...actually it looks like Net::FTP was part of the standard install for
> this old version, not installed via ppm. but I am still stuck as to why
> it breaks now. any thoughts?
>
I have had "bugs" in older versions of Net::FTP, such as everything
worked fine for months, then a file name with a space showed up making
the script fail. A higher version fixed the space problem. Try
upgrading to the latest version and see what happens
Len
------------------------------
Date: Sat, 01 Jan 2005 14:44:34 -0600
From: l v <lv@aol.com>
Subject: Re: weird failure with Net::FTP
Message-Id: <41d70b0c$1_2@127.0.0.1>
botfood wrote:
> also turns out that my remote host moved my account to a new piece of
> hardware... but I can login via FTP manually the same as before, so I
> dont see any difference in login options. Is there a chance that
> Net::FTP may give an error like this if it can no longer establish a
> connection that allows a get() ?
>
If it works manually then turn on Net::FTP's debug option and see what
you get from you script. Have you printed out what is in $@ from the
new()? Without any specifics of your code nor what hardware you
was/are on, no much more help can be offered.
Len
------------------------------
Date: 1 Jan 2005 13:23:20 -0800
From: "botfood" <botfood@yahoo.com>
Subject: Re: weird failure with Net::FTP
Message-Id: <1104614600.239830.27660@c13g2000cwb.googlegroups.com>
I'll see if I can get more info from the debug option. do you know
where the debug info goes? to a file?
I added a statement to print $@ after the new constructor, and it is
undef. The error doesnt crash the script until it attempts a get().
I just tested get() ing from a different host with my script, and it
works fine. I am now highly suspect that whatever my host did when they
moved my account to a different machine is the cause. I cant tell what
they changed though, because a manual FTP using WS_FTP still seems to
work fine.
------------------------------
Date: 1 Jan 2005 14:04:57 -0800
From: "botfood" <botfood@yahoo.com>
Subject: Re: weird failure with Net::FTP
Message-Id: <1104614396.297102.13300@c13g2000cwb.googlegroups.com>
I'll see if I can get more info from the debug option. do you know
where the debug info goes? to a file?
I'll see if anything shows up in $@
I just tested get() ing from a different host with my script, and it
works fine. I am now highly suspect that whatever my host did when they
moved my account to a different machine is the cause. I cant tell what
they changed though, because a manual FTP using WS_FTP still seems to
work fine.
------------------------------
Date: 29 Dec 2004 21:16:31 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: Why does this work?
Message-Id: <slrnct67le.an.abigail@alexandra.abigail.nl>
Bart Lateur (bart.lateur@pandora.be) wrote on MMMMCXXXVIII September
MCMXCIII in <URL:news:tna5t0p1eu4hiuvhvncru8a31pnksig0g4@4ax.com>:
-: Joe Smith wrote:
-:
-: >Brian McCauley wrote:
-:
-: >> I would consider the behaviour described in this thread to be a
-: >> (non-serious) bug in Perl
-:
-: >It is not a bug. It is a feature that was deliberately added to
-: >the language and is documented.
-:
-: You're missing the point.
-:
-: use strict; print -force
-:
-: prints:
-:
-: -force
-:
-: both in 5.6.1 as in 5.8.3. For some reason, strict seems to be too
-: relaxed here. Maybe that is by design too, to allow for emulation of
-: named parameters more easily.
By design, and documented. From perlop/Symbolic Unary Operators:
Unary "-" performs arithmetic negation if the operand is
numeric. If the operand is an identifier, a string con
sisting of a minus sign concatenated with the identifier
is returned. Otherwise, if the string starts with a plus
or minus, a string starting with the opposite sign is
returned. One effect of these rules is that -bareword is
equivalent to "-bareword".
Abigail
--
perl -we '$_ = q ?4a75737420616e6f74686572205065726c204861636b65720as?;??;
for (??;(??)x??;??)
{??;s;(..)s?;qq ?print chr 0x$1 and \161 ss?;excess;??}'
------------------------------
Date: Thu, 30 Dec 2004 04:49:19 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: Why does this work?
Message-Id: <cr01cr$gsm$1@slavica.ukpost.com>
Abigail wrote:
> Bart Lateur (bart.lateur@pandora.be) wrote on MMMMCXXXVIII September
> MCMXCIII in <URL:news:tna5t0p1eu4hiuvhvncru8a31pnksig0g4@4ax.com>:
> -: Joe Smith wrote:
> -:
> -: >Brian McCauley wrote:
> -:
> -: >> I would consider the behaviour described in this thread to be a
> -: >> (non-serious) bug in Perl
> -:
> -: >It is not a bug. It is a feature that was deliberately added to
> -: >the language and is documented.
> -:
> -: You're missing the point.
> -:
> -: use strict; print -force
> -:
> -: prints:
> -:
> -: -force
> -:
> -: both in 5.6.1 as in 5.8.3. For some reason, strict seems to be too
> -: relaxed here. Maybe that is by design too, to allow for emulation of
> -: named parameters more easily.
>
>
> By design, and documented. From perlop/Symbolic Unary Operators:
>
> Unary "-" performs arithmetic negation if the operand is
> numeric. If the operand is an identifier, a string con
> sisting of a minus sign concatenated with the identifier
> is returned. Otherwise, if the string starts with a plus
> or minus, a string starting with the opposite sign is
> returned. One effect of these rules is that -bareword is
> equivalent to "-bareword".
Hmmm... I suspect "by design" is a little too strong. But I'll grant
you that the fact that -bareword is allowed under strict is implied by
the statement "If the operand is an identifier..." so it's a feature not
a bug.
If you want to use the fact that the current behaviour matches the
documented behaviour as justification that something's not a bug then
perhaps I should point out that the actual behaviour does not match the
above documentation fragment!
sub foo { 'bar' };
print -foo;
The above prints '-bar' not '-foo' and also emits a warning even without
"use warnings" in effect.
------------------------------
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 7599
***************************************
