These pages are written by only Japanese.
|
Namazu for hns による簡易全文検索です。 詳細は 詳細指定/ヘルプをご参照下さい。 |
||||||||||||||||||||||||||||||||||||||||||||||
while(<FILE>) { my $line = $_; for(1..3) { foo($line); } } continue { baa($line); # ← ここの $line は常に undef }while で my 宣言した変数って、 continue 節では参照できないのね (涙
while (my $line = <>) { print $line; } continue { print "cont: ", $line; } こう書けば大丈夫はぅ。ほんとだ。こっちに書き直そう…
JXTA_LIB=~/JXTA_Demo/lib CLASSPATH=$JXTA_LIB/jxta.jar:$JXTA_LIB/jxtacms.jar:<略>とかしてるんだけど、<略>の所の文字が多くて *1 美しくない。
目覚し時計(のベル)早く止めてよねはぅっ… ご、ごめんなさいっ… (;▽;) (ガタガタガタ…
for f in $(ls ~JXTA_Demo/lib) do CLASSPATH=$CLASSPATH:$f done更に,CLASSPATH が定義されていない場合を考慮すると,
for f in $(ls ~JXTA_Demo/lib) do if [ -n $CLASSPATH ]; then CLASSPATH=$CLASSPATH:$f else CLASSPATH=$f fi doneふむふむ。
CLASSPATH=$JDK_HOME/lib:$JRE_HOME/lib for f in $(\ls $JXTA_LIB/*.jar) do CLASSPATH=$CLASSPATH:$f done export CLASSPATH=$CLASSPATH:.こんなんで出来ました。(^^/
while (my $line = <>) { next if ($line =~/foo/); } continue { print $line; }perl v5.005_03 と perl v5.6.1 とで挙動が異なるのね…
% echo foo | perl test.pl % echo baa | perl test.pl baa◇ perl v5.6.1
% echo foo | perl test.pl foo % echo baa | perl test.pl baanext で continue 節に入ると勝手に思い込んでたのデスが、 バージョンによって変わりマスか… (号泣
while (my $line = <>) { next if ($line =~/foo/); } continue { print "### " . $line; }◇ perl v5.005_03
% echo baa | perl test.pl ### baa % echo foo | perl test.pl ###はぅ… my $line を while の外に置けばよかったのね。
(よ) すみません。足の裏がこっちに来ないように足を組みなおして貰えませんか? (奴) はぁ? 何故? (よ) いえ。足の裏がこっちに向いてると、泥とか自分につくんで…って、近頃の若者はここまで言わないと分からないらしい。 仮につかない程度距離が離れていても、十分不快なんですけど。
これは富士銀行の通帳なので、元富士銀行の支店に行って下さい。元がどの銀行だったのか意識しないと使えないんじゃ、合併の意味無いじゃん…
他の第一勧銀とかは手数料を取ってたので、 合併で合わせたんです。あと、富士ファースト倶楽部も手数料増えてサービス減ってる *1 し、何だかふんだりけったりだそうで…
% tar xvfz irc2.10.3.tgz % ln -s irc2.10.3 irc2.10.3+jp6 % tar xvfz irc2.10.3+jp6.tgz % cd irc2.10.3 % ./configure --enable-ip6 % cd i686-pc-linux-gnu/ % make all
../ircd/s_bsd.c: In function `check_init': ../ircd/s_bsd.c:678: parse error before `__u32' ../ircd/s_bsd.c:678: parse error before `__u32' ../ircd/s_bsd.c:678: parse error before `__u32' ../ircd/s_bsd.c:678: parse error before `__u32' ../ircd/s_bsd.c: In function `check_client': ../ircd/s_bsd.c:762: parse error before `__u32' ../ircd/s_bsd.c:762: parse error before `__u32' ../ircd/s_bsd.c:762: parse error before `__u32' ../ircd/s_bsd.c:762: parse error before `__u32' ../ircd/s_bsd.c: In function `read_message': ../ircd/s_bsd.c:2032: `POLLWRNORM' undeclared (first use in this function) ../ircd/s_bsd.c:2032: (Each undeclared identifier is reported only once ../ircd/s_bsd.c:2032: for each function it appears in.)またかぃ・・・ ふむ。L678 と L762 には
#define IN6_IS_ADDR_LOOPBACK(a) \ (((__const uint32_t *) (a))[0] == 0 \ && ((__const uint32_t *) (a))[1] == 0 \ && ((__const uint32_t *) (a))[2] == 0 \ && ((__const uint32_t *) (a))[3] == htonl (1))これを使ってて、uint32_t が ircd の common/os.h で
../common/os.h:# define uint32_t __u32とかなってて、__u32 が何だか分からなくなって感じ。
/usr/include/linux/types.h:typedef __u32 u_int32_t;これで解決すべきなんだろけど。
#if HAVE_SYS_POLL_H # if linux /* Linux is just soooo broken */ # define _GNU_SOURCE 1 # endif # include <sys/poll.h> # if linux && !defined(POLLRDNORM) /* Linux 2.1.xx supports poll(), header files are not upto date yet */ # define POLLRDNORM 0x0040 # endif #endifsys/poll.h は取りこんでるのか。
# if linux && !defined(POLLWRNORM) /* Linux 2.1.xx supports poll(), header files are not upto date yet */ # define POLLWRNORM 0x100 # endif追加して、__u32 はよく分からないので、
if i386 /* sizeof(int)=4 を仮定 */ typedef unsigned int __u32;とかしとこっと・・・
ERROR: Bad config line (M:irc.awm.jp:*:IRC server at AWM Lab.:6667:) Wrong delimiter? (should be %)はぅ・・・ README.txt を読み直すと、
Because IPv6 numeric addresses contain ``:'' characters, the separator for the server configuration file was changed to ``%''.IPv6 では : はアドレスの区切りで使っているので、% にしろって事か・・・
# /usr/local/sbin/ircd # ps -auxww | grep ircd root 8066 0.0 0.2 2492 704 pts/4 R 15:38 0:00 grep ircdやっぱり、起動しない。
Scanning finished ================== Suspicious modules found:0 Suspicious keys found : 1 Suspicious folders found:0 Suspicious files found:30 ========================== Components ignored:0 Total components found:31むぅ・・・ うちの PC はヨゴレですか・・・ 幾どは cookie ファイルなので、気にシナイとして、
Alexa key:HKEY_LOCAL_MACHINE\software\microsoft\internet explorer\extensions\{c95fe080-8f5d-11d2-a20b-00aa003c157a}\これが一番怖い。
Pattern section_pattern = Pattern.compile("\\[(.+)\\]"); Matcher reg = section_pattern.matcher(line); if (reg.find()) { section_name = reg.group(1); ...セクションの中身は、
Pattern key_value_pattern = Pattern.compile("\\s*([^=^\\s]+)\\s*=\\s*(.*)\\s*"); Matcher reg = key_value_pattern.matcher(line); if (reg.find()) { value_table.put(reg.group(1), reg.group(2)); // key, value ....てな感じで書けばいいので楽ちんデス。
「W杯でアジアの地位を貶めた韓国への抗議」 「その韓国を擁護しつづけ、視聴者の抗議を嘲笑した不治テレビへの抗議」 「韓国の自慰行為の犠牲になった葡・伊・西チームへの励まし」 「不治に無視された親日国・トルコのW杯3位を祝う」という目的は知ってたけど、
フジテレビの27時間テレビで企画されている 「夏の湘南 1万人のごみ拾い」の妨害のため、 番組が始まる前にごみを全部拾ってしまおうなるほど… そういう事か…
∧ ∧美化だゴルァ ∨.(゚Д゚) 偽善はイヤ! ⊂| 2 |Uw でも、嫌がらせでならできちゃう! |c h|/ハ\ 湘南ゴミ拾いオフ U U\__/ http://members.tripod.co.jp/fuji27/この標語にワラタ…
Controller ---------|------| MASTER SLAVEと覚えてたせいで、ディスクを認識しなかったり、 ディスクの名前が化けたりして、こまった。
Controller ---------|------| SLAVE MASTERこっちで繋いだら、うまく動いた…
本体 ---- Seagate HDD (Master) ---- CD-ROM (Slave)う〜ん。確かに僕のとこも、その構成で動いている PC もあるんだけど、 今回、マザーボードと ATA カード、合わせて、4 つの IDE の口で、 Seagate の 80G 同一機種 3台で、どの組み合わせでも 再現してたので、法則性としてあると思うんだけどなぁ。
(よ) すみません。アクティベーションの事で教えて下さい。 Windows XP の入っている PC に DVD ドライブを追加したら、 認証を要求されまして、XP に付いて来た番号を入れても、 認証回数が多いとかで、はねられるのデスが。 (MS) 画面に出ている ID を教えて下さい。 (よ) XXXXX - XXXXX .... です。 (MS) OEM 版ですね。何と一緒に御購入されましたか? (よ) えと。ハードディスクです。 (MS) では、番号をお知らせしますので、ID の欄に入力して下さい。 <略>や。これだけの遣取りで済むのだと、 仮に僕が違法コピーの CD を持ってる人で、 ライセンスだけ欲しいとかいうケースは防げない気が…
「Sockets de Trois」というトロイの木馬が存在する。 使用されるportは 5000, 5001, 30303, 50505の4つらしい。 Windows NT だと port 5000, 5001 が open になる。ふ〜ん。僕が普段使っている端末は Windows XP なので、 念の為、チェックしておくか。
H:\yoya> netstat -a <略> TCP yoya-xxxx:5000 yoya-xxxx:0 LISTENING <略>うゎ…
my $sock = new IO::Socket::INET->new(PeerAddr => 'localhost', PeerPort => 'http(80)', Proto => 'tcp'); defined($sock) || die "Can't open socket\n"; print $sock "GET / HTTP/1.0\r\n\r\n"; print $_ while(<$sock>);イイネ…