Trying to understand PERL

[HuggyBear]

Why does this not work right???

my ($add_create,$create_sw,$add_sw);

$add_create='def';
if ($add_create=='abc'){
*$create_sw=1;
*print "\$create_sw=$create_sw\n";
}elsif ($add_create=='def'){
*$add_sw=1;
*print "\$add_sw=$add_sw\n";
}

NEVER MIND I'M A FREAKING MORON!

eq

[popcorn]

NEVER MIND I'M A FREAKING MORON!

Does this mean you worked it out? Let us know what was wrong, it may help someone out, namely me, when I'm being a "freaking moron" ;D

What were you trying to do?

[HuggyBear]

eq was the answer. In PERL == is for comparing numbers. eq is for character strings.

Jamin

[popcorn]

Ah, I thought eq was some vim quit code, but I'm thinking of :wq

I think I get bonus "freakin moron" points.

[HuggyBear]

I dont know VIM. So I should get part of those points

[cga]

I dont know VIM. So I should get part of those points

You must learn the way of Vim.

[HuggyBear]

Sorry I only read from the book of EMACS.