X



UNIX厨房の扱いについて
0001名無しさん@お腹いっぱい。NGNG
telnet www.sansei-s.co.jp 11
こう言うのって、どう対処したら言いと思います?
0050名無しさん@お腹いっぱい。2008/02/08(金) 16:21:04
(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
0051名無しさん@お腹いっぱい。2008/02/08(金) 16:56:27
(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
0052名無しさん@お腹いっぱい。2008/02/08(金) 16:57:40
(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
0054名無しさん@お腹いっぱい。2008/02/08(金) 18:47:00
(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
0055名無しさん@お腹いっぱい。2008/02/09(土) 15:25:30
(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
0056名無しさん@お腹いっぱい。2008/02/09(土) 17:23:40
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
0057名無しさん@お腹いっぱい。2008/02/09(土) 17:53:01
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
0059名無しさん@お腹いっぱい。2008/02/13(水) 20:21:59
今も接続出来る。。。
0097名無しさん@お腹いっぱい。2017/12/29(金) 08:34:28.87
誰でも簡単にパソコン1台で稼げる方法など
参考までに、
⇒ 『宮本のゴウリエセレレ』 というブログで見ることができるらしいです。

グーグル検索⇒『宮本のゴウリエセレレ』

2UMY6SSHH4
0098名無しさん@お腹いっぱい。2018/05/22(火) 05:27:26.21
知り合いから教えてもらったパソコン一台でお金持ちになれるやり方
時間がある方はみてもいいかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法 モニアレフヌノ』

460DQ
0099名無しさん@お腹いっぱい。2020/09/26(土) 21:32:10.03
103 :名無しの報告:2011/01/05(水) 21:11:43 ID:XVMEpl0j0
スレが立ってから10年以上も経ち
数ヶ月もだれも書き込みしないで放置状態の古スレ
あまりに哀れだ
0100名無しさん@お腹いっぱい。2020/10/10(土) 17:32:44.81
             |彡ミ/\\\\\\\\|
              |彡 |   \\\\\\\|
             ヽ |へ、_  _,へ\\\\/
              | __   __  | / )
              |           |/ ノ
              |   ( / _ )      /
              ヽ       ヽ   |     100ゲッツ!!
               ヽ ヽー‐‐‐ァ   /\
              //ヽ ヽ-‐'  / /\ \
            / /   ヽ_ /   / /   \
          /   \  |\  /|  /\      \
   (⌒\  /     (⌒ヽ |二| | /  \      \
 __ゝ  ヽ    ___ ゝ \  \| /   /       |
(        ヽ─ ( l )     ヽヽ  /  /   /     |
  ̄ ̄( ̄丿  |    ̄ ̄( ̄ ゝ  \ /    /       |
レスを投稿する


ニューススポーツなんでも実況