Perl ( Print $_ ) 字符不正確 output || forparam循環

Question

我有以下 perl cgi 代碼行，這些代碼假設遍歷文件行並打印每一行。 問題是針對特定行（in[41:]）打印到標准輸出的內容與文件中的內容不同。

注意：這是一個 perl cgi 腳本。

代碼：

for (param('menu')) {
  /^(1)$/ and do {
                        $Sample="cat /tmp/int_rej_sample.txt";
                        @Sample=`$Sample`;
                        foreach (@Sample) {print $_,p}
   }

   }

cat /tmp/int_rej_sample.txt 是：

 in[ 37: ]<22222222222>
 in[ 39: ]<91>
 in[ 39: ]<91>
 in[ 41: ]<BBBBBBBB44444444>
 in[ 42: ]<9999999999     >

output 到 cgi window 是：

in[ 37: ]<22222222222>

in[ 39: ]<91>

in[ 39: ]<91>

in[ 41: ]

in[ 42: ]<9999999999 >

Answer 1

在進入打印循環之前，我在文件中的“<”和它后面的任何字符之間添加了一個空格。這解決了這個問題。

sed -e 's/</< /g' /tmp/int_rej_sample_dev.txt | sed -e 's/>/ >/g' > /tmp/int_rej_sample.txt