0

Perl スクリプトで HTML マークアップをハードコーディングして、HTML テーブルを作成しようとしています。テキスト ファイルからデータを取得し、コンポーネントごとに分割して HTML テーブルに出力します。テキストファイルの例（著者、書籍名、書籍内容）：

Ronnie Smith, javabook, javaclasses
Ronnie Smith, javabook, javamethods
Ronnie Smith,  c-book, pointers
Carrlos Bater, htmlbook, htmltables

著者名を 3 回印刷する代わりに 1 回だけ印刷するにはどうすればよいでしょうか。本の名前も同じです。1 人の著者 ( ) だけRonnie Smithが 3 冊の本を書いたので、1 つのカテゴリに分類する必要があります。また、たとえばjavaclassesとjavamethodsは同じ本javabookからのものなので、javabook一度だけ印刷する必要があります。

私のスクリプト：

use strict;
use warnings;

my $Author;
my $bookName;
my $bookContent;
my $bookContentList = "List.txt";

open MYFILE, $bookContentList or die "could not open $bookContentList \n";

my @body = "";
push(@body, "<html> \n");
push(@body, "<head> \n");
push(@body, "<TABLE BORDER=\"0\"\n");
push(@body, " <TD>");
push(@body, "<div align=\"left\"><Table border=1 bordercolor= \"black\"> \n");
push(@body, "<tr bgcolor=\"white\"><TH><b>Author</b></TH><TH>Book Name     </TH><TH>bookContent</TH></TR>");
push(@body, "<br>\n");

while (<MYFILE>) {
    ($Author, $bookName, $bookContent) = split(",");
    push(
        @body, "<TR><td>$Author</TD>
         <td>$bookName</TD>
         <td>$bookContent</TD>"
    );
}
push(@body, "</div></Table>");

my $Joining = join('', @body);
push(@body, "</body></font>");
push(@body, "</html>");
my $htmlfile = "compliance.html";
open(HTML, ">$htmlfile") || warn("Can not create file");
print HTML "$Joining";
close HTML;
close MYFILE;
4

1 に答える 1

0

これはハッシュテーブルの古典的なケースです: 著者と本を一意の識別子で識別したい場合:

my ( %author_books, @author_order );
while (<MYFILE>) {
    ($author, $bookName, $bookContent) = split(",");
    my $auth = $author_books{ $author };
    unless ( $auth ) { 
        push @author_order, $author;
        $author_books{ $author } = $auth = {};
    }
    my $books= $auth->{books}{ $bookName };
    unless ( $books) { 
        push @{ $auth->{order} }, $bookName;
        $auth->{books}{ $bookName } = $books= [];
    }
    push @$books, $bookContent;
}

foreach my $author ( @author_order ) { 
    my $auth  = $author_books{ $author };
    my $books = $auth->{order}; 
    push @body, qq{<tr><td rowspan="${\scalar @$books}">$author</td>\n};
    my $line = 0;
    foreach my $book ( @$books ) { 
        push @body, '<tr><td></td>' if ++$line;
        push @body
           , ( "<td>$book</td><td>"
             . join( "<br/>\n", @{ $auth->{books}{ $book } } )
             . "</td><tr>\n"
             );
    }
}

方法はお勧めしませんpush @body。でもやるならオススメFile::Slurpです。

File::Slurp::write_file( $htmlfile, @body );

$Joiningそうすれば、参加するのが早すぎてフッターを書き損ねるというミスも回避できます。

于 2012-05-29T16:21:33.843 に答える