Sten Berg wrote:
>
> Hi gurus!
Hello,
> I´m looking for a way of analysing a log file and pinpoint missing sequences
> (foreach loop?). The logfiles looks something like this:
>
> LOGFILE
> - value : 0
> some data...
> - value : 1
> some data...
> - value : 2
> some data...
> ...
> ...
> - valu
Hi John (and others)!
So far, I have this code (with good help from Venu :-), and it works:
my $file = shift;
open (TEST, "$file");
my $valcount=0;
my $missvalue = 1;
while ()
{
if(/value : (\d+)/)
{
$val = $1;
$val = $val - 1 if($val> 0);
if ($valcount != $val)
How do I match a domain name starting from the dot?
# Match something like these
".domain4you.co.uk"
".domain-house.de"
This is what I have:
@domains = ("http://www.domain.com ", "http://www.domain4you.co.uk
"http://www.domain-house.de"; "https//rrp.cash-day.com"
);
f
Sorry John, I realised you ment that your code take care of the lot.
Anyway, I still do get it to work. Execution hangs at the prompt...
/eplabi
From: "Sten Berg" <[EMAIL PROTECTED]>
To: [EMAIL PROTECTED], [EMAIL PROTECTED]
Subject: Re: Missing sequence finder for logfiles
Date: Fri, 16 Apr 2004 1
> -Original Message-
> From: Babale Fongo [mailto:[EMAIL PROTECTED]
>
> How do I match a domain name starting from the dot?
>
>
> @domains = ("http://www.domain.com ", "http://www.domain4you.co.uk
> "http://www.domain-house.de"; "https//rrp.cash-day.com"
> );
>
>
>
> -Original Message-
> From: Jenda Krynicky [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, March 16, 2004 8:57 PM
> To: [EMAIL PROTECTED]
> Subject: RE: ActiveState Win32 MCPAN install problem
>
>
> From: "Michael Weber" <[EMAIL PROTECTED]>
> > > Good morning!
> > >
> > > I am running Active
good afternoon
i use sendmail to send mail with a script perl
i receive this mail in /var/spool/clientmqueue
but not in my mailbox mozilla
here is the line in the script perl
open(MAIL, "|/usr/sbin/sendmail [EMAIL PROTECTED]");
sendmail is launched
[EMAIL PROTECTED] clientmqueue]# ps -aux | grep s
Also, take a look at this:
#!/usr/bin/perl -s
use strict;
our $h;
if ($h) {
print "this is a very special feature";
}
The -s switch "interprets -xxx on the command line as a switch and sets
the corresponding variable $xxx in the script to 1." There's also
something else, which I leave for you
Another try
Here is the logfile I tested on (I´ve marked were the loops starts):
LOGFILE
-
UNNUMBERED INFO
--
#loop1:
Meas.Res. Nr
- value : 248 (fch)
Meas.Res. Nr
- value : 249 (fdh)
Meas.Res. Nr
- value : 250 (feh)
Meas.Res. Nr
- value : 251 (ffh)
Meas.Res. Nr
- value
Hi everybody,
i am having a script which asks for some variables i take these
variables and construct the command .
the command works fine using the qx /command/ or the back ticks .
my problem is that i want to return to the perl program and exit nicely
. otherwise i endup with a console window w
I am writing a script to ask for some variables , construct the command
then launch the command with qx or backtick . The command works fine .
My problem is that the command monopolizes a console session ( I can
kill it and my fired command still works ) .
what i need is to fir the command in th
Rob Hanson wrote:
>
> Try this...
>
> # untested
> $text =~ s/\[[^\]]+?\]/$1/g;
>
> [^\]] - means anything but a closing bracket
> +? - means 1 or more times (as few as possible)
Hi Rob
You're not capturing $1, so you would be replacing them and
their contents with 'undef'. (The opposite of what
From: "Traeder, Philipp" <[EMAIL PROTECTED]>
> Did you solve this problem? I've got exactly the same problem at the
> moment, and I tried more or less everything I could think of. I
> started with a clean installation of ActivePerl, then it told me it
> couldn't find make, so I installed cygwin wit
From: aroushdi <[EMAIL PROTECTED]>
> I am writing a script to ask for some variables , construct the
> command then launch the command with qx or backtick . The command
> works fine . My problem is that the command monopolizes a console
> session ( I can kill it and my fired command still works )
On Apr 16, 2004, at 3:48 AM, Sten Berg wrote:
Hi John (and others)!
So far, I have this code (with good help from Venu :-), and it works:
my $file = shift;
open (TEST, "$file");
Don't do this. First, there is no need to quote a variable that
contains a string. Second, we always need to verify
On Friday 16 Apr 2004 3:00 pm, Jenda Krynicky wrote:
> From: aroushdi <[EMAIL PROTECTED]>
>
> > I am writing a script to ask for some variables , construct the
> > command then launch the command with qx or backtick . The command
> > works fine . My problem is that the command monopolizes a consol
> -Original Message-
> From: Jenda Krynicky [mailto:[EMAIL PROTECTED]
>
> If you look into C:\Perl\lib\Config.pm you'll find out that
> ActivePerl is set to expect "nmake", not "make" and it was compiled
> with MS Visual C, not with cygwin so modules compiled with cygwin may
> not be compat
From: Gary Stainburn <[EMAIL PROTECTED]>
> On Friday 16 Apr 2004 3:00 pm, Jenda Krynicky wrote:
> > From: aroushdi <[EMAIL PROTECTED]>
> >
> > > I am writing a script to ask for some variables , construct the
> > > command then launch the command with qx or backtick . The command
> > > works fine
I am trying to figure out my Perl parsing script to dump the interesting
part of my log files to another parsed file. Bascially I want to try an
remove "Dport" rows that contain 80,53,25, etc...Those are tabs between each
field.
Log File name "log.040411":
Start BytesSIp
Sten Berg <[EMAIL PROTECTED]> wrote:
:
: Another try
:
: Here is the logfile I tested on (I´ve marked were the loops starts):
So is "#loop1:" in there or not in there?
What about the dashes?
Show just what is in the file. Don't add anything.
: LOGFILE
: -
: UNNUMBERED
I get the usual warning "Use of uninitialized ." while trying to test a
variable ($counter) which is initialized later in my script. Using the
pragma use vars ($counter) makes it sticky. To avoid, I tried to work
around it by passing it to a sub.
my $counter = counter();
if ($counter ==
I have a bunch of rtf documents that I need to be able to work with on my
linux box. I want to convert them to text and still be able to have the white
space. At any rate I tried the before mentioned module and this was my
code...
#!/usr/bin/perl
use strict;
use warnings;
use RTF::TEXT::Convert
This regex by Rob is working alright, but can't follow exactly how it
truncates an absolute url from first character to the one before the
dot.
It returns (.domain4you.com from http:://www. domain4you.com.) exactly
what is expected, but I can't easily understand it.
Please I'm not pulling anyone
> I have a bunch of rtf documents that I need to be able to work with on my
> linux box. I want to convert them to text and still be able to have
the white
> space. At any rate I tried the before mentioned module and this was my
> code...
>
> #!/usr/bin/perl
> use strict;
> use warnings;
> use
Ok
It looks like this (just trying to be helpful ;-):
LOGFILE
-
UNNUMBERED INFO
--
Meas.Res. Nr
- value : 248 (fch)
Meas.Res. Nr
- value : 249 (fdh)
Meas.Res. Nr
- value : 250 (feh)
Meas.Res. Nr
- value : 251 (ffh)
Meas.Res. Nr
- value : 253 (fdh)
Meas.Res. Nr
- value : 254
Please bottom post
>
> This regex by Rob is working alright, but can't follow exactly how it
> truncates an absolute url from first character to the one before the
> dot.
>
> It returns (.domain4you.com from http:://www. domain4you.com.) exactly
> what is expected, but I can't easily underst
On Friday 16 April 2004 11:33 am, Wiggins d Anconia wrote:
> > I have a bunch of rtf documents that I need to be able to work with on my
> > linux box. I want to convert them to text and still be able to have
>
> the white
>
> > space. At any rate I tried the before mentioned module and this was my
Thanks for the small tutorial - but I must admit that I can only see
(according to your explanation) the regex to be matching anything except
a dot. So substituting them should return only 1 or more dots. But that
isn't what we get here. You're by saying that the dot in a class is not
a special qu
Please bottom post
> Thanks for the small tutorial - but I must admit that I can only see
> (according to your explanation) the regex to be matching anything except
> a dot. So substituting them should return only 1 or more dots.
Two points here
1. + is greedy meaning it keeps matching
Sten Berg <[EMAIL PROTECTED]> wrote:
: It looks like this (just trying to be helpful ;-):
Sorry, didn't mean to be so grumpy.
I wrote one solution and then re-read the post and
had to re-write because I hadn't caught the extra lines.
In this solution I first change the file into an
Hey guys anyone have any examples of how to check options with the Get::Long module.
Here is what I used to get the options. I need examples of how to check to see if they
entered the correct things or not.
&GetOptions('h|usage|help|info', 'p=s', 's=s', 't=s');
Eric Walker
--
To unsubscribe
[EMAIL PROTECTED] wrote:
Hey guys anyone have any examples of how to check options with the Get::Long module.
Here is what I used to get the options. I need examples of how to check to see if they
entered the correct things or not.
&GetOptions('h|usage|help|info', 'p=s', 's=s', 't=s');
I posted a
-Original Message-
From: Wiggins d'Anconia [mailto:[EMAIL PROTECTED]
Sent: Friday, April 16, 2004 4:59 PM
To: ewalker
Cc: [EMAIL PROTECTED]
Subject: Re: command line options
[EMAIL PROTECTED] wrote:
> Hey guys anyone have any examples of how to check options with the Get::Long module.
>
B. Fongo <[EMAIL PROTECTED]> wrote:
:
: I get the usual warning "Use of uninitialized ." while trying
: to test a variable ($counter) which is initialized later in
: my script.
Well that would make sense. The if statement below assumes
a value is in $counter. In perl undefined and 0 are both
deny wrote:
good afternoon
i use sendmail to send mail with a script perl
i receive this mail in /var/spool/clientmqueue
but not in my mailbox mozilla
here is the line in the script perl
open(MAIL, "|/usr/sbin/sendmail [EMAIL PROTECTED]");
piping to a program is very unreliable. for instance
-
piping to a program is very unreliable. for instance
- what flags are necessary with the version of sendmail?
dont know
i use sendmail-8.12.9-7mdk
- Is sendmail sendmail or a symlink to the server's real Mail Server ?
its my server
lrwxrwxrwx1 root root 21 avr 13 14:37 se
36 matches
Mail list logo
