I have a log file with thousands of lines, some of those lines come in with garbage /
binary data in them. The lines with that happening are junk and of no use to me I want
to pattern match for the junk and simply do nothing with that line, all other lines
get divided into 2 different output fil
Thanks to all that helped with this problem, and thanks especially to
RandyS as he hit the nail on the head. Here is the final working code
block below.
while () {
chop $_ ;
if( (/JUNIPER/) || (/REDBACK/) ){
print DSL $_ . "\n";
} else {
Ok well that might be what you are looking for, but also check out
format, link below:
http://www-cgi.cs.cmu.edu/Web/People/rgs/pl-format.html
or
perldoc perlform
It should be an easy matter to format your output to however many
columns you want.
Chris Hood
Chris Hood
Investigator Verizon
Ok what I have is 3 variables assigned in the global block using my then
when I try to use those variables later in a subroutine I get an error.
The error is below:
Error during compilation of
/usr/local/rt3/local/html/cgi-bin/aupsearch.cgi:
Variable "$ip" will not stay shared at
/usr/local/rt3/l
Ok, this may or may not be a tricky one I will try and be succinct in my
statement.
I have a database (mysql 4.0) with radius log entries for each day, we
receive emails about Acceptable Use Abuses and must figure out exactly
who was online with a certain IP address when the abuse occurred. As yo
Ok, this may or may not be a tricky one I will try and be succinct in my
statement.
I have a database (mysql 4.0) with radius log entries for each day, we
receive emails about Acceptable Use Abuses and must figure out exactly
who was online with a certain IP address when the abuse occurred. As yo
-
From: JupiterHost.Net [mailto:[EMAIL PROTECTED]
Sent: Wednesday, August 25, 2004 5:41 PM
To: Christopher L. Hood
Cc: [EMAIL PROTECTED]
Subject: Re: POD on new module to make sure it looks right before
uploading to CPAN
[EMAIL PROTECTED] wrote:
> Well I don't know if it is possible, how
OK here comes the newbie question.
I found this in a template for creating subroutines, this is the base
that is created when you use the template to create the subroutine.
So now the newbie part, why would you place "my $par1 = shift;" in the
subroutine template, and what does it do??
Basicall
please
notify the sender immediately and delete the message.
-Original Message-
From: Bob Showalter [mailto:[EMAIL PROTECTED]
Sent: Monday, August 30, 2004 2:41 PM
To: Christopher L. Hood; [EMAIL PROTECTED]
Subject: RE: shift question
[EMAIL PROTECTED] wrote:
> OK here comes the new
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Tuesday, August 31, 2004 6:50 AM
To: [EMAIL PROTECTED]
Subject: delete all lines in a file save it come out
Hi ,
I have a problem in deleting all the lines in a file and saving it .
Actually my log file keep appe
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Tuesday, August 31, 2004 12:10 AM
To: [EMAIL PROTECTED]
Subject: Re: How do i run shell command
It works for me . Thanks
Sudhakar Gajjala
Chris Devers <[EMAIL PROTECTED]> on 08/30/2004 10:47:55 PM
Please
Ok here is the deal, our admin is trying to install DBD::Oracle for me to
access one of our affiliates databases. The oracle "instant basic client"
and "sqlplus" has been installed as well as GetOpt::Long.
The installations all went well except for DBD::Oracle, it fails to
install, I am pretty sur
I believe that I may have asked this question before and cannot find the
answer that I had gotten, So I will ask again.
I have upgraded DBI to version 1.48 and I am now having issues and errors
with my scripts. The error that I am getting is :
DBI object version 1.32 does not match $DBI::VE
on is installed?
Chris Hood
-Original Message-
From: Chris Devers [mailto:[EMAIL PROTECTED]
Sent: Wednesday, April 06, 2005 8:42 AM
To: Christopher L. Hood
Cc: Perl Beginners List
Subject: Re: DBI object version 1.32 does not match $DBI::VERSION 1.48
On Wed, 6 Apr 2005 [EMAIL PROTECTED]
: Wednesday, April 06, 2005 8:42 AM
To: Christopher L. Hood
Cc: Perl Beginners List
Subject: Re: DBI object version 1.32 does not match $DBI::VERSION 1.48
On Wed, 6 Apr 2005 [EMAIL PROTECTED] wrote:
> I have upgraded DBI to version 1.48 and I am now having issues and
> errors with my script
Ok, basically I have a list of start times, stop times, usernames, and
ip's in a database, I currently have code in place that will take in a
date and ip address and return a list of people that had that IP address,
with the time that they acquired the ip and the time that they released
the ip.
Wh
sltDSLinfo = split(/\//, $row[6]);
$rsltdslam = $rsltDSLinfo[0];
$rsltport = $rsltDSLinfo[2];
}else{
$rsltdslam = "";
$rsltport = "";
}
$start_time = DateCalc("$rsltdate $rsltrecord_time","-
$session_time sec
I wish to read input from a user that has multiple lines with carriage
returns from but not actually stop reading until a single # on a
line by itself. Is there a module / package / function that will aid in
this? I would like to do something like below:
Until( = "#") {
$incoming_
Ok I have an issue where I run an sql query against a database, and want
to evaluate whether or not an entry occurs for a given user, if NOT then
this run will be the first entry. Ok the problem occurs in the while
statement, everything works as expected if the user already has an entry
in the DB,
I have a need to have 3 different templates of email text outside of my
actual script, what I want to know is can I use variables in the templates
then open the file for reading and substitute the variables in the text
with some data saved in matching variables in my script?
Is there a module that
Why doesn't this work to check the until it is one of the numbers
"1 2 3 4 5" ?? I have tried multiple variations of this with different
brackets ie. [ ] , and ( ) .
until($type_number == 1 .. 5 ){
print "Enter the number that corresponds to the type of offense you would
like a report for\n"
All,
I am getting the following error while trying to use DBD::Oracle:
DBD::Oracle::st execute failed: ORA-00900: invalid SQL statement (DBD
ERROR: OCIStmtExecute) [for Statement "describe ALL_USERS"] at
./oracleTest.pl line 69.
I have tested the connection manually with sqlplus, and al
:55 PM
To: Christopher L. Hood; beginners@perl.org
Subject: RE: :Oracle problems
[EMAIL PROTECTED] wrote:
> All,
>
> I am getting the following error while trying to use DBD::Oracle:
>
> DBD::Oracle::st execute failed: ORA-00900: invalid SQL statement (DBD
> ERROR: OCIStmtExecu
ALL,
Can someone help out with this error:
DBD::Oracle::st execute failed: ORA-03106: fatal two-task communication
protocol error (DBD ERROR: error possibly near <*> indicator at char 23 in
'select table_name from <*>all_tables') [for Statement "select table_name
from all_tables"] at ./orac
your assistance.
Chris Hood
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Wednesday, June 01, 2005 8:02 AM
To: Christopher L. Hood
Cc: mysql@lists.mysql.com; beginners@perl.org
Subject: Re: DBD::Oracle issue
Hi,
I'll try even if this is not a neither o
I think that Rob was onto something, here
is my 2 cents.
The print line should be like this:
print <
and not
print< < EOF
like you have. I think maybe that what is
happening is that the error that is being printed is saying that it cannot find
“EOF” before end of file
Ok basically I have written a module, and it works, I have updated the
documentation in the module, and it works for the most part. What I am seeing
is that when I use a single quote that the line looks like this when you use
perldoc.
ookup::GetInfo(’$affiliate’,’$ip_address’,’$dsl
Ok , all file contents and code are below, this is a sort of complicated
issue. I have a config file with customer static information , a couple of
modules, and a script. The basis of the problem is that in the config file
there is an sql query that has some variables in it. The script calls one
mo
28 matches
Mail list logo
