代码之家 › 专栏 › 技术社区 › Simply Seth

perl:如何从一个文件中读取所有行并作为一行文本打印

file string perl

Simply Seth · 技术社区 · 14 年前

我正在尝试返回一个文件的输出,该文件将换行符替换为\n而不使用CPAN

这是我到目前为止的情况

#! /usr/local/bin/perl 

if ( $#ARGV = "1" )     {
    print "$ARGV[0]\n";

    my $file = "$ARGV[0]";
    my $document = do {
        local $/;
        open my $fh, "<", $file
          or die "could not open $file: $!";
        <$fh>;
    };
    print "Doc: $document\n";
}

4 回复 | 直到 14 年前

OMG_peanuts 14 年前

您可以使用slurp模式(不再需要while循环)和一些regexp:

print map { $_ =~ s/\n/\\n/; $_ } (<>);

my @a = <>;
$\ = $, = '\n';
chomp @a;
print @a;

($\是输出记录分隔符,$是输出字段分隔符。两者都适用于打印操作员)

Anon. 14 年前

while(<>) {chomp;print;print '\n';}

Simply Seth 14 年前

我试过这个。。。

#! /usr/bin/perl 

if ( $#ARGV = "1" )     {
open FILE, "<", "$ARGV[0]" or die $!;
chomp $_;
@chars = map ({ $_ =~ s/\n/\\n/; $_ } (<FILE>)); 
print @chars;
print "@chars\n";
}

gjc 14 年前

为了清楚起见,这是一个很长的解决方案。简而言之,chomp将删除所有尾随空格和控制字符。

#!/usr/bin/perl

use strict;
use warnings;

my $filename = shift;
my @contents;
my $lines = 0;

if (! -e $filename) {
    print "Please provide a valid filename\n";
    exit;
}

print "Examining $filename\n";

open(FILE, "<$filename");

while (<FILE>) {
    chomp();
    push(@contents, $_);
    print ".";  
    $lines++;
    if ($lines % 10 == 0) {
        print "\n";
    }
}
close(FILE);

print "done\n";

foreach (@contents) {
    print "$_";
}

print "\n";

推荐文章

Dima Malko · 如何在指定符号前添加符号?

2 年前

shekharsabale · 从列表元素捕获子字符串

2 年前

Kamran Ali · 类中的Construtor Drink Drink不能应用于给定类型

2 年前

Manny · 如何比较Perl中的字符串?

2 年前

FÄÅ ÛÅ · 字典、列表和字符串

2 年前

displayName is undefined · 如何将字符串转换为非字符串?

2 年前

AntonioGrissini · 如何在python中将字符串“翻译”为整数?

2 年前

Manan Girdhar · 拆分字符串并仅在java中使用第二部分

2 年前

AnxiousLuna · Python使用len()获取数组索引数

2 年前

antonoyaro8 · 数据帧中每列上的Grepl

2 年前