如何刪除perl中文件的最後10行

Question

我將總行數作爲用戶輸入，然後從文件中刪除這些數字。

我看到這個learn.perl.org/faq/perlfaq5.html#How-do-I-count-the-number-of-lines-in-a-file-然後我厭倦了下面的簡單邏輯。

邏輯：

1. 獲取行的總數
2. 由用戶
3. 打印進入線

這裏的數字減去這是我的代碼：

#!/usr/bin/perl -w 
use strict; 

open IN, "<", "Delete_line.txt" 
    or die " Can not open the file $!"; 
open OUT, ">", "Update_delete_line.txt" 
    or die "Can not write in the file $!"; 

my ($total_line, $line, $number, $printed_line); 

print"Enter the number of line to be delete\n"; 
$number = <STDIN>; 

while ($line = <IN>) { 

    $total_line = $.; # Total number of line in the file 
} 

$printed_line = $total_line - $number; 

while ($line = <IN>) { 

    print OUT $line unless $.== $printed_line;  
} 

那麼，我是不是在代碼中出現任何錯誤，也沒有任何輸出？爲什麼我只是不知道。

任何人都可以給我一些建議。

Answer 1

一個Perl的解決方案是有效的大型文件，需要使用File::ReadBackwards

use File::ReadBackwards qw(); 

my $num_lines = 10; 
my $qfn = 'file.txt'; 

my $pos = do { 
    my $fh = File::ReadBackwards->new($qfn) 
     or die $!; 
    $fh->readline() for 1..$num_lines; 
    $fh->tell() 
}; 

truncate($qfn, $pos) 
    or die $!; 

• 這不讀取整個文件的兩倍（與OP的方法）。
• 這不會讀取整個文件（不像Tie::File解決方案）。
• 這不會將整個文件讀入內存。

Answer 2

完成從在閱讀之後，你必須重新打開或seek IN, 0, 0重置其位置。您還必須將$.再次設置爲零。

而且最終狀態應改爲unless $. > $printed_line所以你跳過門檻的所有行。

Answer 3

容易與C像for：

#!/usr/bin/perl -w 
use strict; 

open(my $in,"<","Delete_line.txt") or die "Can not open the file $!"; 
open(my $out,">","Update_delete_line.txt") or die"Can not write in the file $!"; 

print"Enter the number of lines to be delete\n"; 
my $number=<STDIN>; 

my @file = <$in>; 

for (my $i = 0; $i < $#file - $number + 1; $i++) { 
    print $out $file[$i]; 
} 

close $in; 
close $out; 

Answer 4

剛看了反向文件並刪除前n行： -

open my $filehandle, "<", "info.txt"; 
my @file = <$filehandle>; 
splice(@file, -10); 
print @file; 

注：這將加載整個文件到內存中。

Answer 5

my $num_lines = 10; 
my $qfn  = 'file.txt'; 

system('head', '-n', -$num_lines, '--', $qfn); 
die "Error" if $?; 

Answer 6

另一種方法是使用Tie::File

#!/usr/bin/env perl 
use strict; 
use warnings; 
use Tie::File; 
tie my @lines, 'Tie::File', 'myfile' or die "$!\n"; 
$#lines -= 10; 
untie @lines; 

這有不將文件加載到內存中，而行事像它的優勢。

Answer 7

「更有趣」的答案：使用Tie::File！

use strict; 
use warnings; 

use Tie::File; 
tie my @file, 'Tie::File', 'filename' or die "$!"; 

$#file -= 10; 

Answer 8

你可以只緩衝區中的最後10行，然後打印不出來，其餘10

use English qw<$INPLACE_EDIT>; 

{ local @ARGV   = $name_of_file_to_edit; 
    local $INPLACE_EDIT = '.bak'; 
    my @buffer; 
    for (1..$num_lines_to_trim) { 
     push @buffer, <>; 
    } 

    while (<>) { 
     print shift @buffer; 
     push @buffer, $_; 
    } 
} 

你也可以用File::Slurp::edit_file_lines做到這一點：

my @buffer; 
my $limit_reached = 0; 
edit_file_lines { 
    push @buffer, $_; 
    return ($limit_reached ||= @buffer > $num_lines_to_trim) ? shift @buffer 
     :              '' 
     ; 
} $name_of_file; 

Answer 9

這裏說的通的解決方案通過流和打印除最後的所有n行，其中n是命令行參數：

#!/usr/bin/perl 

my @cache; 
my $n = shift @ARGV; 

while(<>) { 
    push @cache, $_; 
    print shift @cache if @cache > $n; 
} 

或一個班輪版本：

perl -ne'BEGIN{$n=shift@ARGV}push@c,$_;print shift@c if@c>$n' NUMBER 

Answer 10

# 
    # Reads a file trims the top and the bottom of by passed num of lines 
    # and return the string 
    # stolen from : http://stackoverflow.com/a/9330343/65706 
    # usage :  
    # my $StrCatFile = $objFileHandler->ReadFileReturnTrimmedStrAtTopBottom ( 
    #  $FileToCat , $NumOfRowsToRemoveAtTop , $NumOfRowsToRemoveAtBottom) ; 
    sub ReadFileReturnTrimmedStrAtTopBottom { 

    my $self = shift ; 
    my $file = shift ; 
    my $NumOfLinesToRemoveAtTop = shift ; 
    my $NumOfLinesToRemoveAtBottom = shift ; 

    my @cache ; 
    my $StrTmp =() ; 
    my $StrReturn =() ; 
    my $fh =() ; 

    open($fh, "<", "$file") or cluck ( "can't open file : $file for reading: $!") ; 
    my $counter = 0; 
    while (<$fh>) { 
     if ($. >= $NumOfLinesToRemoveAtTop + 1) { 
      $StrTmp .= $_ ; 
     } 
    } 
    close $fh; 

    my $sh =() ; 
    open($sh, "<", \$StrTmp) or cluck( "can't open string : $StrTmp for reading: $!") ; 
    while(<$sh>) { 
     push (@cache, $_ ) ; 
     $StrReturn .= shift @cache if @cache > $NumOfLinesToRemoveAtBottom; 
    } 
    close $sh ; 
    return $StrReturn ; 
    } 
    #eof ReadFileReturnTrimmedStrAtTopBottom 
    #