امثلة على التوابع FUNCTIONS في لغة Perl

• 2020-10-14
• daafoor

• برمجة | Programming
• اكواد برمجية برمجة
• برمجة بيرل | Perl programming
• اكواد برمجية برمجة بيرل
• اكواد برمجية

#defining function  
sub myOffice{  
   print "javaTpoint!\n";  
}  
# calling Function   
myOffice();  

$squarePerimeter = perimeter(25);  
print("This is the perimter of a square with dimension 25: $squarePerimeter\n");    
sub perimeter {  
    $dimension = $_[0];  
    return(4 * $dimension);  
 }  

sub myList{  
   my @list = @_;  
   print "Here is the list @list\n";  
}  
@a = ("Orange", "Pineapple", "Mango", "Grapes", "Guava");  
# calling function with list  
myList(@a);