我需要替換用雙引號括起來的值。目標是用問號替換逗號,用連字符替換雙引號包圍的雙引號。
uj5u.com熱心網友回復:
use Text::ParseWords;
my $dlm = ","; # 區切り文字を定義
open(RH, "<", "from.csv");
open(WH, ">", "to.csv");
while(<RH>){
chomp;
my @parsed = parse_line($dlm, 1, $_);
for(my $i=0; $i<=$#parsed; $i ){
$parsed[$i] =~ s/$dlm//g;
}
print WH join($dlm, @parsed)."\n";
}
close(WH);
close(RH);
轉載請註明出處,本文鏈接:https://www.uj5u.com/qita/478971.html
標籤:perl
