Re: Perl help

2012-04-07 Thread timothy adigun
Hi Om, In addition to what Rob wrote: On Tue, Apr 3, 2012 at 10:38 AM, Om Prakash oomprak...@gmail.com wrote: Hi all, I have some data which is like A:12 B:13 C: 14 Now the data is line by line and multiple line with A B C is common though 12 13 14 is changing, i want to take this

Re: Using the ternary operator to concat a string not working like I think?

2012-04-07 Thread Peter Scott
On Wed, 04 Apr 2012 03:04:42 -0400, Uri Guttman wrote: On 04/03/2012 06:55 PM, timothy adigun wrote: that is the wrong way to fix this even if it works. the ternary operator is meant to return a single value from a choice of two expressions. it is not meant for side effects like assignment

Re: Perl help

2012-04-07 Thread Torqued
Regards.../om On 07-Apr-2012, at 15:28, timothy adigun 2teezp...@gmail.com wrote: Hi Om, In addition to what Rob wrote: On Tue, Apr 3, 2012 at 10:38 AM, Om Prakash oomprak...@gmail.com wrote: Hi all, I have some data which is like A:12 B:13 C: 14 Now the data is line by

Re: Using the ternary operator to concat a string not working like I think?

2012-04-07 Thread Uri Guttman
On 04/07/2012 06:54 AM, Peter Scott wrote: On Wed, 04 Apr 2012 03:04:42 -0400, Uri Guttman wrote: that code is not a good use of ?: at all so use if/else. Right. And if you want the single statement succinctness, use and/or: % perl -le '%test = qw(one first two second); $test{one} eq

Re: Perl help

2012-04-07 Thread timothy adigun
Hi Torqued, On Sat, Apr 7, 2012 at 2:20 PM, Torqued torque.in...@gmail.com wrote: Regards.../om On 07-Apr-2012, at 15:28, timothy adigun 2teezp...@gmail.com wrote: Hi Om, In addition to what Rob wrote: On Tue, Apr 3, 2012 at 10:38 AM, Om Prakash oomprak...@gmail.com wrote:

foreach and next

2012-04-07 Thread Vyacheslav
Hello all. My english bad and i have a problem. I am connected to databases in a cycle foreach and the script die, if one of database is not available. #!/usr/bin/perl use strict; use warnings; use DBI; use DBD::mysql; foreach $db (hostdb($project)) { my $server = $db; my $dbname =