0

まず、私はこれに少し慣れていないので、答えは消費者次第かもしれませんが、次のコードがあります。

#!/usr/bin/perl

open(RESPONSE,"response.xml")
$result ="";
while(<RESPONSE>){
  next unless $. > 1
  $line = $_
  $line =~ "<html><body>";
  $line =~ "</body></html>";
  $result .= $line
}
print "$result";
exit 0;

しかし、これはまだ \n と \r\n を明示的に出力します。私は以下を追加しようとしました...

use Encode
...
$final = decode_utf8($result);
print "$final";

しかし、このシェルコマンドによって生成されたドキュメントを開くと、まだ文字が表示されます....

perl parse.pl > "outfile.csv"

たとえば

<html><body>test,a\r\ntest2,b<body></html>

csv で test,a\r\ntest2,b のまま

ありがとう!

4

1 に答える 1