如何使用Perl从第n行写入文件

Question

我在文件中有一个源文本，并寻找将从此文件中取出第二个（或第n个 - 一般）行的代码并将其打印到一个单独的文件。

任何想法如何做到这一点？

Answer 1

你总是可以：

1. 阅读所有的文件中，并却为一个变量。
2. 拆分在阵列
3. 换行符和存储变量的索引1（第二行）的写入值或n-1个位置到单独的文件

Answer 2

我认为这将做你想做的：

line_transfer_script.pl：

open(READFILE, "<file_to_read_from.txt"); 
open(WRITEFILE, ">File_to_write_to.txt"); 

my $line_to_print = $ARGV[0]; // you can set this to whatever you want, just pass the line you want transferred in as the first argument to the script 
my $current_line_counter = 0; 

while(my $current_line = <READFILE>) { 
    if($current_line_counter == $line_to_print) { 
    print WRITEFILE $current_line; 
    } 

    $current_line_counter++; 
} 

close(WRITEFILE); 
close(READFILE); 

然后，你把它想：perl的line_transfer_script.pl 2和将从file_to_read_from.txt写二号线到FIL e_to_write_to.txt。

Answer 3

my $content = `tail -n +$line $input`; 

open OUTPUT, ">$output" or die $!; 
print OUTPUT $content; 
close OUTPUT; 

Answer 4

您可以用flip-flop operator和特殊变量$.（由..内部使用），它包含了当前的行号做本身在Perl：

# prints lines 3 to 8 inclusive from stdin: 
while (<>) 
{ 
    print if 3 .. 8; 
} 

，或者在命令行：

perl -wne'print if 3 .. 8' <filename.txt>> output.txt 

您也可以做到这一点没有的Perl：head -n3 filename.txt | tail -n1 >> output.txt

Answer 5

使用这样script.pl> OUTFILE（或>> OUTFILE进行追加）

此使用是优选的全球文件句柄和2 ARG开放词法文件句柄和3 ARG开放。

#!/usr/bin/perl 
use strict; 
use warnings; 
use English qw(-no_match_vars); 
use Carp qw(croak); 

my ($fn, $line_num) = @ARGV; 

open (my $in_fh, '<', "$fn") or croak "Can't open '$fn': $OS_ERROR"; 

while (my $line = <$in_fh>) { 
    if ($INPUT_LINE_NUMBER == $line_num) { 
     print "$line"; 
    } 
} 

note：$ INPUT_LINE_NUMBER == $。

这是一个稍微改进的版本，可处理任意数量的行号并打印到文件。

script.pl <infile> <outfile> <num1> <num2> <num3> ...

#!/usr/bin/perl 
use strict; 
use warnings; 
use English qw(-no_match_vars); 
use Carp qw(croak); 
use List::MoreUtils qw(any); 

my ($ifn, $ofn, @line_nums) = @ARGV; 

open (my $in_fh , '<', "$ifn") or croak "can't open '$ifn': $OS_ERROR"; 
open (my $out_fh, '>', "$ofn") or croak "can't open '$ofn': $OS_ERROR"; 

while (my $line = <$in_fh>) { 
    if (any { $INPUT_LINE_NUMBER eq $_ } @line_nums) { 
     print { $out_fh } "$line"; 
    } 
}