將跟蹤代碼添加到CSV文件的每一行中鏈接的第一個實例

Question

我想使用perl將跟蹤代碼添加到csv文件每一行中鏈接的第一個實例。我怎麼能這樣做？

例如

輸入：

ID, text1, link1, text2, text3, link2 
1234, something, http://www.example.com/a/b/c, "lorem", "ipsum", http://www.example.com/image.gif 
1235, something, http://www.example.com/dddd, "lorem", "ipsum", http://www.example.com/image.gif 
1236, something, http://www.example.com/e/f/g/h, "lorem", "ipsum", http://www.example.com/image.gif 

輸出：

ID, text1, link1, text2, text3, link2 
1234, something, http://www.example.com/a/b/c?tracking_code=1&tr2=2, "lorem", "ipsum", http://www.example.com/image.gif 
1235, something, http://www.example.com/dddd?tracking_code=1&tr2=2, "lorem", "ipsum", http://www.example.com/image.gif 
1236, something, http://www.example.com/e/f/g/h?tracking_code=1&tr2=2, "lorem", "ipsum", http://www.example.com/image.gif 

Answer 1

使用Text::CSV爲CSV文件妥善處理：

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

use Text::CSV; 

my $file = 'file.csv'; 

my $csv = 'Text::CSV'->new({allow_whitespace => 1, 
          eol => $/, 
          }) or die 'Text::CSV'->error_diag; 
open my $CSV, '<', $file or die $!; 

my $header = $csv->getline($CSV); 
while (my $row = $csv->getline($CSV)) { 
    $row->[2] .= '?tracking_code=1&tr=2'; 
    $csv->print(*STDOUT{IO}, $row); 
} 
$csv->eof or $csv->error_diag;