小骆驼第五章输入与输出

最新推荐文章于 2021-08-08 21:41:48 发布

原创最新推荐文章于 2021-08-08 21:41:48 发布 · 467 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#perl

这篇博客探讨了Perl中处理输入和输出的问题，特别是关于文件传递的挑战。文章通过实例展示了如何正确调用参数，解决文件无法传入的常见问题。

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

调用参数

1.txt
ssssssssssss
ssssssssss
dddddddddddd
2222222222
sssssssssssssssss

#!/usr/bin/perl

use strict;
use warnings;

while(<>)
{
    chomp;
    $_ = <>;
    print "$_";
}

##ssssssssss
##2222222222
##Use of uninitialized value $_ in string at test.pl line 10, <> line 5.

print "$0\n";

##test.pl

问题一：文件无法传入


@ARGV = (1.txt,2.txt,3.txt);

while(<>)
{
    chomp;
    $_ = <>;
    print "$_";
}

##Bareword found where operator expected at test.pl line 6, near "1.txt"
        (Missing operator before txt?)
##Bareword found where operator expected at test.pl line 6, near "2.txt"
        (Missing operator before txt?)
##Bareword found where operator expected at test.pl line 6, near "3.txt"
        (Missing operator before txt?)
##syntax error at test.pl line 6, near "1.txt"
##Execution of test.pl aborted due to compilation errors.