I am trying to come up with a script to convert this output from RRDTool DUMP to a
format which lends itself to import into Excel 97. Unfortunately, I am just getting
started with Perl and do not have a clear enough grasp of how to configure this so
that it strips out the unwanted parts and
Here is a simplistic approach. May want more edits, but is a starting place.
Placing the data for testing under DATA:
while ( DATA ) {
chomp;
next if ( /^\s*$/ ); # bypass blank lines
if ( /^!--\s(\d+.+)\s\/\s(\d+)\s-- rowv (.+) \/vv (.+) \/v\/row/ ) {
printf
Geoff,
Are your Solaris boxes running SNMP? If so you could try Net::SNMP?
http://search.cpan.org/search?dist=Net-SNMP
Use get_request to get the sysDescr OID (1.3.6.1.2.1.1.1.0).
There's a good example of getting sysUpTime in the help file, just change
the OID to the one above. This should
Daniel,
$Bill's split solution is probably the best one to use, (it's the most
generic, elegant and easiest to read). It is worth mentioning that the for
the specific question you ask to cut each element of the array down to the
string preceding the : colon it's is not necessarily the most
Works but not if you have more or fewer than 2 values in a row.
Do you?
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Wagner-David
Sent: Thursday, January 10, 2002 1:31 PM
To: 'Gordon Brandt'; [EMAIL PROTECTED]
Subject: RE: Regex Help Please!
I worked from the data you provided. What can the data really look like?
Provide some other and will make mod to handle(hopefully).
Wags ;)
-Original Message-
From: Ron Hartikka [mailto:[EMAIL PROTECTED]]
Sent: Thursday, January 10, 2002 10:49
To: 'Gordon Brandt'; [EMAIL
Desire to take a variable to scale and to give format him of numerico
example 3145 == 3.145,00
and used sprintf but does not give this format anybody me knows since I can
do this
thanks
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
:: -Original Message-
:: From: Gordon Brandt [mailto:[EMAIL PROTECTED]]
:: Sent: Thursday, January 10, 2002 12:17 PM
:: To: [EMAIL PROTECTED]
:: Subject: Regex Help Please!
::
:: [-snip-]
::
:: Input file:
:: |
::
:: (misc header information I want to delete)
::
::
A less elegant (perhaps) solution, but effective, no matter how many rows /
values:
while() {
s/\r//g; # I hate that carriage return
chomp;
next if(!/^.*\!--/); # skip non-matching lines
my @values;
my $ts = $1 if(s/\!--\s*(.*?)\s*--//);
my($ts1,$ts2) =
On 09 Jan 02, Giangreco, Tony ([EMAIL PROTECTED]) wrote:
I need to process about three hundred files daily. The file names will all
have a prefix of BT but the remainder of the file name is 6 byte numeric
number that is incremented by one with each new file.
Is there a way to execute
Title: Message
Second send:: Does anyone read
these?:)
I'm
trying use Win32::API to load WinPCap's socket.dll...
Anyone have sample code available on how to load a
3rd Party dll with Win32::API? Is there
another way to do this?
...::: Matt :::... Special thanks go out to my good friends,
Actually, the POP3 is on a different server..so unfortunately, that does not work for
me.
-Original Message-
From: Kuhnibert [EMAIL PROTECTED]
Date: Mon, 7 Jan 2002 23:11:45 +0100
To: Riva S [EMAIL PROTECTED], [EMAIL PROTECTED]
Subject: Re: SMTP Server requires authentication
maybe
Cristian,
See Perl FAQ 5, How can I output my numbers with commas added?
Of course you'll need to replace the comma with a . within your code.
A combination of sprintf followed by commify should do what you want.
Perhaps you can call the sub decimal_pointify instead :-)
HTH
Alistair
-Original Message-
From: Riva S [mailto:[EMAIL PROTECTED]]
Sent: Monday, January 07, 2002 2:13 PM
To: [EMAIL PROTECTED]
Subject: SMTP Server requires authentication
Using Mail::Sender, I get Server error: 505 Authentication
required when trying to send email, which I
Usually SMTP authentication means that the server will
not send an email unless the sendee's address matches
an account on that SMTP server. If you try sending an
email with a recoginzed email address you probably
won't get an error.
Or try an earlier suggestion of setting up your own
SMTP
Hey Alistair,
You know if there's anyway to localize these sort of things (not just number
formats, but dates and that sort of thing as well) within Perl?
Thanx,
Ian
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]
Sent: Thursday, January 10, 2002 2:53 PM
To:
At least on NT4, there's a Regional Settings control panel that has number
format, as well as currency, etc. So, I'm guessing, those settings must
exist in the registry somewhere.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]
Sent: Thursday, January 10, 2002
Hi John,
In a message dated 1/8/02 2:40:00 AM Central Standard Time,
[EMAIL PROTECTED] writes:
As you can see, the framing errors work, and are reported but nothing is
defined for the blocking(which makes sense since the port is not blocked),
the number of bytes in the input buffer(this
Alastair wrote:
Are your Solaris boxes running SNMP? If so you could try Net::SNMP?
Or maybe they run SSH? Check if you can connect to port 22.
/J
-- --- -- -- -- -- - - -
Johan LindströmSourcerer @ Boss Casinos [EMAIL PROTECTED]
Latest
In the camel book they discuss this -- so it should be somewhere in the
documentation?
Ricky
-Original Message-
From: Cristian Carvajal [mailto:[EMAIL PROTECTED]]
Sent: Thursday 10 January 2002 1:57 PM
To: [EMAIL PROTECTED]
Subject: Format number
Desire to take a variable to scale and
Yes.
dolljunkie pointed me to perldoc perllocale. Pretty cool!
Thanx,
Ian
-Original Message-
From: Morse, Richard E. [mailto:[EMAIL PROTECTED]]
Sent: Thursday, January 10, 2002 3:36 PM
To: 'Cristian Carvajal'; [EMAIL PROTECTED]
Subject: RE: Format number
In the camel book
- Original Message -
From: [EMAIL PROTECTED]
Yes.
dolljunkie pointed me to perldoc perllocale. Pretty cool!
Sorry, meant to post that to the whole list, but the reply-to headers got
me! =)
You can also access the docs online at:
Hello all again,
I am trying to use the waitfor function in the Net::Telnet module but I
am not seeming to have much success.
here is my test script...
#!/usr/bin/perl
use Net::Telnet;
my $telnet = new Net::Telnet ( timeout=15,
Errmode='die',
Are you SURE there is exactly one space character after (y/n) ? Followed
by a carriage return?
If not, you'll need to change your regex.
--
Mark Thomas[EMAIL PROTECTED]
Sr. Internet Architect User Technology Associates, Inc.
$_=q;KvtuyboopuifeyQQfeemyibdlfee;;
24 matches
Mail list logo
