在文件I/O中，要从一个文件读取数据linux文件句柄，应用程序首先要调用操作系统函数并传送文件名，并选一个到该文件的路径来打开文件。该函数拿回一个顺序号，即Perl文件句柄（filehandle）linux文件句柄，该Perl文件句柄对于打开的文件是惟一的辨识根据。要从文件中读取一块数据，应用程序须要调用函数ReadFile，并将Perl文件句柄在显存中的地址和要拷贝的字节数传送给操作系统。当完成任务后，在通过调用系统函数来关掉该文件。
不仅你模仿唯我论者哲学家编撰一个人工智能程序,你的程序使用不和外界通信的方式。在班级事例中的第三和四行,你将见到"GRADES",这是引用另一个Perl文件的数据类型,称为据柄(filehandle)。一个句柄就是你给一个文件，设备，管套(socket)或管线的一个名子,便于帮助你记住你正处理的名子,并隐藏个别缓存等的复杂性。(在内部,句柄类似C++语言的流(streams),或BASIC中的I/O通道)句柄使你从不同的地方输入和输出给不同的地方都较容易。使Perl成为好语言的一个诱因是它能和多个文件通信并一次处理她们。对外部对象有好的符号名子是一个好语言的一个组成部份[1]。
其他使Perl是一个好语言的是:它是8位的,是可嵌入的,你能通过扩充模式在Perl中嵌入其他程序。它是简明的，网路上容易使用。环境上是清楚的，容易对话。你能以许多不同的方式引用它(如同上面看见的)。其实，语言本身不是这么严格的结构，以至于你不能使它超出你的问题。又回到TMTOWTDI。
你创建一个句柄，并通过open函数把它和一个文件连结。open有两个参数:句柄和你想与它连结的一个文件名。Perl也给出一些预定义(和预打开的)句柄。STDIN是你程序的正常输入通道,而STDOUT是你程序的正常输出的通道。STDERR是一个附加的输出通道,以便当把输入转为输出时,程序能给出一些说明[2]。
通常地,这种句柄和你的终端连结,所以你能输入你的程序并能看见,但她们也可以和文件连结。Perl能给你这种预定义句柄,由于你的操作系统已提供这种。在UNIX下,进程从他的父进程(通常是一个shell)承继标准输入,输出和错误。一个shell的责任之一是构建这种I/O流,便于子进程毋须考虑那些)。
既然你能为各类目的(输入,输出,管线)使用open函数创建句柄,你就必须能指明你要做哪些。就像在UNIX命令行一样,你给文件名简单地加些字符。
复制代码代码如下:
open(SESAME,"filename");#从已存在的文件读
open(SESAME,"open(SESAME,">filename");#创建一个文件并对它写
open(SESAME,">>filename");#对已有的文件接着写
open(SESAME,"|output-pipe-command");#构建一个输出过滤
open(SESAME,"input-pipe-command|");#构建一个输入过滤
就像你听到的,你可以任意选名子。一旦打开句柄SESAME,它能够被用于存取文件或管线,直至它被显式地关掉(用close(SESAME)),或对同一句柄的一系列open把这个句柄和另一文件连结[3]。
打开一个已打开的句柄是隐式地关掉第一个文件,使它对Perl文件句柄不可取红帽linux系统下载，并打开一个不同的文件。你必须留神这是你真正想做的。有时，碰巧偶然linux 下载工具，例如，当你open($handle,$file)时,$handle恰好包含空串(null)。确认设置$handle为某个单一个量,否则你将对空句柄打开一个新的文件。
一旦你已为输入打开一个句柄(或你使用STDIN),你能够使用"行读操作",读一行。这个也以砖石操作著称，由于它的形状。这个砖石操作包含你想读的句柄()[4]。使用STDID句柄读用户提供的答案,如下:
空砖石操作,将从命令行指定的所有文件读,假如没有指定,从STDIN读。(这是许多UNIX"过滤"程序的标准行为)
复制代码代码如下:
printSTDOUT"Enteranumber:";#恳求输入一个数
$number=;#输入一个数
printSTDOUT"Thenumberis$number";#输出这个数
你明白我们给你的事例吗?在print句子中STDOUT做哪些?这就是你使用一个输出句柄的方式之一。一个句柄可以作为print句子的第一个参数,假如存在,告诉往哪里输出。在事例中，句柄是冗余的，由于输出早已是STDOUT。对于输入的缺省是STDIN,对于输出的缺省是STDOUT。(在班级反例的18行,我们为防止使你混淆,我们省略了。)
我们也有一件事使你不明白。假如你试里面的事例，你可以注意到你得到一个非常的空行。由于读时没有手动地从你的输入行中删掉换行符(newline)(比如,你输入"9")。对于这种情况，当你想删掉换行符时，Perl提供chop和chomp函数。chop将不加区别地删掉(并返回)传给它的最后一个字符,而chomp只删掉记录标示的末尾(通常地是""),并返回这样删掉的字符数。
