regarding static type variable in perl

[kokul]

Hi friends,

I want to call one function depends on a variable. First i set that variable to 0 before the functiobn definition and inside the function i incriment that variable. Then i check that variable during that function call if it is zero then only call to that function. But it is not working... Any one plz help me how to implement static variable technique in perl.

Thanks & Regards,
Kokul

[numberwhun]

We would love to help you, but unless we are able to see your code, we can't help you debug it. Please post the code that you have been working with. Do not forget to enclose the code in code tags as shown in the "Reply Guidelines" next to the Message window when submitting your post.

Regards,

Jeff

[kokul]

Hi,

I will paste the code here..

$::myvar = 0;
sub MyFunc {
   my ($self,$status) = @_;
   --------------------------------
   --------------------------------
   my $ret = `/var/www/cgi-script/myshellprogram`;
   if ( $ret ) {
      Throw_error ($ret);
   }
   $::myvar++;
}  #Function MyFunc Ends here
---------------
---------------
switch ($knob) {
 
   ----------------------------
   ----------------------------
 
   case /^assign$/ {
      if (!$::myvar) {
         MyFunc('T');
      }
   }
 
  -----------------------------
  -----------------------------
}
 
 

In the above code I defined a function MyFunc to call my shell script. I want to call my shell script only once. But Inside the switch statement case /^assign$/ will come more than once. I want to restrict the function call. How can i implement it???

[KevinADC]

$myvar = 0;
sub MyFunc {
   my ($self,$status) = @_;
   --------------------------------
   --------------------------------
   my $ret = `/var/www/cgi-script/myshellprogram`;
   if ( $ret ) {
      Throw_error ($ret);
   }
   $myvar++;
}  #Function MyFunc Ends here
---------------
---------------
switch ($knob) {
 
   ----------------------------
   ----------------------------
 
   case /^assign$/ {
      unless ($myvar) {
         MyFunc('T');
      }
   }
 
  -----------------------------
  -----------------------------
}