Perl - "/"カンマで分割すると問題が発生します

Question

"、"でファイルを分割しようとしています。これはCSVファイルです。

ただし、1つの「列」には「/」と空白を含む値があります。そして、それはそのコラムで驚いているようだし、そのコラムの後には何も印刷しませんが、次の行に移動します。

私のコードは単純です：

perl -lane '@values = split(",",$F[0]); print $values[0]."\t".$values[3];' basefile.txt > newfile.txt 

basefile.txtは、次のようになります。私が手

代わり

"1","filename1" 
"2","filename2" 
"3","filename3" 

：

"1","text","abc // 123 /// some more text // text","filename1" 
"2","text","abc // 123 /// some more text // text","filename2" 
"3","text","abc // 123 /// some more text // text","filename3" 

マイNEWFILE.TXTはの出力を持っている必要があります：

"1", 
"2", 
"3", 

ありがとうございます！

Answer 1

ここでは混乱しているのは/ではありません。それは-aフラグと組み合わせたスペースです。試してみてください：

perl -lne '@values = split(",",$_); print $values[0]."\t".$values[3]' basefile 

Text::CSV_XSを使用して分割してください。

Answer 2

「/」ではなく、スペースです。

フラグ-aフラグにより​​、perlは各行の入力を分割し、変数を@Fに入れます。この分割操作の区切り文字は、コマンド行で-F区切り文字オプションを使用して上書きしない限り、空白です。

ように、指定された-lanフラグで入力

"1","text","abc // 123 /// some more text // text","filename" 

ため、perlのはあなただけで全体の行に分割操作をやりたいように思え

$F[0] = '"1","text","abc'; 
$F[1] = '//'; 
$F[2] = '123'; 
$F[3] = '///'; 
$F[4] = 'some'; 
etc. 

設定します。その場合、あなたは、なぜあなたは*自動split * `-a`フラグを使用している

perl -F/,/ -lane '@values=@F; ...'