azurestone

package Person;

sub new {
  my ($class,$args) = @_;
  my $self = bless $args, $class;
  return $self;
}

sub self_introduction {
  my $class = shift;

azurestone

#!/usr/bin/perl -l

use strict;
use warnings;

use Data::Dumper;

use lib 'lib01';
use Person;

azurestone

use strict;

my $name = 'hoge';
my $value = 'xxxxxxx';

my $json = new TestJSON( name => $name, value => $value );
  # $json の中身は { name => 'hoge', value => 'xxxxxxx' }
  # $json は 'TestJSON' というpackage nameと関連付け(blessされてる)

# 以下同様

azurestone

use strict;

my $name = 'hoge';
my $value = 'xxxxxxx';

my $json = { name => $name, value => $value };
  # ただのhashref
my $yaml = { name => $name, value => $value };
my $html = { name => $name, value => $value };

azurestone

	//サニタイズ処理
	if( $("#q").val().match( /[\"\']+ *\>.*\<(script|iframe|s|xmp|b|img|object)[^a-zA-Z0-9]/i ) ){
		alert( "（；´Д｀） XSS Not Found" );
	}else if( $("#q").val().match( /[\"\']+ *on[a-zA-Z]{3,} *=/i ) ){
		alert( "通報しますた" );
	}

azurestone

#ZONE      INTERFACE     BROADCAST     OPTIONS
net        eth0          detect

azurestone

#SOURCE    DEST        POLICY      LOG LEVEL    LIMIT:BURST
net        all         DROP        info
all        all         DROP        info

azurestone

#ACTION    SOURCE        DEST      PROTO      DEST
#                                             PORT(S)
ACCEPT     net           $FW       tcp        22
ACCEPT     net           $FW       tcp        80
ACCEPT     net           $FW       tcp        3000

ACCEPT     $FW           net       tcp        22
ACCEPT     $FW           net       tcp        80
ACCEPT     $FW           net       tcp        443
ACCEPT     $FW           net       tcp        6667

azurestone

#ZONE   TYPE    OPTIONS                 IN                      OUT
#                                       OPTIONS                 OPTIONS
fw      firewall
net     ipv4

azurestone

azurestone@yorozuya:~$ dig A www.facebook.com

; <<>> DiG 9.7.3 <<>> A www.facebook.com
;; global options: +cmd
;; Got answer:
;; ->>HEADER<<- opcode: QUERY, status: NOERROR, id: 33691
;; flags: qr rd ra; QUERY: 1, ANSWER: 1, AUTHORITY: 2, ADDITIONAL: 2

;; QUESTION SECTION:
;www.facebook.com.              IN      A