<STDIN>在foreach和while循环中的不同
在while循环中使用默认变量$_
while (<STDIN>) {
print "I saw $_";
}
打印每条输入(包含换行符)
使用foreach循环完成同样的工作
foreach (<STDIN>) {
print "I saw $_";
}
这里有着细微的不同,在while循环中,每次读取<STDIN>的一行,然后进入循环处理.而foreach循环中,<STDIN>被用在一个数组语境中,因此在运行循环体之前,必须读取完<STDIN>所有的内容,在处理大文件和大输入的时候,使用while能取得更好的效能(一次处理一行),因此,只要可能,就使用while,而非foreach
Diamond operater <>
对于大量Unix工具,cat或sed 使用连字符hyphen - 代表标准输入
例如: fred- betty表示:文件fred 标准输入 文件betty
while (<>) {
chomp;
print "It was $_ that I saw!\n";
}
读取参数作为输入并打印
如果在运行这个程序后的参数是文件名，则会打开那个文件
如果文件名不存在，提示Can't open argv_.txt242: No such file or directory at read_by_Diamond.txt line 1
注意<>用于处理输入,而输入的每一行被依次放入了$_变量
标准输出 print
print @array; #依次打印数组中元素,不留空格
print "@array"; #依次打印数组中元素,元素之间有空格
如果@array的元素是以换行结尾的字符串,在双引号内的@array打印时还是会加上空格,看起来第一行之后的行有一个空格的缩进.最好用chomp
处理一下
print后面的参数是数组语境,使用<>用于数组语境时,得到的是一个由每行字符串组成的数组,因此可以这样使用
print <>; #与cat命令使用方式相同
print sort <>; #与sort命令使用方式相同
@ARGV 参数字符串
在程序开始之前,@ARGV数组被初始化为由参数填充的数组
<>在@ARGV中查找需要的参数,因此可以人为初始化@ARGV数组
@ARGV = qw# larry moe curly #; #读取这三个文件,无论调用参数为何
while (<>) {
chomp;
print "It was $_ that I saw in some stooge-like file!\n";
}
使用printf格式化输出
语法类似于C中地printf
可用格式符 %g 输出数字，自动选择合适的表示方式，比如科学计数法
printf "%g %g %g\n", 5/2, 51/17, 51 ** 17;
输出 2.5 3 1.0683e+29
%d 十进制整数输出(类似的有%x hexadecimal 16进制输出和 %o octal 八进制输出)
允许使用宽度限制符 如%6d 将所有输出数字左补空格凑齐6位右对齐,在列对齐输出时很有用
当数字本身超出宽度时显示完整数字
printf "%2d\n", 2e3 + 1.95;
输出2001
%s 输出字符串,也允许格式化宽度,如%10s
可以使用负数的格式符,结果类似左对齐,如
printf "%-15s\n", "flintstone";
%f 浮点输出,可以定义精度和宽度
printf "%12f\n", 6 * 7 + 2/3; # looks like 42.666667
printf "%12.3f\n", 6 * 7 + 2/3; # looks like 42.667
printf "%12.0f\n", 6 * 7 + 2/3; # looks like 43
当需要输出%字符的时候使用%%
注意不是转义符\%
充分利用context可以支持任意长array的格式化输出
my @items = qw( wilma dino pebbles );
my $format = "The items are:\n" . ("%10s\n" x @items);
##注意x操作符的使用
## print "the format is >>$format<<\n"; # for debugging
printf $format, @items;
也可以使用更直接的方式
printf "The items are:\n".("%10s\n" x @items), @items;
前一个@items被用于标量语境,后一个是array语境,注意区别其含义!!
Filehandles
Perl有六个特殊的filehandle
STDIN, STDOUT, STDERR, DATA, ARGV, ARGVOUT
通过> 和< 可以重定向STDIN和STDOUT
$ ./your_program <dino >wilma
这个程序以dino为输入,输出到文件wilma
Perl也可以使用在管道环境中
$ cat fred barney | sort | ./your_program | grep something | lpr
注意默认的STDERR也是输出到屏幕,但是在管道环境中STDERR不会输出到后一个处理程序
通过使用>符号,STDERR也可以被重定向,这在调试中可能会有用
打开一个Filehandle
open CONFIG, "<conf.conf"; #读取一个文件,<是可选的,但是使用<安全性更好
open OUTPUT, ">output"; #打开文件output,先清空再写入
open APPEND, ">>appending"; #打开文件appending并追加写入
在perl 5.6之后的版本,使用
open CONFIG, "<", "dino";
open BEDROCK, ">", $file_name;
open LOG, ">>", &logfile_name( );
是好的风格,易读且当文件名中含有<或>时不会造成误解
出错处理
使用die函数在出错时终结程序运行并打印信息到STDERR
if ( ! open LOG, ">>logfile") {
die "Cannot create logfile: $!";
}
其中$!变量为系统出错信息,如"permission denied"或"file not found"
仅在系统请求出错后使用$!
如果die的退出不是系统请求出错,$!的信息没有很大意义
在Windows和VMS下使用$^E可能得到更多诊断信息
die会自动给出perl程序文件名以及相应行数
warn函数与die的行为类似,唯一的不同是warn不会停止程序运行
使用filehandles
if ( ! open PASSWD, "/etc/passwd") {
die "How did you get logged in? ($!)";
}
#打开文件passwd
while (<PASSWD>) {
chomp;
. . .
}
#使用<>来读取filehandle对应文件的内容
用printf或print直接写文件,如
print LOG "Captain's log, stardate 3.14159\n"; # output goes to LOG
select操作符可以重定向STDOUT,这样可以简化一些程序的书写,要记得在适当的时候把它改回来.
$|特殊变量设置为1 表示每次对select的文件输出操作后清空缓存,确保log文件能够立即得到输出项,在默认情况下输出到文件是先缓存的.
select LOG;
$| = 1; # don't keep LOG entries sitting in the buffer
select STDOUT;
# ...time passes, babies learn to walk, tectonic plates shift, and then . . .
print LOG "This gets written to the LOG at once!\n";
以下语句将STDERR重定向到我们指定的一个文件
# Send errors to my private error log
if ( ! open STDERR, ">>/home/barney/.error_log") {
die "Can't open error log for append: $!";
}
|