• 博客访问： 730565
• 博文数量： 95
• 博客积分： 1754
• 博客等级： 上尉
• 技术积分： 1607
• 用 户 组： 普通用户
• 注册时间： 2010-03-12 10:06

2015年（3）

2013年（15）

2012年（77）

2012-06-17 22:24:12

\$fred = 17;

\$fred = ‘hello’;

\$fred = \$fred + 3;

\$line = ;

If(){

Print “That was just a blank line!\n”;

}

Else

(1,2,3) #表示1,2,3三个数字的列表

(1..100)#100个整数构成的列表

\$fred[0] = “yabba”;

\$fred[1] = “dabba”;

@rocks = qw / bedrock slate lava /;

(\$fred,\$barney,\$dino) = (“flintstone”,”rubble”,undef)

(\$fred, \$barney) = (\$barney,\$fred)

foreach控制结构

foreach \$rock (qw/bedrock slate lava/){

print “One rock is \$rock”;

}

foreach (1..10){

print “I can count to \$_!\n”

}

\$fred = something;

\$fred[3] = something;

123 + something;

if(something){…}

(\$dino) = something;   //列表上下文

(\$wilma,\$betty) = something;

@people = something;

\$hash{\$some_key}

\$family_name{“fred”} = “flintstone”;

\$family_name{“barney”} = “rubble”;

%family_name

my %last_name = (

“fred” => “flintstone”,

“dino” => “undef”,

“barney” => “rubby”,

“betty” => “rubby”,

)

%ENV中存取PATH的值。

\$ENV{ORACLE_HOME} = \$ORACLE_HOME;

\$ENV{ORACLE_SID} = \$ORACLE_SID;

\$ENV{PATH} = "\$ORACLE_HOME/bin:\$PATH";

\$EVN{LD_LIBRARY_PATH} = "\$ORACLE_HOME/lib:\$LIBPATH";