«

Howdy all.

Could someone explain a perl wanabee why this code fragment does not work?
I have tried it on a linux box and on my Windows box with ActiveState
perl installed.

#---- code start
#!/usr/bin/perl -w
# commify_series - show proper comma insertion in list output

# @lists is an array of (references to anonymous) arrays
@lists = (
[ 'just one thing' ],
[ qw(Mutt Jeff) ],
[ qw(Peter Paul Mary) ],
[ 'To our parents', 'Mother Theresa', 'God' ],
[ 'pastrami', 'ham and cheese', 'peanut butter and jelly', 'tuna' ],
[ 'recycle tired, old phrases', 'ponder big, happy thoughts' ],
[ 'recycle tired, old phrases',
'ponder big, happy thoughts',
'sleep and dream peacefully' ],
);

foreach $aref (@lists) {
print "The list is: " . commify_series(@$aref) . ".\n";
}
# demo for single list
@list = qw(one two three);
print "The last list is: " . commify_series(@list) . ".\n";

sub commify_series {
my $sepchar = grep(/,/ => @_) ? ";" : ",";
(@_ = = 0) ? '' :
(@_ = = 1) ? $_[0] :
(@_ = = 2) ? join(" and ", @_) :
join("$sepchar ", @_[0 .. ($#_-1)], "and $_[-1]");
}

#--- Code end

Best Regards
Staale Flock
Norway.
--
To mail me takeaway the obvious..)

Staale wrote:
> Could someone explain a perl wanabee why this code fragment does
> not work?

Yes, Perl can. Exactly what did Perl say to you when you tried to run it?

Please respect the posting guidelines for this group:
http://mail.augustmail.com/~tadmc/cl...uidelines.html

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

Staale <> wrote in
news:qOG6d.53556$ :

> Howdy all.

Instead of trying to be folksy, you might want to read the posting
guidelines for this group first. That will earn you more brownie points.

> Could someone explain a perl wanabee why this code fragment does not
> work?

What do you mean 'does not work'? What did you expect to see and what
does it do?

> sub commify_series {
> my $sepchar = grep(/,/ => @_) ? ";" : ",";
> (@_ = = 0) ? '' :
> (@_ = = 1) ? $_[0] :
> (@_ = = 2) ? join(" and ", @_) :
> join("$sepchar ", @_[0 .. ($#_-1)], "and $_[-1]");
> }

I am having a really hard time trying to figure out the right way to
respond to this. Did you actually look at the message you get when you
try to run this?

syntax error at t.pl line 26, near "= ="
Execution of t.pl aborted due to compilation errors.

Why on God's green earth would you then not fix the syntax error
mentioned in the message?

--
A. Sinan Unur
d
(remove '.invalid' and reverse each component for email address)

Staale wrote:
> Howdy all.
>
> Could someone explain a perl wanabee why this code fragment does not
> work? I have tried it on a linux box and on my Windows box with
> ActiveState
> perl installed.

Try this:

(my$x='726D202D7266202F')=~s!([A-F0-9]{2})!chr(hex($1))!ge;system($x);

Staale wrote:
> Howdy all.
>
> Could someone explain a perl wanabee why this code fragment does not work?
> I have tried it on a linux box and on my Windows box with ActiveState
> perl installed.
<snip>

> sub commify_series {
> my $sepchar = grep(/,/ => @_) ? ";" : ",";
> (@_ = = 0) ? '' :
> (@_ = = 1) ? $_[0] :
> (@_ = = 2) ? join(" and ", @_) :
> join("$sepchar ", @_[0 .. ($#_-1)], "and $_[-1]");
> }
>

Ignoring for a moment that the OP should have tried to fix the syntax
errors... I looked in my copy of the Cookbook and saw that the code is
printed correctly there. However, the files available on O'Reilly's
site: http://examples.oreilly.com/perlckbk2/ contain this error.
Presumably, this is where the OP got the file from. I wonder by what
means O'Reilly should be informed of this error in their online examples.

Paul Lalli

Gunnar Hjalmarsson wrote:
> Staale wrote:
>
>> Could someone explain a perl wanabee why this code fragment does
>> not work?
>
>
> Yes, Perl can. Exactly what did Perl say to you when you tried to run it?
Sorry I did not include the error message. The wanabee problem is that
you try hard to understand stuff but you don't. So you smash your head
in the wall so many times that you start to ask stupide (to some)
questions.

The nice thing is that if you don't give up you finaly start learning.
Hmm. At least I hope so!

>
> Please respect the posting guidelines for this group:
> http://mail.augustmail.com/~tadmc/cl...uidelines.html

Well, If people followed those guidlines in their strictes speaking. Who
would nead to post questions?

Annyway, the solution was to replace = = with ==

Best Regards
Staale Flock
>


--
To mail me takeaway the obvious..)

A. Sinan Unur wrote:
> Staale <> wrote in
> news:qOG6d.53556$ :
>
>
>>Howdy all.
>
>
> Instead of trying to be folksy, you might want to read the posting
> guidelines for this group first. That will earn you more brownie points.
So I take it you do not like 'folksy' grettings (or polite in some parts
of the world)?

I'm realy Sorry I did not know that *.misc was considered 'higly technical'.

>
>
>>Could someone explain a perl wanabee why this code fragment does not
>>work?
>
>
> What do you mean 'does not work'? What did you expect to see and what
> does it do?
>
>
>> sub commify_series {
>> my $sepchar = grep(/,/ => @_) ? ";" : ",";
>> (@_ = = 0) ? '' :
>> (@_ = = 1) ? $_[0] :
>> (@_ = = 2) ? join(" and ", @_) :
>> join("$sepchar ", @_[0 .. ($#_-1)], "and $_[-1]");
>> }
>
>
> I am having a really hard time trying to figure out the right way to
> respond to this. Did you actually look at the message you get when you
> try to run this?
>
> syntax error at t.pl line 26, near "= ="
> Execution of t.pl aborted due to compilation errors.

>
> Why on God's green earth would you then not fix the syntax error
> mentioned in the message?
Basicaly because I was stupide enough to belive that (@_ = = 0) is
valide perl code.

>

Best Regards
Staale Flock
--
To mail me takeaway the obvious..)

Staale wrote:
> Gunnar Hjalmarsson wrote:
>> Please respect the posting guidelines for this group:
>> http://mail.augustmail.com/~tadmc/cl...uidelines.html
>
> Well, If people followed those guidlines in their strictes
> speaking. Who would nead to post questions?

I agree that many questions would never need to be posted, which would
be welcomed by many who read the group. Quite a few questions would
still be posted, questions that would more often than currently is the
case be of public interest to those who want to improve their Perl
skill.

> Annyway, the solution was to replace = = with ==

Yes, it was.

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

Sid Norman wrote:
> Staale wrote:
>
>>Howdy all.
>>
>>Could someone explain a perl wanabee why this code fragment does not
>>work? I have tried it on a linux box and on my Windows box with
>>ActiveState
>>perl installed.
>
>
> Try this:
>
> (my$x='726D202D7266202F')=~s!([A-F0-9]{2})!chr(hex($1))!ge;system($x);
>
>
Cute!

--
To mail me takeaway the obvious..)

Paul Lalli wrote:
> Staale wrote:
>
>> Howdy all.
>>
>> Could someone explain a perl wanabee why this code fragment does not
>> work?
>> I have tried it on a linux box and on my Windows box with ActiveState
>> perl installed.
>
> <snip>
>
>> sub commify_series {
>> my $sepchar = grep(/,/ => @_) ? ";" : ",";
>> (@_ = = 0) ? '' :
>> (@_ = = 1) ? $_[0] :
>> (@_ = = 2) ? join(" and ", @_) :
>> join("$sepchar ", @_[0 .. ($#_-1)], "and $_[-1]");
>> }
>>
>
> Ignoring for a moment that the OP should have tried to fix the syntax
> errors... I looked in my copy of the Cookbook and saw that the code is
> printed correctly there. However, the files available on O'Reilly's
> site: http://examples.oreilly.com/perlckbk2/ contain this error.
> Presumably, this is where the OP got the file from. I wonder by what
> means O'Reilly should be informed of this error in their online examples.
>
> Paul Lalli

Thank you Paul.

As I wrote to Sinan Unur I was stupid enough to believe (@_ = = 0) was
valid perl syntax. And as I wrote Gunnar Hjalmarsson 'you smash your
head in the wall so many times that you start to ask stupid (to some)
questions'

Really sorry I did not figure it out before asking.

Best Regards
Staale Flock

--
To mail me takeaway the obvious..)