Perl笔记

1.
#！/bin/perl -w //-w 开启warning

2.
$thing=;

3.
for ($tt=3;$tt>0;$tt--){
print "$tt is $tt ";
}

4.
chomp $mons;

5.

@boy=('hello','hello1','hello2');

@girls=qw( Marcia Jan Cindy );
@kids=(@girls, @boys);
@family=(@kids, ('Mike', 'Carol'), 'Alice');
print "@girls ";
print "$girls[0] ";
print $#girls //print how many girls(num - 1) in @girls

foreach $girl (@girls){
print "$girl ";
}

6.
@words=split(/ /,"The quick brown fox");