Perl 变量

#!/usr/bin/perl

# Integer
age = 29;

# Stringname = "Chaitanya Singh";

# Float
height = 180.88;

print "Name:name\n";
print "Age: age\n";
print "Height:height\n";

Name: Chaitanya Singh
Age: 29
Height: 180.88

#!/usr/bin/perl

@friends = ("Ajeet", "Leo", "Rahul", "Dhruv");

print "\friends[0] =friends[0]\n";
print "\friends[1] =friends[1]\n";
print "\friends[2] =friends[2]\n";
print "\friends[3] =friends[3]\n";

$friends[0] = Ajeet
$friends[1] = Leo
$friends[2] = Rahul
$friends[3] = Dhruv

#!/usr/bin/perl

%age = ('Chaitanya Singh', 29, 'Ajeet', 28, 'Lisa', 25);

print "\age{'Lisa'}:age{'Lisa'}\n";
print "\age{'Chaitanya Singh'}:age{'Chaitanya Singh'}\n";
print "\age{'Ajeet'}:age{'Ajeet'}\n";

$age{'Lisa'}: 25
$age{'Chaitanya Singh'}: 29
$age{'Ajeet'}: 28