Where can I find DBD::ADO ppm package for Perl 5.8? It does not seem to be in
the ActiveState repository
(http://ppm4.activestate.com/MSWin32-x86/5.8/822/package.xml).
I am receiving this error after upgrading from Perl 5.6 to 5.8.
install_driver(ADO) failed: Can't locate DBD/ADO.pm in @INC
Where can I find DBD::ADO ppm package for Perl 5.8? It does not seem to be in
the ActiveState repository
Never mind: user error.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe:
The below small pice of code when excutred gives me the o/p for the current
loggen in user as
username: CN=userid,OU=Users,OU=xyz,OU=abcd,DC=in,DC=abcdef,DC=com .
I need this info for another user .. Not the current loggen in user. How do I
do it.
Thanks in Advance for the help
---
Microsoft has told me that the Win32-Lanman API will continue to exist
in all flavors of Windows 2008. This being the case and to avoid a
large amount of code rewrites, shouldn't Win32::Lanman be updated to
work with Perl 5.10?
I have sent email to the author, but have not received any replies
Using Win32::OLE to create an ADO object and then query Active Directory
using an LDAP query the last field returned contains the additional text
of ;Subtree; in the fields name.
My query string:
LDAP://OU=Business_Functions,OU=Global
Removing the trailing semi-colon did the trick.
From: Howard Tanner [mailto:[EMAIL PROTECTED]
It's been a while, so I looked it up. From MS:
LDAP://DC=Fabrikam,DC=com;(objectClass=*);AdsPath, cn;subTree
So remove the space before subTree and the
I have a Perl 5.10 PerlSvc program compiled using PDK 7.1 executing in a
32-bit Windows environment that does not leak. The same program when
placed on two different x64 servers is exhibiting a memory leak
condition.
Are any of modules listed below known to have issues in an x64
environment?
In the script example, which I want to be executed as a PDK PerlSvc
program (Win32 Service), the accept() method is blocking.
Is there another module or a technique that I could use to eliminate the
blocking and have the loop continue so that if the service control
manager sends a STOP to the
Sorry more info:
I am using: Binary build 820 [274739] provided by ActiveState
http://www.ActiveState.com Built Jan 23 2007 15:57:46
---
I have a short program that extracts text file from a .gz archive using
Compress::ZLIB.
Using while ($gz-gzreadline($line) 0) I read
I have a short program that extracts text file from a .gz archive using
Compress::ZLIB.
Using while ($gz-gzreadline($line) 0) I read each line, potential
process it, then write the line to a new file.
If print the length of $line it show a length of the text plus two
characters for 0D and 0A.
but do see how that
is relevant to literal printing strings.
[Bullock, Howard A.]
Sorry more info:
I am using: Binary build 820 [274739] provided by ActiveState
http://www.ActiveState.com Built Jan 23 2007 15:57:46
---
I have a short program that extracts text file from
I have stripped my PerlSvc program to a minimal MIME::Lite email
program. Using a firewall I blocked access to the mailhost and tested
the eval code as both of you suggested and then using an if block to
check [EMAIL PROTECTED]
The croak was indeed trapped using the syntax:
eval
Did you try the below as a success test ? :
if ($msg-last_send_successful) {
print message successful\n;
} else {
print message not successful\n;
}
No, I did not try that. That method (last_send_successful) is not shown
in my local MIME::Lite docs, but I did find it mentioned on
Can't locate object method last_send_successful via package
MIME::Lite at ReplWatcherCroakTest.pl line 169.
I see that I have version 3.01 from the ActiveState repository and that
the version on CPAN is now 3.01_05. I do not plan on upgrading until a
newer version is available via ppm from the
I use MIME::Lite for sending email from my programs. If the mail server
can not be contacted the following MIME::Lite code causes a fatal error
aborting my process.
### Create SMTP client:
require Net::SMTP;
my $smtp = MIME::Lite::SMTP-new(@args)
or Carp::croak(Failed to connect to mail
, Howard A.]
I have working code using MIME::Lite...
[Bill Luebkert Wrote]
eval { $msg-send; };
if ($@) {
print Failed to send: $! ($^E);
} else {
print message sent\n;
}
[Bullock, Howard A.]
What is different about your code other than not placing the eval in
an if block? Is the missing
[Bill Wrote:]
I added 'use MIME::Lite;' (and dropped the Net::SMTP), used code I knew
to work with it and reversed your eval if testing $@ rather than the
return code from send (although that last item may work either way).
[Bullock, Howard A.]
I used MIME::Lite as stated in the original post
[Bill Wrote:]
I added 'use MIME::Lite;' (and dropped the Net::SMTP), used code I
knew
to work with it and reversed your eval if testing $@ rather than the
return code from send (although that last item may work either way).
[Bullock, Howard A.]
I used MIME::Lite as stated
From the Win32::ChangeNotify docs: the Win32 API which implements this
feature does not provide any indication of what triggered the
notification (as far as I know). If you're monitoring a directory for
file changes, and you need to know which file changed, you'll have to
find some other way of
How do I use UF_ACCOUNTDISABLE() to extract just the account
disabled flag? Thanks.
[Bullock, Howard A.]
my $UF_ACCOUNTDISABLE = $flags 2
my $UF_HOMEDIR_REQUIRED= $flags 8
my $UF_LOCKOUT = $flags16
I am using Archive::Zip to unzip large text file from archives created
by Freebyte Zip. This program (Freebyte Zip) seems to have a 2GB limit
when compressing files. The Archive file when viewed in both WinZip and
my Perl program show the uncompressed size as zero (0) bytes. My Perl
program
2.3.1.0 of freebyte creates files that show the
uncompressed size *correctly* in my (aging) version 13.0.0.0 of WinZip.
I
haven't tried with perl can you post a minimal perl script that
displays the problem Archive::Zip has in dealing with Freebyte-built
archives.
[Bullock, Howard
Test.Pl
The test script attempts to use both Win32::NetAdmin::LocalGroupAddUsers and
Win32::Lanman::NetLocalGroupAddMembers to add members to a specified group. But
the name of the group passed to the methods does not appear to be correct when
applied to the Hungarian.
Please review the
I bet this is the problem. The á character seems to be in unicode rather
than ascii. U can try directly inputting it with Alt+0225 or doing chr(225)
(or whatever it is in Hungarian encoding).
Thanks, I believe you may be correct in that some characters are not being
handled properly. But can
Scott wrote:
How can I incorporate the possibility of having a [ or ] in the user
input?
/^[a-zA-Z0-9-_. \[\]]+$/
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe:
Title: Missing IO::Scalar build 816
I use Config::IniHash in many programs. After upgrading to build 816 Komodo reported a problem with Config::IniHash. So I uninstalled Perl deleted the Perl directory and reinstalled and reinstalled Config::IniHash via VPM. The problem persisted. I opened
The regular expression in Perl works slower when the size of file is
bigger and we want to find the multilple patterns.
I disagree with your assessment. Testing this past weekend using 52
files 200MB to 1.9GB in size showed that FIND.EXE was substantially
slower than Perl RegEx. My tests show
I am still trying to learn to use the Win32::API module. This attempt is
listed below. I have the following questions:
1. The API wants the server name in UNICODE. I have looked at the
Unicode module docs but do not understand how they relate to this task.
How do I change my standard text name to
With the help of willem my new code follows. It returns zero (0) as the
return code but the buffer does not appear to contain the expected data.
Any additional insights would be appreciated.
Results:
Returncode = 0
tod_elapsedt = 388696 - this val always the same
tod_msecs= 0
tod_hours=
The list was originally omitted from the email.
[Bullock, Howard A.]
I have tried all sorts of interations. Perl 5.8.7.815 blows up every
time I execute memcpy-Call. At this point I am not sure where to go.
Can anyone confirm that this approach actually works?
Also, I checked the Win32::API
Is there a list with the requestable user-attributes or in general
attributes i can request from Active Directory?
Or is it possible with another perl-module to read more attributes out
of AD instead of NET::LDAP?
I would recommend using Win32::OLE and Microsoft ADSI
Thanks to both of you for the feedback. Unfortunately, I could get
neither to work. I did find a two call workaround using Win32::Lanman
methods. In the long run I really would like to understand how to get
this and other API calls to works. Thanks again.
From: Sisyphus [mailto:[EMAIL
Willem Wrote:
in my netapi32.dll there is no DsEnumerateDomainTrusts, it contains
a DsEnumerateDomainTrustsW and DsEnumerateDomainTrustsA version of this
call.
From the Win32::API docs:
Also note that many Win32 APIs are exported twice,
I can't seems to get the API call to work. Can someone give me some
guidance?
use Win32::API;
use strict;
my ($domains, $domaincount);
my $DsEnumerateDomainTrusts = new Win32::API('Netapi32',
'DsEnumerateDomainTrusts', 'PNPP', 'N');
if(not defined $DsEnumerateDomainTrusts) {
die Can't import
Why not use ...
Win32::GetOSVersion()
[CORE] Returns the list (STRING, MAJOR, MINOR, BUILD, ID), where the
elements are, respectively: An arbitrary descriptive string, the major
version number of the operating system, the minor version number, the
build number, and a digit indicating the actual
After reading the docs for the module I can find a way to manage an
exception thrown by the send method when the mailhost is down. The
program dies with the error Failed to connect to mail server: Invalid
argument. Is there a way to trap this error and let the program
continue? I would think that
'
);
MIME::Lite-send('smtp', $mailhost , Timeout=60);
eval {$msg-send;};
if ($@) {
print Message Failed\n;
print Error = '$@'\n;
}
else {
print Message Sent\n;
}
print last line\n;
[Bullock, Howard A.]
Thanks this solved the problem
Title: which encyption for Windows file 25MB
I think that I need Crypt::CBC and some encryption algorithm. Does anyone have any recommended modules for encrypting/decrypting a 25MB windows NTFS file?
___
Perl-Win32-Users mailing list
See
use File::Path; mkpath(['/foo/bar/baz', 'blurfl/quux'], 1, 0711); rmtree(['foo/bar/baz', 'blurfl/quux'], 1, 1);
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe:
I've installed 815 on Windows XP SP2 with 813 being previously
installed.
815 was installed according to the release/installation notes and I'm
not
experiencing this behavior.
[Bullock, Howard A.] ---
After removing Perl and following the manual deletion steps listed
Title: ActiveState Build 815
When viewing the HTML documentation in IExplorer.exe started from the Start menu, my browser only displays a limited numbers of pages when clicking on the links in the left pane. After a few clicks the links are just ignored. The files are all there and if I copy
Jan Wrote:
Did you do a clean install of 815 or did you install on top of an
existing install? I've seen at least one report that the HTML
doesn't display correctly if you installed on top of 813.
-
I have uninstalled build 811 and build 815. Then I reinstalled build
Title: Archive::Zip windows 2003
I created a ZIP file using Perl v5.8.6 Build 811 and Archive::Zip that was included in the ActiveState build on a Windows 2003 server. When I open the file on the server the OS shows no files in the archive. But if I copy the file to my client running XP SP1
Tom Pollard wrote:
use IO::Capture::Stderr;
$Bill Luebkert wrote:
Never saw that one before - thanks for the heads up - looks like an
excellent solution for this kinda problem.
[Bullock, Howard A.]
Tom, thank you very much for directing me to this module. It worked
great.
my $capture = IO
Title: Net::FTP capture Debug output
I am using Net::FTP module in a program. If I use Debug=1 the module output information to STDERR. I have seen many web pages and board posts about capturing STDERR from an external program does shell redirection. I do not see that as relevant when using
ideas?
[Bullock, Howard A.]
The Lanman.pm has these subroutine included that work well.
sub GuidToString
{
return sprintf %08X-%04X-%04X-%02X%02X-%02X%02X%02X%02X%02X%02X,
unpack(I, $_[0]),
unpack(S, substr($_[0], 4, 2)),
unpack(S, substr
use Compress::Zlib;
Compress::Zlib - Interface to zlib compression library
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Did you install the DBI module?
I have found that if you need to run your
program for an extended period of time and need to reconnect to your DB,
Win32::ODBC has a memory leak that can cause you problems.
Howard A. Bullock
Computer Security
Tyco Electronics
717-810-3584
You do not say what you want to do with
the line or the value for which you are searching. You also do specify if xx
is only numeric or not. But anyway
if ($String =~ /PSserver../){
#do something
}
if ($String =~ /PSserver\d\d/){
#do something
}
You should checkout
Title: Config::IniHash and Unicode INI file
Could someone give me a pointer to the methodology or relevant docs for using Config::IniHash with Perl 5.8.6 to read a Unicode INI file? The module read the file but the data contains all the nulls. Is there a way to convert the Unicode to
Success\n;
#}
#else {
#print Fail\n;
#}
}
my $DomainConfig = ReadINI (\$Data, \%ReadINIoptions);
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Bullock, Howard A.
Sent: Thursday, March 31, 2005 9:51
I apologize for the previous post that was sent prematurely.
After reading the IniHash.pm I found that I could pass The ReadINI method a
scalar reference.
So my solution is:
use Encode;
open(FH, :encoding(UTF-16), $file);
my $Data;
{
local $/;
$Data = FH;
I have recently installed Perl to v5.8.6 build 811 on a new laptop. In
attempting to duplicate my previous Perl configuration I installed
Config::IniHash via PPM from the ActiveState repository. Config::IniHash
includes the statement user IO::Scalar, but this module did not load with
Still curious why IO::Scalar is not listed at
http://ppm.activestate.com/BuildStatus/5.8-I.html, but now have it
installed.
-Original Message-
From: Bullock, Howard A.
Sent: Friday, January 28, 2005 9:31 AM
To: 'perl-win32-users@listserv.ActiveState.com'
Subject: IO::Scalar missing?
I
Title: Folder manipulation (Win32)
One method for doing this is documented in
the DirHog.pl at http://home.comcast.net/~habullock/Perlutilities.htm
From:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Conor Lillis
Sent: Friday, November 12, 2004
7:10 AM
To: [EMAIL
This is what I used to debug a Cisco
Telnet script.
$session = Net::Telnet::Cisco-new(
Host
= $host,
Errmode =
'return',
Input_log = $RootPath .
logs\\. $host . _input.log,
Output_log = $RootPath .
logs\\. $host . _output.log,
Dump_log =
$RootPath . logs\\. $host . _dump.log,
I am using Net::Telnet::Cisco. My program appears to wait for the prompt
except when issuing the wr command or copy running-config command.
Please see the dump.log output below.
The router: IOS (tm) 2500 Software (C2500-J-L), Version 11.2(14)
The cisco module methods seem to work well for
I may have mis-spoke about Perlapp 5.20 and @ARGV. It appears that I saw the
behavior with Perlsvc...
Bullock:
FYI: PerlSvc 4.1.2 parses the ImagePath for parameters which I capture
using
@ARGV.
Jan Dubois:
Weird! But I think it is working now with PerlSvc 5.0 to-be, so I just
may keep our own
Title: Message
This used to work for me too in earlier
versions of the PDK. But I think starting with PDK 5.2 you have to use the Getopt::Long
module.
sub get_options
{
require Getopt::Long;
my @options = @_;
my $usage = pop
@options;
$SIG{__WARN__} = sub {
print
Title: Capturing the output of a sytem() command
Try: @array = `command` using backticks.
STDOUT is sent to an array.
Howard A. Bullock
Global IT Infrastructure
717-810-3584
-Original Message-
From: George Gallen
[mailto:[EMAIL PROTECTED]
Sent: Monday, October 06,
My script slurps in a file
Local $/;
$data = FILE;
and want to remove the CRLF's. but even a simple RegEx match does not
succeed for me.
These all have failed.
print \nYES\n if $data =~ /\015\012/;
print \nYES\n if $data =~ /\015\012/s;
print \nYES\n if $data =~ /\x0D\x0A/;
print \nYES\n if
text file for this test as I am only perplexed by the
\x0D\x0A behavior.
-Original Message-
From: Peter Eisengrein [mailto:[EMAIL PROTECTED]
Sent: Wednesday, October 01, 2003 1:53 PM
To: Bullock, Howard A.; '[EMAIL PROTECTED]'
Subject: RE: RegEx to remove \x0D\x0A
Are you sure
For #1 and #2 below: The file has data. I have examined it in two different
Hex editors and printed it to the display.
For #3: my script has 'local $/'. Outlook though it was being helpful. :(
I guess a simple question is should this be working? If so, I will continue
to work with it.
, October 01, 2003 2:15 PM
To: Bullock, Howard A.
Subject: RE: RegEx to remove \x0D\x0A
Did you add these two lines after reading in the file?
print len=, length( $data ), \n;
print data='$data'\n;
Does the length equal the file size?
Do you see multiple lines?
Both of these would indicate
More testing shows that...
These two statements fail:
print \nYES\n if $data =~ /\x0D/s;
print \nYES\n if $data =~ /\x0d/s;
These two statements succeed:
print \nYES\n if $data =~ /\x0A/s;
print \nYES\n if $data =~ /\x0a/s;
As I stated before two different HEX editors show od oa sequences in my
Thank you for your help. Using binmode was indeed the solution.
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
: Bullock, Howard A.
Sent: Monday, June 23, 2003 8:36 PM
To: 'Everett, Toby'; [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Subject: RE: Fatal problem with Net::Ping
Thanks for the reply. I am currently testing the code as a typical program
not using the ActiveState PDK tools PerlSvc or Perlapp
I have use Net::Ping in a ActiveState PDK 5.10 PerlSvc.exe service. The
program fails after running and processing several thousand computers. I
have tracked the problem down to this statement:
my $ping = $p-ping($host,5);
in this subroutine:
sub PingHost
{
my $host = shift;
#my $p =
Title: List user account associated with Services
use Win32::Lanman;
if(!Win32::Lanman::QueryServiceConfig(,
'', 'browser', \%config))
{
print Sorry, something went wrong; error: ;
# get the error code
print Win32::Lanman::GetLastError();
exit 1;
}
for $key (sort keys %config)
Title: Creating directories
For Win32 try:
use File::Path; mkpath(['/foo/bar/baz', 'blurfl/quux'], 1, 0711); rmtree(['foo/bar/baz', 'blurfl/quux'], 1, 1);
Title: Convert int to bitstring
I want to convert int(255) to a string of 8 ones (). I have been trying to use unpack, but am missing something basic I think.
I was also playing with the following with less than successful results. What am I doing wrong? One guess was the the @mask
Since it is, in fact, eight bits, you can use chr(255) instead of pack.
Thanks to everyone that responded.
The above statement made the fog clear.
I wanted to count the set bits in a subnet mask so I started with:
$mymaskval = ($mask[0]24)|($mask[1]16)|($mask[2]8)|$mask[3];
and ended up
You could cheat a little instead of trying to do it with just a RE, use
an embeded tr/// or s///:
my $text = 'axxxccvvvacassdcxaswrefaejjawerassdcxaswrefaejhhaasera';
$text =~ s#s(.*?)e# my $x = $1; $x =~ tr/a/8/; sprintf 's%se', $x
#eg;
--
Thanks. The main problem I was having was I
, Debi (MED, TCS)
Cc: [EMAIL PROTECTED]; Bullock, Howard A.
Subject: Re: Please help: Out of Memory
On Thu, 31 Oct 2002, Mohanty, Debi (MED, TCS) wrote:
Hi Howard,
I tried to run the program with my 305MB file, but I got the
error saying Out Of memory.
The program I am using is
$/ = '@F
Title: RE: Terrible at my logic
sub GenRandomPW ($Length)
{
# This subroutine generate a
relatively strong random password of a specified length.
WriteLog($LogFile, Entered
GenRandomPW) if $DEBUG;
my $Length = shift;
my $password;
my @chars = ('A'..'H', 'K', 'M', 'N',
Title: Win32::ODBC
How does one call an Oracle Stored procedure that returns two values using Win32::ODBC and the Microsoft ODBC Drive for Oracle? I have been to MSDN and www.Roth.Net but can't seem to get this to work.
Howard A. Bullock
Global IT Infrastructure
717-810-3584
I am writing in the hope that someone can give me some pointers, code
snippets, or constructive discussion. My goal is to build an HTTP Win32
single function service that will monitor a specified port for one URL
request, gather client/browser info, build and return a proxy configuration
script
I have just looked through the documentation for HTTP and LWP but can not
find a way to interrogate the client for version etc. I would think that
that data would be in the header of the request.
use HTTP::Daemon;
use HTTP::Status;
my $d = HTTP::Daemon-new( LocalPort = 8080);
print Please
;
...
-Original Message-
From: Bullock, Howard A.
Sent: Monday, August 26, 2002 11:15 PM
To: '$Bill Luebkert'
Cc: perl win32 users
Subject: RE: HTTP::Daemon --Send client autoproxy?
I have just looked through the documentation for HTTP and LWP but can not
find a way to interrogate the client
I did not see this get posted so I am resending.
I'm working a little dilemma here. We have a Win2K Domain that is in mixed
mode (it can server both NT and 2K machines). I have a userid (i.e.
mydomain\username) and I'm trying to search the AD to get the full DN
(CN=username,OU=Lan
You
have a couple choices.
open
(pingname, "ping -a $ip |") || die "Can not ping";while ($line =
pingname){if ($line =~
/Pinging\s(\w*.\w*.\w*.\w*)\s/){return
$1;}else{if
($line =~
/Pinging\s(\w*-\w*.\w*.\w*.\w*)\s/){return
$1;}}}
OR
use
Net::Ping;
-Original Message-From:
Or:
print join ( , map {@array[$_]} @ARGV);
-Original Message-
From: Peter Eisengrein [mailto:[EMAIL PROTECTED]]
Sent: Monday, March 25, 2002 2:52 PM
To: Perl-Win32-Users Mailing List (E-mail)
Subject: array slice
The following:
### snip
$subset = join(,,@ARGV);
print
Only valid for test.pl 2 3 4
and not for test.pl 3..5 etc.
Or:
print join ( , map {@array[$_]} @ARGV);
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
The problem may lie in the fact that when the process is running there are
no current user credentials for it to use or that the process is running as
a different user than you expect.
Is there a way of checking who it thinks the current user is?
Thanks for reply. I am running the script in a
Although I would eventually like to understand this issue and be able to use
OpenDSObject if I wanted, but the issue has currently been by-passed by
using Win32::OLE-GetObject. This apparently used the default credentials. I
am not sure why I selected to use OpenDSObject other than I saw it used
This works for me using Lanman 1.0.9.1 and 1.0.9.2. What code are you
using? What errors are you getting? More info would help.
if(!Win32::Lanman::NetGroupSetUsers($PDC, $GrpAllowed, \@members1))
{
$^E = my $Error = Win32::Lanman::GetLastError();
LogText($AppPath\\$LogFile,
Check out the discussion of USER_FLAGS at :
http://www.roth.net/perl/adminmisc/#USER_FLAGS
-Original Message-
From: Geoffrey Leeming [mailto:[EMAIL PROTECTED]]
Sent: Monday, January 21, 2002 12:39 PM
To: [EMAIL PROTECTED]
Subject: Win32::Lanman disabled accounts
Can I use any of the
I am sure one of the experts can make these two regex lines into one, but
here it is..
$z = '001.022.003.040';
print $z\n;
$z =~ s/^0+//;
$z =~ s/\.0+/\./g;
print $z\n;
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
Based
on info from Microsoft an Outlook registry setting could stop viruses from
automatically executing when the Outlook preview pane is
active.
This
is Kixtart script code used in our logon script. Sorry for posting a non-Perl
solution, but someone can rewrite it.
User Error...
This is actually the offending line:
$ProfileList-{$SidMap{$Pkey}//Sid} =
Win32::Lanman::StringToSid($SidMap{$Pkey});
should be
$ProfileList-{$SidMap{$Pkey}//Sid} =
[Win32::Lanman::StringToSid($SidMap{$Pkey}), REG_BINARY ];
I did not realize that the value was being replaced and
Win32::Registry
Tweak version 0.00.26.
[EMAIL PROTECTED]
The following code works sporadically. It seems to fail more than it works.
When it fails, $Result, $^E, and $! all appear to be null. The variables
$OldSid and $ProfileImagePath contain valid data. Can anyone tell me how to
better
Is there a way to get the following text to match? If the '\' in '1\V' is
changed, the regex matches. I would like to maintain the RAW text if
possible.
$c = 'JUA_APPS01\VOL1:\APPS';
$d = 'JUA_APPS01\VOL';
if ($c =~ /$d/)
{
print "matched\n";
}
else
{
print "Not Matched\n";
}
92 matches
Mail list logo