List,
First I would like to thank all who provided input.. With the help of the
this list, I was able to figure out what I needed to change to get it all
working.. And we have successfully kept VB out (Yippy!)..
Now to the solution (note: I have copied the little test code and its output
below..
> Can someone explain how to access $InstDesc?? Also please
> explain how I would access (that is read from or write to)
> to the $Severity scalar on the bottom structure..
> Thanks in advance.. flk
Sure I can help. (or guide you astray)
#!/usr/bin/perl
use strict;
use warnings;
my %PlcyActi
On 28/09/2011 15:33, Frank Kleinburg wrote:
Hello list,
I've been playing with perl going back to the 4.x days, mostly simple
scripts to monitor server or application daemons, kick off and manage
backups, or read log files.. While some of these programs are fairly
complicated, none have more tha
Frank:
CCing the list since you didn't indicate that this was a private
message. I'm assuming you meant to "reply to all" (which is
probably what you should have done anyway). :)
On Wed, Sep 28, 2011 at 12:55 PM, Frank Kleinburg wrote:
> Brandon,
>
> You nailed it.. The one change from "INSTNCE
On Wed, Sep 28, 2011 at 1:00 PM, lesleyb wrote:
> $Policy->{INSTNCE} evaluates to a hash. Then you ask Perl to access the value
> given by the key $CondID in that hash. $CondID is a key to a reference to
> another anonymous hash. But this time you don't use the '->' to get to the
> value of the
On Wed, Sep 28, 2011 at 09:33:50AM -0500, Frank Kleinburg wrote:
> Hello list,
>
> I've been playing with perl going back to the 4.x days, mostly simple
> scripts to monitor server or application daemons, kick off and manage
> backups, or read log files.. While some of these programs are fairly
>
On Wed, Sep 28, 2011 at 10:33 AM, Frank Kleinburg wrote:
> $Policy = {
> NAME => $PlcyName,
> DESCRPT => $PlcyDesc,
> INSTNCE => { %Instance },
> };
>
> %Instance = (
> $CondID => {
> DESCRPT =>
Hello list,
I've been playing with perl going back to the 4.x days, mostly simple
scripts to monitor server or application daemons, kick off and manage
backups, or read log files.. While some of these programs are fairly
complicated, none have more than just tickled the more sophisticated
features
> -Original Message-
> From: Patrick K Christopher TANAGER
> [mailto:pchristop...@tanagerinc.com]
> Sent: Tuesday, July 21, 2009 11:04
> To: Wagner, David --- Senior Programmer Analyst --- CFS; Tony
> Esposito; beginners@perl.org
> Subject: RE: Having problems
Uri Guttman wrote:
"SHC" == Shawn H Corey writes:
SHC> Uri Guttman wrote:
>>
>> print <
>> All STDOUT/STDERR will be assigned to this scripts audittrail log!!
>> All STDOUT/STDERR will be assigned to this scripts audittrail log!!
>> All STDOUT/STDERR will be assigned to this scrip
> "SHC" == Shawn H Corey writes:
SHC> Uri Guttman wrote:
>>
>> print <> All STDOUT/STDERR will be assigned to this scripts audittrail log!!
>> All STDOUT/STDERR will be assigned to this scripts audittrail log!!
>> All STDOUT/STDERR will be assigned to this scripts audittrail log!!
qw(tee);
>
> # simple usage:
> tee(STDOUT, '>', 'stdout.txt');
>
> Tony
>
>
>
> ________
> From: John W. Krahn
> To:
> Sent: Tuesday, 21 July, 2009 8:41:25
> Subject: Re: Having problems getting data back to STDOUT once
Uri Guttman wrote:
""D" == "Wagner, David <--- Senior Programmer Analyst --- CFS"
> writes:
"D> printf "All STDOUT/STDERR will be assigned to this scripts audittrail
log!!\n";
"D> printf "All STDOUT/STDERR will be assigned to this scripts audittrail
log!!\n";
"D> printf "Al
> ""D" == "Wagner, David <--- Senior Programmer Analyst --- CFS"
> > writes:
"D> printf "All STDOUT/STDERR will be assigned to this scripts audittrail
log!!\n";
"D> printf "All STDOUT/STDERR will be assigned to this scripts audittrail
log!!\n";
"D> printf "All STDOUT/S
> -Original Message-
> From: Tony Esposito [mailto:tony1234567...@yahoo.co.uk]
> Sent: Tuesday, July 21, 2009 08:08
> To: beginners@perl.org
> Subject: Fw: Having problems getting data back to STDOUT once
> I assign it to a file
>
> Back to the question at han
Jay Savage wrote:
On Tue, Jul 21, 2009 at 9:25 AM, Shawn H. Corey wrote:
John W. Krahn wrote:
[snip]
close(STDERR);
open(STDOUT , '>') || die "Unable to open STDOUT: $!";
You're not opening STDOUT to anything. And you closed STDERR so the die
message can't go anywhere. In fact
Back to the question at hand - have you tried using 'tee'
use File::Tee qw(tee);
# simple usage:
tee(STDOUT, '>', 'stdout.txt');
Tony
From: John W. Krahn
To:
Sent: Tuesday, 21 July, 2009 8:41:25
Subject: Re: Having problems
On Tue, Jul 21, 2009 at 9:25 AM, Shawn H. Corey wrote:
> John W. Krahn wrote:
[snip]
close(STDERR);
open(STDOUT , '>') || die "Unable to open STDOUT: $!";
>>>
>>> You're not opening STDOUT to anything. And you closed STDERR so the die
>>> message can't go anywhere. In fact
Tony Esposito wrote:
From: John W. Krahn
Shawn H. Corey wrote:
John W. Krahn wrote:
Shawn H. Corey wrote:
Wagner, David --- Senior Programmer Analyst --- CFS wrote:
I am done processing and I want to place the final output
line also on the screen. Here is what I have:
if ( $GlblI
Shawn H. Corey wrote:
John W. Krahn wrote:
Shawn H. Corey wrote:
Wagner, David --- Senior Programmer Analyst --- CFS wrote:
I am done processing and I want to place the final output line
also on the screen. Here is what I have:
if ( $GlblInfo{audit} ) {
printf "\n\n*Shoul
John W. Krahn wrote:
Shawn H. Corey wrote:
Wagner, David --- Senior Programmer Analyst --- CFS wrote:
I am done processing and I want to place the final output line
also on the screen. Here is what I have:
if ( $GlblInfo{audit} ) {
printf "\n\n*Should be last line in the a
Shawn H. Corey wrote:
Wagner, David --- Senior Programmer Analyst --- CFS wrote:
I am done processing and I want to place the final output line
also on the screen. Here is what I have:
if ( $GlblInfo{audit} ) {
printf "\n\n*Should be last line in the audittrail
file...
Wagner, David --- Senior Programmer Analyst --- CFS
asked:
> I have looked at perldoc -f open and tried a number of things. The
> line "should be last line" is appearing in my audittrail file, but I
> never see the EndOfProg or Error in the auditrrail or on the screen.
Try "perldoc -f sele
Wagner, David --- Senior Programmer Analyst --- CFS wrote:
I am done processing and I want to place the final output line also on
the screen. Here is what I have:
if ( $GlblInfo{audit} ) {
printf "\n\n*Should be last line in the audittrail
file...*\n\n";
clo
I am done processing and I want to place the final output line also on
the screen. Here is what I have:
if ( $GlblInfo{audit} ) {
printf "\n\n*Should be last line in the audittrail
file...*\n\n";
close(STDOUT);
close(STDERR);
open(STDOUT , '>')
Hello
Having tested my code locally with PERL, I am now playing with it as cgi.
So far I have only been using 1 ARGV value and would like to add another
one into my calcs, so value1 = $ARGV[0] and value2 = $ARGV[1]
In my html I am using a couple of radio buttons, a textfield, and a
submit bu
i want to extract data from an excel spreadsheet into a hash of hashes
so row 1
@headings= [col0,col1,col2 etc ]
then i can loop through the rest ,extract the data a row at a time
then i can
for each row @columns = [col0,col1,col2 etc ]
@[EMAIL PROTECTED]@columns;
and then $alldata{rownumber}=\%
John W. Krahn wrote:
> Wagner, David --- Senior Programmer Analyst --- WGO wrote:
>> Bret Goodfellow wrote:
>>>
>>> From: Wagner, David --- Senior Programmer Analyst --- WGO
>>>
>>> Bret Goodfellow wrote:
>>>
I am writing a script to list out a directory's contents, showing
the number
Wagner, David --- Senior Programmer Analyst --- WGO wrote:
Bret Goodfellow wrote:
From: Wagner, David --- Senior Programmer Analyst --- WGO
Bret Goodfellow wrote:
I am writing a script to list out a directory's contents, showing the
number of days since modified. The problem I am having is that th
gt; Sent: Friday, March 11, 2005 3:13 PM
> To: Bret Goodfellow; beginners@perl.org
> Subject: RE: Why am I getting data from Current Directory?
>
>
> Bret Goodfellow wrote:
>> I am writing a script to list out a directory's contents, showing the
>> number of days sinc
ellow; beginners@perl.org
Subject: RE: Why am I getting data from Current Directory?
Bret Goodfellow wrote:
> I am writing a script to list out a directory's contents, showing the
> number of days since modified. The problem I am having is that the
> script doesn't list out the
Bret Goodfellow wrote:
I am writing a script to list out a directory's contents, showing the
number of days since modified. The problem I am having is that the
script doesn't list out the "modified time" unless I change to the
directory being listed. If I change to the directory I want to list,
t
Bret Goodfellow wrote:
> I am writing a script to list out a directory's contents, showing the
> number of days since modified. The problem I am having is that the
> script doesn't list out the "modified time" unless I change to the
> directory being listed. If I change to the directory I want to
I am writing a script to list out a directory's contents, showing the
number of days since modified. The problem I am having is that the
script doesn't list out the "modified time" unless I change to the
directory being listed. If I change to the directory I want to list,
then all works okay. Is
Is this what you need?
#!/usr/bin/perl
use strict;
# List of required columns separated by ', ', must match names in 'Fields:'
my $req_fields = shift || 'Subject id, % identity, alignment length,
mismatches, q. start, q. end';
# Split into array
my @req_fields = split /, /, $req_fields;
# Print he
hi to all,
well, a listing of sequence similarity is as follows:
# BLASTN 2.2.9 [May-01-2004]
# Query: gi|37182815|gb|AY358849.1| Homo sapiens clone DNA180287 ALTE (UNQ6508) mRNA,
complete cds
# Database: nr
# Fields: Query id, Subject id, % identity, alignment length, mismatches, gap
opening
Robin Sheat wrote:
>
> I have a method 'getNetwork' that returns a hash.
Actually, subroutines in perl return lists.
> I can quite happily go:
> %reply = $network->getNetworkError('net','data','data2');
> my $baseErr = $reply{error};
>
> however, I can't go:
> my $baseErr = $network->getNetwork
I have a method 'getNetwork' that returns a hash. I can quite happily
go:
%reply = $network->getNetworkError('net','data','data2');
my $baseErr = $reply{error};
however, I can't go:
my $baseErr = $network->getNetworkError('net','data','data2')->{error};
nor:
my $baseErr = ${$network->getNetworkEr
This is more of an MySQL question than a Perl question, but here goes:
A possible error is that you are inserting into the same table you are selecting from.
> my $sth = $dbh->prepare( "SELECT * FROM board where serial='CN+/P422'" ) ||
> my $sth2 = $dbh->prepare("INSERT INTO board @abfrage")
>
> #put values into an array
> my @abfrage = $sth->fetchrow_array;
>
> #prepare insert of values from the array in second database
>
> my $sth2 = $dbh->prepare("INSERT INTO board @abfrage");
I think you need to interate through the array and split into the fields of
your table
then you can us
lders");
$sth->execute(@abfrage);
The problem probably is that you are trying to insert varchar data and you
aren't quoting it. This will take care of that for you.
Rob
-Original Message-
From: Theuerkorn Johannes [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, June 26, 2002 9:00 AM
Hi there, again one (probably simple) question:
I have two databases and want to put the data from one table into the same table in
the other database...
Doing it like follows up gives me the right values, (like i can see from the later
Output) but doesnt write into the second table... Any sugg
On Wednesday, May 29, 2002, at 09:27 , drieux wrote:
[..]
> perldoc Getopt::Standard
before the monkeyBoys[tm] start screeching and
flapping their wings - that should have been
perldoc Getopt::Std
I keep forgetting when we spend the $100 and
buy the vowel from vanna.
So that peo
On Wednesday, May 29, 2002, at 08:31 , Tor Hildrum wrote:
[..]
>> Just another question. How can I get a user input from the console in
>> perl?
>> I'm just playing with the DBI Module and want to ask for a select
>> statement,
>> which I can enter in the console. Executing the statment works a
wow, so easy, great.
thanks guys.
heiko
>>-Ursprüngliche Nachricht-
>>Von: Tor Hildrum [mailto:[EMAIL PROTECTED]]
>>Gesendet: Mittwoch, 29. Mai 2002 17:32
>>An: Heiko Heggen; Perl
>>Betreff: Re: Getting data from console
>>
>>
>>> Fro
> From: "Heiko Heggen" <[EMAIL PROTECTED]>
> Date: Wed, 29 May 2002 15:28:17 +0200
> To: "Beginners@Perl. Org" <[EMAIL PROTECTED]>
> Subject: Getting data from console
>
> Hi.
>
> Just another question. How can I get a user input from the
> Hi.
> Just another question. How can I get a user input from the console in perl?
> I'm just playing with the DBI Module and want to ask for a select statement,
> which I can enter in the console. Executing the statment works already fine
> *gg*.
> Thnx for your help. this is a great mailing l
Hi.
Just another question. How can I get a user input from the console in perl?
I'm just playing with the DBI Module and want to ask for a select statement,
which I can enter in the console. Executing the statment works already fine
*gg*.
Thnx for your help. this is a great mailing list :o)
Hei
On Wednesday, May 15, 2002, at 05:58 , Daniel J. Rychlik wrote:
> Use Getopt::Std;
> Use Win32::ODBC; - yes
the 'thwacking' sound that you hear is me hitting
my forehead going - "dumb drieux, dumb drieux."
I shall answer anyone who asks if Win32::ODBC is
the right choice for Access 2000
ubject: Re: Getting data from an Access 2000 Database
On Wednesday, May 15, 2002, at 04:55 , Daniel J. Rychlik wrote:
> Never mind - I found my answer. Sorry for the spam
[..]
and the answer was?
>
> I'm taking on a project that requires me to access reports from an
> Access da
On Wednesday, May 15, 2002, at 04:55 , Daniel J. Rychlik wrote:
> Never mind - I found my answer. Sorry for the spam
[..]
and the answer was?
>
> I'm taking on a project that requires me to access reports from an
> Access database and email the report to the corresponding agent. This
> has t
D]
Subject: Getting data from an Access 2000 Database
Hello,
I'm taking on a project that requires me to access reports from an
Access database and email the report to the corresponding agent. This
has to be done everyday. I need to know if I can do it in perl. I've
researched the diffe
Hello,
I'm taking on a project that requires me to access reports from an
Access database and email the report to the corresponding agent. This
has to be done everyday. I need to know if I can do it in perl. I've
researched the different modules and the closet module I can find is the
Win32::O
53 matches
Mail list logo
