【Perl读书笔记】数组转换为行操作join函数

最新推荐文章于 2021-09-09 16:25:32 发布

原创最新推荐文章于 2021-09-09 16:25:32 发布 · 753 阅读

0 ·

CC 4.0 BY-SA版权

Perl 专栏收录该内容

14 篇文章

订阅专栏

本文通过一个具体的Perl脚本示例，展示了如何从标准输入读取数字并存入数组，然后将数组元素以制表符分隔的形式写入文件。此过程涉及Perl的基本语法、数组操作及文件I/O。

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

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

#!/usr/bin/perl

use strict;
use warnings;

my @array = (); 


while (1) {
        print "input a number or <enter> to finish: ";
        my $a=<STDIN>;
        chomp ($a);

        if ($a eq "") {
                last;   
        }   
        print "input $a\n";
        push(@array, $a);
}

print "array=@array\n";

my $line = join("\t", @array);

open JOIN_FILE, ">join.file" or die("Could not open join.file");

print JOIN_FILE $line;

close(JOIN_FILE);

运行结果：

[root@localhost perl_practice]# ./join.pl
input a number or <enter> to finish: 1
input 1
input a number or <enter> to finish: 2
input 2
input a number or <enter> to finish: 3
input 3
input a number or <enter> to finish: 4
input 4
input a number or <enter> to finish: 5
input 5
input a number or <enter> to finish:
array=1 2 3 4 5
[root@localhost perl_practice]# cat join.file
1 2 3 4 5[root@localhost perl_practice]#