| 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 : |
@backwards = reverse qw/ yabba dabba doo /;
# gives doo, dabba, yabba
print "\@backwards=@backwards.\n";
$backwards2 = reverse qw/ yabba dabba doo /;
# gives oodabbadabbay
print "\$backwards2=$backwards2.\n";
@forwards = qw/ yabba dabba doo /;
print "\@forwards=@forwards.\n";
@backwards3 = reverse @forwards;
print "\@backwards3=@backwards3.\n";
$backwards4 = reverse @forwards; # Gives all letters in the list reversed.
print "\$backwards4=$backwards4.\n";
$forwards2 = @forwards; # Gives not the list but the count of the list.
print "\$forwards2=$forwards2.\n";
$forwards3 = reverse( reverse @forwards);
print "\$forwards3=$forwards3.\n";
($wilma, $betty) = @forwards; # list context
print "\$wilma=$wilma.\n";
print "\$betty=$betty.\n";
($dino) = @forwards; # still list context!
print "\$dino=$dino.\n";
$fred[3] = @forwards;
print "\$fred[3]=$fred[3].\n";
print 123 + @forwards;
print "\n";
print @forwards + 123;
print "\n";
if (@forwards) { print "\@forwards is true\n"; }
if (@ooga) { print "\@ooga is true\n"; }
print "\n";
foreach $fred (@forwards) { print "\$fred=$fred.\n";}