Movatterモバイル変換


[0]ホーム

URL:


functions /close
(source,CPAN)
You are viewing the version of this documentation from Perl 5.6.1.View the latest version
#close FILEHANDLE
#close

Closes the file or pipe associated with the file handle, returning true only if stdio successfully flushes buffers and closes the system file descriptor. Closes the currently selected filehandle if the argument is omitted.

You don't have to close FILEHANDLE if you are immediately going to do anotheropen on it, becauseopen will close it for you. (Seeopen.) However, an explicitclose on an input file resets the line counter ($.), while the implicit close done byopen does not.

If the file handle came from a piped openclose will additionally return false if one of the other system calls involved fails or if the program exits with non-zero status. (If the only problem was that the program exited non-zero$! will be set to0.) Closing a pipe also waits for the process executing on the pipe to complete, in case you want to look at the output of the pipe afterwards, and implicitly puts the exit status value of that command into$?.

Prematurely closing the read end of a pipe (i.e. before the process writing to it at the other end has closed it) will result in a SIGPIPE being delivered to the writer. If the other end can't handle that, be sure to read all the data before closing the pipe.

Example:

open(OUTPUT, '|sort >foo')  # pipe to sort    or die "Can't start sort: $!";#...# print stuff to outputclose OUTPUT# wait for sort to finish    or warn $! ? "Error closing sort pipe: $!"               : "Exit status $? from sort";open(INPUT, 'foo')# get sort's results    or die "Can't open 'foo' for input: $!";

FILEHANDLE may be an expression whose value can be used as an indirect filehandle, usually the real filehandle name.

Perldoc Browser is maintained by Dan Book (DBOOK). Please contact him via theGitHub issue tracker oremail regarding any issues with the site itself, search, or rendering of documentation.

The Perl documentation is maintained by the Perl 5 Porters in the development of Perl. Please contact them via thePerl issue tracker, themailing list, orIRC to report any issues with the contents or format of the documentation.


[8]ページ先頭

©2009-2026 Movatter.jp