html - Perl 打印从数组到 html 的正则表达式匹配项

Question

我在 perl 中有以下代码，它将数组的每个值输出到新的 HTML 表格单元格和表格行

print "<tr><td>$_<br/></td></tr>\n" for @fruitArray;

数组内容如下:

APPLE|0
ORANGE|0
PEAR|1
GRAPE|0
TOMATO|1

我想在 | 之前打印所有内容在第一个表格单元格中，然后是 | 之后的所有内容在该行的第二个表格单元格中

我想我需要使用像这样的正则表达式:

/([|])\w+/

只是不确定在一行中打印它的确切语法

Answer 1

这真的很简单

use strict;
use warnings 'all';

my @data = qw/
    APPLE|0
    ORANGE|0
    PEAR|1
    GRAPE|0
    TOMATO|1
/;

print "<table>\n";
printf "    <tr><td>%s</td><td>%s</td></tr>\n", split /\|/ for @data;
print "</table>\n";

输出

<table>
    <tr><td>APPLE</td><td>0</td></tr>
    <tr><td>ORANGE</td><td>0</td></tr>
    <tr><td>PEAR</td><td>1</td></tr>
    <tr><td>GRAPE</td><td>0</td></tr>
    <tr><td>TOMATO</td><td>1</td></tr>
</table>