Hi,
I am trying to parse :
Sep 26 17:05:11 pixfw.testsec.org %PIX-3-106010: Deny inbound protocol 12
src outside:123.97.104.117 dst intf2:192.168.50.10
but ONLY to get the src IP , which is 123.97.104.117 and Destination ip ,
which is 2:192.168.50.10
Any help would be appreciated.
Thanks,
Does anybody know how to manually regenerate the html documentation in the
ActiveState perl tree? I just upgraded to build 813 and now the index pages
are gone. I tried reinstalling and installing some packages but nothing
recreated it.
--
REMEMBER THE WORLD TRADE CENTER ---=< WTC 91
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:
hi
Try adding
Win32::Console->import;
and
Term::ANSIScreen->import;
Before "require"
El Jueves 06 Octubre 2005 10:13, John Serink escribió:
> 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(
Use two threads. One sits on the console and waits for input. Meanwhile it
spawns thread 2 which does all the work. When some input is received it can
set a shared variable that thread 2 will notice and thus break out of the loop.
At 01:47 PM 10/6/05 -0700, Su, Yu (Eugene) wrote:
> will stop th
On 10/6/05, Martin, Greg (RTIS) <[EMAIL PROTECTED]> wrote:
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]] On Behalf Of Su,
Yu (Eugene)
Sent: Thursday, October 06, 2005 3:08 PM
I want to write a simple perl script to start an endless loop (for reading
data from
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Su,
> Yu (Eugene)
> Sent: Thursday, October 06, 2005 3:08 PM
> To: perl-win32-users@listserv.ActiveState.com
> Subject: RE: how to interact with an endless loop
>
> Hi All,
>
> I want to write a si
On 10/6/05, Su, Yu (Eugene) <[EMAIL PROTECTED]> wrote:
Hi All,I want to write a simple perl script to start an endless loop (for readingdata from a periphery device, such as a measurement unit), but I also wantto be able to stop it anytime. Right now I use "Ctrl-Alt-Del" to do it.
There must be a b
will stop the looping until "Enter" is pressed. I like to see the
program continues running until a key is pressed, some thing likes two
parallel related processes.
Thanks Greg.
-Eugene
-Original Message-
From: Martin, Greg (RTIS) [mailto:[EMAIL PROTECTED]
Sent: Thursday, October 06, 20
You could try reading from STDIN and either quit on a Ctrl-Z or some other
character
Ex:
#this reads in what you type and prints it
#entering ctrl-Z is seen as a blank line and quits
while () {
print;
}
\\Greg
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED
Hi All,
I want to write a simple perl script to start an endless loop (for reading
data from a periphery device, such as a measurement unit), but I also want
to be able to stop it anytime. Right now I use "Ctrl-Alt-Del" to do it.
There must be a better way. I has been trying to use open, pipe...no
Any help?
From: "SolHai Haile" <[EMAIL PROTECTED]>
To: perl-win32-users@listserv.ActiveState.com
Subject: MY GUI gets blank
Date: Mon, 03 Oct 2005 10:51:29 -0700
I am new to perl/tk, but I am making a good progress.
I wrote this script (perl/TK) to run a test on our appliance. The applinace
I wrote:
> $Bill Luebkert wrote:
> > $windoze = 1 if $^O eq 'MSWin32';
>
> Is this going to break on 64-bit Windows? Just curious. Maybe
> we should all start using
>
> $windoze = 1 if index($^O, 'MSWin');
Oops! Index will return 0 in this case. You could use:
$windoze = !index($^O, 'MSW
On Thu, 06 Oct 2005, John Serink wrote:
> if($^O eq "MSWin32"){
> # Check which OS
> $console = Win32::Console->new(STD_OUTPUT_HANDLE);
$console = Win32::Console->new(Win32::Console::STD_OUTPUT_HANDLE());
> } else {
> $console = Term::ANSIScreen->new();
> }
>
> And that is th
Thomas, Mark - BLS CTR wrote:
> $Bill Luebkert wrote:
>> $windoze = 1 if $^O eq 'MSWin32';
>
> Is this going to break on 64-bit Windows? Just curious. Maybe we should all
> start using
>
> $windoze = 1 if index($^O, 'MSWin');
You can always use a RE since you're only going to do it once:
$Bill Luebkert wrote:
> $windoze = 1 if $^O eq 'MSWin32';
Is this going to break on 64-bit Windows? Just curious. Maybe we should all
start using
$windoze = 1 if index($^O, 'MSWin');
- Mark.
--
Mark Thomas
Internet Systems Architect
___
BAE SYSTEMS In
John Serink wrote:
> However, this works:
> use strict;
> use warnings;
>
> my $windoze;
>
> BEGIN {
> $windoze = 1 if $^O eq 'MWin32';
> if ($windoze) {
> print "Looks like its Windoze\n";
> eval "use Win32::Console";
> } else {
> print
However, this works:
use strict;
use warnings;
my $windoze;
BEGIN {
$windoze = 1 if $^O eq 'MWin32';
if ($windoze) {
print "Looks like its Windoze\n";
eval "use Win32::Console";
} else {
print "Looks like its not Windoze\n";
Hi Bill:
Ok, tried your example, here it is on windows:
use strict;
use warnings;
my $windoze;
BEGIN {
$windoze = 1 if $^O eq 'MSWin32';
if ($windoze) {
print "Looks like its Windoze\n";
eval "use Win32::Console";
} else {
p
John Serink wrote:
> 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 {
>
I don't know the modules but had similar problems with other (at least it
seems so...)
You may need to import the modules constants
BEGIN {
if($^O eq "MSWin32"){
# Check which OS
print("Looks like its $^O\n");
require Win32::Console;
import Win32::Console;
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
22 matches
Mail list logo
