globals

2004-08-17 Thread Fontenot, Paul
After searching through the Perl Bookshelf CD, I have found that you can declare a global and then use local() to change that value for a block of code. I haven't found how to use a value from within a block of code outside that block of code though. Is this possible? I'm sure I just don't know wha

RE: pattern extraction

2004-08-16 Thread Fontenot, Paul
(MS\d\d-\d\d\d)/i; -Original Message- From: Wagner, David --- Senior Programmer Analyst --- WGO [mailto:[EMAIL PROTECTED] Sent: Monday, August 16, 2004 4:06 PM To: JupiterHost.Net; Fontenot, Paul Cc: [EMAIL PROTECTED] Subject: RE: pattern extraction JupiterHost.Net wrote: > Fontenot, P

RE: pattern extraction

2004-08-16 Thread Fontenot, Paul
Ugh, I thought I was done. Why would this show the MS?-??? in either upper or lowercase http://www.microsoft.com/technet/security/bulletin/MS03-051.asp"; target="_default">Microsoft Security Bulletin MS03-051 And this one would not show a value? http://www.microsoft.com/technet/treeview/?url=/tec

RE: pattern extraction

2004-08-16 Thread Fontenot, Paul
Thanks for all the help, I'll be sure and do that from now on. -Original Message- From: Chris Devers [mailto:[EMAIL PROTECTED] Sent: Monday, August 16, 2004 12:08 PM To: Fontenot, Paul Cc: Bob Showalter; [EMAIL PROTECTED] Subject: RE: pattern extraction On Mon, 16 Aug 2004, Fon

RE: pattern extraction

2004-08-16 Thread Fontenot, Paul
Thanks for the help. That did it, now if I could ask one more question on this. How can I make the MS portion match either upper or lower case? -Original Message- From: Bob Showalter [mailto:[EMAIL PROTECTED] Sent: Monday, August 16, 2004 12:01 PM To: 'Chris Devers'; Fonteno

RE: pattern extraction

2004-08-16 Thread Fontenot, Paul
Here is the entire script: while (my(@row) = $sth->fetchrow_array) { my $ip = $row[0]; next if $ip == "010.041.\*"; my $name = $row[1]; my $mso = $row[2](m/MS\d\d\-\d{3}/); my @date = split/ /, $row[3]; my $severity = $row[4];

RE: pattern extraction

2004-08-16 Thread Fontenot, Paul
AM To: Fontenot, Paul Cc: [EMAIL PROTECTED] Subject: Re: pattern extraction Fontenot, Paul wrote: > If I have this: > href="http://www.microsoft.com/technet/security/bulletin/MS02-045.asp"; > target="_default">Microsoft Security Bulletin MS02-045 > > Or this

pattern extraction

2004-08-16 Thread Fontenot, Paul
If I have this: http://www.microsoft.com/technet/security/bulletin/MS02-045.asp"; target="_default">Microsoft Security Bulletin MS02-045 Or this: http://www.microsoft.com/technet/treeview/?url=/technet/security/b ulletin/MS02-045.asp" target="_default">Microsoft Security Bulletin MS02-045 How can

Sending Email

2004-08-16 Thread Fontenot, Paul
I'm in need of a way to send the output of a script from a windows server via email and I'm drawing a blank. What is the module called?

One word

2004-08-13 Thread Fontenot, Paul
I have a DBI script to extract information via ODBC from a MSSQL server. I can get everything I need BUT on one returned value $mso in the following script I want to match one word. It is always MS0?-??? .How can I go about doing this? SAMPLE MS0?-??? ENTRY

RE: Spaces...

2002-06-10 Thread Fontenot, Paul
You are the man, thanks. That was exactly what I needed. -Original Message- From: Hanson, Robert [mailto:[EMAIL PROTECTED]] Sent: Monday, June 10, 2002 10:02 AM To: Fontenot, Paul; Perl - Beginners (E-mail) Subject: RE: Spaces... Try /\s+/ >From the perlre manpage: \s Matc

Spaces...

2002-06-10 Thread Fontenot, Paul
I have a logfile that has the following format: month day time The problem is splitting on the "space" - split(/ /). Sometimes there are more than one space. How can I get perl to split on 1 or more spaces? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL P