hi,
please help me ...
I have a perl script as follows:
#! / Usr / bin / perl-w
# Use module
use strict;
use DBI;
# The variable declaration
my $ dbh_lina;
my $ dbh_sales;
my $ sql_psb;
my $ ext_psb;
my $ total_row;
my $ rs_data;
my $ sql_rep;
my $ ext_rep;
# Connect to DB
Hello adit,
On Wed, 11 Apr 2012 20:03:28 -0700 (PDT)
adit edogawa adit.edog...@gmail.com wrote:
hi,
please help me ...
I have a perl script as follows:
#! / Usr / bin / perl-w
# Use module
use strict;
use DBI;
Seems like your E-mail user-agent has seriously mangled your Perl code
timothy adigun [2teezp...@gmail.com] wrote:
#!/usr/bin/perl
use warnings;
use strict;
my @wanted = qw( dad mum children);
my @children = qw(tim dan mercy);
my $ref = {
dad = mick,
mum = eliz,
children = { first = 'tim', second = 'dan', third = 'mercy', },
};
foreach
Hi Chris,
Please, check my comment within your script and a snap shot script I
wrote below if that could point you in the right direction, since we don't
have access to your complete codes.
On Wed, Mar 28, 2012 at 5:05 AM, Chris Stinemetz
chrisstinem...@gmail.comwrote:
Hello list,
I am
It is always better to post a complete, short, working program rather than a
snippet.
Maybe this will make it more clear as to what I am trying to
accomplish. I simply want to test to see if @hours exists as a second
key in the hash of hashes %data.
If it does not print \t otherwise print the
2012/3/28 Chris Stinemetz chrisstinem...@gmail.com:
I simply want to test to see if @hours exists as a second
key in the hash of hashes %data.
foreach my $cell ( @wanted ) {
print $cell:;
foreach my $hr ( @hours ) {
if ( defined keys %{ $href-{$hr}}){
if ( defined
Hi Chris,
On Wed, Mar 28, 2012 at 12:02 PM, Chris Stinemetz
chrisstinem...@gmail.comwrote:
It is always better to post a complete, short, working program rather
than a
snippet.
Maybe this will make it more clear as to what I am trying to
accomplish. I simply want to test to see if
Hi David,
On Wed, Mar 28, 2012 at 4:36 PM, Kronheim, David (Contr)
david.kronh...@ftr.com wrote:
timothy adigun [2teezp...@gmail.com] wrote:
#!/usr/bin/perl
use warnings;
use strict;
my @wanted = qw( dad mum children);
my @children = qw(tim dan mercy);
my $ref = {
dad
On 3/28/12 Wed Mar 28, 2012 10:02 AM, timothy adigun
2teezp...@gmail.com scribbled:
Hi Chris,
On Wed, Mar 28, 2012 at 12:02 PM, Chris Stinemetz
chrisstinem...@gmail.comwrote:
foreach my $cell ( @wanted ) {
print $cell:;
foreach my $hr ( @hours ) {
foreach(keys
Hello list,
I am getting the results I want with this iteration through the hash,
but I am stump on clearing the following warnings:
fyi line 12168 is the last line of the input file.
Use of uninitialized value in concatenation (.) or string at
./TESTdeltaT1.pl line 54, $SUM line 12168.
Use of
At 11:05 PM -0500 3/27/12, Chris Stinemetz wrote:
Hello list,
I am getting the results I want with this iteration through the hash,
but I am stump on clearing the following warnings:
fyi line 12168 is the last line of the input file.
Use of uninitialized value in concatenation (.) or string
Hi All,
foreach my $ncbi_tax_id ( keys %{$new_proteins}) {
my %kegg_map = ();
my $up_tax_map = read_map (
$up_maps_dir/$taxon_labels{$ncbi_tax_id}.map);
foreach my $gene_id ( keys %{$new_proteins-{$ncbi_tax_id}}) {
foreach my $up_ac ( keys
On Mon, Feb 13, 2012 at 11:09 AM, venkates venka...@nt.ntnu.no wrote:
Hi All,
foreach my $ncbi_tax_id ( keys %{$new_proteins}) {
my %kegg_map = ();
my $up_tax_map = read_map (
$up_maps_dir/$taxon_labels{$ncbi_tax_id}.map);
foreach my $gene_id ( keys
Hello,
In the following script my goal is pull the date value each time an error value
(hardcoded) is found in the specified log file. The script retrieves the error
value without a problem but I cannot seem get the date value. Can anyone tell
me what I need to do?
The error message when I
Can you send an example of the data in the log file?
tm
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
When you are already storing the line under $line
while(( my $line = FILEHANDLE)) {
Then why are you using $_
my @fields = split '\|', $_;
Cheers,
Parag
On Thu, Jan 27, 2011 at 12:57 PM, CM Analyst cmanal...@yahoo.com wrote:
Hello,
In the following script my goal is pull the date value
This is a sample of the data I am reading in:
[#|2011-01-19T07:05:10.734-0800|WARNING|sun-appserver2.1|javax.enterprise.system.stream.err|_ThreadID=15;_ThreadName=httpSSLWorkerThread-8080-1;_RequestID=c5cefdc4-4651-4c77-b9e6-84f9e0f6609e;|]
com.raec.cq.CQCommitException: You wanted to commit a
Ok
I took your code and your log file and did some testing on my linux box.
this small snippet of code seems to parse the lines (you actually want to grab)
in a predictable manner.
tm
while(( my $line = FILEHANDLE)) {
# print my line is: $line, \n;
if ($line =~ /^\[/) {
Dear Friends,
Following error i am getting while its functioning. Could you please help me to
find out what the error is ?
Use of uninitialized value in concatenation (.) or string at /xxx.pl line 18,
STDIN line 1.
Use of uninitialized value in concatenation (.) or string at /xxx.pl line 21,
luke devon [EMAIL PROTECTED] asked:
Following error i am getting while its functioning. Could you
please help me to find out what the error is ?
Use of uninitialized value in concatenation (.) or string at
/xxx.pl line 18, STDIN line 1.
Use of uninitialized value in concatenation (.) or
Dear All,
This is the warning messge I am getting when I executed my script.
Please find my analysis of the above warning
Input:
Line 1: 20(1): 125-126
Line 2: 20:125-126
Output:
Line 1: volume20/volume(1): fpage125/fpage-126
Line 2: volume20/volume:fpage125/fpage-126
My Code:
On Sep 12, ganesh said:
This is the warning messge I am getting when I executed my script.
Please find my analysis of the above warning
Input:
Line 1: 20(1): 125-126
Line 2: 20:125-126
Output:
Line 1: volume20/volume(1): fpage125/fpage-126
Line 2: volume20/volume:fpage125/fpage-126
My
use what the message states;
you are using an uninitialize string.
example
my $string;# $string is declared but not initialized!
so any operation you do on that string (except an assignment) with produce
the error message.
- Original Message -
From: Devon Young [EMAIL PROTECTED]
Please do not cross-post. I know already that I am going to be burned with at least
two failure notices by responding to your post before checking for rudeness. Since I
am not subscribed to either of the other lists you *spammed*, my replies will be
returned with either failure or
Awaiting
Devon Young wrote:
What does this mean?? I'm thoroughly puzzled and I've been scouring the net
for an answer. I've been assuming it means I'm not putting strings together
correctly, but I can't figure out how to fix it. Here's the errors I'm
getting, followed by the peice of code that the
What does this mean?? I'm thoroughly puzzled and I've been scouring the net
for an answer. I've been assuming it means I'm not putting strings together
correctly, but I can't figure out how to fix it. Here's the errors I'm
getting, followed by the peice of code that the error is apparently in.
I am running a script with -w and I keep getting multiple warnings like...
Use of uninitialized value in substr at mlknpvs.pm line 240
Use of uninitialized value in concatenation (.) or string at
mlknpvs.pm line 241
In this particular script I call a sub from mlknpvs.pm. I declared an
Hi John
I think you need to tell us something more. You say you
my @parts = (one, two, three);
substr($parts[1],0,0) = .;
print @parts;
works fine. (Unless you really /did/ miss the closing quote from 'three'?).
May we see a little more of your code?
Don't forget that, if $name
28 matches
Mail list logo