note
xavierarmadillo
Wow thank you.
I am used to vb and c#, not PERL. It is so different to me.
I changed it to <code>sub addSecondary()
{
my ($email, $secondary) = @_;
use Tie::File;
tie @array, 'Tie::File', 'registration.dat';
for (@array)
{
s/0;nodata/1;$secondary/gi if /$email/
}
untie @array;
}
</code>
And it works now. What I don't get is why <code>s/0;nodata/1;$secondary/gi if /$email/</code> works. There is no semicolon at the end and it is not like any function I have seen. I am used to something = something type notation. How does it even know what to look at and compare?
969281
969288