Perl腳本從一個特定的行讀取csv文件到文件結尾

Question

我有一個CSV文件my.csv與此內容：

abc,yyy 

efg,zzz 

zsc,vvv 

uvw,ggg 

取決於變量$X值我需要從該特定值閱讀直到文件結束。例如：

如果$X = efg，輸出將是：

efg,zzz 

zsc,vvv 

uvw,ggg 

爲$X = zsc：

zsc,vvv 

uvw,ggg 

這是我公司開發的腳本，該腳本讀取一個CSV文件的全部內容，並將其顯示：

use strict; 
use warnings; 

open(my $data, '<', $file) or die "Could not open '$file' $!\n"; 

while (my $line = <$data>) { 
    chomp $line; 
    my @field = split "," , $line; 
    print "$field[0] $field[1]"; 
} 

請幫我一個腳本來顯示上面提到的場景。

Answer 1

如果只是要打印線，其中第一場是比規定值相等或較大的（例如，$X），使用條件：

if ($field[0] >= $X) { 
    print ... 
} 

Answer 2

將該溶液跳過線1〜匹配的文本， if (1 .. /\b$start_word\b/)並將匹配文本中的所有行打印到文件末尾。

#!/usr/bin/perl 
use strict; 
use warnings; 

my $start_word = 'efg'; 
my @data; 

while (<DATA>) { 
    chomp; 
    if (1 .. /\b$start_word\b/) { 
     #print if /\b$start_word\b/; 
     @data = [split /,/] if /\b$start_word\b/; 
    } 
    else { 
     #print; 
     push @data, [split /,/]; 
    } 
} 

# Do something with @data 

__DATA__ 
abc,yyy 
efg,zzz 
zsc,vvv 
uvw,ggg