#-1-变量使用,打印#!/usr/local/bin/perl$value=100+30+3+8;print("Value=",$value,"\n"); #-2-变量使用,打印#!/usr/local/bin/perl$value=1024;$sentence="The value of \$value is $value.\n";print($sentence); #-3-多次打印#!/usr/local/bin/perl$name=&qu…
#! /usr/bin/perl use strict; use Encode qw(encode decode); binmode(STDIN,":encoding(utf8)"); binmode(STDOUT,":encoding(utf8)"); binmode(STDERR,":encoding(utf8)"); use LWP::Simple; use LWP::UserAgent; use HTTP::Request; use HT…