UNIX厨房の扱いについて
telnet www.sansei-s.co.jp 11
こう言うのって、どう対処したら言いと思います? (defun replace-white-space-to-2ch-board-format (begin end)
(interactive
(let ()
(list
(if (and transient-mark-mode mark-active)
(region-beginning))
(if (and transient-mark-mode mark-active)
(region-end)))))
(let ((temp (buffer-substring begin end))
(buffer (get-buffer-create "replace-white-space-to-2ch-board-format")))
(with-current-buffer buffer
(erase-buffer)
(insert temp)
(let ((b (point-min))
(e (point-max)))
(untabify b e)
(perform-replace " " " " nil nil nil nil nil b (point-max))
(kill-ring-save b (point-max)))
(kill-buffer (current-buffer))
)))
test (defun replace-white-space-to-2ch-board-format (begin end)
(interactive
(let ()
(list
(if (and transient-mark-mode mark-active)
(region-beginning))
(if (and transient-mark-mode mark-active)
(region-end)))))
(let ((temp (buffer-substring begin end))
(buffer (get-buffer-create "*replace-white-space-to-2ch-board-format*")))
(with-current-buffer buffer (erase-buffer))
(call-process-region begin end shell-file-name nil buffer nil shell-command-switch "perl -pe 's/\\ / /g'")
(with-current-buffer buffer
(kill-ring-save (point-min) (point-max)))
(kill-buffer buffer)))
test (defun replace-white-space-to-2ch-board-format (begin end)
(interactive
(let ()
(list
(if (and transient-mark-mode mark-active)
(region-beginning))
(if (and transient-mark-mode mark-active)
(region-end)))))
(let ((temp (buffer-substring begin end))
(buffer (get-buffer-create
"*replace-white-space-to-2ch-board-format*")))
(with-current-buffer buffer (erase-buffer))
(call-process-region begin end shell-file-name nil buffer nil
shell-command-switch "perl -pe 's/\\ / /g'")
(with-current-buffer buffer
(kill-ring-save (point-min) (point-max)))
(kill-buffer buffer)))
test (defun replace-white-space-to-2ch-board-format (begin end)
(interactive
(let ()
(list
(if (and transient-mark-mode mark-active)
(region-beginning))
(if (and transient-mark-mode mark-active)
(region-end)))))
(let ((temp (buffer-substring begin end))
(buffer (get-buffer-create
"*replace-white-space-to-2ch-board-format*")))
(with-current-buffer buffer
(erase-buffer)
(insert temp)
(untabify (point-min) (point-max))
(call-process-region (point-min) (point-max) shell-file-name t buffer nil
shell-command-switch "perl -pe 's/^\\ */q{ } x length($&)/e'")
(kill-ring-save (point-min) (point-max))
(kill-buffer buffer))))
test (defun replace-white-space-to-2ch-board-format (begin end)
(interactive
(let ()
(list
(if (and transient-mark-mode mark-active)
(region-beginning))
(if (and transient-mark-mode mark-active)
(region-end)))))
(let ((temp (buffer-substring begin end))
(buffer (get-buffer-create
"*replace-white-space-to-2ch-board-format*")))
(with-current-buffer buffer
(erase-buffer)
(insert temp)
(untabify (point-min) (point-max))
(call-process-region (point-min) (point-max) shell-file-name t buffer nil
shell-command-switch "perl -pe 's/^\\s*/q{ } x length($&)/e'")
(kill-ring-save (point-min) (point-max))
(kill-buffer buffer))))
test begin 644 /dev/stdout
M'XL(`(MCK4<``^V436[;,!"%U_$I!D:1D`8&`KKM58("-#F2B%`CA3]VVJ9W
M+TDICMW$0=JFZ:;:B*1(SGMO/D@8:A.#I\DI3;CO;20,4QG'$3_J'K>C\@;;
MT0\J@MA29QF(C5P!",N1O-+1[BA/03@;(I11_M2"4&P@>L7!$D<<E+_!830$
M=30?DW5W/>'SU2-CK<"6.RG_\*:B4M9;A*.L740:IFPAM2UY#&D;HL]UX-'3
M0\D;ZQPR[<M5KPH&:Q*L''9?[321P92(M1D)2M?M.6ILE;BE[(_E`"1=1^Y
MFOV`Z"CBXDU[4I%^K@JPWKRRV&8M'_/T%)-GW"F7<LH78F]CCSIY7WJQ5)]?
MJXNL*A,1:%F7=<5R(!^ARB[SQ%%M;?L%Q#3:TD_+\C!6=W+>I55NPN1'32'@
MW-)S!R#TE#>WUA&R&G+HBR!@ZY[&</K,9_4X#)DR#-F=[F$]D7>`$\%5:#Y?
M7X=-<_OMDK=A^O0=[L`1=[$7'RYE0U?K66^@>'N2U3.HG3,LCT3.])WD>JX9
MOP_14T[?@:KSU5_@K4;R`G)+:*?4+8O'X"U+[T'5\T05SX#ZOGHN/Z_&T*X)
MT8PIK@_ZWH*B\P2]%3V)BYO</D/5RG]X_C(\#TG?SQ29?P/,#VV\J_@N"```
`
end
test begin-base64 644 /dev/stdout
H4sIAHhqrUcAA+2V3Y7bIBCFrzdPMbKqXYiEIvW2r7JaleBxjNYGFnCStum7
dwCvkzTJKt2f9qbcGDDDnDnzOWE1NmFYhggeXScVik2rI4rg0jxa8Vm1Ymml
r0VjfS+jWGEUHlfaGmB8BsA6TdE0oalugElTQ/TSBI0mil76R9HbGiHPpIp6
jTyfzhHlJrGkhzHarDh/401oak5jNmNU2WCuLQtYlgApnO6sGm9NpAXQa8Ct
7F2HVapW07YvyWcl7Z/axotrSDlZxN5R6qFp0IvcB08mwF7Lsx+PuuuEwc31
CbNQIzux+q6dw1oMAxpVW5wsG0fS8PveayycMgKjMrKLOQJyBEQLt2YZ3Jdq
X34pHFgyZzRBeZTxRCPdNb9Sxrzieyo8xsEbsZbdQKzcsI2OrVCD94moMXt5
zG5IFXU24LjP8442AX2EXFBaDybKpW6+AXNWJyq14dNcbnk5pSR1y3mrMITp
YzkfAKFFOtzoDoWRPfk0CgKju1MbjkeJVbbv6VsRgapTLVQOfQfCIdyFxcP9
fZgvnn4U63/CFjo0q9iyT7d8gXdV0RswPh15dYbJSwXzA5EF0yNfLzXj9Xid
AL3nDVVrU6926cguv08/GKL/YOYua3uBxmzYC0COlh4zOW4eYjlu/Q3mzvOW
agahDv2GRY3rRYi1HWI1SXwPzC4j9l54DSYVRB2sMVcz0VXWPv8lfH0zGXf/
mfxAJp+7tytw1v8Iwl+60UzYXwkAAA==
====
test スレがたった頃のUNIX厨房も今では30路を迎えるおっさんか 誰でも簡単にパソコン1台で稼げる方法など
参考までに、
⇒ 『宮本のゴウリエセレレ』 というブログで見ることができるらしいです。
グーグル検索⇒『宮本のゴウリエセレレ』
2UMY6SSHH4 知り合いから教えてもらったパソコン一台でお金持ちになれるやり方
時間がある方はみてもいいかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法 モニアレフヌノ』
460DQ 103 :名無しの報告:2011/01/05(水) 21:11:43 ID:XVMEpl0j0
スレが立ってから10年以上も経ち
数ヶ月もだれも書き込みしないで放置状態の古スレ
あまりに哀れだ |彡ミ/\\\\\\\\|
|彡 | \\\\\\\|
ヽ |へ、_ _,へ\\\\/
| __ __ | / )
| |/ ノ
| ( / _ ) /
ヽ ヽ | 100ゲッツ!!
ヽ ヽー‐‐‐ァ /\
//ヽ ヽ-‐' / /\ \
/ / ヽ_ / / / \
/ \ |\ /| /\ \
(⌒\ / (⌒ヽ |二| | / \ \
__ゝ ヽ ___ ゝ \ \| / / |
( ヽ─ ( l ) ヽヽ / / / |
 ̄ ̄( ̄丿 |  ̄ ̄( ̄ ゝ \ / / |