PERL CGI：如何修正拆分功能，读取/显示表格上的数据？

文本文件中的项目用管道符号“|”分隔。下面的CGI文件将在指定标签下的表格中显示这些项目。请看这Table Output，这就是我所拥有的。我该如何解决这些问题，因为这些项目是在他们指定的专栏中，而不仅仅是一个？有没有MySQL或SQL来保存数据，只是一个文本文件PERL CGI：如何修正拆分功能，读取/显示表格上的数据？

#!/usr/bin/perl -w 
use CGI qw(:standard); 
use CGI::Carp qw(fatalsToBrowser); 
use strict; 
use warnings; 
print "Content-type: text/html\n\n"; 

print "<TABLE BORDER>\n"; 
print "<TR><TH>SKU Code<TH>Name<TH>Description<TH>Price"; 

open (ORDERS, "inventory.txt") or die "Error opening file, $!"; 
while(<ORDERS>) { 
    print "<TR>\n"; 
    print "<TD>"; 
my @fields=split(/\<\*\>/); 
    print join(`<TD>`,@fields); 
    print "</TR>"; 
} 
close ORDERS; 
print "</TABLE>";

下面是一个用来存储项目的文本文件中的CGI文件

#!/usr/bin/perl -w 
use strict; 
use warnings; 
use CGI qw(:standard); 
use CGI::Carp qw(fatalsToBrowser); 
print "Content-type: text/html\n\n"; 
my $sku = param('sku_code'); 
my $cust = param('customer'); 
my $description = param('description'); 
my $selling = param('price'); 
my $price = sprintf("\$%.2f"); 

print <<HERE; 
<HTML> 
<BODY> 
<H3>Here is your order...please check</H3> 
SKU: $sku<br> 
Name: $cust<br> 
Description: $description<br> 
Selling Price: $price<br> 
HERE 
open (ORDERS, ">>inventory.txt") or die "File error, $!"; 

print ORDERS "$sku|$cust|$description|$price\n"; 
close ORDERS;

来源

2016-11-01 Jada Pinks

这样的事情会工作。

# Best practice: three-arg open() and lexical filehandle 
open my $order_fh, '<', 'inventory.txt' or die "Error opening file, $!"; 

while(<$order_fh>) { 
    print "<TR>\n"; 
    print '<TD>' . join('</TD><TD>', split /\|/) . "</TD>\n"; 
    print "</TR>\n"; 
} 

close $order_fh;

此代码看起来像rather familiar。请考虑我在那里给出的关于使用模板系统的建议。

在你的代码的一些其他意见：

use warnings取代-w。你不需要两个。
使用header()（来自CGI.pm）打印标题。
my $price = sprintf("\$%.2f") - 这看起来不对！
你真的需要添加一些文件锁定。
您的HTML看起来像是从1995年开始的。我们倾向于近期关闭元素。

来源

2016-11-01 15:26:27

谢谢。这非常有帮助 –

拆分订单的每一行通过管道字符，你应该说：

my @fields=split(/\|/, $_);

来源

2016-11-01 15:13:05 sotona

该表似乎没有任何更改。 –

对不起，复制粘贴格式化很好吃了反斜杠 – sotona

PERL CGI：如何修正拆分功能，读取/显示表格上的数据？

回答

相关问题