- Original Message -
From: "Joe Schell" <[EMAIL PROTECTED]>
>
> First the case can be reduced.
>
> my $base = 16777216;
> my $result;
>
> my $num1 = 1219;
> my $num2 = 219;
> my $num3 = 218;
>
>
> $result = ($num1 % 1000) * 16777216;
> print "number1 = $result\n";
> $result = ($num3 + 1)
Hi all,
I have written following code manipulating windows registry
use Win32API::Registry qw(:ALL);my $keyName;my ($key , $type , $data);my $err = 0;my $keyIndex = 0, $keyNameSize = 0;
RegOpenKeyEx( HKEY_LOCAL_MACHINE ,
"SYSTEM\\CurrentCont
Hello!
I am trying to get user information from a Japanese NT Domain
Controller machine using the following Perl script with ActivePerl
Build 631:
use Win32API::Net;
my %Users;
my $UserCount = 0;
if (Win32API::Net::UserEnum("machine", \@Users,
Win32API::Net::FILTER_NORMAL_ACCOUNT()) == 0)
{
pr
ODBC Connection Strings: (source: MSDN)
Microsoft Access
Driver={Microsoft Access Driver (*.mdb)};DBQ=physical path to .mdb file
SQL Server
DRIVER={SQL Server};SERVER=path to server
Oracle
DRIVER={Microsoft ODBC for Oracle};SERVER=path to server
Microsoft Excel
[EMAIL PROTECTED] wrote:
> I'm not even sure how to describe this one. I would like to know if there
> is a way to discover what kind of return value a subroutine will return. I
> know you can use wantarray() within a sub to determine it's context, and
> return the expected type (list, scalar),
> -Original Message-
> Behalf Of [EMAIL PROTECTED]
>
>
> I'm not even sure how to describe this one. I would like to know if there
> is a way to discover what kind of return value a subroutine will
> return.
Have you looked at the perl function 'ref'?
_
I'm not even sure how to describe this one. I would like to know if there
is a way to discover what kind of return value a subroutine will return. I
know you can use wantarray() within a sub to determine it's context, and
return the expected type (list, scalar), but I need to call a subroutine
w
Hello,
I'd appreciate some help with some problems I'm having with getting a
service running using the win32::Daemon module. I've inserted the subroutine
that is called to run the service and the subsequent log file entries. Prior
to adding the check for SERVICE_NOT_READY, there was no indication
$registry is an object containing a $fh filehandle that it is open for
appending, and a collection of anonymous $msg objects. Each $msg object
contains an anonymous $body object and each $body contains an array of
hashes that describe each MIME part of the message.
A method in the body object nee
[EMAIL PROTECTED] wrote:
> It seems that the ++ [in a regular expression] causes
> problems (which I understand). Is there a way to tell
> Perl to handle the ++ as a string rather than an operator?
Yes.
Oh. You want to know how?
If you read "perlre" in the documentation which
[EMAIL PROTECTED] wrote:
> Hi,
>
> I am trying to match a filename (C++UserGuideIX.html)
> using the following pattern:
>
> if (/(.*)<(A|a) (HREF|href)="$from(.*)"(.*)>(.*)/)
>
> Nested quantifiers before HERE mark in regex m/(.*)<(A|a) (HREF|href)="./C++ << HERE
>UserGuideIX.html(.*)"(.*)>(.
Hi all. I just started playing around with the IniFile module, and was
wondering if anyone else had noticed issues when using it in a script that
uses warnings. I have only tried a very small example script:
#!perl -w
use IniFile;
$ini = new IniFile('system.ini');
$path = $ini->get(['system', '
How on earth can I be removed from this distribution list. All of my attempts are
failing.
Ken Kirkwood
ISD Telecommunications
Pier 1 imports, Inc.
817-252-8190
-Original Message-
From: Investor [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, February 06, 2002 2:45 PM
To: [EMAIL PROTECT
Hi,
I am trying to match a filename (C++UserGuideIX.html)
using the following pattern:
if (/(.*)<(A|a) (HREF|href)="$from(.*)"(.*)>(.*)/)
Nested quantifiers before HERE mark in regex m/(.*)<(A|a) (HREF|href)="./C++ << HERE
UserGuideIX.html(.*)"(.*)>(.*)/
It seems that the ++ causes problems (
>
> Hi
>
> I have a macro named
> "PERSONAL.XLS!specific_conditions"
> stored in the personal.xls workbook.
>
> I create another workbook with perl & OLE, but
> I can't seem to run the macro?
>
> If anyone has done this before please let me know ..
> thanks so much
>
>
> =
> Regards,
>
Title: RE: Win32::OLE question
It's easier if you setup an ODBC connection( say "MYFOXDB") using the FoxPro driver( with Control Panel->ODBC).
Then you can simply connect like below.
my $Conn = Win32::OLE->new("ADODB.Connection");
my $RS = Win32::OLE->new("ADODB.Recordset");
$ConnectionS
I have a Foxpro file table that I want to access using win32::OLE. I use the
module to connect my script to an access database. I want to know the what I
have to write in the connection string. I use this code to connect to the
Access database:
my $Conn = Win32::OLE->new("ADODB.Connection");
my $
Thomas,
You are right and again I thank you.
Unfortunately the script went on and came up with
Cannot open generic HTML Template ./system_db_html/ezdb_template.html so I
have been trying with my limited knowledge to figure out what it is and it
seems like a windows flock() issue.
Thank You & G
On Wed, 6 Feb 2002 [EMAIL PROTECTED] wrote:
> Hi!
>
> I wanted to know if there is a way to embed Perl code inside VisualBasic.
>
Yes.
[EMAIL PROTECTED]
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-U
On Wed, 6 Feb 2002, [iso-8859-1] Thomas Bätzler wrote:
> Malcolm Debono [mailto:[EMAIL PROTECTED]] asked:
> > I know what an array is, I know how a script runs through an
> > array, what I don't understand is where the @INC array is
> > and if it is possible how do I add to this array because
>
20 matches
Mail list logo
