�Ȥ����櫓��ͷ��Ǥߤ���

����@�����ܥ�����ܡ��ץ�����ޡ����֥���: codepad - �֥饦����Ǹ�����Խ����¹�
codepad.org�ϡ��֥饦����Υե����फ��Ƽ�ץ�����ߥ󥰸���Υ����������ɤ��Ǥ�����ǡ����˿��Ť�����ɽ�������ꡢ�ʤ�ȼ¹Ԥ��Ʒ�̤�ɽ�������뤳�Ȥ��Ǥ���Ȥ��������֥����ȡ�

�Ȥ��äƤ⸽�߻�����˳�ˤĤ�perl�Τߡ�

�Ȥꤢ����FizzBuzz

http://codepad.org/cgV42TL9
$\="\n";print $_%15?$_%5?$_%3?$_:Fizz:Buzz:FizzBuzz for(1..100)

̵�¥롼�פ⤷�ä��긡�Ф��롣Timeout��30�äۤɤ�?

http://codepad.org/X0f9WMME
1 while 1;
Timeout

Perl�ΥС�����󤬤���äȸŤ���5.10.0�Ȥϸ���ʤ��ޤǤ⡢5.8.8�ˤ����ߤ����Ȥ�����

http://codepad.org/QPE1eJqz
print $]
5.008

����Ǥ⡢Encode��ư����

http://codepad.org/WO6dP9Td
use Encode;
binmode STDOUT, ':utf8';
print decode('eucjp', "\xbe\xae\xbb\xf4\xc3\xc6");
������

�����Ȥλ��Ȥߤϡ��������⤵��Ƥ��롣�ޤ��QŪ��Python��Haskell�Ǽ����Ȥ����Τ�������

about - codepad

How it works

Code execution is handled by a supervisor based on geordi. The strategy is to run everything under ptrace, with many system calls disallowed or ignored. Compilers and final executables are both executed in a chroot jail, with strict resource limits. The supervisor is written in Haskell.

����Ū�ʥǥ��쥯�ȥ꡼�����Ϥ�������ˤ��Ƹ����������롣

http://codepad.org/n3gvmdhE
sub tree {
    my ( $dir, $depth ) = @_;
    opendir my $dh => $dir or return;
    for my $f ( sort grep !/^\.\.?/, readdir($dh) ) {
        my $path = "$dir/$f";
        my $d = -d $path ? '/' : '';
        print "  " x $depth, $f, $d, "\n";
        tree( $path, $depth + 1 ) if $d;
    }
}

tree(".");
lib/
  ld-linux.so.2
  libc.so.6
  libcrypt.so.1
  libdl.so.2
  libm.so.6
  libnsl.so.1
  libutil.so.1
lock
t.pl
usr/
  bin/
    perl
....

�⥸�塼��μ±餬����ʤ��Ȥ�������ǰ�������ʲ��Τ褦��iframe��ͳ�Ǥ⥢�������Ǥ���Τǡ����女���ɥ���ץ�򸫤����Ȥ��Ʒ빽�Ȥ���������

�ɤ��񤯡�org�ˤ��λ��Ȥߤ�Ƴ���Ǥ��ʤ��Τ��ʤ�....

Dan the Sandboxed