Hello all,
I'm relatively new to perl, so please be kind :)
I'm trying to schedule some jobs on a bunch of win2k/2003 boxes. I have
the following VBscript that I'm trying to convert to perl:
option Explicit
Dim objWMIService, objNewJob, errJobCreated, JobID
Set objWMIService = GetObject("winmg
I've read the FAQ's on this, but they don't seem to answer the question.
I have a variable that could contain any value( alpha, alpha-numeric, or
numeric). If the value is NOT numeric, I need to change the variables' value
to "0"( as in zero ).
Examples:
$txtype="2.314"; # is numeric, so keep t
Is it possible to do a "glob" on a directory and get a list of files with a
certain extension( *.txt ) and also for a specific modification time?
I'm current doing:
my @file_list=glob("c:\\rawdata\\*.txt");
But I only want to get files modified on a certain date.
Jeff
__
Using a DBI:ODBC DSN-less connection to an Access DB( Access 2000 ), how do
I get the the names of all tables contained in the DB? I tried to query
MSysObjects, but I'm getting a permission's error.
Here's my connect string:
my $dbh = DBI->connect("dbi:ODBC:driver=Microsoft Access Driver
->Quit;
> }
>
> TIA
> Stephen Patterson
>
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe:
http://listserv.ActiveState.com/mailman/mysubs
=
---
rint:
> Win32::OLE->LastError"; #
> line 29
> $word->Quit;
> }
>
> TIA
> Stephen Patterson
>
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe:
http://listserv.ActiveState.com/
don't write scripts
that are used by the general public -- only
co-workers. And if they enter 'rm -rf *', it's their
own machine that they are hosing. :)
=====
Jeffrey Hottle
nkuvu at monkey yaho
>
> Any ideas? Any suggestions? Any better way to do
> this? Any better documentation on these two
> functions? I am still searching and thought I'd try
> here.
>
> Thanks in advance!
>
> Nicole Amashta
> Web Application Development
>
>
>
=
Jeffrey
"";
>
> my $Outlook = Win32::OLE->new('Outlook.Application',
> 'Quit') ||
> die "FATAL ERROR: Cannot open Outlook!\n",
> Win32::OLE->LastError;
> my $ol = Win32::OLE::Const->Load($Outlook);
> my $namespace = $Outlook->Ge
gt; Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe:
http://listserv.ActiveState.com/mailman/mysubs
=
Jeffrey Hottle
nkuvu at monkey yahoo dot com
(remove the animal to email me!)
--- Martin Moss <[EMAIL PROTECTED]> wrote:
> Tk::DirTree
Original post:
> > DirTree does this, but does not match the
> "Windows" look of
> > getOpenFile. Any ideas?
I think someone missed reaading a sentence here. ;)
=
---------
, since I can't guarantee that any specific
software package is installed.
Thanks.
=
--------
Jeffrey Hottle
nkuvu at monkey yahoo dot com
(remove the animal to email me!)
__
Do You Yahoo!?
Try FREE Yahoo! Mai
in that.
Win32::OLE is best if this won't be a cross-platform
script. SpreadSheet::ParseExcel and
SpreadSheet::WriteExcel are better solutions for
cross-platform work.
=
--------
Jeffrey Hottle
nkuvu at monkey yahoo dot
$1)/ige;
Semi-Off topic question. What's the advantage of an
'anonymous' sub? You still have to call it by name,
and add the &$, right?
Should I just RTFM? :) (Hint: I'm not sure where to
look this up)
=
hat...
Thanks.
=
--------
Jeffrey Hottle
nkuvu at monkey yahoo dot com
(remove the animal to email me!)
__
Do You Yahoo!?
Try FREE Yahoo! Mail - the world's greatest free email!
http://mail.yahoo.com/
___
Perl-Win32
dition to extension). The SaveAs works
if I specify the filename only -- but it doesn't save
to a CSV file, it just renames it.
Anyone have ideas (preferably regarding this subject)?
=
Jeffrey Hottle
nkuvu at monkey
Does any know where I can find a script to calculate the distance between 2
seperate latitudes and longitudes?
Jeff
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
with the if-elsif chain you can OR your
conditions.
Is there another situation where fall-through is
desired? Most sanity checkers (a la Lint) have a
default warning about fall-through.
=
Jeffrey Hottle
nkuvu at monkey yahoo dot com
(remove the animal to email me
ching string.
>
> Thus a Case Statement, IMHO, would be the best
> possible solution - with
> my current knowledge...
>
> :)
>
> TIA!!
>
> Chris
>
>
> _______
> Perl-Win32-Users mailing list
> [EMAIL PRO
You'll probably want to
s/Jan/Jenda/ here:
--- "Krummel, James C - PGGC-6" <[EMAIL PROTECTED]>
> I have been using Jan Krynicky Mail::Sender for
> years. It is easy and works
> great.
=
--------
Jeffrey Hottle
nkuvu at monkey ya
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe:
http://listserv.ActiveState.com/mailman/mysubs
=
Jeffrey Hottle
nkuvu at monkey yahoo dot com
(remove the animal to email me!)
___
h".
Ooh, look, another nit to pick! Quick, after it! ;)
=
----
Jeffrey Hottle
nkuvu at yahoo dot com
__
Do You Yahoo!?
Yahoo! Sports - Coverage of the 2002 Olympic G
else {
> > print("FALSE\n");
> > }
> >
>
> And what does it print when you take out the first
> line, i.e.
> when $var is not defined.
=
Jeffrey Hottle
nkuvu at yah
he 2002 Olympic Games
> http://sports.yahoo.com
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe:
http://listserv.ActiveState.com/mailman/mysubs
=
Jeffrey Ho
s are with the execute
> and read permissions.
> I get a little lost in that area. Any advice?
>
>
> James
>
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe:
http://listserv.ActiveState.com/mai
o unsubscribe:
> http://listserv.ActiveState.com/mailman/mysubs
>
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe:
http://listserv.ActiveState.com/mailman/mysubs
=
-
series of if/elsif's.
>
> Dirk Bremer - Systems Programmer II - ESS/AMS -
> NISC St. Peters
> 636-922-9158 ext. 652 fax 636-447-4471
>
> [EMAIL PROTECTED]
> www.nisc.cc
>
>
> ___
> Perl-Win32-Users mailing
elf=shift;
> > (doesn't have to be the first line, but it must
> be the first shift;
> > I would use Data::Dumper in your code and do a
> >
> > print STDERR Dumper($self);
> >
> > at various points.
> >
> > Also make sure you haven't redefined $self locally
>
nce or a
> general way to call
> Excel Menu commands from OLE from within PERL?
>
> Thanks,
> Daniel
>
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe:
http://listserv.ActiveState.com/mailma
ve no idea what the
author expected it to hold, either.
I really dislike Rational's Perl coders...
Thanks for the responses, but don't bother with this
much more, since I don't think that even the author
knew what the script was trying to do.
=
-
sonally wouldn't
write it that way, but it does at least make sense).
What I am wondering about the most is the ; between
the "" and the if.
BTW, this is slightly OT, since this is a script from
Rational -- to be run with ccperl, not AS Perl.
Thanks for any enlightenment.
=
directory
that the script was called from.
The FindBin module will give you the script's actual
directory.
=
--------
Jeffrey Hottle
nkuvu at yahoo dot com
__
Do You Yahoo!?
Yahoo! Sports - Coverage of the 2002
r a
> reliable count)
>
> I assume that the error is coming from the test2
> sub. When run without the benchmark, I get no
> errors. Why does test2 generate this
> error?
>
> Dirk Bremer - Systems Programmer II - ESS/AMS -
> NISC St. Peters
> 636-922-9158 ext. 652 fax 636-447-4471
>
ly thing it
mentions is that if you haven't saved the workbook,
Excel asks if it should be saved (unless DisplayAlerts
is false).
Since I am completely unfamiliar with the code in
Win32::OLE, do you think it is more likely a problem
with MS or the Win32::OLE module?
=
**
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe:
http://listserv.ActiveState.com/mailman/mysubs
=
---
an't find reference to wq anywhere.
=
----
Jeffrey Hottle
nkuvu at yahoo dot com
__
Do You Yahoo!?
Great stuff seeking new owners in Yahoo! Auctions!
http://auctions.yahoo.com
___
Perl-Wi
d from volumes where
>stgpool_name=\'$Pool\'and (status=\'FULL\' or
>status=\'FILLING\') and
>access\<\>\'OFFSITE\' order by volume_name`);
=
Jeffrey Hottle
nkuvu at yahoo dot com
_
ILE_LOCATION/DF_$catname.dat");
>
> while () {
> push (@items, $_) if ($counter ne $id);
>
> $counter++;
> }
>
> Roy
> [EMAIL PROTECTED]
> ___
> Perl-Win32-Users mailing
gt; autovivification?
>
> Is this described in the Camel book?
>
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
>
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
=
--
t; Dan.
> _______
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
>
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
=
Jeffrey Hottle
nkuvu at yahoo dot com
__
_
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
>
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
=
Jeffrey Hottle
nkuvu at yahoo dot com
__
Do You Yahoo!?
Send FREE video emails in Yahoo! Mail!
lk to VSlick? It is conceivable
that I search through all of the .h files for the
project, but there are a LOT of files. Large project.
I've already searched CPAN for vslick, with no luck.
TIA
=
--------
Jeffrey Hottle
nkuvu at yah
x27;, 'Quit'));
>
> You want to use '||' instead.
>
> Try this:
>
> my $Excel =
> Win32::OLE->GetActiveObject('Excel.Application')
> || Win32::OLE->new('Excel.Application', '
mands still work fine. This
is a new script, meaning that I typed everything in
properly (no hidden garbage characters), but these are
commands I have used many many times.
Does anyone have any insightful or generally useful
ideas? I'm stumped.
=
Jeff
ded for informational purposes and
> should not be
> construed as a solicitation or offer to buy or sell
> any securities or
> related financial instruments.
>
> _______
> Perl-Win32-Users mail
TECTED]
>
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
=
Jeffrey Hottle
nkuvu at yahoo dot com
__
Do You Yahoo!?
Send FREE video emails in Yahoo! Mail!
http://promo.yahoo.com/videomail
T "Play"
> >
> > I don't know if it is OLE telling me that the
> parameter is not optional,
> > or if OLE is just relaying a message from the
> "Play" function...
> >
> > ==Doug Claar
> > ___
> > Perl-Win32-
great.
>
> Rob
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
>
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
=
Jeffrey Hottle
nkuvu at yahoo dot com
course. I should have remembered this, but
apparently I wasn't thinking too clearly about it.
Thanks for the explanation.
=
Jeffrey Hottle
nkuvu at yahoo dot com
__
Do You Yahoo!?
Yahoo! GeoCities - quick and easy web site
hat should be easily handled by user
> configuration ?
Uhh, is the answer Microsoft..? ;)
=
Jeffrey Hottle
nkuvu at yahoo dot com
__
Do You Yahoo!?
Yahoo! GeoCities - quick and easy web site hosting, just $8.95/month.
http://geocities.yahoo.co
use the original regex matches all the way from
> the beginning (^) to the
> end ($) of the string, I felt I should do so as
> well. I don't know the ins
> and outs of the data Scott might be running through
> it; he might have a good
> reason for insisting the input string
D.+$/;
> my $tmp = $1;
> $tmp = sprintf("%.3d", $tmp); // not doing its
> job properly.
> print "$tmp is tmp\n";
>
> }
>
>
>
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
>
http://lis
; evaluating
> the string, and then exits. Yuck.
>
> Regards
>
> Nick Djurovich
>
> Software Development Manager
> mediaMailGroup
> Colchester
> UK
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
ts freeware variants. UltraEdit is only
> $30 and worth every
> penny.
=
Jeffrey
[EMAIL PROTECTED]
__
Do You Yahoo!?
Find a job, post your resume.
http://careers.yahoo.com
s
> @rowCol = ("A","B","C","D");
As a side note, you can do away with this array -- the
Cells object also accepts one-based column numbers.
(i.e., column B is 2). This might give you a trivial
speed gain...
=
Je
t;[EMAIL PROTECTED]> wrote:
> you need to escape all of the /'s in your path with
> in
> the match
>
> /^\/bootp\/linux\//;
=====
----
Jeffrey
[EMAIL PROTECTED]
__
Do You Yahoo!?
Make a g
e to match theses lines
>
> I tried this while () {
> chomp();
> /^\/bootp/linux/\/
>
> but it doesn't work how can I do ?
>
> Thanks.
>
>
>
>
>
>
>
>
>
>
>
> ____
A number of people have sent me email mentioning that
the docs contain all. Please stop. It is quite
obvious that I didn't understand the docs. I am so
sorry that I bothered everyone on the list with my
trivial question.
=
Jeffrey
[EMAIL PROT
> each file located by
> find() is "wanted".
=
Jeffrey
[EMAIL PROTECTED]
__
Do You Yahoo!?
NEW from Yahoo! GeoCities - quick and easy web site host
The code that I am working with is simple:
use File::Find;
find (\&wanted, "*.txt"); #various patterns tried here
sub wanted
{
print "Found $_\n";
}
=
----
Jeffrey
[EMAIL PROTECTED]
___
ng for -- I want the filenames, not
the contents.
TIA
=
----
Jeffrey
[EMAIL PROTECTED]
__
Do You Yahoo!?
NEW from Yahoo! GeoCities - quick and easy web site hosting, just $8.95/month.
http://geocitie
the chart like this:
>
> $chart = $Book->Charts->Add
>
>
> the chart ends up on its own sheet until calling the
> location method to
> move it
>
>
> tia ( I hope),
> Paul
>
> ______
res->ShapeRange->ScaleWidth(0.4,
> 0, 0);
>
>
$Excel->ActiveSheet->Pictures->ShapeRange->ScaleHeight(0.4,
> 0, 0);
>
>
$Excel->ActiveSheet->Pictures->ShapeRange->IncrementLeft(-3.75);
>
>
$Excel->ActiveSheet->Pictures->Sha
;
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
>
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
=
Jeffrey
[EMAIL PROTECTED]
_
I have a string that was read from a file( in BINMODE ).
After I read from the file, I store the string in a variable
called $line. Right after that, I do a substitution to get
rid of any leading characters that are hex 00( "\x00" )
$line=~s/^\x00+//;
Sometimes, there can be anywhere fro
I have been using the "system" method for quite some time and it seems to
work very well.
$var1="something";
$var2="something else";
system "c:\\perl\\scripts\\mytest.pl $var1 $var2";
> -Original Message-
> From: Dirk Bremer [SMTP:[EMAIL PROTECTED]]
> Sent: Monday, March 05, 2001 10:43
66 matches
Mail list logo
