chomp($line = <STDIN>); # 读取一行并去掉最后的换行符(不会自动去掉)
print $line;
printf("\n"); # 格式化输出换行符#在下面的循环里面会自动去掉末尾换行符,和上下文相关?不过最好还是写在循环体内的第一行,如果需要的话
while(defined($line=<STDIN>)){ # defined保证变量不为undefprint $line;
}
# 另一种写法,要注意的是<STDIN>能正常运行时因为有上下文,如果单独写到一行就不行,如果在列表上下文中,会得到不同的值
while(<STDIN>){   # 相当于 defined($_ = <STDIN>)print $_;
}

# 与while循环不同的地方是必须等列表全部读入之后才会遍历,所以推荐用while
foreach (<STDIN>){ print $_;
}

while(defined($line = <>)){ # 默认从标准输入读取,与<STDIN>一样chomp($line);print $line;
}
while(<>){...
}

@ARGV = qw (first.pl -);
while(<>){chomp;print $_;printf("\n");
}

@roger = qw/Roger loger h/;
print @roger;  # Rogerlogerh
printf("\n");
print "@roger";  #Roger loger h

@myitems = qw(roger loger loger9567);
# x 在标量表达式中表示复制,@myitems表示列表元素数量
$myformat = "The items are:\n" . ("%10s\n" x @myitems);
printf $myformat,@myitems;

# 和shell的重定向类似,注意文件名前的空格可以区分 > >> 造成的错误!
open CONFIG , 'dino';  # 等价于open CONFIG '< dino',用文件句柄CONFIG打开已存在的文件dino,不存在就会无输入
open CONFIG , "> dino"  # 将CONFIG打开文件dino,不存在就新建,已有信息会被覆盖
open LOG , ">> logfile" # 追加方式open (HANDLE, "| output-pipe-command");  # 设置一个输出过滤器open (HANDLE, "input-pipe-command |");

$flag = open(LOG, ">> logfile");
if(!$flag){die "Can't open file logfile!".$!; # 注意有个叹号!
}else {print "success!";
}
close LOG

if(! open PASSWORD,"/etc/passwd"){die "How did you get logged in?($!)";
}
# 输出:
# How did you get logged in?(No such file or directory) at E:\loger9567\perl\five.pl line 2.

open LOG, ">> logfile"; # 注意在LOG后面有逗号
print LOG "Captain's log, stardate 3.14";  # 这样可以将后面的字符串写入到文件中,注意在LOG后面没有逗号
$done = 20;
$total = 100;
printf STDERR "%d percent complete.\n",$done/$total * 100;

use 5.010;
say "HELLO";