Perl 语言概览,高屋建瓴、欲招人之耳目(三)

1.4 文件句柄

文件句柄只是你给文件,设备,网络套接字或管道起的一个名字,这样可以帮助你分清你正在和那个文件或设备通讯,同时掩藏了如缓冲等复杂性。

你可以使用 open 创建并关联一个文件。open 函数需要至少两个参数:文件句柄和你希望与文件句柄关联的文件名。Perl 也给你一些预定义(并且预先打开)的文件句柄。STDIN 是我们程序的标准输入,

STDOUT 是标准输出。STDERR 标准错误输出。

因为你可以用 open 函数创建用于不同用途(输入,输出,管道)的文件句柄,因此你必须指定你需要哪种类型。

   open(SESAME, "filename")         # 从现存文件中读取
   open(SESAME, "<filename")         # (一样的东西,明确地做)
   open(SESAME, ">filename")         # 创建文件并写入
   open(SESAME, ">>filename")         # 附加在现存文件后面
   open(SESAME, "| output-pipe-command")   # 设置一个输出过滤器
   open(SESAME, "input-pipe-command |")      # 设置一个输入过滤器

close(SESAME) 来关闭文件句柄或者另外一个 open 语句将文件句柄同别的文件关联起来。打开一个已经打开的文件句柄隐含地关闭第一个文件。

从控制台输入一个数字的做法,注意用 <STDIN>,带尖括号

   print STDOUT "Enter a number: ";      # 请求一个数字
   chomp($number = <STDIN>);            # 输入数字
   print STDOUT "The number is $number.\n";   # 打印该数字

1.5 操作符

Perl 的操作符大多数直接取自 C,FORTRAN,sed (1) 和 awk (1)。下面列出一些与 C 比有些特别的操作符。

$a ** $b  幂  取 $a 的 $b 次幂
print 123 . 456;      # . 连接操作符,打印 123456
print 123 x 3;      # x 重复操作符,打印 123123123
$val ||= "2";      # 如果 $val 不为真则把它设置为 2
($temp -= 32) *= 2; # perl 还可以这么写,相当于 $temp=($temp-32)*2;

1.5.5 逻辑操作符

Perl 有两组逻辑操作符,一组借鉴了 C(!/&/|/&&/||) ,另一组借鉴了 BASIC(not|and|or|xor)。

Perl 的逻辑操作符并不是返回真(true/1)或假(false/0),而是返回最后触及到的操作数,如:

print 100 && 200 ; # 输出 200
print 200 && 100 ; # 输出 100

open(GRADES, "grades") or die "Can't open file grades: $!\en"; #这个常用

1.5.6 比较操作符

比较操作符也有两组,符号(==|!=|<|>|<=|>=|<=>),字串(eq|ne|lt|gt|le|ge|cmp)。<=>|cmp 相当于 java 的 compareTo() 操作,相等时为 0,如果 $a 大为 1 如果 $b 大为 -1,在 sort 函数中,它们非常有用。

1.5.7 文件测试操作符

-e $a  存在,-r $a  可读 ,-w $a  可写,-d $a  目录,-f $a  文件,-T $a  文本文件

一个例子(留意一下 or/and 操作和 warn 输出信息):
-e "/usr/bin/perl" or warn "Perl is improperly installed\n";
-f "/vmlinuz" and print "I see you are a friend of Linus\n";

类别: Perl. 标签: . 阅读(51). 订阅评论. TrackBack.

Leave a Reply

Be the First to Comment!

avatar
wpDiscuz