如何從CSV文件中獲取標頭並將其寫入另一個文件？

Question

如何從CSV文件中獲取標頭並將其寫入另一個文件？ 如果我在CSV文件中沒有很多列，則此代碼有效，但是當我的CSV文件包含200多個列時，該代碼不起作用。 它只是在屏幕上回顯列標題（但不是全部，它們都會被截斷）。

@echo off
set /p "header="<book1.csv
echo %header% > "book3.csv"

Answer 1

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

use Text::CSV_XS;

my $csv = 'Text::CSV_XS'->new({binary => 1, escape_char => '\\'});
open my $fh, '<', 'book1.csv' or die $!;
my $h = $csv->getline($fh);

my $out = 'Text::CSV_XS'->new({eol => $/, escape_char => '\\'});
open my $fho, '>', 'book3.csv' or die $!;
$out->say($fho, $h);

經過測試

"Header 1","Header, 2","Header \"3\"","Header
4"
1,2,3,4

Answer 2

如果您正在運行PowerShell中，你應該能夠使用-TotalCount （別名-Head和-First ）的參數Get-Content （別名GC ）只得到一個文件的第一行。

gc book1.csv -head 1|sc book3.csv