[29235] in Perl-Users-Digest
Perl-Users Digest, Issue: 479 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jun 2 16:10:07 2007
Date: Sat, 2 Jun 2007 13:09:07 -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 Sat, 2 Jun 2007 Volume: 11 Number: 479
Today's topics:
Computer List (Pls hlp!) <shmh@bigpond.net.au>
Re: Computer List (Pls hlp!) anno4000@radom.zrz.tu-berlin.de
Re: Computer List (Pls hlp!) <lambik@kieffer.nl>
Re: Computer List (Pls hlp!) <shmh@bigpond.net.au>
Re: Computer List (Pls hlp!) <shmh@bigpond.net.au>
Re: Computer List (Pls hlp!) <cwilbur@chromatico.net>
Re: contacting Alfred Reibenschuh, creator of (CPAN) PD <sisyphus1@nomail.afraid.org>
Re: contacting Alfred Reibenschuh, creator of (CPAN) PD <brian.d.foy@gmail.com>
Deleting files <nospam@example.com>
Re: Deleting files <spamtrap@dot-app.org>
Re: fork() and script execution afterwards <bik.mido@tiscalinet.it>
new CPAN modules on Sat Jun 2 2007 (Randal Schwartz)
www.eBankGame.com Buy WoW gold RS gold WG k gold ebankgame@gmail.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 02 Jun 2007 06:53:12 GMT
From: "SimonH" <shmh@bigpond.net.au>
Subject: Computer List (Pls hlp!)
Message-Id: <st88i.7674$wH4.5892@news-server.bigpond.net.au>
Hi guys hope you can help me with a perl script.
We are running multiple platforms - NT and XP.
I have a computer list in computers.txt
Each system has a local administrator account, let's say it is
<computername>\administrator, with password 'password'.
What I need to do is to:
1) Determine if the system is NT or XP
2) If it is NT, then connect by <computername>\administrator, with password
'password', then write a line to an output file called output.txt the status
of the browser service. So the format of the output.txt would be something
like:
<computername>, operatingsystem, servicename, status
3) If it is XP, then connect by <domain1>\simon, with password 'simtest',
then write a line to an output file called output.txt with the same 4
columns as 2).
4) While the script is running, a status of 'connecting to <computername>
would be great.
Any help greatly appreciated.
Simon
------------------------------
Date: 2 Jun 2007 09:11:06 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: Computer List (Pls hlp!)
Message-Id: <5ccqhaF306ssnU1@mid.dfncis.de>
SimonH <shmh@bigpond.net.au> wrote in comp.lang.perl.misc:
> Hi guys hope you can help me with a perl script.
>
> We are running multiple platforms - NT and XP.
> I have a computer list in computers.txt
> Each system has a local administrator account, let's say it is
> <computername>\administrator, with password 'password'.
>
> What I need to do is to:
[specs snipped]
We can help you with a program when you get stuck, but we're not in
the business of writing programs to specification.
Anno
------------------------------
Date: Sat, 2 Jun 2007 11:42:41 +0200
From: "Lambik" <lambik@kieffer.nl>
Subject: Re: Computer List (Pls hlp!)
Message-Id: <46613b6b$0$37711$5fc3050@dreader2.news.tiscali.nl>
"SimonH" <shmh@bigpond.net.au> wrote in message
news:st88i.7674$wH4.5892@news-server.bigpond.net.au...
> Hi guys hope you can help me with a perl script.
>
> We are running multiple platforms - NT and XP.
> I have a computer list in computers.txt
> Each system has a local administrator account, let's say it is
> <computername>\administrator, with password 'password'.
>
> What I need to do is to:
> 1) Determine if the system is NT or XP
You could use WMI. Check
http://www.microsoft.com/technet/scriptcenter/scripts/perl/default.mspx for
examples
use Win32::OLE('in');
use constant wbemFlagReturnImmediately => 0x10;
use constant wbemFlagForwardOnly => 0x20;
$computer = "."; #or computername
$objWMIService = Win32::OLE->GetObject
("winmgmts:\\\\$computer\\root\\CIMV2") or die "WMI connection
failed.\n";
$colItems = $objWMIService->ExecQuery
("SELECT * FROM Win32_OperatingSystem","WQL",
wbemFlagReturnImmediately | wbemFlagForwardOnly);
foreach my $objItem (in $colItems)
{
print "$objItem->{Caption}\n";
}
------------------------------
Date: Sat, 02 Jun 2007 10:27:25 GMT
From: "SimonH" <shmh@bigpond.net.au>
Subject: Re: Computer List (Pls hlp!)
Message-Id: <hCb8i.7749$wH4.4969@news-server.bigpond.net.au>
Anno!
Totally understand.
Will heed your advice and only post when really stuck.
I am new to perl and teaching myself, and just wanted a higher level guru to
throw some pointers down about this topic.
<anno4000@radom.zrz.tu-berlin.de> wrote in message
news:5ccqhaF306ssnU1@mid.dfncis.de...
> SimonH <shmh@bigpond.net.au> wrote in comp.lang.perl.misc:
>> Hi guys hope you can help me with a perl script.
>>
>> We are running multiple platforms - NT and XP.
>> I have a computer list in computers.txt
>> Each system has a local administrator account, let's say it is
>> <computername>\administrator, with password 'password'.
>>
>> What I need to do is to:
>
> [specs snipped]
>
> We can help you with a program when you get stuck, but we're not in
> the business of writing programs to specification.
>
> Anno
------------------------------
Date: Sat, 02 Jun 2007 10:27:43 GMT
From: "SimonH" <shmh@bigpond.net.au>
Subject: Re: Computer List (Pls hlp!)
Message-Id: <zCb8i.7750$wH4.2300@news-server.bigpond.net.au>
Thanks Lambik...much appreciated.
"Lambik" <lambik@kieffer.nl> wrote in message
news:46613b6b$0$37711$5fc3050@dreader2.news.tiscali.nl...
> "SimonH" <shmh@bigpond.net.au> wrote in message
> news:st88i.7674$wH4.5892@news-server.bigpond.net.au...
>> Hi guys hope you can help me with a perl script.
>>
>> We are running multiple platforms - NT and XP.
>> I have a computer list in computers.txt
>> Each system has a local administrator account, let's say it is
>> <computername>\administrator, with password 'password'.
>>
>> What I need to do is to:
>> 1) Determine if the system is NT or XP
> You could use WMI. Check
> http://www.microsoft.com/technet/scriptcenter/scripts/perl/default.mspx
> for
> examples
>
> use Win32::OLE('in');
> use constant wbemFlagReturnImmediately => 0x10;
> use constant wbemFlagForwardOnly => 0x20;
>
> $computer = "."; #or computername
> $objWMIService = Win32::OLE->GetObject
> ("winmgmts:\\\\$computer\\root\\CIMV2") or die "WMI connection
> failed.\n";
> $colItems = $objWMIService->ExecQuery
> ("SELECT * FROM Win32_OperatingSystem","WQL",
> wbemFlagReturnImmediately | wbemFlagForwardOnly);
>
> foreach my $objItem (in $colItems)
> {
> print "$objItem->{Caption}\n";
> }
>
>
------------------------------
Date: 02 Jun 2007 10:53:16 -0400
From: Charlton Wilbur <cwilbur@chromatico.net>
Subject: Re: Computer List (Pls hlp!)
Message-Id: <87ps4e2ysj.fsf@mithril.chromatico.net>
>>>>> "A" == anno4000 <anno4000@radom.zrz.tu-berlin.de> writes:
A> [specs snipped]
A> We can help you with a program when you get stuck, but we're
A> not in the business of writing programs to specification.
Well, some of us *are*, but as it's a business we expect to get paid
for that.
Charlton
--
Charlton Wilbur
cwilbur@chromatico.net
------------------------------
Date: Sat, 2 Jun 2007 15:16:54 +1000
From: "Sisyphus" <sisyphus1@nomail.afraid.org>
Subject: Re: contacting Alfred Reibenschuh, creator of (CPAN) PDF-API2 ?
Message-Id: <4660fd45$0$21548$afc38c87@news.optusnet.com.au>
"bugbear" <bugbear@trim_papermule.co.uk_trim> wrote in message
news:465ff2f2$0$8732$ed2619ec@ptn-nntp-reader02.plus.net...
> bugbear wrote:
>>... rt.cpan.org
>> Then I tried to go back to the main page to login.
>>
>> And got a http 500 "internal server error" from Apache
>> (after another massive pause)
>
> I restarted Mozilla (seamonkey) and this time
> got a HTTP 500 "proxy error"
>
> Is this bug service actually in use by anyone?
>
Yes, it's fairly widely used. (It's often a bit slow.)
For this particular module, I would be clicking on the "View/Report Bugs"
link at:
http://search.cpan.org/~areibens/PDF-API2-0.61/
and then logging in using my PAUSE account.
(I've never used a bitcard account. Perhaps there's a problem with bitcard
accounts and rt.cpan.org, though I've not heard of any.)
Cheers,
Rob
------------------------------
Date: Sat, 02 Jun 2007 04:01:31 -0500
From: brian d foy <brian.d.foy@gmail.com>
Subject: Re: contacting Alfred Reibenschuh, creator of (CPAN) PDF-API2 ?
Message-Id: <020620070401319337%brian.d.foy@gmail.com>
In article <465ff2f2$0$8732$ed2619ec@ptn-nntp-reader02.plus.net>,
bugbear <bugbear@trim_papermule.co.uk_trim> wrote:
> bugbear wrote:
> >... rt.cpan.org
> > Then I tried to go back to the main page to login.
> >
> > And got a http 500 "internal server error" from Apache
> > (after another massive pause)
>
> I restarted Mozilla (seamonkey) and this time
> got a HTTP 500 "proxy error"
Just try it a few more times. Sometimes the service has problems, but
it's still a good place to store patches and bug reports.
It might also help to complain to the address given for the site
maintainer :)
--
Posted via a free Usenet account from http://www.teranews.com
------------------------------
Date: Sat, 02 Jun 2007 17:46:11 GMT
From: "Anders F" <nospam@example.com>
Subject: Deleting files
Message-Id: <D1i8i.1174$ZA.904@newsb.telia.net>
Is there a Perl subroutine for deleting files?
My problem is that I have a perl script to backup files.
First it copies all files I want to backup to a temporary directory,
then it zips the temporary directory and puts the result in a
permanent backup directory which I can copy to some external
device.
After zipping, I want to delete the temporary directory and I can
do this with system( "del ..."); and system( "rmdir ...");
My problem is that del prints the name of every file it deletes
filling the whole Command Promt buffer. Besides being irritating,
this means that if something goes wrong before I delete the files,
I can not see it.
So I want some alternate way to delete files. If possible deleting
a directory with all files and subdirectories in one command,
else it should not bee too difficult to make a recursive subroutine
and delete the files one by one.
(I have Windows XP SP2. The "del" command has no switch to supress
printout.)
Thanks for any answer
Anders
------------------------------
Date: Sat, 02 Jun 2007 15:17:59 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Deleting files
Message-Id: <m2hcpqw4go.fsf@local.wv-www.com>
"Anders F" <nospam@example.com> writes:
> Is there a Perl subroutine for deleting files?
perldoc -f unlink
perldoc -f rmdir
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Sat, 02 Jun 2007 11:35:43 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: fork() and script execution afterwards
Message-Id: <49e263p151muvl9p45i3jvi224p83ut8vo@4ax.com>
On 01 Jun 2007 12:20:12 -0600, Eric Schwartz <emschwar@pobox.com>
wrote:
>> refers to fork(2) and that is most probably not on his system if he
>> uses Windows.
>
>As that may be; however, it does explain the semantics well enough I
>don't imagine one would need to read fork(2) for most purposes.
Really, I'm reading it now and I find it doesn't explain it that well:
it's obvious to me that execution will resume in both parent and child
after the fork(), also because any other option wouldn't make sense
IMHO, but it is *never* said so and a complete n00b may actually get
it wrong...
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: Sat, 2 Jun 2007 04:42:10 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sat Jun 2 2007
Message-Id: <JIzrqA.1p9J@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-MorningMusume-0.11
http://search.cpan.org/~kentaro/Acme-MorningMusume-0.11/
All about Japanese pop star "Morning Musume"
----
Acme-Note-0.5
http://search.cpan.org/~ferreira/Acme-Note-0.5/
Make a mental note for programming style
----
Apache-SWIT-0.26
http://search.cpan.org/~bosu/Apache-SWIT-0.26/
mod_perl based application server with integrated testing.
----
CSS-Parse-Packed-0.01
http://search.cpan.org/~ziguzagu/CSS-Parse-Packed-0.01/
A CSS::Parse module packed duplicated selectors.
----
Compress-LZW-Progressive-0.102
http://search.cpan.org/~ewaters/Compress-LZW-Progressive-0.102/
Progressive LZW-like compression
----
Config-Loader-1.00
http://search.cpan.org/~drtech/Config-Loader-1.00/
load a configuration directory tree containing YAML, JSON, XML, Perl, INI or Config::General files
----
Config-XPath-0.09
http://search.cpan.org/~pevans/Config-XPath-0.09/
a module for retrieving configuration data from XML files by using XPath queries
----
Crypt-SSLeay-0.55
http://search.cpan.org/~dland/Crypt-SSLeay-0.55/
OpenSSL support for LWP
----
DBIx-Class-0.07999_04
http://search.cpan.org/~blblack/DBIx-Class-0.07999_04/
Extensible and flexible object <-> relational mapper.
----
DBIx-MyParse-0.84
http://search.cpan.org/~philips/DBIx-MyParse-0.84/
Perl API for MySQL's SQL Parser
----
Devel-Tinderclient-1.4
http://search.cpan.org/~zlipton/Devel-Tinderclient-1.4/
----
Device-Jtag-PP-0.02
http://search.cpan.org/~tdeitrich/Device-Jtag-PP-0.02/
Perl extension for communicating with JTAG devices via PC parallel port.
----
Device-Jtag-USB-FTCJTAG-0.05
http://search.cpan.org/~tdeitrich/Device-Jtag-USB-FTCJTAG-0.05/
Perl extension for communicating with JTAG devices using the FTDI FTCJTAG driver.
----
File-Touch-0.02
http://search.cpan.org/~nwetters/File-Touch-0.02/
update access and modification timestamps, creating nonexistent files where necessary.
----
Games-WoW-Armory-0.0.5
http://search.cpan.org/~franckc/Games-WoW-Armory-0.0.5/
Access to the WoW Armory
----
Games-WoW-Armory-0.0.6
http://search.cpan.org/~franckc/Games-WoW-Armory-0.0.6/
Access to the WoW Armory
----
HTML-AutoPagerize-0.01
http://search.cpan.org/~miyagawa/HTML-AutoPagerize-0.01/
Utility to load AutoPagerize SITEINFO stuff
----
HTML-GMap-0.03
http://search.cpan.org/~pcanaran/HTML-GMap-0.03/
Generic Perl infrastructure to build Google Maps displays
----
HTML-SiteTear-1.40
http://search.cpan.org/~tkurita/HTML-SiteTear-1.40/
Make a separated copy of a part of the site
----
HTML-Template-Pro-0.65
http://search.cpan.org/~viy/HTML-Template-Pro-0.65/
Perl/XS module to use HTML Templates from CGI scripts
----
HTML-Tested-ClassDBI-0.12
http://search.cpan.org/~bosu/HTML-Tested-ClassDBI-0.12/
Enhances HTML::Tested to work with Class::DBI
----
HTML-Tiny-v0.6
http://search.cpan.org/~andya/HTML-Tiny-v0.6/
Lightweight, dependency free HTML/XML generation
----
HTTP-OAI-3.18
http://search.cpan.org/~timbrody/HTTP-OAI-3.18/
API for the OAI-PMH
----
JSON-DWIW-0.12
http://search.cpan.org/~dowens/JSON-DWIW-0.12/
JSON converter that Does What I Want
----
Log-Log4perl-1.11
http://search.cpan.org/~mschilli/Log-Log4perl-1.11/
Log4j implementation for Perl
----
Math-BigInt-GMP-1.22
http://search.cpan.org/~tels/Math-BigInt-GMP-1.22/
Use the GMP library for Math::BigInt routines
----
Net-CyanChat-0.05
http://search.cpan.org/~kirsle/Net-CyanChat-0.05/
Perl interface for connecting to Cyan Worlds' chat room.
----
Number-Phone-1.58
http://search.cpan.org/~dcantrell/Number-Phone-1.58/
base class for Number::Phone::* modules
----
Object-Exercise-1.04
http://search.cpan.org/~lembark/Object-Exercise-1.04/
Generic execution & benchmark harness for method calls.
----
PAR-Dist-FromCPAN-0.06
http://search.cpan.org/~smueller/PAR-Dist-FromCPAN-0.06/
Create PAR distributions from CPAN
----
POE-Component-IRC-5.31_03
http://search.cpan.org/~bingos/POE-Component-IRC-5.31_03/
a fully event-driven IRC client module.
----
Perl-Critic-1.052
http://search.cpan.org/~thaljef/Perl-Critic-1.052/
Critique Perl source code for best-practices
----
Perl-Critic-StricterSubs-0.02
http://search.cpan.org/~thaljef/Perl-Critic-StricterSubs-0.02/
Perl::Critic plugin for stricter subroutine checks
----
PerlCryptLib-1.04
http://search.cpan.org/~alvarol/PerlCryptLib-1.04/
Perl interface to Peter Guttman's cryptlib API
----
QDRDBMS-0.0.0
http://search.cpan.org/~duncand/QDRDBMS-0.0.0/
Full-featured truly relational DBMS in Perl
----
Rose-DBx-Object-InternalPager-0.02
http://search.cpan.org/~mschilli/Rose-DBx-Object-InternalPager-0.02/
Throttle Rose DB Iterator Fetching
----
Shape-RegularPolygon-0.01
http://search.cpan.org/~kztomita/Shape-RegularPolygon-0.01/
Object that treats the shape of the regular polygon
----
SmokeRunner-Multi-0.1
http://search.cpan.org/~drolsky/SmokeRunner-Multi-0.1/
Manage smoke tests across multiple branches/checkouts/projects
----
SmokeRunner-Multi-0.11
http://search.cpan.org/~drolsky/SmokeRunner-Multi-0.11/
Manage smoke tests across multiple branches/checkouts/projects
----
Sort-Key-Radix-0.01
http://search.cpan.org/~salva/Sort-Key-Radix-0.01/
Radix sort implementation in XS
----
Sort-Key-Radix-0.02
http://search.cpan.org/~salva/Sort-Key-Radix-0.02/
Radix sort implementation in XS
----
WWW-Facebook-API-v0.2.0
http://search.cpan.org/~unobe/WWW-Facebook-API-v0.2.0/
Facebook API implementation
----
WWW-Facebook-API-v0.2.1
http://search.cpan.org/~unobe/WWW-Facebook-API-v0.2.1/
Facebook API implementation
----
WWW-Mechanize-AutoPager-0.01
http://search.cpan.org/~miyagawa/WWW-Mechanize-AutoPager-0.01/
Automatic Pagination using AutoPagerize
----
Win32-MSI-DB-1.06
http://search.cpan.org/~pmarek/Win32-MSI-DB-1.06/
Modify MSI databases
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: Sat, 02 Jun 2007 08:33:13 -0700
From: ebankgame@gmail.com
Subject: www.eBankGame.com Buy WoW gold RS gold WG k gold
Message-Id: <1180798393.243284.145600@z28g2000prd.googlegroups.com>
www.eBankGame.com Buy WoW gold RS gold WG k gold
www.eBankGame.com (w w w .e BankGame . c o m )
As you might or might not known that Taiwan earthquake has caused most
of supplier are experiencing the serve problem to process the gold.
However, eBankGame is always stay line with all the game players to
help you guys to enjoy the game at any time. We provide Gold Farmer
service for you to own the gold with little bit expense. Your expense
will be more valuable by take one action and gain multiple purposes.
The service is focus on gold farming for your character in the game by
using professional human player to taking tasks and gain reputation in
the game in order to gain the gold for you (We do not apply any plug-
in or Bots on your character). Meanwhile your character will be
improved 1-15 power leveling which depends on your original level
(this aspect is not available for Level 60). www.eBankGame.com (w w
w .e BankGame . c o m)
1.The Fastest Delivery Speed on all Servers in 1-8 hours since your
payment arrives.If the deliver is delayed over 8 hours, you will get
5% extra gold for the late.Or you can request a refund.
2.Special Discount Servers.Sometimes, there will be some servers,
with
special discounts, with extremely NICE PRice on some certain servers.
3.Perfect Service.24 hours service with various contact methods: MSN,
ICQ, Online Chat on Web homepage,Welcome to www.eBankGame.com
If any problem, please contact us asap!
Happy shopping!
Sincerely,
www.eBankGame.com
E-mail:ebankgame2010@gmail.com
MSN:ebagame2010@msn.com
ICQ:468873592
Choose your game
World of Warcraft EU
World of Warcraft US
Lord of The Rings EU
Lord of The Rings US
Lineage II
EverQuest2
Guild Wars
Final Fantacy XI
Runescape 2
RFO Online
Dungeons & Dragons Online
Eve Online
Star Wars Galaxies
go to www.eBankGame.com
------------------------------
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 479
**************************************
