Hi All:
Got a small problem I can't figure out here. All I want to do is log
into the SSH server, grabe the banner test and exit. The banner text
contains some HW status I'm trying to capture.
Script is below:
use strict;
use warnings;
use Net::SSH::W32Perl;
my $host = '220.255.171.11';
my $user
I'm running 5.8.8-817 and it appears to be included in this one.
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of David Ressler
> Sent: Thursday, June 01, 2006 9:28 AM
> To: Perl List
> Subject: Win32::SerialPort problem
>
>
> I'm trying to use
You're only option is to spawn threads and detach them. Have them write
their results to a shared hash or something and define your own
timeout...if you don't see the result from that thread ID in X seconds,
declare it timed out and forget about it. When it actually does timeout
is will error and t
REGEX!
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Ng, Bill
> Sent: Tuesday, May 02, 2006 3:55 AM
> To: perl-win32-users@listserv.ActiveState.com
> Subject: Easy One
>
>
> Real simple,
>
> I have a string, "$a" for arguments sake, th
Win sockets on Win32?
not really, the only choice you have is IO::Select.
:)
John
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
Lyle Kopnicky
Sent: Tuesday, April 18, 2006 12:22 AM
To: Perl-Win32-Users@listserv.ActiveState.com
Subject: Non-blocking IO?
Hi
Hi All:
The attached script is a performance test model I use for a production
script I have that uses sockets to connect to various targets once per
minute. It used to leak 2 handles per thread per run but that has been
fixed with perl 5.8.8-817. Now that the handles leak is fixed I have
been obs
You can't.
IO::Select with pipes and file handles is only supported on Unix.
IO::Select on Win32 only works with Sockets.
Cheers,
John
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of [EMAIL PROTECTED]
> Sent: Thursday, April 06, 2006 2:10 PM
> T
Hello Jan and Fellow Users:
The Win32 threads leaking handles bug is fixed! Yippie!
OUTSTANDING! Well done development team.
Have tested it on my leaking handles script and my production code,
looks good. The number of handles open jumps when the threads are
launched and as the detached threads d
You need to be counting actual HW clock ticks. Win32::GetTickCount()
will return the HW timer count...believe its incremented every
millisecond. SW timers won't work.
Also, you can't use sleep for anything other than integer seconds. If
you want to sleep for periods smaller than a second, you need
Where at Suntec?
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Foo Ji-Haw
> Sent: Monday, March 27, 2006 10:01 AM
> To: perl-win32-users@listserv.ActiveState.com
> Subject: Perl book sale at Suntec City (Singapore)
>
>
> Ok, I know this is re
Hi Veli:
There are several way to do what you want. What not use threads?
You could use IO::Select as well but that only works for sockets on Win32
unfortunately, in Linux it works with console handles as well.
Threads is the most straight forward but I've had problems with threads
crashing the
Hi All:
After installing perl 5.8.8-816 I ran my handles leak program to see if
perl is still leaking handles when using shared arrays and hashes with
threads. Problem is, I don't have an answer on whether it still leaks
handles because the interpreter crashes in the midst of lunching the
threads.
Hi All:
After installing perl 5.8.8-816 I ran my handles leak program to see if
perl is still leaking handles when using shared arrays and hashes with
threads. Problem is, I don't have an answer on whether it still leaks
handles because the interpreter crashes in the midst of lunching the
threads.
>From the Active per docs:
Devel::DProf - a Perl code profiler
* NAME
* SYNOPSIS
* DESCRIPTION
* PROFILE FORMAT
* AUTOLOAD
* ENVIRONMENT
* BUGS
* SEE ALSO
NAME
Devel::DProf - a Perl code profiler
SYNOPSIS
perl -d:DProf test.pl
DESCRIPTION
The Devel::DP
Has the handles leak on Win32 when using shared variables with threads
been fixed?
:)
John
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Jan Dubois
> Sent: Tuesday, March 14, 2006 7:42 AM
> To: activeperl@listserv.ActiveState.com;
> perl-win3
Yup.
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Chris
> Sent: Wednesday, March 08, 2006 6:55 AM
> To: 'Chris Wagner'; perl-win32-users@listserv.ActiveState.com
> Subject: RE: old messages?
>
>
> Did anyone else also just receive a boat loa
You could just use netsh.
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Paul Sobey
> Sent: Monday, February 28, 2005 7:18 PM
> To: Perl-Win32-Admin
> Cc: Perl-Win32-Users
> Subject: RE: Change network interface parameters via Perl
>
>
> Ass
Use this as a hack template till you get your head around it:
#!perl
# Simple Perl Script to illustrate use of WMI to gather system
information
# and display it in the same format at the Windows Management Console
use Win32::OLE qw(in with);
use Win32::Registry;
# Pick a host that you have the n
Use the appropriate WMI classes with the Win32::OLE module.
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of andrew Black
> Sent: Sunday, March 05, 2006 2:10 AM
> To: perl-win32-users
> Subject: Battery info on a laptop
>
>
> Hi
> Does anyone kn
Hi All:
Is there a way for a thread to have its own console separate from the
calling process?
Cheers,
john
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Win32::Serialport
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Rajesh Vattem
> Sent: Saturday, January 07, 2006 2:54 PM
> To: Perl-Win32-Users@listserv.ActiveState.com
> Subject: Info on reading COM ports
>
>
>
> Hi,
> I am looking for ways
Hi Steven:
Ok cool, I got it going with this:
use Win32::OLE qw (in);
use strict;
use warnings;
my $IIS = Win32::OLE->GetObject("IIS://johnathlonxpm");
my $PathList = $IIS->GetDataPaths("AuthAnonymous",0);
print("$PathList");
print("\n");
my $thislong = scalar(@$PathList);
print("This long is
Hi All:
How can I find this stuff with Perl?
I need to dump the SMTP and ftp settings, what MS calls properties, from
a machine for a report but the setup is done using IIS with GUIs.
Anyone know how to do this? Where to get the information from?
I've scoured the registry and can't find where Gat
You'll have to install the resource kit.
You canget the tools at www.microsoft.com
> -Original Message-
> From: Octavian Rasnita [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, December 20, 2005 4:11 PM
> To: John Serink; Ted Zeng; perl-win32-users@listserv.ActiveState.com
&
C:\>shutdown /?
Usage: shutdown [-i | -l | -s | -r | -a] [-f] [-m \\computername] [-t
xx] [-c "comment"] [
-d up:xx:yy]
No args Display this message (same as -?)
-i Display GUI interface, must be the first
option
-l
t: Monday, December 19, 2005 4:42 PM
> To: John Serink
> Cc: perl-win32-users@listserv.ActiveState.com
> Subject: Re: how to detect a disconnected socket?
>
>
> John Serink wrote:
>
> >Ok, if you're using sockets I strongly recommend you ALWAYS using
> >sysread and
Ok, if you're using sockets I strongly recommend you ALWAYS using
sysread and syswrite as they baypass standard IO buffereing.
Be careful with sysread, it cand and will return partial reads, you MUST
be prepared for that.
Unless you want your program to block on sysread, you should use
IO::Select
Use sysread. You might want to use the IO:Select module to check if the
call will block before calling...
gives you a bit more control.
Cheers,
john
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Foo Ji-Haw
> Sent: Tuesday, December 06, 2005 12
First:
use "\" not "/".
Second:
You have to escape the "\" with a second "\" when using double quotes.
Your line needs to read:
$sys="C:\\antiword\\antiword.exe -t -w 1 document.doc >
C:\\Inetpub\\wwwroot\\somedir\\document.txt";
That shou'd work.
Alternatively, you could do it this way:
$sy
perfmon or taskmanager.
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Sandhu, Suchindra
> Sent: Saturday, November 26, 2005 12:04 AM
> To: perl-win32-users@listserv.ActiveState.com
> Subject: Detecting memory leaks in perl scripts
>
>
> Greet
#! perl
# ==
# $Author: Jmk $
# $Date: 19.05.98 7:12 $
# $Archive: /Jmk/scripts/saa/process.pl $
# $Revision: 2 $
# ==
# shows the task list like the tas
Title: Message
net::SMTP
-Original Message-From:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Maxmelbin Neson (RBIN/EDM3)Sent: Friday, November 18, 2005 2:57
PMTo: [EMAIL PROTECTED];
perl-win32-users@listserv.ActiveState.comSubject: How to send mail
fr
9:30 AM
> To: John Serink; activeperl@listserv.ActiveState.com;
> perl-win32-users@listserv.ActiveState.com
> Subject: RE: ActivePerl 5.8.7.815 released
>
>
> On Tue, 15 Nov 2005, John Serink wrote:
> > Anyone know if the leaking handles on win32 when using
> share
Anyone know if the leaking handles on win32 when using shared arrays
with threads is fixed?
It wasn't mentioned in the change log.
Cheers,
john
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Jan Dubois
> Sent: Wednesday, November 16, 2005 4:21
Hi Ross:
You must use sysread with IO select. Do NOT use as its buffered
IO.
Cheers,
John
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Ross Draper
> Sent: Tuesday, November 08, 2005 4:33 AM
> To: perl-win32-users@listserv.ActiveState.com
>
It depends on how you are connected to the internet.
if its dialup, you could do this:
my @bob = `ipconfig/all`;
my $jim="";
foreach $jim @bob {
if($jim=~m/ppp/i){
last;
}
}
if its not dialup, you can do something similar looking for the field
"IP Address" and checking if the stuff after th
Title: Message
You'll have to hack Winsock.
You could hack the stack in Linux but Gates doesn't give his source code
out so.
:)
John
-Original Message-From:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
MarkusSent: Wednesday, October 12, 2005 3:40 PMTo:
Check the IO::Select docs...
they work only for socket on Win32, you can't use them from file handles
including STDIN unfortunately.
Cheers,
John
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Su, Yu (Eugene)
> Sent: Friday, October 07, 2005 3:
quot;Term::ANSIScreen \n";
$console = Term::ANSIScreen->new();
}
Don't really like have the 'no strict' in there but it's a work around
unless we can come up with something more elegant.
Cheers,
John
> -Original Message-
> From:
een \n";
$console = Term::ANSIScreen->new();
}
Now when I run it:
D:\linux>perl eval1.pl
Looks like its not Windoze
Bareword "STD_OUTPUT_HANDLE" not allowed while "strict subs" in use at
eval1.pl line 22.
Execution of eval1.pl aborted due to compilation errors.
Sa
Hi All:
Ok, I need to use either Win32::Console or Term::ANSIScreen depending
whether I'm on a Linux platform or Windoze box, so I do this:
if($^O eq "MSWin32"){
# Check which OS
print("Looks like its $^O\n");
require Win32::Console;
} else {
require Term::ANSIScreen;
}
Wor
Title: Message
When I tried it:
F:\perl\practice\VRS>ppm3PPM - Programmer's
Package Manager version 3.2.Copyright (c) 2001 ActiveState Corp. All Rights
Reserved.ActiveState is a division of Sophos.
Entering interactive shell. Using Term::ReadLine::Perl
as readline library.
Type 'help' to
Anybody know how to do this?
I want to use Term::ANSIColor on a windoze box, but when I run this:
use strict;
use warnings;
use Term::ANSIColor;
print( color 'bold blue');
print( "This text is bold blue.\n");
print( color 'reset');
print("This text is normal.\n");
print(colored ("Yellow on magen
Actually, that was the problem.
Cheers,
John
> -Original Message-
> From: Reinhard Pagitsch [mailto:[EMAIL PROTECTED]
> Sent: Thursday, September 22, 2005 4:59 PM
> To: John Serink
> Cc: perl-win32-users@listserv.ActiveState.com
> Subject: Re: Adding values to hashes
Hi All:
I'm using strict and use warnings in my script and I read in a
configuration file. I think parse it and I want to load some names and
phone numbers into a hash like this:
my %ToSend=('party',000);
for(my $i=0;$i line 7.
Use of uninitialized value in hash element at smstest_13.pl line 36,
Title: Message
my @jim=`tasklist`;
now parse jim and find with you're looking for.
ALternatively:
my @jim=`tasklist|find "whatyou'relookingfor"`;
Jim will likely contain only one entry now, the thing you're looking
for.
:)
John
-Original Message-From:
[EMAIL PROTECTED]
Make sure you set the reuse to 1.
You could also try $return_val=$sock->shutdown(AF_INET);
rather than close($sock);
Cheers,
John
> -Original Message-
> From: Peter Eisengrein [mailto:[EMAIL PROTECTED]
> Sent: Thursday, September 01, 2005 10:35 AM
> To: John Serink; P
Title: Message
You need to use the IO:Select module which makes the ports
non-blocking.
When you check the port for reading, it will indicate there is something
to read. When you read it using sysread if it returns:
0 = the socket has disconnected.
undef = there was an error on the handle, $!
You sure this works under windows?
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Tom Pollard
> Sent: Friday, August 26, 2005 2:17 AM
> To: ajpeck
> Cc: Perl Win32 mail list
> Subject: Re: [threads] Forced termination
>
>
> On Thu, 25 Aug 2005
To: Perl Win32 mail list
> Subject: Re: [threads] Forced termination
>
>
> The problem is that I need to reclaim the memory resource of
> the thread
> that is not needed no more, so I can start off a new thread.
> Thus detach
> is not suitable in this case.
>
> Alun
Just detach them and forget about them.
other than that, I don't think there's a way to terminate them.
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of ajpeck
> Sent: Thursday, August 25, 2005 3:02 PM
> To: Perl Win32 mail list
> Subject: [thread
process and it will
crash.
The leaking handles is a known bug when using threads on Win32.
Cheers,
John
> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, July 26, 2005 11:20 AM
> To: perl-win32-users@listserv.ActiveState.com
>
Yup.
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of [EMAIL PROTECTED]
> Sent: Tuesday, July 26, 2005 6:10 AM
> To: Siebe Tolsma
> Cc: perl-win32-users@listserv.ActiveState.com
> Subject: references of sub and params in a threads::shared variable
Why don't you pass the parameters as references.
They work like pointers in C kindof.
Why do you want to reference your subroutine?
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of [EMAIL PROTECTED]
> Sent: Tuesday, July 26, 2005 2:19 AM
> To
Comparing floating points means to ask whether one number falls within a
RANGE of values.
You have to say it like this:
use strict;
use warnings;
my $bob = 630.239;
my $test = 630.24;
my $range1 = 0.001;
my $range2 = 0.1;
no warnings;
if( ($test <= ($bob+$range1) ) && ($test => ($bob - $rang
Hello Angus:
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Angus McIntyre
> Sent: Wednesday, July 13, 2005 6:48 AM
> To: perl-win32-users@listserv.ActiveState.com
> Subject: fork() and ithreads in AS Perl 5.8.6
>
>
> I'm writing a Perl progra
Or, you could simply open the port 25 to the SMTP server and send the
SMTP commands yourself...
Very easy, just read the SMTP RFC.
Cheers,
John
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Chris Wagner
> Sent: Saturday, July 09, 2005 12:32 PM
Hi All:
With regards to:
This is perl, v5.8.7 built for MSWin32-x86-multi-thread
(with 7 registered patches, see perl -V for more detail)
Copyright 1987-2005, Larry Wall
Binary build 813 [148120] provided by ActiveState
http://www.ActiveState.com
ActiveState is a division of Sophos.
Built Jun 6
This works:
use strict;
use warnings;
use Net::SMTP;
my $mailhost = "jim.bob.com";
my $mailobj = "";
if($mailobj = Net::SMTP->new($mailhost, Timeout=>10, Debug=>1)){
print("Connected to $mailhost\n");
} else {
print("Could not connect to $mailhost\n");
die;
}
my $userna
Hi Paul:
If you'll notice, this is a Win32 group. That is perl, on a Win32
platform, not perl on a Win64 platform. If you want the latter, you'll
likely have to compile from source.
Cheers,
John
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of P
.Tesch [mailto:[EMAIL PROTECTED]
> Sent: Thursday, June 02, 2005 9:22 PM
> To: Thomas, Mark - BLS CTR; John Serink; Rajesh Vattem;
> perl-win32-users@listserv.ActiveState.com
> Subject: RE: Net::Telnet
>
>
> I have had no issues using Net::Telnet on XP Pro that are
> usin
Correct.
> -Original Message-
> From: Thomas, Mark - BLS CTR [mailto:[EMAIL PROTECTED]
> Sent: Thursday, June 02, 2005 8:35 PM
> To: John Serink; Rajesh Vattem;
> perl-win32-users@listserv.ActiveState.com
> Subject: RE: Net::Telnet
>
>
> John wrote:
>
What kind of "particular" host are telnetting into?
The Net::Telnet module works connecting to the following telnet servers:
WindowsNT 4.0,
Cisco Routers,
Most of the Unix varients.
its does not work on these servers:
Windows 2000 Pro,
Windows XP pro,
Windows 2000 server pro,
Windows server 2003.
Title: Message
Why not use SNMP from your routers?
-Original Message-From:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Eric LogesonSent: Tuesday, May 24, 2005 11:28 PMTo:
perl-win32-users@listserv.ActiveState.comSubject: Measure
bandwidth
Hello List
I think I read that file events don't work with WIn32 Perl/Tk.
:)
JOhn
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Sisyphus
> Sent: Friday, May 13, 2005 6:00 PM
> To: Igor Litmanovich; perl-win32-users
> Subject: Re: Tk::ExecuteCommand on pe
Turn on autoflushing to STDIO.
Will fix it.
Cheers,
John
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Paul Rogers
> Sent: Sunday, April 24, 2005 6:04 AM
> To: Perl-Win32-Users
> Subject: perl56 to 58...delay on line prints
>
>
> I just upgr
; From: Marcos Legido [mailto:[EMAIL PROTECTED]
> Sent: Thursday, April 07, 2005 4:17 AM
> To: John Serink
> Cc: perl-win32-users@listserv.ActiveState.com
> Subject: Re: RE: Thread programming en Perl 5.8.4
>
>
> Hi:
>
> Ok, the output is:
>
> This is perl, v5
What does te output of "perl -v" say?
Here is mine:
C:\>perl -v
This is perl, v5.8.6 built for MSWin32-x86-multi-thread
(with 3 registered patches, see perl -V for more detail)
Copyright 1987-2004, Larry Wall
Binary build 811 provided by ActiveState Corp. http://www.ActiveState.com
ActiveState i
Move to TieRegistry, Win32:;Registry is no longer supported.
Cheers,
john
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Jim Hansen
> Sent: Tuesday, April 05, 2005 3:23 AM
> To: Perl-Win32-Users@listserv.ActiveState.com
> Subject: Win32:Registr
a wee bit by running the
> script from 4 servers instead of 1 and dividing the PC load
> between the 4 servers according to LAN segments.
>
> Alun
>
> >>> "John Serink" <[EMAIL PROTECTED]> 03/30/05 5:24 PM >>>
> Hiyah:
>
> Ok, the thin
I don't think signals are suported on Win32 boxes.
Cheers,
John
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of David Liouville
> Sent: Thursday, March 31, 2005 12:00 AM
> To: perl-win32-users@listserv.ActiveState.com
> Subject: Socket + fork
>
Hiyah:
Ok, the thing you'll NOT want to do is spawn the threads all at once.
I'd do them say, in groups of 25 or so which will allow the ones that
finish, out of the 25, to complete and die thus freeing up memory for
your other 2975. SO, in pseudo code, do this:
spawn threads 0-24,
do stuff,
sleep
Why not just use the UNC file name?
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Wong, Danny H.
> Sent: Friday, March 25, 2005 3:44 PM
> To: perl-win32-users@listserv.ActiveState.com
> Subject: Mapping Drive
> Importance: High
>
>
> Hi All,
Title: Message
Use the Win32::ODBC module.
-Original Message-From:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Leigh SharpeSent: Wednesday, March 23, 2005 6:56
AMTo: perl-win32-users@listserv.ActiveState.comSubject:
Reading an Access Database
Hi All,
PPM, Proxies and Firewalls
If you use a proxy server or firewall, you might have trouble running
PPM. Here is the solution.
NOTE: If none of the changes in this document work for you, you may
download individual packages from here [ActivePerl 801 and later] or
here [ActivePerl 613 and later]
Th old WindowsNT telnet server works fine, the Win2K and XP servers do
not.
Cheers,
john
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Jim Guion
> Sent: Friday, March 18, 2005 4:31 AM
> To: perl-win32-users@listserv.ActiveState.com
> Subject:
It doesn't cause any problem
But you 'may' want to wait till your threads are done
You can either detach or join to do so.
Cheers,
John
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Sergey Cherniyenko
> Sent: Friday, March 04, 2005 3:3
You could just use netsh.
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Paul Sobey
> Sent: Monday, February 28, 2005 7:18 PM
> To: Perl-Win32-Admin
> Cc: Perl-Win32-Users
> Subject: RE: Change network interface parameters via Perl
>
>
> Ass
Title: Message
net::telnet
-Original Message-From:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Maxmelbin Neson (RBIN/EDM3)Sent: Monday, February 28, 2005 4:47
PMTo: [EMAIL PROTECTED];
perl-win32-users@listserv.ActiveState.comSubject: How to call a
per
u may have to do a tiny
bit of rewriting to get a work around like that to go.
Cheers,
John
-Original Message-From: Paul Sobey
[mailto:[EMAIL PROTECTED] Sent: Monday, February 21, 2005 9:10
PMTo: John Serink; perl-win32-usersSubject: RE: Threads
+ Memory Leak??
Blimey,
Title: Message
Its not memory directly that's leaking, its handles which start to
consume memory.
Have a look at the open handles on your app...maybe use perfmon to
monitor is and see if its the number of open handles that's doing
it.
Cheers,
John
-Original Message-From:
[E
Hi!
Its known and in bugzilla(http://bugs.activestate.com), 35931. I too
thought it was going to be fixed in 5.8.6 but no luck.
>From Jeff Griffiths regarding this issue:
"For 5.8.6, we left the Win32::* stuff as-is, but I believe Jan wants to
look at fixing bugs for the next round."
Cheers,
John
Sc \\yourserver stop wins
Sc \\yourserver start wins
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Hon Shi
> Sent: Sunday, February 20, 2005 10:42 PM
> To: perl-win32-users@listserv.ActiveState.com
> Subject: WINS - "reset"
>
>
> Anyone hav
Win32::TieRegistry
Read the docs, it installed with the default activestate distribution.
On Tue, 2005-02-01 at 19:07 +0800, honery wrote:
> Hello ,
>
> Could you please tell me how to use Perl to operate Windows's registry
> table, such as search,add key,modify value etc...
>
> And I would real
Go to www.sysinternals.com
They have a utility that can help you on Win2K.
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of [EMAIL PROTECTED]
> Sent: Monday, January 10, 2005 11:40 AM
> To: perl-win32-users@listserv.ActiveState.com
> Cc: [EMAI
my @jim = unpack("II", $linger);
print("The length of linger unpacked is ".scalar(@jim)."\n");
print("The SO_LINGER return value is $jim[0] and $jim[1]\n");
}
} else {
print("Return value fo SO_LINGER is undefined\n");
}
ket to make the appropriate
settings
Cheers,
john
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of $Bill Luebkert
> Sent: Friday, January 07, 2005 1:57 PM
> To: perl-win32-users@listserv.ActiveState.com
> Subject: Re: getsoc
20 seconds
Linger is ? x
Length of linger is 4
Length of linger after substr is 2
Length of firstbyte after substr is 2
The length of linger unpacked is 3
The SO_LINGER secondbyte return value is 120
The length of firstbyte unpacked is 1
The SO_LINGER firstbyte return value is 1
Whi
Hi All:
Anybody know how to properly unpack this:
my $linger = getsockopt($sock,SOL_SOCKET,SO_LINGER);
I've tried every option but I can't make sense of the response.
$linger is 4 bytes long according to length($linger) so it did return...
I just can't figure out how to unpack the response.
Have
Telnet server on Windows NT works fine with Net::Telnet, on Win2K No as
Win2K using ANSI formatting which I've not figured a way to turn off.
Also works fine against a Ciso router.
WinXP never tried.
Cheers,
john
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED
Use strict;
Use warnings;
my @jim=`bob.bat`;
print(@jim);
Will run bob.bat and capture all output to @jim. Note, those are back
ticks, above the tab key not single quotes.
:)
John
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of CHIDIPI, RAM
Hi All:
Just installed the new perl build, thought it would fix the leaking
Win32 Handles with threads.
It didn't.
Perl is still leaking handles, 2 per thread when using shared hashes or
arrays.
Cheers,
John
John Edward Serink
Product Applications Engineer,
Infrastructure Systems
Trimble
Check the perl docs for "pack" and "unpack".
Everything you need is there.
Cheers,
john
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Leroy G. Blimegger Jr.
> Sent: Sunday, December 19, 2004 10:01 PM
> To: [EMAIL PROTECTED]
> Subject: Binary
use strict;
use warnings;
use Net::SMTP;
my $mailhost = "mail.bob.com";
my $mailobj = "";
if($mailobj = Net::SMTP->new($mailhost, Timeout=>10, Debug=>1)){
print("Connected to $mailhost\n");
} else {
print("Could not connect to $mailhost\n");
die;
}
my $username = "[EMAIL
If you're on a Linux box, just compile from source at 64bits.
If you're on a Win32 box running XP 64, and you want 64bit perl, again,
compile from source.
Not sure how stable the Win32 Modules will be on 64 bits.
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED]
tes?
>
> If that won't work, would anyone have any suggestions on a
> work around?
>
> Thanks in advance,
> Jim
>
>
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of [EMAIL PROTECTED]
> Sent: Thursday
Go to the registry and peel it out of there.
Win32::TieRegistry is what you're after.
Have fun,
John
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of [EMAIL PROTECTED]
> Sent: Friday, December 10, 2004 9:32 AM
> To: Perl-Win32
> Cc: [EMAIL PROTEC
@bob = `netstat -a -o`;
Use a regex to sift to the array bob to find the PID of interest.
Cheers,
John
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of [EMAIL PROTECTED]
> Sent: Friday, December 10, 2004 8:58 AM
> To: Perl-Win32
> Cc: [EMAIL PRO
Win32::AdminMisc
See www.roth.net.
> -Original Message-
> From: [EMAIL PROTECTED] [mailto:perl-
> [EMAIL PROTECTED] On Behalf Of Marie-eve URVOY
> Sent: Wednesday, December 08, 2004 5:34 PM
> To: Paul Sobey
> Cc: Perl-Win32
> Subject: RE: run a process as System account
>
> I think I can
Just open a single client server on the ports you don't what anyone to
use
You'll have to do it in a separate thread however and that could start
to consume resources...else it will block waiting for an accept.
Or, you could create server using the IO::Select method and wait for
connects but
1 - 100 of 127 matches
Mail list logo