Unix/Linuxを中心に技術メモや身近な体験を記録。
Tweet
CL-USER> (ql:quickload "usocket-udp")
To load "usocket-udp":
Load 1 ASDF system:
usocket-udp
; Loading "usocket-udp"
.
("usocket-udp")
CL-USER> (usocket:socket-send
(usocket:socket-connect "localhost" 2425 :protocol :datagram)
"1:100:shirouzu:jupiter:32:Hello"
(length "1:100:shirouzu:jupiter:32:Hello"))
Tweet
A0=1999, B0=0 A1=A0-A0/2, B1=B0+A0/2 A2=A1+B1/3, B2=B1-B1/3 A3=A2-A2/4, B3=B2+A2/4 n=偶 An=A(n-1) + B(n-1)/(n+1), Bn=(1-1/(n+1))B(n-1) n=奇 An=(1-1/(n+1))A(n-1), Bn=B(n-1)+A(n-1)/(n+1)
(defun beakera (n)
(cond
((= n 0) 1999)
((evenp n) (+ (beakera (- n 1)) (/ (beakerb (- n 1)) (+ n 1))))
((oddp n) (* (- 1 (/ 1 (+ n 1))) (beakera (- n 1))))
(t nil)))
(defun beakerb (n)
(cond
((= n 0) 0)
((evenp n) (* (- 1 (/ 1 (+ n 1))) (beakerb (- n 1))))
((oddp n) (+ (beakerb (- n 1)) (/ (beakera (- n 1)) (+ n 1))))
(t nil)))
とか書いて、REPLで (beakera 1999) としたら固まった。。。ポカーンA0=1999=t, B0=0 A1=A0-A0/2, B1=B0+A0/2 =t/2 =t/2 A2=A1+B1/3, B2=B1-B1/3 =t/2+t/6 =t/2-t/6 =2t/3 =t/3 A3=A2-A2/4, B3=B2+A2/4 =2t/3-t/6 =t/3+t/6 =t/2 =t/2 A4=A3+B3/5, B4=B3-B3/5 =t/2+t/10 =t/2-t/10 =3t/5 =2t/5 A5=A4-A4/6, B5=B4+A4/6 =A3t/5-t/10 =2t/5+t/10 =t/2 =t/2
Tweet
(my-unless (> 1 2) (print "hello")) ;-> ; "hello" ;=> "hello"
CL-USER> (defmacro my-unless (condition &body body)
`(if (not ,condition)
(progn
,@body)))
MY-UNLESS
CL-USER> (my-unless (< 2 1) 10)
10
(IF (NOT (< 2 1)) (PROGN 10))
Tweet
Tweet
Tweet
(my-when (< 1 2) (print "hello")) ;-> ; "hello" ;=> "hello"
CL-USER> (defmacro my-when (condition &rest body)
`(if ,condition
(progn ,@body)))
MY-WHEN
CL-USER> (my-when (> 2 1)
(print "hello1")
(print "hello2"))
"hello1"
"hello2"
"hello2"
CL-USER> (my-when (< 2 1)
(print "hello1")
(print "hello2"))
NIL
(IF (< 2 1)
(PROGN (PRINT "hello1") (PRINT "hello2")))
Tweet
(let ((x 0))
(inc1 x)
x)
≡ (let ((x 0))
(setq x (+ x 1)))
;=> 1
CL-USER> (defmacro inc1 (x)
`(setq ,x (+ ,x 1)))
INC1
CL-USER> (let ((x 0))
(inc1 x)
x)
1
CL-USER> (let ((x 10))
(inc1 x)
x)
11
Tweet
(defmacro listq (&rest body)
`',body)
CL-USER> (defmacro listq (&rest body)
`',body)
LISTQ
CL-USER> (listq a b c d)
(A B C D)
REPLって便利だなーっと改めて認識。
Tweet
Tweet
# chkconfig --list |grep :on abrtd 0:off 1:off 2:off 3:on 4:off 5:on 6:off acpid 0:off 1:off 2:on 3:on 4:on 5:on 6:off atd 0:off 1:off 2:off 3:on 4:on 5:on 6:off auditd 0:off 1:off 2:on 3:on 4:on 5:on 6:off autofs 0:off 1:off 2:off 3:on 4:on 5:on 6:off cpuspeed 0:off 1:on 2:on 3:on 4:on 5:on 6:off crond 0:off 1:off 2:on 3:on 4:on 5:on 6:off haldaemon 0:off 1:off 2:off 3:on 4:on 5:on 6:off ip6tables 0:off 1:off 2:on 3:on 4:on 5:on 6:off iptables 0:off 1:off 2:on 3:on 4:on 5:on 6:off irqbalance 0:off 1:off 2:off 3:on 4:on 5:on 6:off kdump 0:off 1:off 2:off 3:on 4:on 5:on 6:off lvm2-monitor 0:off 1:on 2:on 3:on 4:on 5:on 6:off mdmonitor 0:off 1:off 2:on 3:on 4:on 5:on 6:off messagebus 0:off 1:off 2:on 3:on 4:on 5:on 6:off microcode_ctl 0:off 1:off 2:on 3:on 4:on 5:on 6:off netfs 0:off 1:off 2:off 3:on 4:on 5:on 6:off network 0:off 1:off 2:on 3:on 4:on 5:on 6:off nfslock 0:off 1:off 2:off 3:on 4:on 5:on 6:off postfix 0:off 1:off 2:on 3:on 4:on 5:on 6:off rhnsd 0:off 1:off 2:on 3:on 4:on 5:on 6:off rpcbind 0:off 1:off 2:on 3:on 4:on 5:on 6:off rpcgssd 0:off 1:off 2:off 3:on 4:on 5:on 6:off rpcidmapd 0:off 1:off 2:off 3:on 4:on 5:on 6:off rsyslog 0:off 1:off 2:on 3:on 4:on 5:on 6:off sshd 0:off 1:off 2:on 3:on 4:on 5:on 6:off sysstat 0:off 1:on 2:on 3:on 4:on 5:on 6:off udev-post 0:off 1:on 2:on 3:on 4:on 5:on 6:off各サービスの内容（manやスクリプトの中からコピペ）
Tweet
# ps -ef UID PID PPID C STIME TTY TIME CMD root 1 0 0 16:15 ? 00:00:00 /sbin/init root 2 0 0 16:15 ? 00:00:00 [kthreadd] root 3 2 0 16:15 ? 00:00:00 [migration/0] root 4 2 0 16:15 ? 00:00:00 [ksoftirqd/0] root 5 2 0 16:15 ? 00:00:00 [watchdog/0] root 6 2 0 16:15 ? 00:00:00 [events/0] root 7 2 0 16:15 ? 00:00:00 [cpuset] root 8 2 0 16:15 ? 00:00:00 [khelper] root 9 2 0 16:15 ? 00:00:00 [netns] root 10 2 0 16:15 ? 00:00:00 [async/mgr] root 11 2 0 16:15 ? 00:00:00 [pm] root 12 2 0 16:15 ? 00:00:00 [sync_supers] root 13 2 0 16:15 ? 00:00:00 [bdi-default] root 14 2 0 16:15 ? 00:00:00 [kintegrityd/0] root 15 2 0 16:15 ? 00:00:00 [kblockd/0] root 16 2 0 16:15 ? 00:00:00 [kacpid] root 17 2 0 16:15 ? 00:00:00 [kacpi_notify] root 18 2 0 16:15 ? 00:00:00 [kacpi_hotplug] root 19 2 0 16:15 ? 00:00:00 [ata/0] root 20 2 0 16:15 ? 00:00:00 [ata_aux] root 21 2 0 16:15 ? 00:00:00 [ksuspend_usbd] root 22 2 0 16:15 ? 00:00:00 [khubd] root 23 2 0 16:15 ? 00:00:00 [kseriod] root 25 2 0 16:15 ? 00:00:00 [khungtaskd] root 26 2 0 16:15 ? 00:00:00 [kswapd0] root 27 2 0 16:15 ? 00:00:00 [ksmd] root 28 2 0 16:15 ? 00:00:00 [khugepaged] root 29 2 0 16:15 ? 00:00:00 [aio/0] root 30 2 0 16:15 ? 00:00:00 [crypto/0] root 36 2 0 16:15 ? 00:00:00 [kpsmoused] root 37 2 0 16:15 ? 00:00:00 [usbhid_resumer] root 67 2 0 16:15 ? 00:00:00 [kstriped] root 186 2 0 16:15 ? 00:00:00 [scsi_eh_0] root 187 2 0 16:15 ? 00:00:00 [scsi_eh_1] root 199 2 0 16:15 ? 00:00:00 [scsi_eh_2] root 253 2 0 16:15 ? 00:00:00 [kdmflush] root 260 2 0 16:15 ? 00:00:00 [kdmflush] root 272 2 0 16:15 ? 00:00:00 [jbd2/dm-0-8] root 273 2 0 16:15 ? 00:00:00 [ext4-dio-unwrit] root 306 2 0 16:15 ? 00:00:00 [kauditd] root 358 1 0 16:15 ? 00:00:00 /sbin/udevd -d root 701 2 0 16:15 ? 00:00:00 [jbd2/sda1-8] root 702 2 0 16:15 ? 00:00:00 [ext4-dio-unwrit] root 795 2 0 16:15 ? 00:00:00 [flush-253:0] root 973 1 0 16:16 ? 00:00:00 /sbin/rsyslogd -c 4 rpc 1021 1 0 16:16 ? 00:00:00 rpcbind rpcuser 1039 1 0 16:16 ? 00:00:00 rpc.statd root 1051 1 0 16:16 ? 00:00:00 mdadm --monitor --scan -f --pid-file=/var/ root 1076 2 0 16:16 ? 00:00:00 [rpciod/0] root 1083 1 0 16:16 ? 00:00:00 rpc.idmapd dbus 1112 1 0 16:16 ? 00:00:00 dbus-daemon --system root 1137 1 0 16:16 ? 00:00:00 /usr/sbin/acpid 68 1146 1 0 16:16 ? 00:00:00 hald root 1147 1146 0 16:16 ? 00:00:00 hald-runner root 1176 1147 0 16:16 ? 00:00:00 hald-addon-input: Listening on /dev/input/ 68 1187 1147 0 16:16 ? 00:00:00 hald-addon-acpi: listening on acpid socket root 1210 1 0 16:16 ? 00:00:00 automount --pid-file /var/run/autofs.pid root 1243 1 0 16:16 ? 00:00:00 /usr/sbin/sshd root 1321 1 0 16:16 ? 00:00:00 /usr/libexec/postfix/master postfix 1327 1321 0 16:16 ? 00:00:00 pickup -l -t fifo -u postfix 1328 1321 0 16:16 ? 00:00:00 qmgr -l -t fifo -u root 1332 1 0 16:16 ? 00:00:00 /usr/sbin/abrtd root 1340 1 0 16:16 ? 00:00:00 crond root 1351 1 0 16:16 ? 00:00:00 /usr/sbin/atd root 1373 1 0 16:16 tty2 00:00:00 /sbin/mingetty /dev/tty2 root 1375 1 0 16:16 tty3 00:00:00 /sbin/mingetty /dev/tty3 root 1377 1 0 16:16 tty4 00:00:00 /sbin/mingetty /dev/tty4 root 1378 358 0 16:16 ? 00:00:00 /sbin/udevd -d root 1379 358 0 16:16 ? 00:00:00 /sbin/udevd -d root 1381 1 0 16:16 tty5 00:00:00 /sbin/mingetty /dev/tty5 root 1383 1 0 16:16 tty6 00:00:00 /sbin/mingetty /dev/tty6 root 1401 1 0 16:16 ? 00:00:00 auditd root 1429 1 0 16:17 ? 00:00:00 /usr/sbin/console-kit-daemon --no-daemon root 1905 1 0 16:34 tty1 00:00:00 /sbin/mingetty /dev/tty1
Tweet
SELINUX=disabled# getenforce でSELinuxの状態を確認。setenforceで再起動なしに設定変更もできる。
# iptables -L --line-numbers Chain INPUT (policy ACCEPT) num target prot opt source destination 1 ACCEPT all -- anywhere anywhere state RELATED,ESTABLISHED 2 ACCEPT icmp -- anywhere anywhere 3 ACCEPT all -- anywhere anywhere 4 ACCEPT tcp -- anywhere anywhere state NEW tcp dpt:ssh 5 REJECT all -- anywhere anywhere reject-with icmp-host-prohibited Chain FORWARD (policy ACCEPT) num target prot opt source destination 1 REJECT all -- anywhere anywhere reject-with icmp-host-prohibited Chain OUTPUT (policy ACCEPT) num target prot opt source destination
Tweet
Tweet
# showmount -e nfs_server Export list for 192.168.1.10: /sharepl/sharefs (everyone)
# dfshares nfs_server RESOURCE SERVER ACCESS TRANSPORT sol10-u27:/sharepl/sharefs sol10-u27 - -
Tweet
from: *@docomo.ne.jp OR *@ezweb.ne.jp OR *@softbank.ne.jp OR *@i.softbank.jp OR *@*.vodafone.ne.jp OR *@pdx.ne.jp OR *@*.pdx.ne.jp OR *@willcom.com OR *@emnet.ne.jp OR *@disney.ne.jp転送する → xxxxx@i.softbank.jp （自分のアドレス）
Tweet
Tweet
<!-- (1) No snippet/thumbnail --> <a expr:href='data:post.href'><data:post.title/></a> <a expr:href='"http://b.hatena.ne.jp/entry/" + data:post.href' style='background: #ffcbcb; border: none; color: #ff0606; font: bold 0.8em Helvetica, Arial, sans-serif; text-decoration: underline;font-size:12'> <script expr:src='"http://api.b.st-hatena.com/entry.count?url=" + data:post.href + "&callback=document.write"'/> user</a>
Tweet
(defun ls-current ()
(loop for i in (directory (make-pathname
:type :wild
:name :wild
:defaults (truename "./")))
do (format t "~a~%" i)))
c:\> set HOME=c:\emacs\home c:\> set SBCL_HOME=C:\Program Files (x86)\Steel Bank Common Lisp\1.0.37\ c:\> sbcl sbcl*
sbcl* (load "c:/emacs/clisp/ls.lisp") T
sbcl* (ls-current) c:\$Recycle.Bin\ c:\Documents and Settings\ c:\MSOCache\ . . .
sbcl* (save-lisp-and-die "ls.exe" :toplevel 'ls-current :executable t :purify t):toplevel バイナリを実行するときに最初に実行する関数を指定する。
c:> dir ls.exe 2011/01/10 12:32 31,703,064 ls.exe c:> ls.exe This is experimental prerelease support for the Windows platform: use at your own risk. "Your Kitten of Death awaits!" c:\$Recycle.Bin\ c:\Documents and Settings\ c:\MSOCache\ c:\NVIDIA\ c:\PerfLogs\ c:\Program Files (x86)\ c:\Program Files\ c:\ProgramData\ c:\Recovery\ c:\System Volume Information\ c:\Users\ c:\Windows\ c:\emacs\ c:\hiberfil.sys c:\ntbackup\ c:\pagefile.sys c:\temp\わかっちゃえば簡単だった。 作成したバイナリが他のライブラリ(dllとかsoとか)を使っている場合は、環境変数PATHに設定しておけば動かせるっぽい。
Tweet
Tweet
Tweet
