>
>
> #!/usr/bin/perl -w
> use strict;
>
> my $var=1;
>
> sub thisSub {
> local( $var );
>
This will give this error "Can't localize lexical variable ..."
A working example
#!/usr/bin/perl -w
use strict;
$main::var=1;
sub print_var { print "package var is $main::var\n";}
sub thisSub {
local $main::var = 1;
$main::var++;
print "the modified var in thisSub $main::var\n";
print_var ();
}
print_var ();
thisSub();
print_var ();
You can also take a look at this script
http://www.crusoe.net/~jeffp/docs/my_vs_local
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
