Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl -w
- sub add{
- my($a,$b)=@_;
- print $a+$b;
- return $a+$b;
- }
- 'add'->(1,2);
- $addSub='add';
- $addSub->(1,2);
- @arr=('add','sub','multi');
- $arr[0]->(1,2);
- %hash=(
- 'add'=>'add',
- 'sub'=>sub{ my($a,$b)=@_;
- return $a-$b;
- }
- );
- $hash{'add'}->(1,2)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement