do语句块结构如下：

do {...}

do语句块像是匿名子程序一样，没有名称，给定一个语句块，直接执行。且和子程序一样，do语句块的返回值都是最后一个执行的语句的返回值。

例如，将使用if-elsif-else结构进行赋值的行为改写成do。以下是if-elsif-else结构：

my $name;

if($gender eq "male"){

    $name="Malongshuai";

} elsif ($gender eq "female"){

    $name="Gaoxiaofang";

} else {

    $name="RenYao";

}

改写成do结构：

my $name=do{

    if($gender eq "male"){"Malongshuai"}

    elsif($gender eq "female") {"Gaoxiaofang"}

    else {"RenYao"}

};     # 注意结尾的分号

在perl中，使用表达式修饰符改写流程控制结构的时候，控制符左边只能写一个语句。例如下面的if，左边有了print后，就不能再有其它语句。

print "..." if(...);

使用do结构，可以将多个语句包围，然后执行：

#!/usr/bin/perl

use 5.010;

$a=3;

do {

    say "statement1";

    say "statement2";

} if $a > 2;

因为do有自己的代码块，有时候可以在这个代码块中使用自己的私有变量。

例如，读取一个文件，将文件中的内容赋值给一个变量。(涉及到后面的内容，看不懂请跳过)

my $file_content = do {

    local $/;

    local @ARGV = ("/root/a.txt");

    <>;

};

或者：

my $file_content = do {

    local $/;

    open my $fh,'<',"/root/a.txt" or die;

    <$fh>;

};