在css中留下关闭分隔符

时间:2016-06-17 17:14:28

标签: css

我注意到在css规则中,我可以省去最后一个分号,它仍然有效

use strict;
use Socket;
use CGI qw(:cgi-lib);
use CGI::Carp qw ( fatalsToBrowser );
my %formdata = Vars;

print "Content-type: text/html\r\n\r\n";

# to test running from the command line, hardcode the paramters normally passed from the web interface
# comment these out when running CGI
$formdata{printer} = "zebraprinter.mycompany.com";
$formdata{serials} = "TR16170003|Gerry's Product TR|This is a generic product where all serial numbers start with the letters TR|T~";

# initialize server and port
my $port = 9100;       
# create the socket, connect to the port
socket(SOCKET,PF_INET,SOCK_STREAM,(getprotobyname('tcp'))[2]) or myExit("Can't create a socket $!\n");    
connect( SOCKET, pack_sockaddr_in($port, inet_aton($formdata{printer}))) or myExit("Can't connect to port $port! \n");

foreach my $serial(split("~", $formdata{serials}))
{
    my @ar = split(/\|/, $serial);
    my $line;
    if ($formdata{printer} =~ /label2/) # small labels
    {
        $line = "^XA^PRA,A,A^LH5,5^FO10,10^BCN,50,N,N,N,D^FD$ar[0]^FS";
        $line .= "^FO300,10^AD,15,12^FDSerial Number:^FS";
        $line .= "^FO300,30^AD,15,12^FD$ar[0]^FS^XZ";
    }
    else # large labels
    {
        $line = "^XA^PRA,A,A^LH20,20";
        $line .= "^FO20,40^FWN^AT,60,10^FD Serial Number: $ar[0]^FS";
        $line .= "^FO20,120^FWN^AT,60,10^FD $ar[1]^FS";

        # need to hard break and limit long lines
        if (length($ar[2]) > 60)
        {
            my $part = substr($ar[2],0,60);
            $line .= "^FO20,200^FWN^AT,60,10^FD Description: $part^FS";
            $part = substr($ar[2],61,74);
            $line .= "^FO20,260^FWN^AT,60,10^FD$part^FS";
            $line .= "^FO50,340^B3N,N,100,Y,N^FD$ar[0]^FS";
        }
        else
        {
            $line .= "^FO20,200^FWN^AT,60,10^FD Description: $ar[2]^FS";
            $line .= "^FO50,280^B3N,N,100,Y,N^FD$ar[0]^FS";
        }
        $line .= "^XZ";
        # example formatted label
        #$line = qq~^XA^PRA,A,A^LH20,20^FO20,40^FWN^AT,60,10^FD Serial Number: $ar[0]^FS^FO20,120^FWN^AT,60,10^FD Product: $ar[1]^FS^FO20,200^FWN^AT,60,10^FD Description: $ar[2]^FS^FO50,280^B3N,N,100,Y,N^FD$ar[0]^FS^XZ~;
    }
    print SOCKET $line;
}    
close SOCKET;
myExit("Labels Printed.");

sub myExit
{
    my $msg = shift;
    print "<script>alert('$msg')</script>";
    exit;
}

另外,如果我在内联样式的末尾评论某些内容,我可以暂时关闭p { color:black; font-weight:bold; font-size:17px } 并且它仍然有用

*/

这是有效的语法,还是只是优雅地处理我的凌乱代码的Web浏览器?

0 个答案:

没有答案