On 08/07/2003 02:20:33 perl-win32-users-admin wrote:
Allegakoen, Justin Devanandan wrote:
Peter,
I was playing around with this earlier. Heres what I get:-
Microsoft Windows XP [Version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.
C:\Perl\Programsperl -e print ord('£');
163
On 07/07/2003 16:09:21 perl-win32-users-admin wrote:
[snip]
I am really hoping for the fastest solution and not necessarily the
easiest.
I'm wondering if I can do something like:
eval_pv(use Mail::SpamAssassin);
eval_pv(my $spamobj = Mail::SpamAssassin-new());
eval_pv(my $status =
On 16/06/2003 22:57:22 perl-win32-users-admin wrote:
I am having trouble with API, similar to these posts:
http://aspn.activestate.com/ASPN/Mail/Message/732561
http://aspn.activestate.com/ASPN/Mail/Message/perl-win32-users/753232
Like those posts, I had API working. When I tried the API scrip
On 16/06/2003 20:54:52 Michael Higgins wrote:
FARRINGTON, RYAN wrote:
I think I bugged Bill enough so I'll ask the list...
This was provided by Bill:
my @sortlist = map { $_-[0] }
sort { mysort ($field, $type, $case, $dir) }
map { [
On 01/04/2003 09:15:34 Glenn Linderman wrote:
On approximately 3/31/2003 1:58 PM, came the following characters from
the keyboard of BB:
I have begun learning CGI from a book dated '96 which refers to UNIX as
a
platform. I am using Win32 and have a question about an example from the
book,
On 01/04/2003 11:39:36 Stuart Arnold wrote:
On 01/04/2003 10:19:44 Stuart Arnold wrote:
Your date format looks funny. It looks like its Jan 4, 2003. You may
want to
check that out.
perldoc perllocale
P.S. Please do NOT CC me, I'm on the list.
--
Csaba Ráduly, Software Engineer, Sophos
On 29/03/2003 06:53:45 perl-win32-users-admin wrote:
On 3/27/2003 5:24 AM, Stuart Arnold wrote:
I want to be able to somehow reformat the error/warn messages that perl
dumps out so that I can format it (override it).
[snip]
perldoc perlvar
Certain internal hooks can be also set using the
On 27/03/2003 15:26:05 perl-win32-users-admin wrote:
Hello world!
Is there a way to execute a series of system commands?
For example if you tried to do an FTP how could you pass it all the
subsequent command lines? (I know you can do it using Net::FTP, but I'm
trying to do something
On 25/03/2003 14:59:21 perl-win32-users-admin wrote:
I actually noticed the typo sometime after posting to this board, and
replaced it with:
new(Application, 'MDS-APL')
Unfortunately that did not work either!
Also, does anyone know if this module only allows me to write to the
application
On 20/03/2003 12:12:27 JamesTillman wrote:
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Thursday, March 20, 2003 4:34 AM
Cc: [EMAIL PROTECTED]
Subject: RE: (no subject)
Try server\\new\$
Don't. Try '\\server\new$' if you need to give it to
On 11/03/2003 19:35:11 perl-win32-users-admin wrote:
I am having problems retrieving some of the environment variables using
cgi.pm
here is the code that I am trying to use, what the heck is wrong
Code
declarations:
use strict; # just in case you forgot :-)
use CGI qw/:ALL/;
$cgi = new CGI;
On 11/03/2003 23:23:46 perl-win32-users-admin wrote:
[snip]
However I have discovered that I cannot pass command line arguments to the
wperl script and this is very inconvenient.
[snip]
wperl fails to see the command line if I use getopts() or if I just
operate
directly against the ARGV
On 12/03/2003 14:44:30 perl-win32-users-admin wrote:
This must be the problem. I had associated a file extension of .wpl to
wperl and was executing foo.wpl bar but was seeing no arguments.
Open an Explorer window and go to View/Options (on NT4)
or Options/File Types on Win2000 (these move
On 07/03/2003 20:06:49 Joel Brockman wrote:
Csaba,
Thank you for your effort. ActiveState provided me with an html document
containing a link to OLE Browser. The link brings up a blank page.
That should not happen. Is that C:\Perl\html\OLE-Browser\Browser.html ?
If there is an error, there
On 29/11/2002 23:57:14 perl-win32-users-admin wrote:
From: Beckett Richard-qswi266 [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Subject: Tk buttons?
Date: Fri, 29 Nov 2002 15:53:27 -
When you click on a button to do a task, the button should stay pressed
until the task completes. Normally this
On 24/11/2002 08:06:35 RCTay wrote:
my( @dir, $free);
@dir =3D `dir`;
$free =3D $dir[$#dir];
This code was written by a friend of mine. @dir was declared as
a array, but
in the second line it is used as a scalar. How is that possible? There
are no
warnings given by the interpreter. Can you
On 28/11/2002 03:23:01 perl-win32-users-admin wrote:
I think no one has got this to work yet because none of us has banged our
head hard enough onto the desk top.
And all this just to remotely power down a Win2K box.:)
I'll post what I come up with.
use Win32;
Win32::InitiateSystemShutdown(
On 25/11/2002 21:13:28 perl-win32-users-admin wrote:
Hello,
I have an Excel spreadsheet that a person saves to a network drive
daily. I want to automate the task of opening the file and saving it as
html
(the person can't do it themselves, their not technical enough! ). I know
the
On 20/11/2002 13:06:29 Lee Cullip wrote:
Thanks for replying Joe,
maybe if you see a bit more code you can get an idea for what I'm trying
to
do :
use Net::Telnet;
use IO::File;
$prmpt =~ /^(.*:\/home\/oracle[:=]{1,2})/;
[snip]
I still get the following error message though :
bad match
On 04/11/2002 20:23:12 Steve Silvers wrote:
The below snippet gives me the error: Can't call method Open on an
undefined value.
#!/Perl
use Win32::Registry;
$reg = $HKLM-Open('SOFTWARE\\Microsoft\\Office');
die Registry open failed: $!, $^E unless defined $reg;
# print out all subkeys of
On 04/11/2002 20:52:02 Joseph P. Discenza wrote:
Scott Carr wrote, on
: The problem. I have a Hex string like
: 54686973206973206120746573740d0a546f2073656520686f772077656c6c20
:
: I want to convert it to its binary representation. I am using a
: command like pack(H*, $hexstring) to get the
On 25/10/2002 15:37:16 Krisna, Hari wrote:
forgot to include the print statement
print OUTPT $ln54_1 $ln54_2 $ln54_3 $ln54_4 $ln54_5 $ln54_6 $ln54_7
$ln54_8;
change this to:
print OUTPT
$ln54_1!$ln54_2!$ln54_3!$ln54_4!$ln54_5!$ln54_6!$ln54_7!$ln54_8!;
You separate the columns with spaces
On 19/10/2002 09:35:23 perl-win32-users-admin wrote:
Greetings to all,
I would like to write a simple Perl script (for Win32) able to catch
what my browser is sending and receiving (especially the headers) during
a particular http transaction.
It sounds to me that what you want is a HTML
On 13/10/2002 01:30:18 perl-win32-users-admin wrote:
Hi list,
given an array reference in a hash, how can I append an item to the end of
that array? Or find the length so that I can assign it using $ref-[$n]
type notation?
I have tried various comboes...
$hash{$key} holds a reference to an
On 06/10/2002 23:19:46 perl-win32-users-admin wrote:
Some browsers do not send the referer header. This variable seems so
useful, I'm wondering why it is being left out. Is it an error? Is it
Some people consider REFERER a privacy leak (and have written browsers
which don't send it by design
On 10/09/2002 15:55:14 perl-win32-users-admin wrote:
oops, do that and you'll confuse it. swap that for
$dir=~s'\'/'g; #not interpolated with single quotes
Huh? I've never heard of that. It doesn't work for me either. What version
of Perl are you using, and where is this documented?
The
On 11/09/2002 14:53:05 Barlow, Neil wrote:
I am looking to match \ at the end of the line -
Have tried $scandir=~/\\$/ and am still not getting a match
My input is C:\
Run your script with
perl -Mre=debug yourscript.pl
That will show you what the regular expression engine is doing
(make
On 10/09/2002 15:37:44 perl-win32-users-admin wrote:
$dir=~s!\!/!g; #should work better, no ambiguity with slashes
oops, do that and you'll confuse it. swap that for
$dir=~s'\'/'g; #not interpolated with single quotes
~or~
$die=~s!\\!/!g;
There's also: $die =~ tr!\\!/!;
--
Csaba
On 04/09/2002 11:51:33 Tillman, James wrote:
[EMAIL PROTECTED] wrote:
Hi!
There is some way to get the current directory path of perl script?
^
Try core Cwd module.
That actually returns the current directory, which may or may not
On 28/08/2002 12:00:58 perl-win32-users-admin wrote:
Hi, Jan suggested I post this here. Maybe the first question is
why I would need the 'Scripting.FileSystemObject' in Perl, but
I have my reasons. I was actually testing the Win32 intellisense
in Visual Perl, but found I could write a
On 28/08/2002 13:07:51 perl-win32-users-admin wrote:
On 28/08/2002 12:00:58 I wrote:
Hi, Jan suggested I post this here. Maybe the first question is
why I would need the 'Scripting.FileSystemObject' in Perl, but
I have my reasons. I was actually testing the Win32 intellisense
in Visual
Brian Gibson wrote:
Does anyone know of a module you can use to list all of the current
connections to remote shares (whether they be to a UNC path or to a
drive letter) so they can be disconnected?
I thought Win32::LanMan could do this but when I run install
Win32::Lanman from PPM I
On 20/08/2002 17:23:11 perl-win32-users-admin wrote:
Cleaning up some inherited code and I ran into this:
if ( ! $m_rkCfgTable-{Trace} eq true) {
$m_nTraceLevelMin = -1;
return 0;
}
For the life of me, I cannot fathom why this is *not* identical?
unless ($m_rkCfgTable-{Trace} eq true) {
On 13/08/2002 06:26:59 perl-win32-users-admin wrote:
Hi all,
I guess it must be a simple problem, but it's a
mystery to me.
[snip question involving regex]
Anybody cares to explain this to me?
Try running your script with
perl -re=debug scriptname.pl 2re_debug
Make sure you redirect stderr
On 09/07/2002 22:12:58 perl-win32-users-admin wrote:
I am trying to match the '*' character and am having trouble getting
anything.
Basically, I have some lines that I want to extract only if they start
with a
'*'.
Seems easy enough.
if ($line =~ /^\*/)
{
print Match! $line\n;
}
No
On 13/06/2002 17:47:01 Chris Anderson wrote:
[snip]
What is my problem:
It work:
No, it doesn't , unless you have a program with a VERY interesting name
in C:\winnt, called system32
sh.exe
(including the linebreak !)
Win32::Process::Create($ProcessObj,
On 06/06/2002 22:00:09 Yi Zhang wrote:
I tried the following to use SMTP to send email:
use Net::SMTP;
$optServer = 'luxn.com';
$optFrom = [EMAIL PROTECTED];
$optTo = [EMAIL PROTECTED];
$smtp = Net::SMTP - new (luxn.com);
$smtp - mail($optFrom);
[snip rest of script]
What might be wrong
On 06/06/2002 22:24:36 perl-win32-users-admin wrote:
Group,
I got all my stuff run on my local box with perl/apache/mysql and then I
went to move everything to the main IIs server. However. when I ran my
scripts that worked before in the same directory structure on my local box
I
got the
On 06/06/2002 00:42:42 Dax T Games wrote:
Anyone been able to import the GetOpenFileName API from comdlg32.dll.
So I don't need to reinvent the wheel? I have been trying but have had no
success.
GetOpenFileName puts up a dialog box. You might need a message loop.
(I think Perl.exe is a
On 30/05/2002 15:24:40 perl-win32-users-admin wrote:
I have been looking for a way to determine the path of the 'My Documents'
folder for a PC. I assume this is a registry setting. I did a search for
this through MY registry and the only potential references I can find
refer
to a
Run this:
perldoc -q balanced
--
Csaba Ráduly, Software Engineer Sophos Anti-Virus
email: [EMAIL PROTECTED]http://www.sophos.com
US Support: +1 888 SOPHOS 9 UK Support: +44 1235 559933
Is there an ActivePerl.chm with a working index ?
The one in build 630 has a completely empty index :-(
--
Csaba Ráduly, Software Engineer Sophos Anti-Virus
email: [EMAIL PROTECTED]http://www.sophos.com
US Support: +1 888 SOPHOS 9
On 30/04/2002 18:40:35 Joseph Jongquist wrote:
Hello Carter,
Try these suggestions:
my $dir = C:/tmp2;
CHANGE TO:
my $dir = C:\\tmp2;
AARGH !
Please don't ever suggest that.
Perl is perfectly capable of understanding C:/tmp2
Even Windows understands C:/tmp2. The only thing
that
On 22/04/2002 06:49:52 perl-win32-users-admin wrote:
Dear All,
I have seen one perl code with the following stuff
sub func_name($$$)
{
$a = @_;
}
My question is ,
What is the purpose of $$$ in the function definition.
It tells Perl that func_name expects three scalars.
Check out
44 matches
Mail list logo