【コマンド】2chコマンド作ってよ【/usr/bin/2ch】 (179ﾚｽ)
上下前次1-新
39: perlだけど 02/04/25 19:39 AA×
40: perlだけど 02/04/25 19:39 AAS
&aaa($niget);
sub aaa {
local($frames) = @_;
@lines = split /\n/, $frames;
$linenum = @lines;
$fnum = 0; $lnum = 0;
for ($i = 0; $i < $linenum; $i++) {
$_ = $lines[$i];
if (/^[0-9]/) {
$bline = &bs($lnum);
$aaf[$fnum][$lnum-1] .= $bline;
$fnum++;
$lnum = 0;
} elsif ($lines[$i] eq "E") {
$bline = &bs($lnum);
$aaf[$fnum][$lnum-1] .= $bline;
$fnum++;
} else {
$aaf[$fnum][$lnum] = $lines[$i] . "\n";
$lnum++;
}
}
for ($i=0;$i<$fnum;$i++) {
for($j=0;$j<300;$j++) {
for ($k=0;$k<$lnum;$k++) {
print $aaf[$i][$k];
}
}
}
}
sub bs {
local($num) = @_;
local($bs) = "";
local($i);
for ($i = 0; $i < $num; $i++) {
$bs = $bs . "A\r";
}
return $bs;
}
41(1): 02/04/25 22:08 AAS
ん？コピペミスか？
無限ループする・・・
42: 02/04/25 22:22 AAS
>>41
そういうアニメーションなんじゃない？
43: perlだけど 02/04/26 00:18 AAS
ごめん。
ケツから4行目は、
$bs = $bs . "A\r";
ではなくて、
$bs = $bs . "^[[A\r";
ですた。
こぴぺしたときにエスケープが消えた。
emacsとかで [Ctrl+Q], [ESC], "[", "A" と入力してくだされ。
kterm上で横幅80桁くらいにとって実行。
"ﾟ" は半角カナなんで rxvt ではうまく表示されないかも。
お目汚ししつれいしますた。
44: perlですけどー 02/04/26 00:20 AA×
45: perlですけどー 02/04/26 00:20 AA×
46: perlですけどー 02/04/26 00:20 AA×
47(1): perlですけどー 02/04/26 00:21 AAS
&aaa($niget); -> &aaa($gorua); ね。
48: 02/04/27 20:26 AAS
age
49: 02/04/28 18:33 AAS
もっと作ってYO!
50: 名無しさん 02/04/28 19:15 AAS
>47
かっこいいっす！
51(1): 02/04/28 21:14 AAS
cygwin上じゃ動かないな。emacs無いし。
52: 名無しさん＠ＸＥｍａｃｓ 02/04/28 22:44 AAS
emacs は関係ないだろ。
perlがあれば動くんじゃネーノ？
53: 02/04/29 03:22 AAS
でも、永久ループするしアニメーションしないし。
54: 02/04/29 13:14 AAS
>>18
かっこええー
55: 02/04/29 22:31 AAS
>>51
cygwin上でもちゃんと動く。43 の修正入れた?
うちのPCはちょっと遅いのでloopを300でなく20〜30ぐらいに
するとちょうどいい。
56: 02/05/27 01:50 AA×
>>20
57: 名無しさん＠ＸＥｍａｃｓ [age] 02/05/30 01:30 AA×
58: 02/05/30 01:45 AAS
・・・nxt。
59: 02/05/30 01:54 AAS
・・・かんべんして〜
60: 02/05/30 02:50 AA×
61: 02/05/30 02:53 AAS
ついでにMakefileも
SRC = getzusa-.c
PRG = sl
CC = gcc
sl: $(SRC)
$(CC) getzusa-.c -o sl
install: $(PRG)
install sl /usr/local/bin/sl
uninstall:
rm -rf /usr/local/bin/sl
clean: $(PRG)
rm -rf sl core
62: 02/05/30 08:05 AAS
いま勉強がてら、curses使ったやつ作ってるんですが…(すこし動き出した程度)
curses使ってもいいんですよねぇ??
slでも使ってるし…
8bitとか多バイト文字絡むとまずいのかなぁ??
63(1): 02/05/30 15:35 AAS
ぼろぼろですがあげてみます
gcc -o zusa zusa.c -lcurses にてどぞ
begin 644 zusa.c.gz
M'XL("-3%]3P``WIU<V$N8P#-6MUOV]85?Q;_BA,%C2F9BD7:<I,H]J`N7NHU
M<=+8;C<XAL&*E,5$HA222J+&RI^@_X&JA*(MNK5%@3X$2SS,"/(!;,&`IF\)
M_+S'/NQUYW[P4Z+D*O$0BI+N/?=\_,ZYYQY>Z_JD899K+4V'\^669>OVZ>JR
M<-*GV<:NJ=9B-,<RS-THK64:MJ,1FG!2TRN&J</ETI]^_V'IVCK(^3#M:FDC
M3OIX<V5S91V4O""@[E;9`=4TZCM-U7+L'0?N":ER5;4@:V_)^>VBT"D*3KNI
MHSR,8B]=)8UB7)?CZ);)U1FF`W<E:!=94\.V1CI,%+)J<XP57Q%RLW;,5EVW
ML3MDB?I@;RF%Q60??-'+NKWN6''-MUIZ2P\4EQLMT^$^U&V][#51B;JK[U28
M1PPC(/`M'GZTG^(&B/5$-)ZYTL>D@5@0C.H891YBV#5N-DS]9L/>VH8E`FHN
M"SF\H/_O_I/^0?^0];)S0@H'4VF`WC.\7??!=^YA6J(DL?OZRT'W-60(]?&O
M'KWWT-TG[S`-`-S_XDU[:YN7+@FICB3$=3_^M?LXT-W[%]$-HU1WG\:4'T5_
M7'-<Y>!U6%W_)]?M_S1XW7T1IK*+<P[;04M_QSOP^9'K0O>I^[S[PM/3>SB'
MYMPY"%2+71?CZ`)AXZ*?N.XG2;Z$+>S!_?NPA^A#^O=<O/;Z!Q`&/\(&P!<O
MD\Q0([\<_'+`>=U]U+D/(0HZM]\_(.\0R;?C/@]';0]#X.X-_ID8-7)UGX8_
M`_'N4_**?[-Q1F$T]ADRVWO8>W6_]\@#U'OD^?*]]_KB)8G!2%0DAN`F7\]Z
MK]QOO8C'[/0.>X>B^VWO51&*Q>*05?(".DX_?)Y1$(YRH18/RA'9J>4QX%T.
MOUBDWY,\*!:!?X_.I;@!OF[C?/<C;$=BBK/X1>SG_B-2Q&(UK/<L6L%X`3M:
M_9I08,+UA2H=4UX2:XM/&K%(&'AZ/7</NWU//[=')M+]2__@P7?)U2FL(D$\
M$(VDHC_MO>?L.\@W#(P;P1;D6<`T9*?GIQC1T/U;EV=9),E<+Z^XO:$5D@@+
M$A!%,G\(D@?*$R"PN@]&0OL^4,>6<,C^9)AC%O!(Y$=$WXNN6_#PDV60Z_YU
MR`UWY"(>\J)3'-H]6+A]T?R]P[T1X?F-KXA)\"*W_R*2CQ2)H)NM.K%Z<>W"
MS@>E]17$D)=8=WWCRMH*Y?*8DK<U%]=6/KJR<Z&T_J'L:_`HBM_[X^;EJ[+?
MNW9E(])1PIUYO[-QX<JG:P'C^J75"RNQKA+M!K*?ECY8E2,]951E&^7'?`1U
M8.$/E_XL1['%K"]$NX5H=S$2T-+:ZF5YA_XEL`0R,4DHBD<YP^;(2Q>Z^Z2;
M3;(KE<,)(^<E_%L"+XD&G])2]RB14,A]RLLS;ZJW.Q+E6ER4`.^<S-G\S6QH
M4GU>Y#@[4B/-%H_--XHWR;<.4ND0'TFG.^&2B):5*<$7&/A\,G;E&+!'H"_F
MI\6.@X5$['2QO+/8%S#H"XG8R=)^=Z$K$Z"_NQDS/RGJ\\<*'0-W=EKHRMEQ
M"Y45^6,%?X97R*G`H_"9Y!+)GDG'BAYG_?UIP>/@^Q/`'V_*OTGHY44*:"SZ
MX\UZ@KXP)?HS8\'3[<GQKMC\&X0^"F@$]N/-FC!V^1W&/I^GQ2$]^''PGX%+
M71BW;U/^C_NV^=\2^>@S:NJL*13&%7JZF9[RP5EX<U1)P2*[^NE0S?.]ZS2@
M%O(^*/FM@L('];05:W[\HX[]Q3/E!+[)@B:X)CW%%HZP6%D>I-]KPI.7;Z_<
MD!HP"5UA,CHEC&[PP^`?@R=O+X+R$3`N3L8H#T$<?#7XJOM-]QOW:_=K#I?6
MO]L-0P/-4N^(P>E+5LT4@X&Z;HO>`4RV[HVTR*F-F/%4"+POH+--RS"=BIB^
M;EXW*?D<?([?L)63(:=L7S?3*);2[QJ.*&.KPS4,@Q#XT9$A0;N-EE+M-E9E
M-;=,.Y6&!:)!?LDH@BAZIV$9$<?59B:36[:WC&TXL41#4P1C=C9#*GJJWKBM
MB^WV[*Q$5-TE6%*JIMF.)2:J(4RD^!(!F*48M+M%VF][_7;4E5C8!.]@\+-6
MA1ZK2:2E\!,V?F;8)'X9%1!/B'4TG,D@-$MW6I9)!HADGCR7J"!MS5S/SZ!T
M$YN(OURUJ)P$,^_-$,A$59-YC<-F675$E)6`,34A!]P.49^R[QA.N0IB5FS"
M+,@9)EA6;1UFFC/G2,K9)I]<`@&+:H%FF9:6<"9,)[.K.TU#$S,TIJG/+%V]
M6?15:.-4V*@B76WLZNF8K*97U%;-.1<A=N(.^;JH=&2(^!*,=4"O(9B$B'A,
M&`V:)4AMTS&:)3Q)D)]EK2"@'T)=-4SB/*C6;ED"-I%9[-P.Y^\-"4QRPLFV
M&?2L<LL_3,9<R-ZB2X*D/E?1:#JH)*`214@S3(V?G):K\55@P/G@A)IE//K)
MC!G;I^D)+'+F9-0@I.Y4C9J.*P>G?`EPYE"YR'P@X'$Z9*6:QB0X021X$O$,
M*5?#N2&SB:WK=1HT:D\*?@*3P#8^UQL5D3F?@2P$/ZF-S!1EK$(E0:&2K+!*
M%;+V[VA[+@L5M5;+.56K17]4C"2:7]QB28<WB1#DEH*I(,$B)<`CD,DQ'+ML
M47GV+PGB^NK%U;4-"?![9_7B&ADQ&WJYVJ!,-5V]K3=NBK:CH9P$&]<V5ZAP
MV6K4:L,#_MSQ:3'I]&-C0C)0YM0M'#_E)05UD92)6[EEEA_G(4^R!L/5,-$C
M<I2.'?(V9V=IFQOW)991@JEF`&Z$:C(KYAGD)4?Z-[8SI]5F4)-O^*`P_J3\
MGQ(#3A9^NA@#C/Z_"V0"*5)IJ2"N3E[*R!36=+U)16R]S'59>L72[2J?V93O
M0B:7HY0.C8_G%U\I&`F<(#:=#`W!@C%?XI'R,H2,Z:9V!^L!+1#_`[3'2"ZM
#(@``
`
end
64(1): 02/05/30 23:41 AAS
どうやって復元するんですか？
65(3): 02/05/31 13:49 AAS
#!/bin/sh
clear
cat <<EOF
|
|
|)
|
|
EOF
sleep 2
clear
cat <<EOF
|
| ＼
|Д｀)
|⊂
|
EOF
sleep 2
clear
cat <<EOF
|
| ＼
|Д｀) ﾀﾞﾚﾓｲﾅｲ..
|⊂
|
EOF
sleep 2
clear
cat <<EOF
|
| ＼
|Д｀) ﾀﾞﾚﾓｲﾅｲ..ｵﾄﾞﾙﾅﾗｲﾏﾉｳﾁ
|⊂
|
EOF
sleep 2
clear
66(2): 02/05/31 13:51 AA×
67(3): 02/05/31 16:52 AAS
>>65-66
いただきますた。
begin 644 aa.sh.gz
M'XL("%\I]SP V%A+G-H )63VXZ;,!"&[_T4+HN4]@(1" NI*BZ(6R74:=U5
M*F5SMPXA')9@PB&$=OON-68)2M7MX<+R[YE_9CY;</-*W4:I6H0 S$SC_0=D
M2VI5Y&K"/)J(5/JXA\IA!I6S!&Y>\+#,3XLB@5M:^*8!E=W+UL/!3SVV\Z%2
M20"@Y<I^$(XV5V95";W$I_D#H/3UF^_ ]T(&E13*W-@=9 T^P4O%GB4[J-20
M#WV"<C<2%(GO9U#6(?@! -7LT=[)IBBM,[[PWF'V"%"]B[IXX:"T23,ZK_!=
M-F6YT3LFOW&L$*E=RX_+(QD;9A,7:U)$1L7ST2G@,P*[K33^O3+.U^0LX@=R
MWECW<8[)-\/Z&.>$U-<\M_8(!<?H;>0$+G("=G*QBQ _H_#4\+/7Q7F,:(:U
MBPLGB$N?3#:6@W@-VWYBC.J"AC0'TJQ^\1:(3.Z8Z('QUTW7Z_&YY]#+=3EE
MJ9/:89=<N[Y$@^8>)R['F%.;+35[)MX$+EXV*$+=+?!<Y01A/51UG0<J+.HX
M.3'G96:NPSSZ,[F+ K%GGX/,_4M?X</3JUN(FW;]VC>W!GJQ!'VK9_L+??<.
MC$^V^O?%@@:%FKFX7S9MW<)IB<>"Y,A)C&H9M!/X9PYEJD&]$WHO)KTP>G$+
:M7>0*TFFI@2U_PU:7%S]3#\!9RK!@?D# 9
end
68: 02/05/31 17:56 AAS
>>67
ｲｲ!
>>64
テキストファイルにコピペしてuudecodeしてくだ
上下前次1-新書関写板覧索設栞歴
あと 111 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.077s