Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...

print "total size of %struct - ", total_size(\%struct),"\n";
  2. or download this
    #update last viewed timestamp  
     $info{$key_prev}{'timestamp'} = time;
  3. or download this
    if(defined $info{$key_prev}){
   #update last viewed timestamp  
     $info{$key_prev}{'timestamp'} = time;