CGI中心图像

Question

我花了一段时间来让这张图片居中。任何帮助都将不胜感激。

http://www.quickpaysolutions.com/ttb.html上的测试表

#!/usr/bin/perl

use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
use CGI;

my $cgi = new CGI;

print

    $cgi->header() . 

    img {src => "../cgi-bin/images/mtlogos.png", align=>"CENTER"};

$cgi->start_html( -title => 'Form Results') .

$cgi->center($cgi->h1('Reciept <br> Please Print this Reciept')). "\n";

my @params = $cgi->param();
print '<table border="1" width="600" align="center" cellspacing="1"               cellpadding="2">' . "\n";
foreach my $p (param()) {
    print "<tr><th>$p</th><td>" . $cgi->param($p) . "</td></tr>\n";
}
print "</table>\n";

Answer 1

在CSS中，若要使项在块中居中，请将其左右边距设置为auto。

margin-left: auto;
margin-right: auto;

使用CGI.pm

print Tr(
         th(
            { -style=>'margin-left: auto; margin-right: auto;' },
            $p
           )
        );

Answer 2

您的代码有点奇怪:您调用了start_html和center，只是丢弃了它们生成的文本而不打印它。

img不是块元素，因此将忽略center的align属性。

您可以只将图像包装在一个center元素中：

print $cgi->center($cgi->img({ -src => "../cgi-bin/images/mtlogos.png" }));

或者，您可以对封闭元素使用align属性，如div

$cgi->div({ -align => 'center' }, $cgi->img({ -src => "../cgi-bin/images/mtlogos.png" }));

但是您应该注意，CSS标记和align属性都已被弃用，唯一合适的方法是使用center