sub process(){

    my $processed = $_[0];
    
    return sub {
    
        if ( @_ ){
            
            print "Sub Process called\n";
            my ($colname,$colval) = @_;
            $colval =~ s/^&//; # strip leading & - this only occurs in
+ the 'ADDITIONAL field'
            print "Colname: $colname\n";
            print "Colvalue: $colval\n";

            
            # detect ADDITIONAL with multiple key value pairs.
            
            if ( index($colval,'&') >= 0 ){
                print "$colval contaisn & character - so it's the ADDI
+TIONAL field with multiple key value pairs";
                
                my @additional = split('&',$colval);
                foreach my $addval (@additional){
                    print "additional has pair: $addval\n";
                    
                    my @addpair = split('=',$addval);
                    print "$addpair[0] | $addpair[1]\n";
                    process->($addpair[0], $addpair[1]); # this doesn'
+t get called.
                }
                
            }
            
            # detect ors
            if ( index($colval,'|') >= 0 ){
                print "$colval contains pipe character for ORs";
            }

            # detect wildcards
            if ( index($colval,'*') >= 0 ){
                print "$colval contains whidcard character";
            }
            
            
        }
    
    }
    
}
[download]

process->("TABLENAME",$TABLENAME) if defined($TABLENAME);
[download]

Sort of. The sub is getting run, or the print statement wouldn't be executed. But you're not doing quite what you're trying to do with the higher-order stuff. Your outer sub returns the inner sub, but you aren't assigning it to anything, just executing it. You never call it directly. So you might as well just use an ordinary subroutine.

To return an inner sub and call it later, you do something like this:

sub get_a_processor {
  # will return a reference to a sub that processes
  return sub {
     # your processing stuff
  }
}
my $processor = get_a_processor(); # $processor points to inner sub
$processor->($TABNAME);  #calls the inner sub on $TABNAME
[download]

Aaron B.
My Woefully Neglected Blog, where I occasionally mention Perl.