Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re^3: Ice cream and cake!

by pmonk4ever (Friar)
on Sep 17, 2009 at 16:49 UTC ( [id://795933]=note: print w/replies, xml ) Need Help??


in reply to Re^2: Ice cream and cake!
in thread Ice cream and cake!

I am running ActiveState Perl 5.10.0 on WinXP, with 'use warnings;' & after commenting verse4 out, I received the following errors:

1253205291slip, slip, slip, slide slip, slip, slip slip, slip, slip Use of uninitialized value $_[0] in say at poem.pl line 30. Use of uninitialized value $_[0] in say at poem.pl line 30. Use of uninitialized value $_[0] in say at poem.pl line 30. Use of uninitialized value $_[0] in say at poem.pl line 30. Modification of a read-only value attempted at poem.pl line 12. Current invocation: #!c:\Perl\bin\perl.exe use 5.10.0; use strict; use warnings; my ($ice_cream, $cake, @cookies); verse1( $ice_cream, $cake & $cake ); verse2( $ice_cream & $cake ); verse3( split /,/, "slip,"x3 . "slide" ); #verse4(); verse2( $ice_cream and $cake ); map { s/_/ /g; say $_," ice cream n cake " } qw( Now_who_dat_is_with_the Party_aint_live_without_the Whatcha_wa +nt_some All_the_kids_like ); verse2( "$ice_cream and $cake" ); verse3( ("slip,"x3 . "slide") =~ m/(\w*)/g ); #verse4(); verse2( $ice_cream && $cake ); verse1( $ice_cream, $cake + $cake ); ($ice_cream and @cookies) xor eat($ice_cream, @cookies); sub verse1 { for ( 1 .. 4 ) { say $_[0] and $_[1]; } } sub verse2 { for ( 1 .. 4 ) { say $_[0]; do{ $_[0] }; } } sub verse3 { say time, join(', ', @_); say join(', ', @_[0..2]) and $_[3] for (1 .. 2); $SIG{STOP} = sub { sleep 1; TAG_TEAM: } } sub verse4 { my $boy; $SIG{ALRM} = sub { say "slip n slide" }; ride( $boy ), kill ('ALRM', $$) for (1 .. 3); sleep 1; map { $_++ } ($ice_cream, $cake); } sub ride { say "Whee!" }; sub eat { say "YUM!"; } __END__
Sorry I seem to be having trouble here, this looked straight-forward to me.

pmonk4ever

"No trees were harmed in the creation of this node. However, a rather large number of electrons were somewhat inconvenienced."

Replies are listed 'Best First'.
Re^4: Ice cream and cake!
by bv (Friar) on Sep 17, 2009 at 16:58 UTC

    I'm replying to this because I ran into this same problem in a different script, but please understand that this code isn't supposed to do anything but compile.

    The error is because I'm using s/// on a qw() list, not a real array. A fix (that is really a hack, IMHO) would be to change it to:

    map { s/_/ /g; say $_," ice cream n cake " } @{[qw( Now_who_dat_is_with_the Party_aint_live_without_the Whatcha +_want_some All_the_kids_like )]};

    This makes the list into an array ref ([]), then dereferences to the actual array@{}.

    print pack("A25",pack("V*",map{1919242272+$_}(34481450,-49737472,6228,0,-285028276,6979,-1380265972)))
      Ok, I didn't understand that it would only compile, I thought it would execute a clever poem of some kind.

      Thanks for the reply.

      pmonk4ever

      "No trees were harmed in the creation of this comment. However, a rather large number of electrons were somewhat inconvenienced."

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://795933]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others imbibing at the Monastery: (3)
As of 2024-03-29 04:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found