관련 데이터가있는 두 개의 배열이 있습니다. html 테이블에 삽입해야합니다. 포럼을 검색하여 찾은 모듈을 사용하여 다른 프로그램에서이 배열에 액세스하고 있습니다.html 테이블 perl의 열에 두 개의 배열 삽입
package My::Module;
use strict;
use warnings;
use File::Slurp;
use Data::Dumper;
use Exporter;
our @ISA = 'Exporter';
our @EXPORT = qw(\@owners \@values);
our(@owners, @values);
$Data::Dumper::Indent = 1;
my @fileDatas = read_file("/x/home/venganesan/output.txt");
이 파일은 My 폴더에 있으며, Module.pm이라는 이름으로되어 있습니다. 테이블이있을 것이다 다른 파일의 부분은 그냥 어떻게 작동하는지보기 위해 하나 개의 배열을 인쇄하려고하고 다른 사람을 포함하고
use strict;
use warnings;
use CGI;
use My::Module;
my $q = new CGI;
print $q->header;
print $q->start_html(-title=>"Table testing", -style =>{'src'=> '/x/home/venganesan/style.css'});
print $q->h1("Modified WOWO diff");
print $q->table( {-border=>1, cellpadding=>3},
$q->Tr($q->th(['WOWODiff', 'Owner', 'Signoff'])),
foreach $own(@owners){
$q->Tr(
$q->td([$own,'Two', 'Three'])},
$q->td(['four', 'Five', 'Six']),
),
있습니다. 내가 얻는 결과물은 Module.pm을 사용할 때 html이없는 명령 행의 배열입니다. 만약 내가 그것을 제거, 나는 HTML 코드를 얻을. 나는 펄과 새로운 모듈을 즉시 배우고있다. 나는 코드를 구현하는 비판과 더 나은 방법에 대해 개방적이다.
'qw (...) '표현식 안에서'@'를 이스케이프해서는 안됩니다. – mob
@mob 변경했습니다. 출력은 여전히 동일합니다. – venkatvg