Guys,
After much trawling google.com, I have found out how to resize and set the
colours for the dos window that your perl script runs in.
Try this:
system (color 17); # Type help color at the dos prompt to see what the
colours are
# the 1 is the foreground colour (white) and 7 is the
At 11:30 2002-10-04 -0400, Conrad, Bill (ThomasTech) wrote:
For years I have been developing PERL Tk scripts which I have been
using on both UNIX and PC applications. My users want me to make these
scripts more PC friendly
Good call! Tk is nice and all, but it's not very pretty. And
Now, does anyone know what else you can do with:
system (mode con:...
I'd like to be able to set the buffer size, too.
C:\mode /?
Configures system devices.
Serial port: MODE COMm[:] [BAUD=b] [PARITY=p] [DATA=d] [STOP=s]
[to=on|off] [xon=on|off]
Norris, Joseph wrote:
The ultimate goal is to just be able to update the telephoneNumber in the
active directory - WHY DOES BILL MAKE SO HARD!
I imagine it all boils down to NIH: The 'Not Invented Here' Syndrome.
Because it's not Microsoft Perl, they don't need to support it.
Rick
From: Darren S. Eyers [EMAIL PROTECTED]
Subject: XL 2 CSV (Unicode 8)
Date: Thu, 3 Oct 2002 18:39:45 +0100
Organization: Datawest Ltd
Hi All,
Anyone know how to extract data held in MS Excel into csv but keeping
the special characters like the Trade Mark Symbol, 3/4 symbol etc?
I use
Heaven forbid if ol'bill got his hands into the PERL pie... Larry and Co.
have done the best job of keeping this in the hands of the programmers and
developers with not closed doors!!! (getting off soapbox :)
-Original Message-
From: Richard A. Nakroshis [mailto:[EMAIL PROTECTED]]
Sent:
Thank you, Trevor.
Your sample is helpful.
However, the timeout value I set doesn't do.
The timeout occurs in 45 seconds regardless of the timeout value.
Apart from this, how can we change the directory of local host, which we can
do it by lcd command when executing FTP by windows/NT commands?
If you are copying modules from one Win32 system to another, then it's as
simple as copying your perl directory. If you are moving the files from
Win32 to Linux, forget about it. You should just reinstall.
-Original Message-
From: Carroll, Shawn [mailto:[EMAIL PROTECTED]]
Sent:
Title: Setting NTFS Permission with ADSI and Perl
I have converted a vbscript (below) to perl to Set NTFS Permissions on a folder. It all works except the snip below. In this part I am trying to do is remove all objects except the administrators group. Suspect there is some kind of data type
Title: Setting NTFS Permission with ADSI and Perl
I have converted a vbscript (below) to perl to Set NTFS Permissions on a folder. It all works except the snip below. In this part I am trying to do is remove all objects except the administrators group. Suspect there is some kind of data type
Title: RE: $Rc = system('D:/ftproot/edi/finqas.bat $invoice');
use instead of ' '
-Original Message-
From: Carl Jolley [mailto:[EMAIL PROTECTED]]
Sent: Friday, September 20, 2002 12:49 PM
To: [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Subject: Re: $Rc =
What I tend to do, though its only partly satisfactory, is to use a reference to a
constant.
my $PI=\3.141592654;
print PI is $$PI\n;
$$PI=4; # Modification of a read-only value attempted at...
# Problem is you can assign the reference to something else
$PI=\4; # Works just fine only the laws
Title: Setting NTFS Permission with ADSI and Perl
I have converted a vbscript (below) to perl to Set NTFS Permissions on a folder. It all works except the snip below. In this part I am trying to do is remove all objects except the administrators group. Suspect there is some kind of data type
Be sure and wait against your sub processes. When theyre done, that will
ensure they clear. Disclaimer: I cut
this out of something I wrote and cleaned it up for consumption so I may have
missed something here and there in the cleanup.
Something like this:
foreach $Something
Hi all,
We are in the process of moving to W2K. In the process the filestructure
will be transferred to W2K server with existing security rights !
We need to change those rights with following changes.
1) Change name of domain from old to new one.
2) Change name of group/user to corresponding
I have written a perl app using Tk and Win32::GUI. Win32::GUI is used solely
to place an icon in the systemtray. All works as planed except for the bug
in Win32::GUI that leaves the icon in the systemtray when the app is closed.
The notes for Win32::GUI indicate that this is a bug and to
I have written a perl app using Tk and Win32::GUI. Win32::GUI is used solely
to place an icon in the systemtray. All works as planed except for the bug
in Win32::GUI that leaves the icon in the systemtray when the app is closed.
The notes for Win32::GUI indicate that this is a bug and to
Hello,
I'd like to set up a domain search tool to display registrar information on
domains. I've tried using Net::ParsWhois and am seeing several conflicts
with Netsol's whois service, even though the documentation states it is
looking at www.networksolutions.com.
Does anyone know of a more
Hello Tye, hello everybody,
The following script:
use Win32::TieRegistry;
eval {
my $key = $Win32::TieRegistry::Registry-{
'HKEY_LOCAL_MACHINE\\SOFTWARE' };
die;
};
if( $@ ) {
print Exception caught: $@\n;
}
else {
print OK\n;
}
...surprisingly prints out
OK
instead of,
Hello Tye, hello everybody,
The following script:
use Win32::TieRegistry;
eval {
my $key = $Win32::TieRegistry::Registry-{
'HKEY_LOCAL_MACHINE\\SOFTWARE' };
die;
};
if( $@ ) {
print Exception caught: $@\n;
}
else {
print OK\n;
}
...surprisingly prints out
OK
instead of,
Excerpts from the mail message of Burkhard Meier:
)
) eval {
) my $key = $Win32::TieRegistry::Registry-{
) 'HKEY_LOCAL_MACHINE\\SOFTWARE' };
) die;
) };
) if( $@ ) {
) print Exception caught: $@\n;
) }
) else {
) print OK\n;
) }
There are other cases that can cause the same
Title: RE: How do I manipulate this
Krishna - try substituting the characters. If
line is held in $line
$line=~ s/\n//
will
kill the first line feed
$line
=~ s/\n//g
will
kill all of them.
$line
=~ s/\s+//g will kill all white space
etc.
The
regular expression matching tooin
Hi,
I've download Win32::API from activestate perl repository using ppm. A test
program to call Win32 API GetCurrentProcessID works fine. However, when
the API GetUserNameA in 'advapi32.dll' is called as
follows, an application error message box pops up with something like
memory cannot be
Hello
I Need to print file listings on win32 (w2000).
When I glob or readdir i miss files with
strange names like !=MyDir=! .message ..cvs etc.
Is there a way I can get at these weird file names?
Perl doesn't seem to want to list them ...
TIA
Karl
Hi there,
looking for a little example how to send UDP-Pakets via Perl. I found some
nice things in perldoc, but they didn't work - or I was too dumb to
implement them.
Thanks in advance
Harry
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To
I imagine it all boils down to NIH: The 'Not Invented Here' Syndrome.
Because it's not Microsoft Perl, they don't need to support it.
Rick
It's not just Perl in this case. VB has always been crippled when
attempting to do more advanced operations, including Active Directory
26 matches
Mail list logo