Amazon.comの500アイテムとAmazon.co.jpのアイテムの価格を一挙に比較するプログラム（パート３） #AWS

パート３です。

整形するためのプログラムです。HTMLを出力します。

でもって、パート１〜パート３までのプログラムをパイプでつなげると動作します。

パート３は、おしまいです。

mkhtml.pl

#!/usr/bin/perl -w

$line = "";

print "<!DOCTYPE html>\n";
print "<html>\n";
print "<body>\n";
print "<table>\n";

    print "<tr>\n";
    print "<td>asin</td><td>jrank</td><td>jprice</td><td>rank</td><td>price</td><td>jurl</td><td>url</td><td>weight</td><td>diff</td><td>prime</td><td>sutable</td><td>totalnew</td>\n";
    print "</tr>\n";

while( $line = <STDIN> ){
    print "<tr>\n";
        chomp( $line );
    @words = split /\t/, $line;

    for( $i = 0 ; $i < @words; $i ++)
    {
        if ( $words[$i] =~ /http:([^ \t\n\r\f\v]*)/ ) 
        {

            print '<td><a href="' . $words[$i] . '">OOO</a></td>';
            print "\n";
        }
        else
        {
            print "<td>" . $words[$i] . "</td>\n";
        }
    }

    print "</tr>\n";
}
print "</table>\n";
print "</body>\n";
print "</html>\n";