search pattern issue

[Hakki Aydin Ucar]

>JRF:for my $user (@users) {
print "$user\n" unless exists $exclude{$user};
}
1;

Hi JRF,
What is this "1;" for ?

Regards,
Hakki

[James R. Ferguson]

Hi (again) Hakki:

> What is this "1;" for ?

I use the terminal '1;' to signify the end of a script. If we were writing a Perl *module*, the return value of 'true' would be required to tell the compiler that the module was fully parsed and successfully loaded. Obviously, the code I provided isn't a module, but I have adopted the notation to denote end-of-code.

Regards!

...JRF...