I have got a code as under :
Expand|Select|Wrap|Line Numbers
- sub dbcall
- {
- my %hash;
- my $i=0;
- print "<<<<<<<@_>>>>>>> \n";
- foreach(@_)
- {
- %hash=();
- if($_=~/\=/)
- {
- print "***$`*** \n";
- print "***$'*** \n";
- $hash{$`} => $';
- }
- foreach(keys %hash)
- { print "$_ => $hash{$_}";
- }
Expand|Select|Wrap|Line Numbers
- kkpd=10
Expand|Select|Wrap|Line Numbers
- $hash{$`} = $'
Thanks,
pavan