[29366] in Perl-Users-Digest
Perl-Users Digest, Issue: 609 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jul 2 18:54:45 2007
Date: Mon, 2 Jul 2007 08: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 Mon, 2 Jul 2007 Volume: 11 Number: 609
Today's topics:
Connect DB2 environment setting problem oillai@yahoo.com
Re: Connect DB2 environment setting problem anno4000@radom.zrz.tu-berlin.de
Re: Connect DB2 environment setting problem <cdeville@gmail.com>
new CPAN modules on Mon Jul 2 2007 (Randal Schwartz)
Re: Problem with PERL function <bugbear@trim_papermule.co.uk_trim>
Re: Problem with PERL function anno4000@radom.zrz.tu-berlin.de
Re: Problem with PERL function <hjp-usenet2@hjp.at>
Re: Problem with PERL function <bugbear@trim_papermule.co.uk_trim>
Re: The $a have any special meanning ? <hjp-usenet2@hjp.at>
Re: The $a have any special meanning ? <bugbear@trim_papermule.co.uk_trim>
Re: Unlocking and reenabling a local account on multipl <tadmc@seesig.invalid>
Re: Unlocking and reenabling a local account on multipl <ThomasKratz@REMOVEwebCAPS.de>
Re: Unlocking and reenabling a local account on multipl <shmh@bigpond.net.au>
Re: unlurking <dummy@example.com>
Re: unlurking <invalid@invalid.nyet>
Re: unlurking <invalid@invalid.nyet>
Re: unlurking <tadmc@seesig.invalid>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 02 Jul 2007 01:43:38 -0700
From: oillai@yahoo.com
Subject: Connect DB2 environment setting problem
Message-Id: <1183365818.013397.304350@e9g2000prf.googlegroups.com>
Hi,
I write a perl program to connect to a remote DB2 database to generate
daily report.
I execute the program by command line is OK, but executed by crontab
is failed.
The program connection section:
$uid="username";
$pwd="password;
$dsn = "dbi:DB2:DATABASE=WAREHOUS";
$warehouse_dbh = DBI->connect($dsn, $uid, $pwd) || die "Connection
failed with error: $DBI::errstr";
============================================================================
The error message is following.
Connection failed with error: Total Environment allocation failure!
Did you set up your DB2 client environment?
------------------------------
Date: 2 Jul 2007 09:32:10 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: Connect DB2 environment setting problem
Message-Id: <5erv0qF387buqU1@mid.dfncis.de>
<oillai@yahoo.com> wrote in comp.lang.perl.misc:
> Hi,
>
> I write a perl program to connect to a remote DB2 database to generate
> daily report.
>
> I execute the program by command line is OK, but executed by crontab
> is failed.
>
> The program connection section:
> $uid="username";
> $pwd="password;
> $dsn = "dbi:DB2:DATABASE=WAREHOUS";
> $warehouse_dbh = DBI->connect($dsn, $uid, $pwd) || die "Connection
> failed with error: $DBI::errstr";
> ============================================================================
> The error message is following.
> Connection failed with error: Total Environment allocation failure!
> Did you set up your DB2 client environment?
Well, did you?
Apparently DB2 uses a number of environment variables that must be set
up correctly. That seems to be the case in your interactive
environment, but not in cron, which is nothing unusual.
Find out what the difference in environment variables is between cron
and your shell (a cron job that calls "printenv" should do), then set
the necessary variables in the cron job.
Anno
------------------------------
Date: Mon, 02 Jul 2007 13:37:13 -0000
From: c00p <cdeville@gmail.com>
Subject: Re: Connect DB2 environment setting problem
Message-Id: <1183383433.328472.44660@q69g2000hsb.googlegroups.com>
On Jul 2, 4:43 am, oil...@yahoo.com wrote:
> Hi,
>
> I write a perl program to connect to a remote DB2 database to generate
> daily report.
>
> I execute the program by command line is OK, but executed by crontab
> is failed.
>
> The program connection section:
> $uid="username";
> $pwd="password;
> $dsn = "dbi:DB2:DATABASE=WAREHOUS";
> $warehouse_dbh = DBI->connect($dsn, $uid, $pwd) || die "Connection
> failed with error: $DBI::errstr";
> ============================================================================
> The error message is following.
> Connection failed with error: Total Environment allocation failure!
> Did you set up your DB2 client environment?
When we run any shell scripts against db2 we have to reference
db2profile for exactly that reason...a simple shell wrapper that runs
db2profile, then your perl program would do the trick.
------------------------------
Date: Mon, 2 Jul 2007 04:42:14 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Mon Jul 2 2007
Message-Id: <JKJBqE.37H@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.
Bot-BB2-0.04
http://search.cpan.org/~avar/Bot-BB2-0.04/
----
Bundle-SQL-0.03
http://search.cpan.org/~ski/Bundle-SQL-0.03/
installs SQL modules and dependencies
----
CPAN-Inject-0.07
http://search.cpan.org/~adamk/CPAN-Inject-0.07/
Base class for injecting distributions into CPAN sources
----
Catalyst-Model-FormFu-0.01001
http://search.cpan.org/~dmaki/Catalyst-Model-FormFu-0.01001/
FormFu In Your Model
----
Catalyst-Plugin-Session-Store-FastMmap-0.03
http://search.cpan.org/~nuffin/Catalyst-Plugin-Session-Store-FastMmap-0.03/
FastMmap session storage backend.
----
Catalyst-Plugin-Static-Simple-0.18
http://search.cpan.org/~agrundma/Catalyst-Plugin-Static-Simple-0.18/
Make serving static pages painless.
----
Config-Yacp-2.00
http://search.cpan.org/~tstanley/Config-Yacp-2.00/
Yet Another Configuration Module
----
D-oh-Year-0.06
http://search.cpan.org/~mschwern/D-oh-Year-0.06/
----
DBIx-Class-UUIDColumns-0.02001
http://search.cpan.org/~claco/DBIx-Class-UUIDColumns-0.02001/
Implicit uuid columns
----
Data-Visitor-0.08
http://search.cpan.org/~nuffin/Data-Visitor-0.08/
Visitor style traversal of Perl data structures
----
DateTime-0.38
http://search.cpan.org/~drolsky/DateTime-0.38/
A date and time object
----
DateTime-Format-Duration-1.03
http://search.cpan.org/~rickm/DateTime-Format-Duration-1.03/
Format and parse DateTime::Durations
----
DateTime-Format-Duration-1.03a
http://search.cpan.org/~rickm/DateTime-Format-Duration-1.03a/
Format and parse DateTime::Durations
----
Egg-Plugin-BackUP-Easy-2.00
http://search.cpan.org/~lushe/Egg-Plugin-BackUP-Easy-2.00/
Preserve backup data for Egg plugin.
----
Egg-Plugin-IxHash-2.00
http://search.cpan.org/~lushe/Egg-Plugin-IxHash-2.00/
Tie::Hash::Indexed for Egg plugin.
----
ExtUtils-MakeMaker-6.35
http://search.cpan.org/~mschwern/ExtUtils-MakeMaker-6.35/
Create a module Makefile
----
File-Backup-0.07_1
http://search.cpan.org/~gene/File-Backup-0.07_1/
RETIRED File backup automation
----
Geo-Raster-0.61
http://search.cpan.org/~ajolma/Geo-Raster-0.61/
----
Geo-Vector-0.51
http://search.cpan.org/~ajolma/Geo-Vector-0.51/
Perl extension for geospatial vectors
----
Graph-Convert-0.06
http://search.cpan.org/~tels/Graph-Convert-0.06/
Convert between graph formats: Graph and Graph::Easy
----
Gtk2-Ex-Geo-0.51
http://search.cpan.org/~ajolma/Gtk2-Ex-Geo-0.51/
Perl Gtk2 widgets for GIS
----
Gtk2-Ex-Geo-0.52
http://search.cpan.org/~ajolma/Gtk2-Ex-Geo-0.52/
Perl Gtk2 widgets for GIS
----
Gtk2-Ex-Geo-0.53
http://search.cpan.org/~ajolma/Gtk2-Ex-Geo-0.53/
Perl Gtk2 widgets for GIS
----
KSx-IndexManager-0.001
http://search.cpan.org/~hdp/KSx-IndexManager-0.001/
high-level invindex management interface
----
KSx-Searcher-Abstract-0.001
http://search.cpan.org/~hdp/KSx-Searcher-Abstract-0.001/
build searches from Perl data structures
----
Lingua-Flags-0.03
http://search.cpan.org/~ambs/Lingua-Flags-0.03/
Provide small flag icons
----
Lingua-Flags-0.04
http://search.cpan.org/~ambs/Lingua-Flags-0.04/
Provide small flag icons
----
Math-BigInt-Pari-1.13
http://search.cpan.org/~tels/Math-BigInt-Pari-1.13/
Use Math::Pari for Math::BigInt routines
----
NEXT-init-1.04.2
http://search.cpan.org/~lembark/NEXT-init-1.04.2/
----
PAB3-3.1.3
http://search.cpan.org/~chrmue/PAB3-3.1.3/
Perl Application Builder / Version 3
----
PAB3-DB-Driver-Mysql-1.0.5
http://search.cpan.org/~chrmue/PAB3-DB-Driver-Mysql-1.0.5/
Perl5 wrapper to the mysql5+ client libary and driver for the PAB3::DB class
----
PAB3-DB-Driver-Postgres-1.0.5
http://search.cpan.org/~chrmue/PAB3-DB-Driver-Postgres-1.0.5/
Perl5 wrapper to the pgsql libary and driver for the PAB3::DB class
----
PAB3-DB-Driver-Sqlite3-1.0.5
http://search.cpan.org/~chrmue/PAB3-DB-Driver-Sqlite3-1.0.5/
Perl5 wrapper to the libsqlite3 and driver for the PAB3::DB class
----
PITA-0.40
http://search.cpan.org/~adamk/PITA-0.40/
The Practical Image Testing Architecture
----
PITA-Image-0.40
http://search.cpan.org/~adamk/PITA-Image-0.40/
PITA Guest Manager for inside system images
----
PITA-POE-SupportServer-0.40
http://search.cpan.org/~adamk/PITA-POE-SupportServer-0.40/
----
PITA-Scheme-0.40
http://search.cpan.org/~adamk/PITA-Scheme-0.40/
PITA Testing Schemes
----
PITA-Test-Dummy-Perl5-Build-1.03
http://search.cpan.org/~adamk/PITA-Test-Dummy-Perl5-Build-1.03/
Brian, the CPAN Test Dummy for PITA Build.PL installs
----
PITA-Test-Dummy-Perl5-Deps-1.02
http://search.cpan.org/~adamk/PITA-Test-Dummy-Perl5-Deps-1.02/
CPAN Test Dummy for PITA Makefile.PL installs
----
PITA-Test-Dummy-Perl5-MI-0.66
http://search.cpan.org/~adamk/PITA-Test-Dummy-Perl5-MI-0.66/
CPAN Test Dummy for testing Module::Install::With
----
PITA-Test-Dummy-Perl5-Make-1.04
http://search.cpan.org/~adamk/PITA-Test-Dummy-Perl5-Make-1.04/
CPAN Test Dummy for PITA Makefile.PL installs
----
PITA-Test-Image-Qemu-0.40
http://search.cpan.org/~adamk/PITA-Test-Image-Qemu-0.40/
A tiny Qemu test image that only boots and pings
----
PITA-XML-0.40
http://search.cpan.org/~adamk/PITA-XML-0.40/
Create, load, save and manipulate PITA-XML files
----
Parse-Win32Registry-0.30
http://search.cpan.org/~jmacfarla/Parse-Win32Registry-0.30/
Parse Windows Registry Files
----
Process-0.20
http://search.cpan.org/~adamk/Process-0.20/
Objects that represent generic computational processes
----
Process-Backgroundable-0.20
http://search.cpan.org/~adamk/Process-Backgroundable-0.20/
A Process::Storable object that can be backgrounded
----
SMS-Send-NL-MyVodafone-0.02
http://search.cpan.org/~blom/SMS-Send-NL-MyVodafone-0.02/
An SMS::Send driver for the my.vodafone.nl website
----
Sub-Autostub-1.01
http://search.cpan.org/~lembark/Sub-Autostub-1.01/
Stubbed OO and functional calls with logging.
----
Test-Lazy-0.01
http://search.cpan.org/~rkrimen/Test-Lazy-0.01/
A quick and easy way to compose and run tests with useful output.
----
WWW-Mixi-Scraper-0.02
http://search.cpan.org/~ishigaki/WWW-Mixi-Scraper-0.02/
yet another mixi scraper
----
WWW-Mixi-Scraper-0.03
http://search.cpan.org/~ishigaki/WWW-Mixi-Scraper-0.03/
yet another mixi scraper
----
WWW-Mooos-Scraper-0.01
http://search.cpan.org/~holly/WWW-Mooos-Scraper-0.01/
Mooos scraper module
----
Weed-0.0072
http://search.cpan.org/~hooo/Weed-0.0072/
Don't use it. It's in development. For test purposes only!
----
XML-Atom-Service-0.12.0
http://search.cpan.org/~takeru/XML-Atom-Service-0.12.0/
Atom Service Document object
----
XML-Atom-Service-0.12.1
http://search.cpan.org/~takeru/XML-Atom-Service-0.12.1/
Atom Service Document object
----
xchar-0.1
http://search.cpan.org/~bwkeck/xchar-0.1/
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Mon, 02 Jul 2007 10:26:25 +0100
From: bugbear <bugbear@trim_papermule.co.uk_trim>
Subject: Re: Problem with PERL function
Message-Id: <4688c4c1$0$8739$ed2619ec@ptn-nntp-reader02.plus.net>
Mirco Wahab wrote:
> bugbear wrote:
>> bugbear wrote:
>>> $A[i2] - $A[i1],
>>>
>>> and so on for the other bases.
>>
>> Dang - just thought of something else
>>
>> For a 25% storage saving (since
>> each of my suggested arrays has as many entries as the sequence is
>> long), you only need 3 arrays, since the fourth
>> count is length-of-sequence - (sum of other 3 counts)
>
> Hi bugbear, IMHO one shouldn't do to much with arrays in the
> case of real genome files. A "good" fasta file may have dozens
> of millions of nucleobases, one example here:
> http://www.sanger.ac.uk/Software/analysis/projector/projector_test_set.fasta
Oops :-) (although it depends on your RAM size...)
BugBear
------------------------------
Date: 2 Jul 2007 11:24:59 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: Problem with PERL function
Message-Id: <5es5kbF3a3bpkU1@mid.dfncis.de>
Mirco Wahab <wahab-mail@gmx.de> wrote in comp.lang.perl.misc:
> bugbear wrote:
> > bugbear wrote:
> >> $A[i2] - $A[i1],
> >>
> >> and so on for the other bases.
> >
> > Dang - just thought of something else
> >
> > For a 25% storage saving (since
> > each of my suggested arrays has as many entries as the sequence is
> > long), you only need 3 arrays, since the fourth
> > count is length-of-sequence - (sum of other 3 counts)
>
> Hi bugbear, IMHO one shouldn't do to much with arrays in the
> case of real genome files. A "good" fasta file may have dozens
> of millions of nucleobases, one example here:
> http://www.sanger.ac.uk/Software/analysis/projector/projector_test_set.fasta
You could still usefully store only the counts for substrings that end on
a multiple of 100 (or 1000). That would take only 1 (0.1) % of the full
storage, but you'd need to re-scan only relatively short strings for
an exact count.
Anno
------------------------------
Date: Mon, 2 Jul 2007 15:26:26 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: Problem with PERL function
Message-Id: <slrnf8hv82.sqr.hjp-usenet2@zeno.hjp.at>
On 2007-06-29 17:06, Mirco Wahab <wahab-mail@gmx.de> wrote:
> bugbear wrote:
>> bugbear wrote:
>>> $A[i2] - $A[i1],
>>>
>>> and so on for the other bases.
>>
>> Dang - just thought of something else
>>
>> For a 25% storage saving (since
>> each of my suggested arrays has as many entries as the sequence is
>> long), you only need 3 arrays, since the fourth
>> count is length-of-sequence - (sum of other 3 counts)
>
> Hi bugbear, IMHO one shouldn't do to much with arrays in the
> case of real genome files. A "good" fasta file may have dozens
> of millions of nucleobases, one example here:
> http://www.sanger.ac.uk/Software/analysis/projector/projector_test_set.fasta
You could store the counts in a string, since a perl string is
essentially an array of 32 bit integers (but the utf-8 encoding may make
accesses slow and updates in the middle even slower).
hp
--
_ | Peter J. Holzer | I know I'd be respectful of a pirate
|_|_) | Sysadmin WSR | with an emu on his shoulder.
| | | hjp@hjp.at |
__/ | http://www.hjp.at/ | -- Sam in "Freefall"
------------------------------
Date: Mon, 02 Jul 2007 15:34:25 +0100
From: bugbear <bugbear@trim_papermule.co.uk_trim>
Subject: Re: Problem with PERL function
Message-Id: <46890cf2$0$8758$ed2619ec@ptn-nntp-reader02.plus.net>
anno4000@radom.zrz.tu-berlin.de wrote:
> Mirco Wahab <wahab-mail@gmx.de> wrote in comp.lang.perl.misc:
>> bugbear wrote:
>>> bugbear wrote:
>>>> $A[i2] - $A[i1],
>>>>
>>>> and so on for the other bases.
>>> Dang - just thought of something else
>>>
>>> For a 25% storage saving (since
>>> each of my suggested arrays has as many entries as the sequence is
>>> long), you only need 3 arrays, since the fourth
>>> count is length-of-sequence - (sum of other 3 counts)
>> Hi bugbear, IMHO one shouldn't do to much with arrays in the
>> case of real genome files. A "good" fasta file may have dozens
>> of millions of nucleobases, one example here:
>> http://www.sanger.ac.uk/Software/analysis/projector/projector_test_set.fasta
>
> You could still usefully store only the counts for substrings that end on
> a multiple of 100 (or 1000). That would take only 1 (0.1) % of the full
> storage, but you'd need to re-scan only relatively short strings for
> an exact count.
superb!
bugbear
------------------------------
Date: Mon, 2 Jul 2007 07:20:00 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: The $a have any special meanning ?
Message-Id: <slrnf8h2o0.rif.hjp-usenet2@zeno.hjp.at>
On 2007-07-02 02:31, Petr Vileta <stoupa@practisoft.cz> wrote:
> Tad McClellan wrote:
>> Petr Vileta <stoupa@practisoft.cz> wrote:
>>> I use 5.6.1
>>
> heh, I expected this ;-)
>
>> A lot has happened in the last 6 years.
>>
> Yes, I know but Perl 5.8.0 looked as any version of Windows - it is stable
> and usable 2-3 years after releasing :-) Windows98 was be usable in year
> 2000, WinXP was be usable in year 2005, Windows Vista will be usable in year
> 2009? And Perl 5.8.x ? Yes, version 5.8.8 is usable with small problems and
> version 5.8.10 will be stable as 5.6.1 is now :-)
>
Huh? Software doesn't get more usable just with time. It needs to be
fixed. perl 5.6.1 hasn't seen any fixes in the last 6 years and was
released only one year after 5.6.0, so it can't be usable by your own
definition. The perl 5.8.x series OTOH is now 5 years old and should
have reached usable status per your "2-3 years" definition with release
5.8.5.
Perl 5.6.x is actually getting less usable as module authors stop
worrying about compatibility with it.
hp
--
_ | Peter J. Holzer | I know I'd be respectful of a pirate
|_|_) | Sysadmin WSR | with an emu on his shoulder.
| | | hjp@hjp.at |
__/ | http://www.hjp.at/ | -- Sam in "Freefall"
------------------------------
Date: Mon, 02 Jul 2007 10:27:55 +0100
From: bugbear <bugbear@trim_papermule.co.uk_trim>
Subject: Re: The $a have any special meanning ?
Message-Id: <4688c51b$0$8739$ed2619ec@ptn-nntp-reader02.plus.net>
Peter Wyzl wrote:
>
> $a and $b are special reserved variables used in sorting. perldoc -f sort
>
> You can use them, but it is not good practice.
Would it be possible to get strict to complain about them
(neccessitating the use of local disabling
of strict if one were to use sort() ) ?
I assume strict at the moment is specially
coded not to bleat about them.
BugBear
------------------------------
Date: Mon, 02 Jul 2007 10:55:53 GMT
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: Unlocking and reenabling a local account on multiple machines
Message-Id: <slrnf8hma9.c5a.tadmc@tadmc30.sbcglobal.net>
Simon <shmh@bigpond.net.au> wrote:
> Hi guys!
> Hope you can help.
Not without knowing what operating system is managing the accounts we can't.
> I have a file containing a list of computer names.
>
> Each computer has a local account called "admin01".
> Through perl, Id like to check to see if the account is disabled, and locked
> out, and if so, to unlock the account and reenable it.
How would you do that without Perl? (ie. manually)
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Mon, 02 Jul 2007 13:57:10 +0200
From: Thomas Kratz <ThomasKratz@REMOVEwebCAPS.de>
Subject: Re: Unlocking and reenabling a local account on multiple machines
Message-Id: <4688e816$0$2569$bb690d87@news.main-rheiner.de>
Simon wrote:
> Hi guys!
> Hope you can help.
As Tad already mentioned, you should state the OS you seeking help for.
Anyway I'll take the liberty of assuming Win32. Of course I may be
wrong, your problem :-)
> I have a file containing a list of computer names.
>
> Each computer has a local account called "admin01".
> Through perl, Id like to check to see if the account is disabled, and locked
> out, and if so, to unlock the account and reenable it.
>
> I know how to write the script for connecting to machines and
> authenticating, but getting stuck on the reenabling and unlocking the
> accounts.
Have a look at Win32::Lanman::NetUserSetInfo. You have to reset
the UF_ACCOUNTDISABLE flag.
Or do it with ADSI through the Win32::OLE module.
You'll have to read the docs anyway.
Thomas
--
$/=$,,$_=<DATA>,s,(.*),$1,see;__END__
s,^(.*\043),,mg,@_=map{[split'']}split;{#>J~.>_an~>>e~......>r~
$_=$_[$%][$"];y,<~>^,-++-,?{$/=--$|?'"':#..u.t.^.o.P.r.>ha~.e..
'%',s,(.),\$$/$1=1,,$;=$_}:/\w/?{y,_, ,,#..>s^~ht<._..._..c....
print}:y,.,,||last,,,,,,$_=$;;eval,redo}#.....>.e.r^.>l^..>k^.-
------------------------------
Date: Mon, 02 Jul 2007 12:46:07 GMT
From: "Simon" <shmh@bigpond.net.au>
Subject: Re: Unlocking and reenabling a local account on multiple machines
Message-Id: <js6ii.2200$4A1.1643@news-server.bigpond.net.au>
Im running ActiveState Perl on Windows NT
"Tad McClellan" <tadmc@seesig.invalid> wrote in message
news:slrnf8hma9.c5a.tadmc@tadmc30.sbcglobal.net...
> Simon <shmh@bigpond.net.au> wrote:
>> Hi guys!
>> Hope you can help.
>
>
> Not without knowing what operating system is managing the accounts we
> can't.
>
>
>> I have a file containing a list of computer names.
>>
>> Each computer has a local account called "admin01".
>> Through perl, Id like to check to see if the account is disabled, and
>> locked
>> out, and if so, to unlock the account and reenable it.
>
>
> How would you do that without Perl? (ie. manually)
>
>
> --
> Tad McClellan
> email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Mon, 02 Jul 2007 04:36:56 GMT
From: "John W. Krahn" <dummy@example.com>
Subject: Re: unlurking
Message-Id: <Ih%hi.5362$Io4.1967@edtnps89>
Tad McClellan wrote:
>
> Wade Ward <invalid@invalid.nyet> wrote:
>>
>> I was
>> also unsure whether __END__ was part of the script or a way of saying "stop
>> snipping here" on a usenet message.
>
> It can be both.
>
> It tells the perl interpreter to ignore anything below it.
>
> perldoc perldata
Also see the -x command line switch in:
perldoc perlrun
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
------------------------------
Date: Mon, 2 Jul 2007 01:50:53 -0400
From: "Wade Ward" <invalid@invalid.nyet>
Subject: Re: unlurking
Message-Id: <vP-dnTW1wJbkDxXbnZ2dnUVZ_vKunZ2d@comcast.com>
"Tad McClellan" <tadmc@seesig.invalid> wrote in message
news:slrnf8gpco.6et.tadmc@tadmc30.sbcglobal.net...
> Wade Ward <invalid@invalid.nyet> wrote:
>>
>> "Tad McClellan" <tadmc@seesig.invalid> wrote in message
>> news:slrnf8gge1.4s6.tadmc@tadmc30.sbcglobal.net...
>>> Wade Ward <invalid@invalid.nyet> wrote:
>>>> "John Mason Jr" <notvalid@cox.net.invalid> wrote in message
>>>> news:138g2bj4v0dm579@news.supernews.com...
>>>
>>> [ snip 55 lines not necessary for context ]
>> I didn't imagine to have editorial privileges in a forum where I count as
>> outsider.
>
>
> If you post, then you are no longer an outsider. :-)
>
> Have you seen the Posting Guidelines that are posted here frequently?
I read them carefully with fresh eyes. This entails that I read it, with
interest, a couple months back, so sans refreshment I would say that my data
is at least a couple months old. I don't have anything topical to post to
the Perl Programming Language. This was a sig tonight in comp.lang.c:
# begin excerpt
Dave Vandervies
dj3vande@csclub.uwaterloo.ca
I thought it might be a syntax error (given that a keyword is being used in
the
wrong place), but every time I say "syntax error" in this newsgroup I get
jumped on by half a dozen people with sharp teeth. --Richard Heathfield in
CLC
# end excerpt
I have to read about NNTP before my eyes sue me.
--
WW
------------------------------
Date: Mon, 2 Jul 2007 02:06:26 -0400
From: "Wade Ward" <invalid@invalid.nyet>
Subject: Re: unlurking
Message-Id: <BeOdnV0S_oCDCxXbnZ2dnUVZ_gGdnZ2d@comcast.com>
"Scott Bryce" <sbryce@scottbryce.com> wrote in message
news:sKudnR-Nm_42uhrbnZ2dnUVZ_v-tnZ2d@comcast.com...
> <code snipped>
>
> Wade Ward wrote:
>
>> A cursory view would lead me to believe that that's darn close. Now I
>> have to embarrass myself by bringing up my failures in understanding,
>> categorically. Best to sleep on it.
>
> Even better to read the docs for Net::NNTP. In the morning, perhaps?
>
> http://search.cpan.org/~gbarr/libnet-1.21/Net/NNTP.pm
>
>> --
>> WW
>
> Your sig separator is incorrect. It should be hyphen hyphen space return.
Noted.
#begin excerpt
newgroups ( SINCE [, DISTRIBUTIONS ])
SINCE is a time value and DISTRIBUTIONS is either a distribution pattern or
a reference to a list of distribution patterns. The result is the same as
list, but the groups return will be limited to those created after SINCE
and, if specified, in one of the distribution areas in DISTRIBUTIONS
group ( [ GROUP ] )
Set and/or get the current group. If GROUP is not given then information is
returned on the current group.
In a scalar context it returns the group name.
In an array context the return value is a list containing, the number of
articles in the group, the number of the first article, the number of the
last article and the group name.
#end excerpt
My guess is that my notion of a group is different from what Perlites(?)
think it is. I included "newgroups" because I thought it read "newsgroups."
Tja.
--
WW
--
--
------------------------------
Date: Mon, 02 Jul 2007 10:55:53 GMT
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: unlurking
Message-Id: <slrnf8hl3c.c5a.tadmc@tadmc30.sbcglobal.net>
Wade Ward <invalid@invalid.nyet> wrote:
>
> "Tad McClellan" <tadmc@seesig.invalid> wrote in message
> news:slrnf8gpco.6et.tadmc@tadmc30.sbcglobal.net...
>> Wade Ward <invalid@invalid.nyet> wrote:
>>>
>>> "Tad McClellan" <tadmc@seesig.invalid> wrote in message
>>> news:slrnf8gge1.4s6.tadmc@tadmc30.sbcglobal.net...
>>>> Wade Ward <invalid@invalid.nyet> wrote:
>>>>> "John Mason Jr" <notvalid@cox.net.invalid> wrote in message
>>>>> news:138g2bj4v0dm579@news.supernews.com...
>>>>
>>>> [ snip 55 lines not necessary for context ]
>>> I didn't imagine to have editorial privileges in a forum where I count as
>>> outsider.
>>
>>
>> If you post, then you are no longer an outsider. :-)
>>
>> Have you seen the Posting Guidelines that are posted here frequently?
> I read them carefully with fresh eyes. This entails that I read it, with
> interest, a couple months back, so sans refreshment I would say that my data
> is at least a couple months old.
It has had
quote only enough text to establish the context for the comments
in it for many years.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
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 609
**************************************
