Check out Mail::Mailer ... I use that for 99% of my scripts that need
email support..
---
Jason H. Frisvold
Backbone Engineering Supervisor
Engineering Dept.
Penteledata
RedHat Engineer - RHCE # 807302349405893
[EMAIL PROTECTED]
---
I love
On Thu, 2003-11-13 at 15:50, Suman, Kaushik wrote:
How do you get help on a perl module..?
I find that going to search.cpan.org and searching for the module in
question is enough... You can also use perldoc if you know where the
.pm file was installed..
-Original Message-
From: Jason
/Sender.pm
HTH
DMuey
-Original Message-
From: Jason Frisvold [mailto:[EMAIL PROTECTED]
Sent: Thursday, November 13, 2003 11:48 AM
To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
Subject: RE: trying again
Check out Mail::Mailer ... I use that for 99% of my scripts
This helped out considerably! I found that there are 3 CR's at the
beginning of each line.. stripping these out makes it all work
perfectly :)
Thanks,
On Wed, 2003-01-08 at 10:44, Christopher Kruslicky wrote:
On Wednesday 08 January 2003 3:11 pm, Jason Frisvold wrote:
This works great
Could be that page does not exist in the table you are trying to query,
or that $Table is not set or calling a non-existant table... Try
printing out $Table by itself before calling the SQL statement.
On Thu, 2003-01-09 at 10:09, Francis Henry wrote:
Hi Gary:
What happens when you run the
Hi all,
I'm using the Net::Telnet module to automate some of the more menial
tasks I have to deal with every so often. Part of the task requires
parsing a stream of data from the device I'm telnetting to (A Marconi
ASX-200 to be exact) ... I've successfully set up the telnet, logged
in,
:
print \n start line \n $line \n end line \n;
Dan
-Original Message-
From: Jason Frisvold [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, January 08, 2003 1:39 PM
To: Perl Beginners List
Subject: hidden characters in an input stream
Hi all,
I'm using
::
print ---$line\---\n;
Or this
print --- $line ---\n
You may try
$line =~ s/\n|\r//g;
Dan
-Original Message-
From: Jason Frisvold [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, January 08, 2003 1:54 PM
To: Dan Muey
Cc: Perl Beginners List
Subject: RE: hidden characters
;
...
might do the trick.
HTH
Jason Frisvold [EMAIL PROTECTED] wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
--
---
Jason H. Frisvold
Backbone Engineer
Penteledata Engineering
[EMAIL PROTECTED]
RedHat Certified - RHCE # 8073023
Message-
From: Jason Frisvold [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, January 08, 2003 2:00 PM
To: Dan Muey
Cc: Perl Beginners List
Subject: RE: hidden characters in an input stream
I had thought of that before, tho ... Here's the ourput using the backslash :
--- sec log sho
while (my $line = $Telnet-getline(Timeout = 5,)) {
$line =~ s/\r\n$\\;
chomp $line;
...
might do the trick.
HTH
Jason Frisvold [EMAIL PROTECTED] wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
--
---
Jason H.
calculations
to ensure that it's running efficiently...
How do I allow monitor.perl to spawn pingit.perl and snmpit.perl and
still continue running itself?
On Mon, 2002-11-18 at 16:43, Alan Cameron wrote:
On 18 Nov 2002 15:21:26 -0500, Jason Frisvold [EMAIL PROTECTED] wrote:
[snip]
I can't see
Hrm.. didn't think of that ... *heh* Good idea ...
I'm gonna use the Proc::Daemon module though .. seems to do exactly what
I need without messing with forking directly...
On Mon, 2002-11-18 at 21:29, Steve Grazzini wrote:
That's all more or less correct, but you're missing a fundamental
I'm writing a monitoring system (Yes, still... Finally got the go-ahead
to do this) and my design calls for a central Smart Daemon that spawns
and monitors the lesser Daemons that do the actual monitoring. My
problem is that I'm not sure how to go about this.
From what I understand, fork
That is exactly what I was hoping...
Thanks!
On Tue, 2002-11-05 at 16:48, Nikola Janceski wrote:
the second 'my $var2' will have memory allocated to it, but will not be
freed until Perl ends, but Perl will re-use that memory allocation after
leaving the {BLOCK}.
--
Does anyone know if there is a Perl Profiler (Open Source or Commercial)
that is in existance? Apparently my boss thinks this will magically fix
various issues... :)
--
---
Jason 'XenoPhage' Frisvold
Senior ATM Engineer
Penteledata Engineering
[EMAIL PROTECTED]
RedHat
reading on this ... looks like
it may do a lot more than meets the eye ... :)
Friz
On Mon, 2002-10-07 at 14:31, George Schlossnagle wrote:
perldoc Devel::DProf
It's a very useful and functional profiler (IMHO).
George
Jason Frisvold wrote:
Does anyone know if there is a Perl Profiler
before?
-Original Message-
From: Jason Frisvold [mailto:[EMAIL PROTECTED]]
Sent: Monday, October 07, 2002 2:24 PM
To: beginners perl
Subject: Perl Profiler?
Does anyone know if there is a Perl Profiler (Open Source or
Commercial)
that is in existance? Apparently my boss
Is there a way to redirect all the output (anything printed by the
program itself and any error output) back into the program so the
program can handle it?
I'd like to be able to redirect it to itself so if there are any errors
or unexpected output during a cron job, it'll all get mailed to
If you use the RPM's, then you should be able to just install the client
and shared rpm's ... I believe they have the needed files.
On Fri, 2002-09-20 at 06:04, Priss wrote:
Hi,
Wonder if someone could help me, I am trying to
install DBD::mysql module to access a remote mysql
database. I
Greetings,
I'm in the process of writing a large network monitoring system in
perl. I want to be sure I'm headed in the right direction, however.
I have a large MySQL database comprised of all the items that need
monitoring. Each individual row contains exactly one monitoring
the beginning or continue on from
that point?
Yes, I'm headed over to look up fork now .. :)
perldoc -f fork .. right?
Friz
On Thu, 2002-09-19 at 10:36, Bob Showalter wrote:
-Original Message-
From: Jason Frisvold [mailto:[EMAIL PROTECTED]]
Sent: Thursday, September 19, 2002 9:43 AM
Since we've finally been able to get a development machine, I find
myself needing a quick, efficient way of pointing the programs we write
at the correct location for the different servers they need to talk to.
For instance, in production we use server A for the database server.
But in
Oh, I am happy with 5.6.1 ... Use it all over the place ... But ...
Threading ... Real, honest threading? That would be something
wonderful...
Any idea if there's a shared memory module for the threading? I believe
the problem I ran into last time I tried this was that most of the
modules
Ok, I'm a bit behind the times... :-)
What are the major advantages (if any) to moving to 5.8.0? I'm running
5.6.1 right now... Is it worth it? Is it fully backwards compatible?
---
Jason H. Frisvold
Senior ATM Engineer
Engineering Dept.
Penteledata
RHCE -
I do it this way (working in production code):
opendir(DIR, $dir);
while (defined ($filename = readdir DIR)) {
next if $filename =~ $pattern;
unlink($filename);
}
}
close(DIR);
---
Jason H. Frisvold
Senior ATM Engineer
Engineering Dept.
Penteledata
CCNA
Greetings all,
I'm going to be starting a project shortly where I will require
the ability to communicate with the program via TCP/IP... Does anyone
have any experience with this? Any suggestions on where I should start
looking for information? It needs to be fairly secure with some
Let DBI quote it for you..
$month = $dbh-quote($month);
$day = $dbh-quote($day);
$hms = $dbh-quote($hms);
$host = $dbh-quote($host);
$description = $dbh-quote($description);
$dbh-do(INSERT INTO tb1 (month, day, hms, host, description) VALUES
($month, $day, $hms, $host, $description));
Perhaps your network engineer was thinking in relation to a Class C? In
reality, you can have subnets where .3 is a broadcast... (/30) It's
all relative to what subnet mask you are using for that particular IP
address.
---
Jason H. Frisvold
Senior ATM Engineer
Is anyone here familiar with DBD::CSV? I seem to be hitting a limit (I
think) but I'm not sure how to figure it out... I have a CSV file with
about 114 columns in it (I'm not generating these myself, it's Steel
Belted Radius doing it) and I want to use DBD::CSV to pull the fields I
want and
, June 07, 2002 10:00 AM
To: Jason Frisvold; Beginners@Perl. Org (E-mail)
Subject: RE: :CSV
As an alternative you could use Text::CSV to split the fields.
Rob
-Original Message-
From: Jason Frisvold [mailto:[EMAIL PROTECTED]]
Sent: Friday, June 07, 2002 9:36 AM
To: Beginners@Perl. Org (E-mail
]
---
Imagination is more important than knowledge. Knowledge is limited.
Imagination encircles the world. -- Albert Einstein [1879-1955]
-Original Message-
From: Michael Fowler [mailto:[EMAIL PROTECTED]]
Sent: Friday, June 07, 2002 3:06 PM
To: Jason Frisvold
Cc: Beginners@Perl. Org (E-mail
Greetings...
I find the easiest way to talk to mySQL (and get a response!) is via
DBI... I'm guessing it's perdoc DBI, but I may be wrong... :)
If you need any help, I do this sort of dirty work on a daily basis...
---
Jason H. Frisvold
Senior ATM Engineer
Engineering
Hrm... according to the DBI docs, execute() returns undef if it fails...
perhaps you should be using if (defined($result)) { } ?? You might
also check for $DBI::errstr ... I believe that only exists when there
is an error...
Are you sure your update is failing?
---
than knowledge. Knowledge is limited.
Imagination encircles the world. -- Albert Einstein [1879-1955]
-Original Message-
From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, May 29, 2002 6:28 PM
To: Jason Frisvold
Cc: begin begin
Subject: Re: variable initialization
.
Imagination encircles the world. -- Albert Einstein [1879-1955]
-Original Message-
From: John W. Krahn [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, May 29, 2002 6:54 PM
To: [EMAIL PROTECTED]
Subject: Re: variable initialization
Jason Frisvold wrote:
I stumbled across a bug in my own code
I stumbled across a bug in my own code I figured I'd share... Actually,
I'm wondering if there is a way to do this
I was using the following code :
my ($var1, $var2) = 0;
The intent was to initialize the variables to 0. However, as I found
out a few minutes ago, this only initializes the
This is kind of a weird situation and *disclaimer* isn't my code! :-)
The problem is that we're getting a weird error with this code... (this
is from the actual program)
Undefined subroutine TicketEmail::set_path_information called at
/usr2/local/PerlModules/TicketEmail.pm line 30.
-1955]
-Original Message-
From: drieux [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, May 28, 2002 3:20 PM
To: Jason Frisvold
Cc: begin begin
Subject: Re: 'use' question
On Tuesday, May 28, 2002, at 12:03 , Jason Frisvold wrote:
[..]
Undefined subroutine TicketEmail::set_path_information
I need to write a program that telnets to a specific port and logs all
the output to a file. Is there an easy way to do this in perl? I tried
this via the command line (telnet 1.2.3.4 23 my.log ) but it
apparently buffers everything and I'd like to be able to tail the file
at times...
I have a question about 'use strict' ... Yeah, I guess this counts as
a duh! question... :-)
I put 'use strict' at the beginning of one of my scripts... It
basically broke the script... (or fixed it, if you want to look at it
that way) The problem is that it wanted explicit package
]
-Original Message-
From: Bob Showalter [mailto:[EMAIL PROTECTED]]
Sent: Monday, May 06, 2002 11:34 AM
To: Jason Frisvold; [EMAIL PROTECTED]
Subject: RE: use strict
-Original Message-
From: Jason Frisvold [mailto:[EMAIL PROTECTED]]
Sent: Monday, May 06, 2002 11:19 AM
To: [EMAIL
Here's another simple question I have an array of arrays and I want
to use a foreach to do something with each entry... currently I do this
:
foreach my $item (@myarray) {
my ($item1, $item2) = @$item;
do stuff here
}
Is there a way to combine the first 2 lines? Is it any
);
my @a3 = qw( thr tri );
my @a4 = qw( fou quad );
my @a5 = qw( fiv quat );
my @myarray = (\@a1, \@a2, \@a3, \@a4, \@a5);
foreach my $item (@myarray) {
my($item1, $item2) = @$item;
print $item1 and $item2\n;
}
my @item;
foreach ( @myarray ) {
print $$_[0] and $$_[1]\n;
}
Jason Frisvold
Let's see if I can explain what I'm trying to do before I toss code
out... I have a database with several columns of data. I want to fetch
all the pertinent info into a single array of arrays and then work on
each row of the data individually. (I don't want to use fetch() because
there's no
Is the DBHandler not re-using the memory it allocated the first time
around? Sounds like when you create the handler every iteration, it's
just ignoring the memory it used from the previous iteration and
allocating more memory...
---
Jason H. Frisvold
Senior ATM Engineer
Ugh.. Forgot to CC in the list...
-Original Message-
I use this little subroutine :
use Socket;
sub nslookup {
my $ipaddress = shift;
my $dnsname =
gethostbyaddr(pack('C4',split(/\./,$ipaddress)),AF_INET);
if ((! defined $dnsname) || ($dnsname eq '')) {
print ***
. -- Albert Einstein [1879-1955]
-Original Message-
From: Chas Owens [mailto:[EMAIL PROTECTED]]
Sent: Friday, April 26, 2002 10:46 AM
To: Jason Frisvold
Cc: [EMAIL PROTECTED]
Subject: Re: Debugging and 'uninitialized value in concatenation'
question
On Thu, 2002-04-25 at 14:49, Jason
is more important than knowledge. Knowledge is limited.
Imagination encircles the world. -- Albert Einstein [1879-1955]
-Original Message-
From: Chas Owens [mailto:[EMAIL PROTECTED]]
Sent: Friday, April 26, 2002 11:47 AM
To: Jason Frisvold
Cc: [EMAIL PROTECTED]
Subject: RE: Debugging
Judging from the subject lines coming across the list today, I think I'm
gonna toss this question out there and then duck and cover... :-)
I have 2 actual questions. I'll try to be as specific as possible..
:-)
Question #1.
When I'm writing code, I want to be able to view as much output as
.
Imagination encircles the world. -- Albert Einstein [1879-1955]
-Original Message-
From: Jenda Krynicky [mailto:[EMAIL PROTECTED]]
Sent: Thursday, April 25, 2002 4:17 PM
To: [EMAIL PROTECTED]
Subject: Re: Debugging and 'uninitialized value in concatenation'
question
From: Jason Frisvold [EMAIL
Greetings all,
I'm looking for a way to have perl output in an asynchronous
manner What I mean is, if I write a perl script to generate a large
amount of data and output it to the screen, it seems to pause until some
unknown buffer is full and then spit out the output pause again, show
52 matches
Mail list logo