[NetBehaviour] For Occupy Wall Street

[James Morris]

On Wed, 5 Oct 2011 15:53:32 +0100
dave miller <dave.miller.uk at gmail.com> wrote:

> Hi james
> 
> Thanks for the tip - I did all this, think it ran ok, but didn't see
> anything. I get the idea though, it's nice.
> 
> I would like something to happen though - maybe just as confirmation
> that I did it right. though I understand that's not the point!
> 
> dave

Ok,

I don't know perl, but here's a modified version which does show
something to see. (I've used '--8<---' to indicate where it starts and ends)

--8<---

#!/usr/bin/perl
$right1="freedom of movement";
$right2="freedom of expression";
push(@rights, $right1);
push(@rights, $right2);
print "@rights\n";

--8<---

It declares two variables, $right1 and $right2, and then places them
into an array called @rights and then prints the contents of the array.

Now, perhaps to show you the meaning of Pall's script lets try claiming
ownership of our rights!

--8<---

#!/usr/bin/perl
my $right1="freedom of movement";
my $right2="freedom of expression";
push(@rights, my $right1);
push(@rights, my $right2);
print "@rights\n";

--8<---

See how my rights disappear!

James.


-- 
http://jwm-art.net/
image/audio/text/code/