GET /hoge.php?q=pon HTTP/1.1 TE: deflate,gzip;q=0.3 Connection: TE TEを取りましょう。LWP/Protocol/http.pm my $sock = $self->socket_class->new(PeerAddr => $host, PeerPort => $port, Proto => 'tcp', Timeout => $timeout, KeepAlive => !!$conn_c…

@e=(0..99); @e=shuffle_hour(@e); print join( " ",@e),"\n"; sub shuffle_hour (@) { my @a=\(@_); my $n; my $i=@_; srand(int(time()/3600)); map { $n = rand($i--); (${$a[$n]}, $a[$n] = $a[$i])[0]; } @_; }

use List::Util; @e=(0..99); @e=List::Util::shuffle(@e); print join( " ",@e),"\n";

IPアドレス：ポートを１６進表示する #!/usr/bin/perl print sprintf("%08X%04X",unpack('Nn', pack('CCCCn', split(/[\.\:]/, $ARGV[0]))));

#!/usr/bin/perl use Socket;while(){ my $iaddr = pack('C*', split(/\./, $_)); my $host_name = gethostbyaddr($iaddr, AF_INET); print "$_ $host_name\n"; }

perl で書かれたhttpdhttp://fuktommy.com/htmlpp/httpd-0.1b10.pl tomoyo$ perl [ペースト] ^d で実行できるところが利点だと思う。

$image->setPixel($x,$y,$color)

perl -e 'use Encode;@e=Encode->encodings(":all");for(@e){print $_,"\n";}'

split(/((?:[\x00-\x2e]|[\x30-\x7F]|[\x8E\xA2-\xFE][\xA1-\xFE]|\xA1[\xA1-\xBE]|\xA1[\xC0-\xFE]|\x8F[\xA1-\xFE][\xA1-\xFE])*)(?:\s| )*(?:\/|／)?(?:\s| )*/, $str)