Skrypt Perla do odczytu pliku csv z określonego wiersza do końca pliku
Mam plik CSVmy.csv
z tą treścią:
abc,yyy
efg,zzz
zsc,vvv
uvw,ggg
W zależności od wartości zmiennej$X
Muszę odczytać z tej konkretnej wartości do końca pliku. Na przykład:
Jeśli$X = efg
, wyjście będzie:
efg,zzz
zsc,vvv
uvw,ggg
Dla$X = zsc
:
zsc,vvv
uvw,ggg
Jest to skrypt, który stworzyłem, który odczytuje całą zawartość pliku CSV i wyświetla go:
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]";
}
Pomóż mi ze skryptem, aby wyświetlić powyższy scenariusz.