Myself, I'd use perltk. The Tk module comes with activestate's version, so portability to windows, if required, is less of an issue. The usenet group comp.lang.perl.tk is helpful. The O'Reilly...

Net::Ping defaults to a tcp connection to the echo port (7 according to my /etc/services file). Use this (from the Net::Ping man page) example to do a regular ICMP ping like the command line:

...

I like this bit from the Time::HiRes manpage


# Arm an interval timer to go off first at 10 seconds and
# after that every 2.5 seconds, in process virtual time
...

In perl, this works for non-numeric scalar variables too:


#!/usr/bin/perl

$a="abcd";
$b="yyyyyy";

$a ^= $b;
$b ^= $a;

I see a couple problems with this script (besides it grabbing over 1025MB of memory when i ran it under linux, which it didn't do under windows)

First, you should always use this line at the top...

You can try this bit of code to get the output and errors into a scrollable Tk::Text window:


#!d:\perl\bin\perl.exe -w

use strict;
use Tk;
use IPC::Open3;

my $filename="perl myfile.pl"; ...

Yeah I proly just got too impatient and stopped the MSI version. The installer.bat is in the zip AS version too. I was using slower computer so that might have been why it seemed so slow :) Only...

I've put screenshots showing how i run a script called getmap.pl on my win98 machine:

http://plh.org/getmap.jpg for start/run window
http://plh.org/msdos.jpg for msdos window

I added the...

I believe the installer.bat file (a perl script) does a lot of file path renaming in various scripts in the perl installation. Using perl without running installer.bat is problematic. You also may...

I tried it on my win98 machine. The MSI version kept hanging at the making html step. Extracted the AS version to D:\ActivePerl-5.8.7-813-MSWin32-x86-148120\ActivePerl-5.8.7-813-MSWin32-x86-148120\...

Anything I can do to help =)

Thx =) Hmm my first comment in the subroutine is wrong though :(
It always enters the subroutine in state=1. The comment should have been

# always enters in $state=1 ie: whether it was a fresh...

Here's a bit of code that prints the multi-line error message from that log sample:


#!/usr/bin/perl -w
use strict;
my $log="log";
my $partial="";
my $state=1;
if ( $ARGV[0] ) {...

Missed that bit in your previous post, my bad.

Dang, no threading :( more stupidity from me

Not that it's necessary to change something that works (believing this may be a perl sin, so i'll say a perl prayer later...) but you can change those two lines into one and eliminate the extra...