Hi again,
Since you are using ASP you can
%Response.redirect = http://123.123.123.123; %
Unless you really want them to see a page-loading page ?
Actually I do want to see the page loading page. The problem is that the server
times out since the request to http://123.123.123.123 takes a
From: Michael D. Smith [mailto:[EMAIL PROTECTED]
Subject: Re: OLE again
In these examples from recent mailings to the list
my $IE = Win32::OLE-GetActiveObject( 'WebBrowser.Application' );
my $Excel = Win32::OLE-GetActiveObject('Excel.Application')
The point in these example above was
If your web server is windows based, you could use UserCheckPasswd from
Win32::AdminMisc
if( Win32::AdminMisc::UserCheckPassword(, $User, $Password)){
print Password is correct.\n;
}else{
print Password is not correct.\n;
}
If your web server is not windows based, you could use
I'm able to get my DNS information from the registry but updating it is
giving me a problem..
$DNS =
$Registry-{//$comp_name/LMachine/System/CurrentControlSet/Services/Tcpip/Parameters/Interfaces/@get}
or die Problem opening registry DNS: $DNS $^E\n;
# Insert values.
Can anybody tell me how to adjust the browser attributes from a perl
script? I often use the java script function newWin(urlLoc) to open a
new window and adjust the browser attributes. I want to do the same
when I populate a browser window from perl. Simply want the same
control over the
And what happens if you say:
$DNS-{'NameServer'}=[$primary\0$secondary\0,REG_SZ];
HTH
Tobias
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On
Behalf Of steve silvers
Sent: Wednesday, October 01, 2003 9:48 AM
To: [EMAIL PROTECTED]
Subject:
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
-Original Message-
From: steve silvers [mailto:[EMAIL PROTECTED]
$DNS-{'NameServer'}=[[$primary\0$secondary\0],REG_SZ];
The problem is on the insert. This is a REG_SZ field, but after I run my
script the setting reads
Hi,
The system I am
working on is using an older version ofPerl, v 5.001, as shown
by:
C:\perl
-v
This is perl,
version 5.001
Unofficial
patchlevel 1m.
Copyright 1987-1994,
Larry WallWin32 port Copyright (c) 1995 Microsoft Corporation. All rights
reserved. Developed by hip
Title: RE: RegEx to remove \x0D\x0A
Are you sure they are CRLF's? And why regex? Why not chomp?
Can you give us a bit of actual data?
-Original Message-
From: Bullock, Howard A. [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, October 01, 2003 12:14 PM
To: '[EMAIL PROTECTED]'
Subject:
Bullock, Howard A. [EMAIL PROTECTED] wrote:
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;
The final script will work against data file that I do not have. I am
attempting to help someone else and hit this issue.
The actual string to be removed is \x20\x1B\x0D\x0A. In testing I can find
the other characters but the RegEx engine does not seem to recognize the
CRLF. You can use any
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.
Thank you. It appears that the slurp omits the \x0d character.
Dir file size: 732
Perl length of $data: 704
Number of lines in the file: 28
Ok I thought that slurping was farely simple.
print Processing: $file;
if (open (INFILE, $file))
{
{
local $/;
Got it (I think).
Just add this after you open the file and before the read.
binmode( FILE );
My tests on my machine agreed with you.
--
Mike Arms
-Original Message-
From: Bullock, Howard A. [mailto:[EMAIL PROTECTED]
Sent: Wednesday, October 01, 2003 12:17 PM
To: 'Arms, Mike';
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
All,
I trying to trap a permission denied error from SqlServer within Perl and I
seem to get a message no matter what on the browser. Below is a snippet of
the code.
What happens is that if I set the table junk permissions to no select for a
user, Perl comes back with a message like the
You could use and eval{} blick around it, or use the Error module (which
does essentially the same).
use Error qw(:try);
try {
# put code here
} catch Error::Simple with {
# put error handling code here
}
See the docs for eval (perldoc -f eval) and Error for more info on what
would be best
Thank you ...
The method anchorClear is not in the book I purchased ... but is in the
online doc...
This doesn't do exactly what I want - collapses the tree - but it works
better then what I had.
Thanks again for the help...
jwm
-Original Message-
From: Jack [mailto:[EMAIL
Would like to know if Microsoft Access Database records can be manipulated
using ActiveState
Perl 5.8 ? And if so, how?
Appreciate any information provided.
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe:
On approximately 10/1/2003 4:41 PM, came the following characters from
the keyboard of S Taylor:
Would like to know if Microsoft Access Database records can be manipulated
using ActiveState
Perl 5.8 ? And if so, how?
Appreciate any information provided.
One way that I have used is to use DBI,
Is there a good way to dial a modem with perl?
I'm using this now:
system ('C:\Windows\Command\start.exe',
'C:\Windows\Desktop\Highstream.net.lnk'):
And it starts Windows dialup networking, but I have no other control. Busy,
no connect, takes longer than normal, all cause a failure
23 matches
Mail list logo
