بليز اشرحولي الاوت بوت .. لكل برنامج
usewarnings ;
usestrict ;
my($var,$nbr)=(2.53241,526) ;
printf("\$var=%.2f \n",$var) ;
printf("\$var=%.0f \n",$var) ;
printf("\$nbr=%d\n",$nbr) ;
ooutput\\
$var=2.53
$var=3
$nbr=526
#!/usr/perl/bin/
#block1.pl
usewarnings ;
usestrict ;
my$var=4 ; #1
print"\$var =$var\n" ;
{
print"{\n" ;
print"This is block scoped\n";
my$var=8 ; #2
print"\$var =$var\n}\n" ;
}
print"\$var =$var\n" ; #3
output\\
4
{
This is block scoped
8
}
4