2009/4/17 Chap Harrison :
> Now that I am learning how to work with complex data structures, I find myself
> writing things like this a lot:
>
> my $foo = ( defined $very_long_expression ? $very_long_expression : "n/a" );
>
> or
>
> my $foo = ( $very_long_expression > 0 ? $very_long_expression :
Now that I am learning how to work with complex data structures, I
find myself writing things like this a lot:
my $foo = ( defined $very_long_expression ? $very_long_expression :
"n/a" );
or
my $foo = ( $very_long_expression > 0 ? $very_long_expression : 0 );
(Where the long expr
On Fri, Apr 17, 2009 at 21:35, Brian wrote:
snip
> LOL, I didn't understand any of that. :-)
> Apart from the last sentence ;-)
snip
Think of a clock, they hands can go around as many times as you like
but they can never point to anything higher than 12. Modulus works
the same way, the second va
John W. Krahn wrote:
Brian wrote:
John W. Krahn wrote:
Brian wrote:
This is what I'm using upto the code that is giving me a headache.
I know it's messy, but I have no training in PERL, I am trying to
forward-engineer this cgi by back-engineering from html templates I
created and which were
On Fri, Apr 17, 2009 at 21:26, oryann9 wrote:
>
> Perl sucks...go Ruby...I did and I am much happier!
snip
I looked at Ruby. You couldn't pay me to go back to a language
that uses a stupid visual pun for a concatenation operator or
forces me to cast variables into different types.
"11" + 5 is 1
Perl sucks...go Ruby...I did and I am much happier!
- Original Message
From: Michael Alipio
To: Perl Beginners ; John W. Krahn
Sent: Tuesday, April 14, 2009 10:06:39 AM
Subject: Re: Turn off $ anchor greedy behavior
Aha, found it.. The split returned a list and you've just sliced it
Brian wrote:
John W. Krahn wrote:
Brian wrote:
This is what I'm using upto the code that is giving me a headache.
I know it's messy, but I have no training in PERL, I am trying to
forward-engineer this cgi by back-engineering from html templates I
created and which were chosen using $t->src
John W. Krahn wrote:
Brian wrote:
This is what I'm using upto the code that is giving me a headache.
I know it's messy, but I have no training in PERL, I am trying to
forward-engineer this cgi by back-engineering from html templates I
created and which were chosen using $t->src
[ *SNIP* ]
Brian wrote:
John W. Krahn wrote:
Brian wrote:
chomp($Lang = $val1);
chomp($Year_in = $val2);
chomp() removes the contents of the $/ variable from the end of the
string. What makes you think that $val1 and $val2 need to be chomp()ed?
Oops, they are leftovers from when I was using STDIN
John W. Krahn wrote:
Brian wrote:
This is what I'm using upto the code that is giving me a headache.
I know it's messy, but I have no training in PERL, I am trying to
forward-engineer this cgi by back-engineering from html templates I
created and which were chosen using $t->src
#! c:\perl\b
Brian wrote:
This is what I'm using upto the code that is giving me a headache.
I know it's messy, but I have no training in PERL, I am trying to
forward-engineer this cgi by back-engineering from html templates I
created and which were chosen using $t->src
[ *SNIP* ]
whe
17.04.09, 20:16, "Jim Gibson" :
> On 4/16/09 Thu Apr 16, 2009 1:39 PM, "edw...@yandex.ru"
> scribbled:
> > Hello,
> >
> > I would like to know, how to force perl unfold "foreach" expression during
> > the
> > compilation, i.e. I want next code:
> >
> >
> > foreach (1..100) {
> > b
Brian wrote:
This is what I'm using upto the code that is giving me a headache.
I know it's messy, but I have no training in PERL, I am trying to
forward-engineer this cgi by back-engineering from html templates I
created and which were chosen using $t->src
thanks for any help
Brian
#! c:
Jim Gibson wrote:
On 4/17/09 Fri Apr 17, 2009 1:50 PM, "Brian"
scribbled:
Brian wrote:
oops, should read..
$Year_out = $Year_in;
while ($Year_out > 100) {$Year_out -= 100;}
if (($Year_out > 00) && ($Year_out <= 25)) {$string = $string1;}
if (($Year_out > 25
On 4/17/09 Fri Apr 17, 2009 1:50 PM, "Brian"
scribbled:
> Brian wrote:
>
> oops, should read..
>
> $Year_out = $Year_in;
>
> while ($Year_out > 100) {$Year_out -= 100;}
> if (($Year_out > 00) && ($Year_out <= 25)) {$string = $string1;}
> if (($Year_out > 25) &
On Fri, Apr 17, 2009 at 18:01, Jim Gibson wrote:
> On 4/16/09 Thu Apr 16, 2009 2:25 PM, "Chas. Owens"
> scribbled:
>
>> 2009/4/16 Jim Gibson :
>> snip
>>> This calls the new method in package vpu and assigns the return value, which
>>> should be a blessed scalar of some type, usually a referenc
Kevin Ponds wrote:
Brian,
Your while loops aren't actually performing any operation on the variable
I did actually state that the loops wouldn't work.
I adjusted them to better show what I want to achieve, not to show how I
am trying to achieve it.
that is being tested as part of their co
On 4/16/09 Thu Apr 16, 2009 2:25 PM, "Chas. Owens"
scribbled:
> 2009/4/16 Jim Gibson :
> snip
>> This calls the new method in package vpu and assigns the return value, which
>> should be a blessed scalar of some type, usually a reference to a hash, but
>> it could be any scalar.
> snip
>> $vpu
Brian,
Your while loops aren't actually performing any operation on the variable
that is being tested as part of their condition. With while loops, if the
condition ($i in this case) is true at the start of the loop, and doesn't
change, they will loop forever. They aren't like for loops, where y
Brian wrote:
oops, should read..
$Year_out = $Year_in;
while ($Year_out > 100) {$Year_out -= 100;}
if (($Year_out > 00) && ($Year_out <= 25)) {$string = $string1;}
if (($Year_out > 25) && ($Year_out <= 50)) {$Year_out -=
25;$string = $string2;}
if (($Year_o
This is what I'm using upto the code that is giving me a headache.
I know it's messy, but I have no training in PERL, I am trying to
forward-engineer this cgi by back-engineering from html templates I
created and which were chosen using $t->src
thanks for any help
Brian
#! c:\perl\bin\perl
On Fri, Apr 17, 2009 at 12:16, Jim Gibson wrote:
> On 4/16/09 Thu Apr 16, 2009 1:39 PM, "edw...@yandex.ru"
> scribbled:
>
>> Hello,
>>
>> I would like to know, how to force perl unfold "foreach" expression during
>> the
>> compilation, i.e. I want next code:
snip
> Can you explain why you want
Wagner, David --- Senior Programmer Analyst --- CFS wrote:
-Original Message-
From: Brian [mailto:brian5432...@yahoo.co.uk]
Sent: Friday, April 17, 2009 11:03
To: Perl Beginners
Subject: help needed to get over endless loop
Hi
I had this semi-working, changed something and can't rememb
> -Original Message-
> From: Brian [mailto:brian5432...@yahoo.co.uk]
> Sent: Friday, April 17, 2009 11:03
> To: Perl Beginners
> Subject: help needed to get over endless loop
>
> Hi
> I had this semi-working, changed something and can't remember where I
> went right, so would appreciate
Joseph Mwesigwa Bbaale wrote:
Please help...
*This is the original line in outFile*
*This goes into inFile*
I was expecting to find the two lines above in the file "*outFile*" after
running the code below:
#!/usr/bin/env perl
use warnings;
use strict;
use 5.010;
`touch inFile`;
`touch o
On 4/17/09 Fri Apr 17, 2009 10:02 AM, "Brian"
scribbled:
> Hi
> I had this semi-working, changed something and can't remember where I
> went right, so would appreciate some help getting back on top.
>
> I know 1..10 and 2..10 probably won't work in the following example, I
> have just changed
Hi
I had this semi-working, changed something and can't remember where I
went right, so would appreciate some help getting back on top.
I know 1..10 and 2..10 probably won't work in the following example, I
have just changed lines to show what I am trying to get.
$mystart = -2;
$i = 1;
for
On 4/16/09 Thu Apr 16, 2009 1:39 PM, "edw...@yandex.ru"
scribbled:
> Hello,
>
> I would like to know, how to force perl unfold "foreach" expression during the
> compilation, i.e. I want next code:
>
>
> foreach (1..100) {
> block
> }
>
> to be compiled like this:
>
> block[$_ = 1
Please help...
*This is the original line in outFile*
*This goes into inFile*
I was expecting to find the two lines above in the file "*outFile*" after
running the code below:
#!/usr/bin/env perl
use 5.010;
`touch inFile`;
`touch outFile`;
`chmod 744 inFile`;
`chmod 744 outFile`;
`echo "T
Hello,
I would like to know, how to force perl unfold "foreach" expression during the
compilation, i.e. I want next code:
foreach (1..100) {
block
}
to be compiled like this:
block[$_ = 1]
block[$_ = 2]
block[$_ = 3]
.
.
.
block[$_ = 100]
Where block[$_ = n] means "block" with
30 matches
Mail list logo
