| Server IP : 134.29.175.74 / Your IP : 216.73.216.160 Web Server : nginx/1.10.2 System : Windows NT CST-WEBSERVER 10.0 build 19045 (Windows 10) i586 User : Administrator ( 0) PHP Version : 7.1.0 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : C:/nginx/html/JimMartinson/_Archive/CST1615/ExampleFiles/Lab03/ |
Upload File : |
@rocks = qw/ bedrock slate lava /;
print "The rocks are:\n", @rocks, "\n";
foreach $rock (@rocks) { # $rocks is linked to each @rocks element
$rock = "\t$rock"; # put a tab in front of each element of @rocks
$rock .= "\n"; # put a newline on the end of each
}
print "The rocks are:\n", @rocks; # Each one is indented, on its own line
print "\n\n";
@rocks = qw/ bedrock slate lava /;
print "The rocks are:\n", @rocks, "\n";
foreach $xx (@rocks) { # $xx is linked to each @rocks element
$xx = "\t$xx"; # put a tab in front of each element of @rocks
$xx .= "\n"; # put a newline on the end of each
}
print "The rocks are:\n", @rocks; # Each one is indented, on its own line
print "\n\n";
@rocks = qw/ bedrock slate lava /;
print "The rocks are:\n", @rocks, "\n";
foreach $xx (@rocks) { # $xx is linked to each @rocks element but $yy is not
$yy = $xx;
$yy = "\t$yy"; # put a tab in front of each element of @rocks
$yy .= "\n"; # put a newline on the end of each
}
print "The rocks are:\n", @rocks; # Each one is indented, on its own line
print "\n\n";