【Perl读书笔记】简单I\O

calf_man

于 2012-12-27 17:19:22 发布

阅读量259

点赞数

CC 4.0 BY-SA版权

分类专栏： Perl

本文链接：https://blog.youkuaiyun.com/calf_man/article/details/8444620

Perl 专栏收录该内容

14 篇文章

订阅专栏

本文详细介绍了如何使用Perl语言复制文件，并通过实际示例展示了代码实现及运行结果，帮助读者深入理解Perl的基本文件操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

读《C程序员精通Perl》http://book.douban.com/subject/1232075/ 2.7节笔记

#!/usr/bin/perl
use strict;
use warnings;

open IN_FILE, "<in_file.txt" or die("Could not open in_file.txt");
open OUT_FILE, ">out_file.txt" or die("Could not create out_file.txt");

my $line;

while (1) {
        $line = <IN_FILE>;
        if (not defined($line)) {
                last;   
        }   
        print OUT_FILE $line;
}

close(IN_FILE);
close(OUT_FILE);

运行结果：
[root@localhost perl_practice]# cat in_file.txt
hello, world!
[root@localhost perl_practice]# ./copy.pl
[root@localhost perl_practice]# cat out_file.txt
hello, world!
[root@localhost perl_practice]#