Perlについての質問箱
レス数が1000を超えています。これ以上書き込みはできません。
0001デフォルトの名無しさん
NGNG質問したいこともあるしね、というわけでいきなり質問させてください
今Perlで正規表現の勉強をしていますが正規表現のあたりでつまづいています
「正規表現」とは文字が数式の一種という概念はわかるのですが、参考書の文献には
…「メタ文字」とはその文字字自信にマッチするのではなく、特別な機能を持つ文字です。
例えば「.」はメタ文字で任意の一文字とマッチします。そのため文字列「Abc」「ABC」「Axc」「A=c」
にマッチする正規表現は次のように書くことが出来ます
Ａ．ｃ
メタ文字には次のものがあります
＼ ． ・ ＋ ｜ （ ） ［ ］ ｛ ｝ ＾ ＄
どの文字がメタ文字になるかは局面によって変わります…
これについての使い方が以後のこれらの文字についての説明を読んでも今ひとつぱっとしないのです。
この使い方を図説で説明されていないんですね。だれかこの使い方について
説明できる人いませんか？お願いします。
0002名無しさん＠Ｍｅａｄｏｗ
NGNG0003デフォルトの名無しさん
NGNGhttp://pc.2ch.net/test/read.cgi/tech/993665608/
http://pc.2ch.net/test/read.cgi/tech/991994996/
質問の意味がわかりません。
0004デフォルトの名無しさん
NGNG『Perlスクリプティング入門』という本ですよ
それまでは例としてスクリプト載っていたやつを実際に打って確かめてみるやり方で
いままでやってみたんだけど・・・このばあいの「検索」はどういう意味ですか？
>>3
こっちの説明が足りないってことかな？
0006デフォルトの名無しさん
NGNGあなたの言う質問箱って、質問するだけなのですか？
だれも答えなくてもいいんですか？
っていうか糞スレですか？
0007デフォルトの名無しさん
NGNG確認してないけど。
0008デフォルトの名無しさん
NGNG俺Perl知らないんだけど、その引用（らしき）文を読む限りじゃ
メタ文字＝ワイルドカードみたいなもん
じゃないの？
0009hiroyuko
NGNG0010デフォルトの名無しさん
NGNG重複、1 に質問なので糞スレ度 2 に認定しよう。
おそらく、「Perl の質問スレ」 はなかったので立てたと反論するだろうが。
このスレを薦めとく。
CGIに依存しないPerlの話題一般
http://pc.2ch.net/test/read.cgi/php/991313362/
0011デフォルトの名無しさん
NGNG0012デフォルトの名無しさん
NGNGPerlは結構使えるっぽいけどどうよ？
http://pc.2ch.net/test/read.cgi/tech/991994996/l50
だろ。
全スレ見たってホントですか?>>1
0013デフォルトの名無しさん
NGNG0014名無しさん＠Ｅｍａｃｓ
NGNGこのスレとは直接関係ないけどプログラム板に来るような人なら(perlのに限
らず)正規表現はひととおり知っておいた方が便利だよ。
0015デフォルトの名無しさん
NGNG0016デフォルトの名無しさん
NGNG0017デフォルトの名無しさん
NGNG0018デフォルトの名無しさん
NGNGhttp://pc.2ch.net/test/read.cgi/tech/1015398955/
0019hiro ◆hiroHsTw
NGNGCGIプログラミング入門」ってやつ読んでる
内容は古いけどわかりやすいです
0020デフォルトの名無しさん
NGNGほとんど糞だが(wara
0021デフォルトの名無しさん
NGNG0022１
NGNGでも、これは自分専用ではなくて他の人が使っても構いません。
0023デフォルトの名無しさん
NGNG0024デフォルトの名無しさん
NGNG0025学者
NGNG0026ごろさん
NGNG「2」と表示させたいのですが、どうすればいいのですか？
0027デフォルトの名無しさん
NGNG0028デフォルトの名無しさん
NGNG@Arr = m/あいう/g;
$num = @Arr;
で、いいんじゃねーの？
0030初心者
NGNGactiveperlダウンロードしてインストールしたのに、
うまく入ってないみたい・・・。
どなたか、xpですでにperl入れたよって方、
もしくは入れ方わかるよって方、
簡単にでいいのでやり方を教えてもらえませんか？？？m(__)m
0031このスレsageてくれ
NGNG>perl -v
って打ってみろ。
0032初心者
NGNGどうもありがとうございました！
0033デフォルトの名無しさん
NGNGそれで解決したんですか？（汗
0034デフォルトの名無しさん
NGNGインストール先を間違えたので、一端アンインストールしたいのですが、
フォルダを削除する以外に、どこかにpathが書かれていたりしますか？
フォルダ削除だけで良いものか、教えて下さい。
0035デフォルトの名無しさん
NGNG素人が調子に乗るな。
0036デフォルトの名無しさん
NGNG後は環境変数が追加されてるかな。
003734
NGNG追加と削除にActivePealが無かったので焦りました。
AS package をインストールしていたようで、
ActivePerl 5.6.1 Windows MSI 版を上書きインストールして、
そこから削除する事ができました。 （多分 ＾＾；
>>36さん
どうもありがとうございました。
0038デフォルトの名無しさん
NGNGこれは、どう置換されるのですか?
0039デフォルトの名無しさん
NGNGじゃないかな？
0040デフォルトの名無しさん
NGNG最後のeの部分がよくわからないのです。
ふだんPerlは使っていないんですけど、記事の中で使われていたので、どういう意味なのかと。
0041デフォルトの名無しさん
NGNG「アプリケーションの追加と削除」でアンインストールする。
既にフォルダとかを消してしまった場合は、同じ条件で再インストール後、
「アプリケーションの追加と削除」からアンインストール。
それでもダメならOSから入れなおしてちょ。
004234
NGNGアンインストール無しのバージョンを入れてしまったので、
アンインストール有りのモノを同じディレクトリに上書きインストールして
その後、「アプリケーションの追加と削除」からアンインストールしました。
アドバイスありがとうございます。
0043とんちんかん
NGNGしてるんですが、ちょっとした理由でこのログ ファイルが Unicode 形式になってしまいまいた。
でこのスクリプトで読み込んでみたら案の定白紙のテキスト ファイルを作ってくれました。
Perl で UCS2 のファイルの読み書きってできるんでしょうか？
Jcode.pmとかって使うんですか？
教えて君ですみません。
0044デフォルトの名無しさん
NGNG0045デフォルトの名無しさん
NGNGねーストしてあのスクリプトは問題。
0046デフォルトの名無しさん
NGNG(EUCの場合)
要は先頭バイトの最上位ビットが1ならば２バイトなので
C言語ならば
c & 0x80
これでいいと思いますが、
perlの場合はうまいことやる方法がわかりません。
$kana = "漢";
@kana = unpack "H2",$kana;
#先頭バイトを確保、この場合
#$kana[0] = b4となっている
$test = pack("H2",$kana[0]);
#b4をchar系にもどして
$test = $test >> 7;
#7ビットシフトして
if ($test){print "It's Kanji\n";}
#これで $testが1ならいいと思うのですが・・・
うまくいきません。
どなたかアドバイスを・・
0047名無しさん＠Ｅｍａｃｓ
NGNG0048デフォルトの名無しさん
NGNGつーかpackの使い方分かってませんね。
それ以前に@kanaの中身をしらべるっつーデバッグの基本中の基本もしてませんね。
print "ok\n" if((unpack 'C2', '漢')[0] & 0x80);
0049デフォルトの名無しさん
NGNGhttp://pc.2ch.net/test/read.cgi/php/1019917048/
__END__
0050質問
NGNG何かいいサブルーチンはないもんかね？
0051デフォルトの名無しさん
NGNG適当な値とxor取る。
0052質問
NGNG何かいいサブルーチンはないもんかね？
0053質問
NGNG0054デフォルトの名無しさん
NGNG$@だっけ？
0055デフォルトの名無しさん
NGNG0056デフォルトの名無しさん
NGNG00571
NGNG本当は折れのためにだけ立てたスレだったんだが、途中でそれがバレそうになって
うやむやになったけど ほかの奴まで質問してきやがって
目論見は敗れた このスレは閉鎖する サラバ！（もうあうこともないだろう）
0059奈々氏
NGNGwww5.ocn.ne.jp/~asdfg/send.cgi
www5.ocn.ne.jp/~asdfg/send.html
これなのですが、何度やっても
500 Internal Server Error
とでてしまいます。パールのパス、jcode.pl、cgi-lib.plの位置は確認しました
やはり文法エラーなのでしょうか。
詳しい方、指導お願いします。
ちなみに『ocnはCGI使えないよ』とかそういうあたりまえの突っ込みはやめてください
ocnにうpしたのはソースを見てもらうためです。
0060そんじゃ
NGNG0061奈々氏
NGNG使えます
確認しました
0062デフォルトの名無しさん
NGNGパーミッションは？
0063デフォルトの名無しさん
NGNGプログラムを大幅に削って、次の行だけで CGI として
ちゃんと動くのかを確認して欲しい。
--------------------------------
#!usr/local/bin/perl
print "Content-type: text/html\n\n";
print "<html><body>\n";
print "メールを送信しました<hr>";
print "</body></html>\n";
--------------------------------
#!/usr/local/bin/perl
ではないのか、が気になった。
「パールのパス、・・・・・・・・・は確認しました 」
と、書いてあっても、やっぱり気になる。
0064デフォルトの名無しさん
NGNG0065質問
NGNGブラウザからPOSTやGETで送信されるときと
まったく同じ状態にURLエンコードしたいんだけど、
s/(\W)/'%'.unpack("H2", $1)/ego;を使ったら
%A5%ADじゃなくて%a5%adの様に小文字になってしまうし、
あと半角文字もエンコードされてしまう。
おまえら何かいい方法はありませんか？
0066デフォルトの名無しさん
NGNG挨拶くらいしていけ
0067デフォルトの名無しさん
NGNG別に小文字も大文字も意味は同じじゃねーか、ヴォケ。
いやなら大文字にしろ。
半角文字がエンコードされるなんてあたりめーだろ、氏ね。
仕様書読め、糞
uc EXPR
EXPR を大文字に変換したものを返します。
0068shige
NGNGなんと程度の低いスレッドだ。
0069デフォルトの名無しさん
NGNG0070shige
NGNG0071shige
NGNG生まれてきてごめんなさい
生まれてきてごめんなさい
生まれてきてごめんなさい
0072shige
NGNG0073デフォルトの名無しさん
NGNG0074デフォルトの名無しさん
NGNGurl_encode() で改行文字とかをエンコードすると
%0a じゃなくて %a に
なって、それをデコードできないという・・。
なんか思い出したのれす。
007565
NGNGレスどうも。そうか、ucってすればいいのか。
とりあえず、「意味」が欲しかったわけではなく、
「形」が欲しかったので。
ただ、ブラウザのフォームから送信する場合は、
半角は特別な記号以外はエンコードされないはずだが。
そっちは未解決。
0076デフォルトの名無しさん
NGNG$noenc_char = '[^A-Za-z0-9.,ｴﾝｺｰﾄﾞｼﾀｸﾅｲﾓｼﾞｦｽｷﾅﾀﾞｹﾄﾞｳｿﾞ]';
$str =~ s/($noenc_char)/uc unpack 'H2', $1/ego;
007765
NGNGｽﾏｿ、今変換してみたら半角はエンコードされなかった。
まったく
「半角文字がエンコードされるなんてあたりめーだろ、氏ね。 」
だなんて、初心者だと思ってからかうなよ（藁
007865
NGNGあ、こりゃ便利だ。
今度使わせてもらう。
0079デフォルトの名無しさん
NGNGやり方を教えてもらえないでしょうか。。。
こういうのに使えるPPMとかってありますか？
0080デフォルトの名無しさん
NGNG0081デフォルトの名無しさん
NGNGsystem関数で。
0082デフォルトの名無しさん
NGNG0083デフォルトの名無しさん
NGNG0084デフォルトの名無しさん
NGNG0085デフォルトの名無しさん
NGNG0086デフォルトの名無しさん
NGNG0087デフォルトの名無しさん
NGNGﾜﾛﾀ
008879
NGNGsystem関数で解凍ソフトのコマンドラインを
実行するように書いたらうまくいきました。
ありがとうございます。
自分の持ってる入門書には
system関数なんて載っていなかったっス。。。
0089デフォルトの名無しさん
NGNG0090perlでgzipをダイレクトに扱うには
NGNGアクセスして圧縮解いて文字列処理することってできるんですかね。
やはり一度どこかのテンポラリーに圧縮解凍してからそれを読み込まないと
だめですか？
簡単な方法あったら知りたいのでお願いです。
0091デフォルトの名無しさん
NGNGCompress::Zlib
0092perlでgzipをダイレクトに扱うには
NGNGそれ使うとfopenでダイレクトにgzファイルをテキストファイルみたい
に扱うことができるの？
どっか使い方のサンプルとか出てるサイトないですかね？
0093デフォルトの名無しさん
NGNGCompress::ZlibはCライブラリのzlibのPerlインタフェイス。
ファイルハンドルと圧縮ファイルを連結させるにはIO::Zlibってのがある。
入手、ドキュメントはCPANへ。
英語だがガッツがあればそれなりにいける。
http://search.cpan.org/search?dist=Compress-Zlib
http://search.cpan.org/search?dist=IO-Zlib
0094デフォルトの名無しさん
NGNGprint "りんごは英語で？: ";
$answer = <STDIN>;
chomp($answer);
if ($answer == apple) {print "ご名答！！\n";}
else {print "ごめんなさいはずれです。\n";}
0095デフォルトの名無しさん
NGNGperl -wc hogehoge.pl ってやると文法チェックしてくれるよ。
009694
NGNG009794
NGNG直した後チェックしてみたのですが、文法は間違ってなさそうです。
どうしてうまくいかないのでしょうか？
0098デフォルトの名無しさん
NGNGeq(==), gt(>), ge(>=), lt(<), le(<=), cmp(<=>)
になっております。お間違いのないようよろしくお願い致します。
009994
NGNGなるほど文字列は数列と違うのですね。ありがとうございました。
0100100
NGNG0101棄教者 ◆witdLTi2
NGNG$answer == "apple" とやると、
$answer に入っている文字は空文字列じゃないので「真」を返します。
"apple"は空文字列じゃないので真を返します。
比較演算子 == は
左辺の返り血である「真」と右辺の返り血である「真」を比較して
真を返します。そういうわけです。
試しに$answerに空文字列または0を入れてみて下さい。
つぎに0.0を入れてみて下さい。結果がどうなるかを報告して下さい。
0103デフォルトの名無しさん
NGNG> $answer に入っている文字は空文字列じゃないので「真」を返します。
> "apple"は空文字列じゃないので真を返します。
> 比較演算子 == は
> 左辺の返り血である「真」と右辺の返り血である「真」を比較して
> 真を返します。そういうわけです。
上記は *間違い* です。正しくは
比較演算子 == は左右の値を数値として評価、比較する演算子です。
つまり、$answer に入っている文字は数値として評価します。
しかし、おそらく数値としては意味のない値なので「0」を返します。
"apple"も数値として評価されますが、数値ではないのでで「0」を返します。
左辺の値である「0」と右辺の値である「0」を比較して
真を返します。そういうわけです。
文字列として比較するには>>98に示してあるように "eq" 演算子を使用してください。
0104デフォルトの名無しさん
NGNGあたなの知ったかぶりは初心者にとって非常に迷惑です。
誤った情報を与えるよりはこちらに誘導してくださるようお願いします。
WebProg板 【Perl】初心者コーナー Part13
http://pc.2ch.net/test/read.cgi/php/1022731565/
0105デフォルトの名無しさん
NGNGs/あたな/あなた/g
0106デフォルトの名無しさん
NGNGサーチできない。
パーミッションがないみたいだ。
何レベルになったらアクセスできるようになるですか
0107デフォルトの名無しさん
NGNG0108デフォルトの名無しさん
NGNGYou don't have permission to access /search on this server.
--------------------------------------------------------------------------------
Apache/1.3.23 Server at search.cpan.org Port 80
まじできない。
悪いことしてないのに。
やっぱレベル低いんだ、経験値稼ぎにいこっと。
0110デフォルトの名無しさん
NGNGやっぱりできるみたい。
俺だけっぽい、search.cpan.orgが返してるし
なんで俺だけ、なんで俺だけ、うあーんうあーん。
0111デフォルトの名無しさん
NGNG0112名無しさん＠Ｅｍａｃｓ
NGNGたくさんあるよ
0113デフォルトの名無しさん
NGNGサンプルソースコードなどあったら
おしえてください
0114デフォルトの名無しさん
NGNG腐るほどあると思うが。検索すれば。
0115デフォルトの名無しさん
NGNGほらよ。
http://search.cpan.org/search?dist=DBI
http://search.cpan.org/search?mode=module&query=DBD
商用/フリーDBのクライアントや多様なDBエンジンなど、選り取りみどりですぜ。
0116デフォルトの名無しさん
NGNG113 は DBMS を Perl で作りたいんじゃないか？
ﾅﾝﾂﾃ
0117デフォルトの名無しさん
NGNG全行の最後のレコードに半角スペースと改行がはいるんですが
これを回避する方法ってありますか？
0118デフォルトの名無しさん
NGNGchomp
0119117
NGNG0120デフォルトの名無しさん
NGNG全行の最後のレコード？
0121デフォルトの名無しさん
NGNG0122デフォルトの名無しさん
NGNGとかやってるとしたらアホ
0123デフォルトの名無しさん
NGNGftp://hayabusa.ics.nara-wu.ac.jp/pub/nide/dosutil/sos111.tgz
これ使ってますか？
0124デフォルトの名無しさん
NGNG1年程前から使ってます。
0125117
NGNG詳しく教えてもらってもいいでしょうか
0126デフォルトの名無しさん
NGNG手持ちの参考書読め
0127デフォルトの名無しさん
NGNG0128デフォルトの名無しさん
NGNGopen(FH,"|zcat $filename");
print <FH>;
とか？
0129デフォルトの名無しさん
NGNGhttp://search.cpan.org/search?dist=IO-Zlib
http://search.cpan.org/search?dist=Compress-Zlib
0130デフォルトの名無しさん
NGNG127 がやりたいんじゃないと思うんだけど。
90 くらいで質問したやつが、できたのかどうか書き込んだだけだろ。
0132デフォルトの名無しさん
NGNG使い方が分かりませんでした。
gzipで圧縮したテキスト処理について教えてくらさい。
0133デフォルトの名無しさん
NGNG機種はSHARP PC-G850Sです。
0134デフォルトの名無しさん
NGNG自分でさがせ。
0135デフォルトの名無しさん
NGNGuse Compress::Zlib qw(compress decompress);
$gz = compress($plaintext);
$plaintext = decompress($gz);
>>133
Cコンパイラがあれば動くかもね。
0136132
NGNG神さま、ありがとうごぜます。
あなたのおかげで幸せになれそうです♪
0137132
NGNG神様駄目っす。
decompressだとエラーでます。
uncompress だと思うんです…。
$plaintext = uncompress($gz);
した後、
open(FILE, "$plaintext") or die "$!";
while(defined($line = (<FILE>))) {
print $line;
}
close(FILE);
と通常のファイル読みだすようにしちゃ逝かんのでしょうか？
0138デフォルトの名無しさん
NGNGあーそーだ。uncompressだわ。
ちなみにこれは"メモリ上の文字列を圧縮/展開する"関数だから、
当然ファイルには適応できない。
ファイル操作は面倒なんてCompress::Zlibのドキュメント読んでくれ。
圧縮ファイルの操作ならIO::Zlibの方が分かりやすいな。
IO::ZlibのSYNIPSIS
use IO::Zlib;
$fh = new IO::Zlib;
if ($fh->open("file.gz", "rb")) {
print <$fh>;
$fh->close;
}
$fh = IO::Zlib->new("file.gz", "wb9");
if (defined $fh) {
print $fh "bar\n";
$fh->close;
}
$fh = IO::Zlib->new("file.gz", "rb");
if (defined $fh) {
print <$fh>;
undef $fh; # automatically closes the file
}
0139デフォルトの名無しさん
NGNG0140デフォルトの名無しさん
NGNGunsigned long *seed;
(*seed) *= 1103515245;
って書くと単純に下位32ビットだけ取り出せますが
Perlではどうして書いたらいいでしょうか？
0141デフォルトの名無しさん
NGNG$seed *= 1103515245;
$seed &= 0xFFFFFFFF;
でどう？
0142Solaris
NGNG1章から難しい・・・
ていうか、1章のプログラム改造して以下の
プログラムをつくりました。
#! /usr/bin/perl
init_words();
print "What is your name?\n";
$name = <STDIN>;
chomp ($name);
if ($name eq "~ /^akira\b/i"){
print "Hello AKira!\n";
}else{
print "Hello $name!\n";
print "Your Password?\n";
$password = <STDIN>;
chomp ($password);
while (! good_word($name,$password)){
print "Wrong, Try again.\n";
print "Your Password??\n";
$password = <STDIN>;
chomp ($password);
}
}
#
#
sub init_words{
open (WORDLIST, "wordlist")||die "Can't open wordlist!\n";
while (defined($name = <WORDLIST>)){
chomp ($name);
$word = <WORDLIST>;
chomp ($word);
$words{$name} = $word;
}
close (WORDLIST)||die "Can't close wordlist!";
}
#
#
sub good_word{
my($somename,$someword) =@_;
$somename =~ s/\w.*//;
$somename =~ tr/A-Z/a-z/;
if ($words{$somename} eq $someword){
return 1;
}else{
return 0;
}
}
0143Solaris
NGNGでも、実行するとこんなエラーがでます。
原因わからないんです。どなたか教えて頂けないでしょうか？？
# perl -w test6.pl
What is your name?
namco
Hello namco!
Your Password?
namco
Use of uninitialized value in string eq at test6.pl line 38, <STDIN> line 2.
Wrong, Try again.
Your Password??
wordlistには
namco
namco
sega
sega
とだけ書いています。
0144Solaris
NGNGすいません、逝ってきます。
0145デフォルトの名無しさん
NGNG(´･ω･`)ｼｮﾎﾞｰﾝ
0147デフォルトの名無しさん
NGNG$somename =~ s/\w.*//;
の前後に
print "Before : $somename\n";
print "After : $somename\n";
とでもつけてみたら?
それから
if ($name eq "~ /^akira\b/i"){
は
if ($name =~ /^akira\b/i){
が意図するところだと思うが。
0148ト−シロ
NGNGwhile(<FH>)
if (/マッチさせるもの/)
でマッチングに成功したんですがこの方法だとどうやってマッチ行の文字列
を書き換えていいとおもいますか？
素人なんでできればわかりやすくお願いします。
0149デフォルトの名無しさん
NGNGゴメン、意味がわからない。
0150デフォルトの名無しさん
NGNG次のような正規表現をマッチさせることができません。
文字コードをEUCにしても駄目でした。
?をとればマッチするのでなんか文字コードの問題かなあとか思ったのですが。
どうやって回避すればいいか教えてください。
#!/usr/bin/perl
$a = "10000あ";
if($a =~ /\d+?あ/){
print "ok\n";
}
0151デフォルトの名無しさん
NGNGWindowsXP + ActivePerl
0152150
NGNG0153A
NGNG最初の"1"にマッチして、その後"あ"がくるか判定する。
"1000あ"もしくは"あ"という意味で、
/(\d+)?あ/を意図していたのでしょうか？
0155デフォルトの名無しさん
NGNG= と =~ は違うよ。
0156150
NGNG最小一致とはそういうことではないと思います。
すこし意図がわかりづらかったと思いますが
例えば「あいうあ」と表示させる意図で
$a = "あいうあいうあ";
if($a =~ /.+?う(.+)/){
print "$1\n";
}
とかいてもマッチしないのです。
↓ならマッチします。
$a = "あいうあいうあ";
if($a =~ /(.+?)う(.+)/){
print "$2\n";
}
?と2バイト文字が重なるとどう問題なんでしょう？？
0157デフォルトの名無しさん
NGNGだから最小マッチだと・・・。
0158デフォルトの名無しさん
NGNGマッチしてるだろ。さっきからお前は何をやってんだ。
150が何をしたいのか理解できない。
最小マッチってのは、マッチするもので最小のものだべ。
$a = "0000011111";
print "(A) $1 \n" if $a =~ /(\d+1)/;
print "(B) $1 \n" if $a =~ /(\d+?1)/;
実行結果
>(A) 0000011111
>(B) 000001
0159デフォルトの名無しさん
NGNGそれならifじゃなくてs///を使う。
単にwhileブロックの中で置き換えたいところをs///で置き換えればいい。
マッチしないところはいじらないよ。
たまにいちいち
$_ =~ s/foo/bar/;
とやっている人を見かけるが、デフォルトで$_を置き換えるので左辺はい
らない。まぁあなたはif(//)を書いているので分かってるな。
0160デフォルトの名無しさん
NGNGで、そういう風に設定しても、プログラムの関係上全く喰わなくなるなんてあるんすかね？
今個人的に使ってる掲示板のシステムあるんだけど、
前まできっちりCookie喰ったり吐いたりしていたのに
IE6になってからは、前述の通り設定きっちりやっても
[cookie]フォルダにファイルすら作らない。
どういうこっちゃ？
0161デフォルトの名無しさん
NGNGで、そういう風に設定しても、プログラムの関係上全く喰わなくなるなんてあるんすかね？
今個人的に使ってる掲示板のシステムあるんだけど、
前まできっちりCookie喰ったり吐いたりしていたのに
IE6になってからは、前述の通り設定きっちりやっても
[cookie]フォルダにファイルすら作らない。
どういうこっちゃ？
0162デフォルトの名無しさん
NGNGプライバシ・ポリシーとかいうのが
関係しているのでは?
0163デフォルトの名無しさん
NGNG-----
use Tk;
$w=new MainWindow;
$e=$w->Text->pack;
$e->bind( '<KeyPress-Return>', [ \&func ] );
MainLoop;
sub func {
$e->insert( 'end', "Pressed Return" );
}
-----
これで簡単なテキストエディタが出来ますね。この時、コールバック側で
リターンキーが押された 行位置が取得できないものでしょうか？ ヘルプ
等には載ってなかったもので。
やりたいことは カーソル、マウスで適当に移動して過去履歴を再利用可能な
計算機が作りたいのです。
0164デフォルトの名無しさん
NGNGPerl/Tkによる2chブラウザ
http://gikotk.tripod.co.jp/
開発ｽﾚ
http://pc.2ch.net/test/read.cgi/php/991966646/
0165デフォルトの名無しさん
NGNG情報を取得するモジュールってあるでしょうか？
また、モジュール一覧（http://search.cpan.org/ ここ）についての日本語説明のＨＰってあるでしようか？
0166デフォルトの名無しさん
NGNG意味はわかるのですが、どうかいていいのかわかりません。
教えて下さい。
0167名無しさん＠カラアゲうまうま
NGNG0168166
NGNGlocal($i, $foundindex, $dispid);
$foundindex = -1;
for ($i = 0; $i < @txt; $i++) {
($dispid) = split(/,/, $txt[$i]);
if ($tgtid == $dispid) {
$foundindex = $i;
last;
}
}
return $foundindex;
}
0169名無しさん＠カラアゲうまうま
NGNG0170名無しさん＠カラアゲうまうま
NGNG見付からなかったら-1を返したいように思えるんだけど、
$tgtidが-1だったら最初に見付かったことにしちゃっていいのか?
0171166
NGNGだからおしえてほしい．．．．．
0172デフォルトの名無しさん
NGNG…宿題か何かか？
0173
NGNGあのxmlで書くとかいう、プライバシーポリシーのことか？
0174名無しさん＠カラアゲうまうま
NGNGじゃ>>166のコードの意味は分かってんの?
0175166
NGNG0176
NGNGsub find_msg
{
while($file=<*>){
unlink $file;
}
return 0;
}
これでいいはずだよ。
がんばってね！
0177デフォルトの名無しさん
NGNGsub find_msg{
print "(ﾟДﾟ)ﾊｧ?" while(1);
return -1;
}
0178名無しさん＠カラアゲうまうま
NGNG>>174は>>168の書き間違いだったんだが、こりゃほんとに>>166の意味も分かってないんだろな。
とりあえず「$tgtid 変数の中身が-1だったら0でreturnする」というコードは
return 0 if $tgtid == -1;
だ。どこに入れればいいかは考えろ、というか>>166に書いてあることだけだ
とどこに入れりゃいいのかこっちも分からん。
もうちょっと基本的なところから勉強し直せ。日本語も含めて。
0179デフォルトの名無しさん
NGNGあなたやさしいね。
0180166
NGNGありがとう。
わからないけど。
0181デフォルトの名無しさん
NGNGプログラミングPerlとか読んだら、単配列のデータを ':' で区切って2重配列代わりに
してましたがそれじゃあんまりなので...
0182デフォルトの名無しさん
NGNG「それじゃあんまり」とかいうならラクダ本を買って
読みましょう。
配列の配列にはリファレンスというのを使うんだよ。
ていうか、気にせず $a[10][2] = 'hoge' とかできるわけだけど。
0183デフォルトの名無しさん
NGNGオレは対象のマシンが多いから直接取らないで、各マシンにucd-snmp入れて、Net::SNMPでとってきてるよ。
0184デフォルトの名無しさん
NGNGもしかしてプログラミングPerl第一版だったりしますか？
0185名無しさん＠カラアゲうまうま
NGNG0186ｔｒｒh
NGNG$file2++;
}
close(file2);
while (<file3>){
$file3++;
}
close(file3);
while (<file4>){
$file4++;
}
close(file4);
上記に文を短縮できますか？
0187デフォルトの名無しさん
NGNGゴメン、あなたの日本語が分からない。
0188デフォルトの名無しさん
NGNG---
use Tk;
$maxline = 25;
$fontname = "{ＭＳ明朝} 12";
$w = new MainWindow;
$f = $w->Frame( -relief => 'sunken', -bd => 2 )->pack;
for( $i=0; $i <$maxline; $i++ ) {
$e[$i] = $f->Entry( -width => 80, -bd => 0, -font => $fontname )->pack;
$ar[$i] = $e[$i]->bind( '<KeyPress-Return>', [ \&calc, $i ] );
$ar[$i] = $e[$i]->bind( '<KeyPress-Up>', [ \&line, $i, -1 ] );
$ar[$i] = $e[$i]->bind( '<KeyPress-Down>', [ \&line, $i, 1 ] );
}
$e[0]->focus;
$w->resizable(0,0);
MainLoop;
sub calc #($\$)
{
my( $dummy, $loc ) = @_;
$txt = $e[$loc]->get;
$loc = 0 if ++$loc >= $maxline;
$e[$loc]->delete( 0, 'end' );
$e[$loc]->insert( 'end', eval( $txt ));
$loc = 0 if ++$loc >= $maxline;
$e[$loc]->delete( 0, 'end' );
$loc = 0 if ++$loc >= $maxline;
$e[$loc]->delete( 0, 'end' );
$e[$loc]->focus();
}
sub line #($\$$)
{
my( $dummy, $loc, $df ) = @_;
$loc += $df;
$loc = $maxline-1 if $loc < 0;
$loc = 0 if $loc >= $maxline;
$e[$loc]->focus();
}
---
0189みよ
NGNGperlでcgiを書いていて，
system("touch xxx.txt");
としてwebから実行してもxxx.txtが作られません．．．
どうしてでしょう？
0190デフォルトの名無しさん
NGNG0191名無しさん＠カラアゲうまうま
NGNGありそうなのはカレントディレクトリに書き込めないとか。
0192デフォルトの名無しさん
NGNGs/に/の/ ; ???
open( FH,"file2") or die $!;
map $file2++, <FH>;
open( FH,"file3") or die $!;
map $file3++, <FH>;
open( FH,"file4") or die $!;
map $file4++, <FH>;
close FH;
0193名無しさん＠カラアゲうまうま
NGNGeval "open(FH,'file$i') or die \$!; map \$file$i++, <FH>; close FH";
}
0194_gunzip
NGNG遅かったかな。
------------------------
#!/usr/bin/perl
use Tk;
use strict;
my $mw = new MainWindow();
my $text = $mw->Text()->pack();
$text->bind('<KeyPress-Return>', [ \&func ]);
Tk::MainLoop();
sub func
{
my $self = shift;
print "current position = (", $self->index('current'), ")\n";
}
--------------------
0195デフォルトの名無しさん
NGNGsystem("/bin/touch xxx.txt"); としてみる、ってのは
関係ないかな。
0196デフォルトの名無しさん
NGNGこのアーカイブファイルにあるperl.txtというメモにちょっとした図が
あるのでもしかしたら役に立つかもしれません。
http://homepage1.nifty.com/bmonkey/junkyard/memo.tar.gz
0197みよ
NGNG絶対パスで書いてもできませんでした．
perl xxx.cgi での
system("touch" xxx.txt)は
ちゃんとxxx.txtを作ってくれます．
webにアクセスするたびに新しいファイルを
作成することはできないのでしょうか？
0198名無しさん＠カラアゲうまうま
NGNGだとなんか出るか?
0199デフォルトの名無しさん
NGNGしかし残念ながら要求を満たさないのです。欲しいのはリターン
キーを叩いた時に実際にカーソルのあった位置。例ではカーソルキーで
移動後リターンキーを叩いても なぜか文末を示してしまふ。。。
0200デフォルトの名無しさん
NGNGそこのディレクトリを他人でも書けるようにするとうまくいくとかいう話のような
気がするけどどうかな。
0201みよ
NGNGおっしゃられるとおりでした．(汗)
ありがとうございます．
ところで，system("touch ../a/b/xxx.txt")としたら
ファイル作られるのですが，中が空っぽになっています．
カレントディレクトリだときちんと作られるのですが・・・．
0202名無しさん＠カラアゲうまうま
NGNG存在しなければ空のファイルを作る。
0203_gunzip
NGNGすまん。
マウスカーソルの位置を取得する際は、'current'ではなく'insert'を使ってくれ。
$self->index('insert') で、"line.char"形式の情報が得られる。
あと、リターンキーを叩いた際にマウスカーソルが存在する位置（移動後ではなく）を取得する方法は、
サブクラス化してやるくらいしか知らない。
例を挙げるなら、
--------------------------- text.pl
#!/usr/bin/perl
package MyText;
# 実際は別ファイルに分けた方が良い
use Tk;
use strict;
use base qw[ Tk::Text ];
Construct Tk::Widget 'MyText';
sub ClassInit
{
my($class, $widget) = @_;
$class->SUPER::ClassInit($widget);
# change "KeyPress-Return" default binding
$widget->bind($class,'<KeyPress-Return>', \&returnPressed);
}
sub returnPressed
{
my $self = shift;
my $pos = $self->index('insert'); # 移動前のカーソル位置を取得
printf("current positon = (%d,%d)\n", split /\./, $pos);
$self->insert('insert', "\n") ;# んで、移動
}
package main;
use Tk;
use strict;
my $mw = new MainWindow();
my $text = $mw->MyText()->pack();
Tk::MainLoop();
---------------------------------------
0204みよ
NGNGあ，そうですね．説明が足りませんでした．
空のファイルを作成した後，
------------------------
open(XXX, xxx.txt);
print XXX "yyy\n";
close(XXX);
------------------------
とするのですが，yyy\nがxxx.txtに書き込まれません．
0205デフォルトの名無しさん
NGNG0206デフォルトの名無しさん
NGNGファイルになるでしょうね。
だから、その後CGI経由でスクリプトを走らせると
そのファイルに書き込めないこともあります。
その空のファイルのパーミッションはどうなっていますか?
0207名無しさん＠カラアゲうまうま
NGNG書き込むんだったらtouchなんかいらんだろが。
> open(XXX, xxx.txt);
"xxx"."txt"とみなされて"xxxtxt"というファイルを読み込もうとしてるとか。
もうちょっとまとめて&省略せずに書け。めんどくせー。
0208デフォルトの名無しさん
NGNG…まずは適当な本を読んで最低限の知識を身に付けてから質問しろや。
0209デフォルトの名無しさん
NGNGジャリプロとしては これで実用充分です。
---
use Tk;
$w=new MainWindow;
$e=$w->Scrolled('Text',-scrollbars =>'e')->pack;
$e->bind( '<KeyPress-Return>', [ \&func ] );
$e->focus;
MainLoop;
sub func {
my($p) = $e->index('insert');
$txt = $e->get( sprintf("%d.0",$p-1), sprintf("%d.0 lineend",$p-1) );
$e->insert( $p, eval($txt)."\n");
$e->yviewMoveto(1);
}
---
CR する前の座標を取るにはデフォルトバインディングの順番を変えればいい
のでは？ と思ったけれど うまくいかず。。。
0210デフォルトの名無しさん
NGNG例：
$test.pl あ
82a0
(82a0はSJISの16進文字コード)
みたいなことをしたいです。
0211デフォルトの名無しさん
NGNG1バイト目 + 256 + 2バイト目
0212新米
NGNG＞最大20個までの数値をユーザーに要求して受け取り(つまり、ユーザーが20個以下の
＞値を入力できる方法を用意する)、それらを逆順に表示するプログラムを記述せよ
という問題の応用で
＞上記のプログラムを修正し、重複した値をリストから削除して、なおかつ特定の値が
＞何回入力されたかを示すようにせよ。
3時間ほど教科書をにらんでやってみたのですが、どうしても解けませんでした。
どなたか、模範解答をいただけないでしょうか？
p.s.単発質問にかんしては、常連の皆様にお詫びいたしますm(_ _)m
0213japh ◆J.5V8ta6
NGNGprompt> perl -le "print unpack 'H*', shift" あ
>>211
元のスクリプトが無いから生憎と「修正」じゃないけど。
#!/usr/bin/perl -w
use strict;
my @numlist;
my %map;
for(1 .. 10)
{
print "数値を入力してください<$_>：\n> ";
defined(my $input = eval{
$SIG{__WARN__} = sub{ die };
return sprintf '%g', scalar <>;
}) or print("無効な値が入力されました\n"), redo;
push @numlist, $input unless $map{$input}++;
}
print "一意の入力した値：\n@numlist\n";
print "入力した数値とその回数：\n";
while(my($k, $v) = each %map)
{
printf "%2d を %2d 回\n", $k, $v;
}
__END__
チト長すぎるね。スマソ。
0214デフォルトの名無しさん
NGNGこれはあなたですか？
http://pc.2ch.net/test/read.cgi/tech/1025336220/l50
もしそうなら、レスの時間を見ると全然お詫びする気はないようですが。
どちらにしろ単発質問スレを立てるなといわれている理由を考えてから出直して来てください。
0215japh ◆J.5V8ta6
NGNG2chにかぎらず、コミュニティに入り込むなら基本的なルールは身につけてからにしてくれよ…。
0216新米
NGNGメアドにsageって入れたら、確か一覧の上にのぼらないんでしたっけ？
今度からそうやって書き込んでみます。
0217デフォルトの名無しさん
NGNGスレ削除依頼スレ立ってなかったら立てていいから
0218デフォルトの名無しさん
NGNGそういうことならとりあえず自分の立てた単発質問スレの削除以来だして、
その削除依頼の URL を引用するといいかと。
ついでに >>214 のスレの削除依頼も出しておくと好印象。
0219デフォルトの名無しさん
NGNG0220デフォルトの名無しさん
NGNG普通はXSでCのライブラリを呼び出すPerlモジュールを自作します。
perldoc perlxstutでチュートリアルが読めます。
お手軽にCライブラリを呼びたいなら
C::DynaLibなど（WindowsならWin::API？）を使う方法もあるようだけど
そっちは触ったことがないのでよくわかりませぬ。
0221デフォルトの名無しさん
NGNGすみませんがおしえてください。
0222デフォルトの名無しさん
NGNGこの場合デコードでは？
0223デフォルトの名無しさん
NGNG0224デフォルトの名無しさん
NGNG0225デフォルトの名無しさん
NGNG最近の*普通*は「Inlineを使う」だとおもうぞ。
0226220
NGNGInlineてなんじゃろ？つーことでInline.pmを取ってきてみました。
うわー。なにこれー。めっちゃ便利ー。
でもC++の構文が使えないの不便かも…と思ったらInline::CPPがあった。
Inline::AwkとかInline::BASICなんてのもあるのね。落としてないけど。
0227デフォルトの名無しさん
NGNGmonaloveﾊｹｰﾝ
0228デフォルトの名無しさん
NGNG0229デフォルトの名無しさん
NGNG0230デフォルトの名無しさん
NGNGいってよし。
0231228
NGNG0232デフォルトの名無しさん
NGNG長くかかる処理をしている間にあるキーを押すと途中で別の
サブルーチンに行くようにしたいのですが可能でしょうか？
もし、方法があればヒントだけでもよろしくお願いします。
0233228
NGNG0234名無しさん＠カラアゲうまうま
NGNG「あるキー」ってのがCtrl-Cでよければこうかな。
sub handler
{
...
}
$SIG{'INT'} = \&handler
0235232
NGNGその方法でうまくいきました！！！
どうもありがとうございました。m(_ _)m
0236デフォルトの名無しさん
NGNG$rand = int(rand($kazu));
のようにして得られた$randの乱数値を別のサブルーチンに送るにはどうすれば良いのでしょうか？
ネタじゃなくて本気です。超初心者でごめんなさい...
0237ﾏｼﾞﾚｽｽﾏｿ
NGNGsub hoge{
$foo=shift;
print "$foo";
}
0238デフォルトの名無しさん
NGNGmy $foo = shift;
とかしないの？
0239デフォルトの名無しさん
NGNG0241238
NGNG0242デフォルトの名無しさん
NGNGnum.datの内容が
100
200
300
400
500
の時、以下を実行すると
open(IN, "./num.dat");
@number = <IN>;
close (IN);
$number[0] = $number[0] - 10;
open(OUT, ">./num.dat");
print OUT @number;
close(OUT);
書き出されたnum.datの内容は
90200
300
400
500
のようになってしまいます。これを
90
200
300
400
500
のようにしたいのですがどうすればよろしいのでしょうか？くだらない質問ですが、何卒ご教授の程よろしくお願い致します。
0243名無しさん＠カラアゲうまうま
NGNG> $number[0] = $number[0] - 10;
$number[0] = ($number[0] - 10)."\n";
0244デフォルトの名無しさん
NGNG計算した途端に「数字」に変換されて改行がとれてしまったのですね。
だから>>243のように行末の改行をつけて計算してやると。
0245デフォルトの名無しさん
NGNG0246
NGNG0247デフォルトの名無しさん
NGNGprint OUT "$_\n" for @number;
ということですね。246さんもご指導ありがとうございました。
0248デフォルトの名無しさん
NGNG｜$a[10][5]みたいなことも一応できるが、
｜リファレンスを使え
という感じのレスがこのスレにありました。
でもリファレンスってただ \ をつけるだけ？とか思う僕には
あまり理解できないのです。
もしよろしければ、
例を挙げて説明してほしいのです。
また、参考になるwebサイトなどがあれば、教えてください。
できれば日本語のサイトでお願いします。
0249デフォルトの名無しさん
NGNG質問はあげで。
でも折れは答えない罠（ｗ
0250japh ◆J.5V8ta6
NGNGhttp://www.kt.rim.or.jp/~kbk/perl5.005/perlref.html
例：
my $href = \%ENV; # $hrefは今%ENVを指している
print $href->{PATH}; # $ENV{PATH}を出力
$href->{PATH} = '/bin:/usr/bin'; # $ENV{PATH}を書き換える
$href = {}; # $hrefは今や無名ハッシュを指している
$path = $href->{PAHT}; # $hrefと%ENVは何の関係も無い。$pathはundefである。
0251ありがとう
NGNGちょっとわからないものもありましたが、
レスありがとうございました。
これで今日はぐっすり眠れます。
もうちょっと勉強が必要ですね。
0252ありがとう
NGNGポケットリファレンスじゃ詳しく書いてないからなぁ・・・。
0253名無しさん＠カラアゲうまうま
NGNG> $path = $href->{PAHT}; # $hrefと%ENVは何の関係も無い。$pathはundefである。
$ENV{PAHT}もundefという罠。
0256名無しさん＠カラアゲうまうま
NGNGされている罠
0257デフォルトの名無しさん
NGNGuse Env qw(PATH);
してください。
0258デフォルトの名無しさん
NGNG0259
NGNGいいよ
0260デフォルトの名無しさん
NGNGいいけど。ただ、WebProgの方が活発かな。
0261
NGNGwebprogが活発・・・ｶﾞｸｶﾞｸ
0262デフォルトの名無しさん
NGNG言いたいことはよーく分かる。
0263→perl超初心者
NGNG自分でやってみたところ、test.cgiを保存しようとしても、そのプログラムの結果が保存されただけでした。
そのプログラムに、データベースファイルにアクセスする命令が書かれているため、ソースごとﾀﾞｳｿされるとデータベースファイルの場所、ファイル名が筒抜けになってしまうんで困るんですよ。
もしﾀﾞｳｿできるんなら、それ用の対処法なども教えてくれるとありがたいです。
0264クレール
NGNGそのため、Cgiがパスワードなどを使う事ができる。
と、言うわけです。
0265デフォルトの名無しさん
NGNGリアルでありがとう。つっかえがなくなりました。
やっぱそうですか。
そんなんできたら２ちゃんのトリップとか解析できちゃいますしね。
0266デフォルトの名無しさん
NGNG0267デフォルトの名無しさん
NGNG設定が狂って一時的に*.cgiの中身が丸見えになって……なんていう
楽しい事件があったらしいね。
0268デフォルトの名無しさん
NGNGそれ２ｃｈじゃないの（ｗ
0269デフォルトの名無しさん
NGNGファイルから持ってくるってのはありがちな話だと思います。
そこで、コンフィグをparseして変数に格納する機能のライブラリってありませんか？
GetOptの、コンフィグ版みたいな奴です。
皆さんこういう部分を毎回コーディングしているのでしょうか・・。
0270デフォルトの名無しさん
NGNG>皆さんこういう部分を毎回
少なくとも自分形式が出来ればコーディングは一回かと。
0271269
NGNGhttp://www-6.ibm.com/jp/developerworks/linux/010209/j_l-perl3.html
0272デフォルトの名無しさん
NGNG501 Internet Server Errorの詳細を教えてくれる（何行目で引っかかったとか）ようなサーバってありますか？
今、いじってたCGIが単純に切り張りしただけで動かなくなってしまい、二箇所ぐらいしかいじってなかったので本当に不思議な状態です。（いじって直した部分はもう何十回と確かめてはいるんですが）
何行目がおかしいのかだけでも分かりたい…
0273
NGNG0274272
NGNG0275
NGNG$SIG{'INT'}
$SIG{'HUP'}
$SIG{'QUIT'}
$SIG{'TERM'}
つか、ローカルの環境ではテストしたのか？
へんなとこがあれば、>perl srcfileでエラー行出るだろ。
0276272
NGNGレス感謝です☆
0278デフォルトの名無しさん
NGNG0279デフォルトの名無しさん
NGNG0280デフォルトの名無しさん
NGNG0281デフォルトの名無しさん
NGNGLinuxのマシンのperlで「dbmopen」を使用したいのですが、動きません。perlがdbmopenを使う場合に必要なライブラリや設定について教えてください。
（実は、Yukiwiki2をインストール中です）
動きません、じゃわかりません。
エラーメッセージを書いてください。
でもdbmopen()は標準ライブラリがあれば動くはずなんだけどな？
0283デフォルトの名無しさん
NGNGそうですね、すいません。実はこのプログラムはCGIでして、エラーの結果は簡単なメッセージしかでないんです。
別にdbmopen関数を使ったスクリプトを動かした方がいいでしょうか？
0284コギャル＆中高生
NGNGお役立ちリンク集
必ず役立ちます
コギャルとＨ出来るサイトはここ
ヌキヌキ部屋へ直行便
↓
http://kado7.ug.to/wowo/
0285デフォルトの名無しさん
NGNGといっても、全くのPerl知らずでして、「dbmopen関数を
使ったスクリプト」も分からないんです。(^^;
まさか共用サーバでテストして無いだろうね？
とりあえずスクリプトの冒頭に以下の分を追加してエラーメッセージを表示させてみて。
use CGI::Carp qw(:fatalsToBrowser);
0287デフォルトの名無しさん
NGNG「$Aが1か、3か、もしくは5の時…」と表現したい時、
$A==1 || $A==3 || $A==5 …と何度も書かなければいけないのでしょうか？
カンマなどで区切って省略するなどの方法があったら、ぜひ教えてください。
0288デフォルトの名無しさん
NGNGスクリプトには、既に use CGI::Carp qw(:fatalsToBrowser)が
あります。でもエラーメッセージ自体はブラウザに表示され
ません。
(dbmopen) ./diff <-- こんなメッセージはでます。
PS Apache の方の設定も見ています。
残念ながら、省略することは出来ないよ。
ハッシュや配列を使えば若干分かりやすくなるかもしれないけど。
sub ok(){ 1 };
my %test = (
1 => ok,
3 => ok,
5 => ok,
...
);
if($test{$A}){
...
}
>>288
「こんなメッセージ」ってどこに出るのさ？
エラーメッセージは表示されてないんじゃないの？
もう少し分かりやすく状況を説明して。
そのPerlはキミがインストールしたの？
もしそうだとしたら何故dbmopenが使えないのかは分からない。
そうじゃないとしたら標準モジュールがあるか確認して。
0290デフォルトの名無しさん
NGNG正規表現で書く
0291デフォルトの名無しさん
NGNGPremature end of scrip
t headers
が直りません
可能な対処法を教えてください
0292デフォルトの名無しさん
NGNG26P3で計算出来るのは当たりまえだけど、その中身を
Perlで実際に全部プリントアウトする方法は簡単ですか？
やり方が全く皆目検討つきませんでした。
ちなみに10文字あたえてその並べ換えをプリントアウト
は何とかなりそうです。
0293デフォルトの名無しさん
NGNG普通に三重ループにすればいいと思うが。
0294デフォルトの名無しさん
NGNG$URL0 = "http://messages.yahoo.co.jp/bbs?.mm=CP&action=m&board=1835099&tid=perla4ja4sa4ga4bbcaldha2&sid=1835099&mid=1&type=date&first=1";
$start = 1;
$end = 50;
@a =split(/&/, $URL0);
$URL = "http://messages.yahoo.co.jp" . shift(@a);
while(@a) {
$tmp = shift(@a);
if(!($tmp =~ m/^(mid=|type=|first=)/)) {
$URL .= "&" . $tmp;
if($tmp =~ m/^board=/) {
$tmp =~ s/board=//;
$board = $tmp;
}
elsif($tmp =~ m/^tid=/) {
$tmp =~ s/tid=//;
$tid = $tmp;
}
}
}
$logdir = "C:\\yBBS\\log";
mkdir $logdir . "\\" . $board;
$dir = $logdir . "\\" . $board . "\\" . $tid;
mkdir $dir;
$out = $dir . "\\" . $start . "~" . $end . ".html";
open(OUT, "> $out");
print OUT "<body black link=blue alink=red vlink=#660099><dl>";
for($i = $start; $i <= $end; $i++) {
$text = get($URL . "&mid=" . $i);
$text =~ s/\n//g;
$text =~ m/<big><b>([^>]+)<\/b><\/big>/;
$msgTitle = $1;
$text =~ m/<small>([0-9\/ :]+)<br>[^:]+: (\d+) \/ \d+<\/small>/;
$date = $1;
$msgNum = $2;
#
$text =~ m/<a href="http:\/\/profiles[^>]+>([a-zA-Z0-9_]+)<\/a>/;
$user = $1;
#
$text =~ m/<\/small><\/td><\/tr><tr><td colspan=2> \;<br>(.+)<\/td><\/tr><tr><td colspan=2> /;
$msg = $1;
#
$text =~ m/<small>[^>]+<a[^>]+>(\d+)<\/a>[^>]+<\/small>/;
$resNum = $1;
print OUT "<dt>" . $msgNum . " ：<a href=><b>" . $user . "</b></a> ：" . $date . "<dd>";
print OUT "<b>" . $msgTitle . "</b><br>";
if($i != 1) {
print OUT "<a href=>>\;>\;" . $resNum . "</a><br>";
}
print OUT $msg . "<br><br>";
}
print OUT "<\/body>";
close(OUT);
0295294
NGNGYahoo!の掲示板を取ってくるスクリプト(>>294)を
ヘタレなりに書いてみたんだけど、これではいまいち使いにくい。
使いやすくするために何かアイデア貸してください。
というか、誰か初めから書き直してください。
0296デフォルトの名無しさん
NGNG0298コギャル＆中高生
NGNGお役立ちリンク集
必ず役立ちます
コギャルとＨ出来るサイトはここ
ヌキヌキ部屋へ直行便
↓
http://kado7.ug.to/wowo/
超究極イケイケ女子小中高生
↓
http://kado7.ug.to/wowo/-a.htm
0299294
NGNGたしかにオレ、この板の人間じゃないけどさ。
VBでも勉強しよう。
0300デフォルトの名無しさん
NGNG292です。
書き方が悪かったです。
x文字からy文字(x>y)使って(同じ文字を複数回使ってよい)の順列
を全て求めるというのが出来ませんです。
ワシは一般化すると全く手が出ない程度のレベルですんで・・・
サンプルもしくは適当なモジュール教えていただけたら幸です。
0301291
NGNG書き方が詳しくなかったので
補足します
その前にスレ違いな質問だったのでしょうか？
もし，そうでしたらすみません
今日perlを始めたばかりなのでご容赦ください
それで内容ですが
アクセスログを取得するパールを書きました
でheaderは
#!usr/bin/perl
だと思うのですが
>>291のようなエラーが出てしまいます
また/usr/binにperlがあるのは確認しました
また
perl ファイル名
とすると普通に通ります
あとログはちゃんと取れています
しかし，error_logを見ると>>291のような
エラーが出力されているのです
検索したのですが文字コードを
変換せよ，というページを
みつけてnkfをしたのですが
直りません
初歩的な質問かと思いますが
もし，アドバイスして頂けたら
うれしいです
0302デフォルトの名無しさん
NGNG0303名無しさん＠カラアゲうまうま
NGNG> #!usr/bin/perl
#!/usr/bin/perl
0304デフォルトの名無しさん
NGNGHTTPヘッダをきちんと出力していない。
0305291
NGNG>>304
>>303
すみません ここに書き間違えました
実際は#!/usr/bin/perlと書けてました
>>304さんのいわれた通りでした
基本的な知識が無かったです
お騒がせしました
0306デフォルトの名無しさん
NGNGどのように記述するのですか？
0307デフォルトの名無しさん
NGNG0309デフォルトの名無しさん
NGNG$check =~ /join('|', @date)/;
つまり↑のようなニュアンスのこと。
しかし、これではうまくいかないみたいです。
お願いします。
0311デフォルトの名無しさん
NGNG蝉が怖くて買うのやめました。
0312デフォルトの名無しさん
NGNGありがとうございます！
うまくいきました(激感謝)
しかし、直接記述出来ない理由や
^$re$ の^ と $ がないとうまくいかない理由が
いまいちわかってない...
0313棄教者 ◆witdLTi2
NGNGhttp://bookweb.kinokuniya.co.jp/guest/cgi-bin/wshosea.cgi?W-NIPS=9971171996
0314デフォルトの名無しさん
NGNGしてみた。Windows環境の ActivePerl5.6.1 で駄目駄目だった
print "表示"; が改善されてないなぁ。しくしく。。。
ソースをUTF8にするとか
use encoding 'hoge';
とかしてもダメ？
0316デフォルトの名無しさん
NGNGGTK？それともTk？
0317デフォルトの名無しさん
NGNGActivePerlのperlccがうまく行きません。
なんかPerlcc.batに設定することとかあるのでしょうか？
.Net SDKのclをかってに使ってしまってるかもしれないんですが。
0318デフォルトの名無しさん
NGNG割れwin2000じゃ、うまくいきませんよ。
0320デフォルトの名無しさん
NGNGダメみたい。 もとより、SJISコードの「表」には \x5f のコードが入っている
ので SJISに完全対応しないと 生書きでは 化けてしまう。回避方はいくつか
あるんだけど 面倒で。。。
0321デフォルトの名無しさん
NGNGつーかperlccなんか何に使うんだ。
実験か? Perlの勉強か? perlfaq3は読んだのか?
In general, the compiler will do nothing to make a Perl
program smaller, faster, more portable, or more secure.
In fact, it can make your situation worse.
つーかちゃんと調べてれば割れとか言われて逆ギレしないか。
世の中にはperl2exeっつーのもあるらしい。
http://www.indigostar.com/perl2exe.htm
おいらは使ったことないんでこれ以上のことは知らない。
0322317
NGNGperl2exeはフリーじゃないですよね。
>>321
もう一回だけ言う
答えられない奴がしゃしゃり出るな。
そうやって自分がわからん問題になると自分が理解できてもない
FAQ読めとかURL差し出して問題スルーさせるんだよな。
それで自分はわかったつもりになってんだよ、お笑いだね。
たてよみじゃないよ、嵐でもない、ねたでもないからくだらんつっこみよして答えろヤ。
0323デフォルトの名無しさん
NGNG0324デフォルトの名無しさん
NGNG自尊心をくすぐって答えを引き出そうとする高等戦略のつもりなのだろう。
>>322
ここで質問＆煽りをして時間を無駄にしている暇があったらソースを読むか作者に訊け。
0325デフォルトの名無しさん
NGNG0326321 ◆FaOqqhYM
NGNG答えられないけどもう一度しゃしゃり出るぞ。
勉強が目的なのなら、perlccが出した「Cコード」を読んだだけで、
何をやっているかわかっただろう。Windowsで実行するまでもなく、
perlccが中途半端で、未来があまり望みのないものだってこともわかるはず。
本当にperlccが出したCコードを読んだのか?
perlのバイトコードの逆アセンブル結果と比べてみたことはあるか?
perl2exeがフリーではないのは知ってるよ。
>>322の目的がわからなかったから示した。
perlfaq3を読んでないでperlccを使おうとする人にとって
ベストなツールが(ヲレの少ない経験上)perl2exeだというだけ。
(すまん、「ベスト」は言いすぎ。正直に告白する。
もうひとつくらいPerl2exeと同様の仕事をする
プロプライエタリツールがあったと思うがど忘れ)
勉強目的とわかった今、これだけは言いたい。
「win2kでperlccを使おうとしてあれこれ悩む時間で、
他のことを勉強した方が>>322のため世のため人のため」
>>322の目的は「win2kでperlccを動かすこと」であり、
ヲレの目的は「perlccを動かしたところで利が少ないことを
>>322以外の者に示すため」である以上、このポストでも>>322は満足するまい。
しかしヲレはヲレの目的のためにこれをポストするものである。
お目よごしごめん! 気を悪くした方は荒らしの一種とでも思ってくれい。
0327デフォルトの名無しさん
NGNG[あ-ん]は うまく機能しません。 どーにかなりません？？？
0328デフォルトの名無しさん
NGNG0329デフォルトの名無しさん
NGNG0330デフォルトの名無しさん
NGNG[ぁ-ん]
にしないと。
0331デフォルトの名無しさん
NGNG0332デフォルトの名無しさん
NGNGprint "(*´д｀*)ﾊｧﾊｧ" x 5000000000;
0333デフォルトの名無しさん
NGNG0334よろしくお願いいたします
NGNGFileのOPENした内容の1行だけをPOSTﾃﾞｰﾀに書き換えたいのですが、
OPEN時に『＞』では新規POSTﾃﾞｰﾀしか残らず、『＞＞』ではﾃﾞｰﾀが追記され・・・。
すみません、かなりとんちかんな事を申し上げているとは思いますが
よろしくお願いいたします。
ｽﾚ・板違いでしたら申し訳ありません。
0335デフォルトの名無しさん
NGNG0336デフォルトの名無しさん
NGNG#!/usr/bin/perl
while (<STDIN>) {
chomp ;
($a, $b) = (split / /)[0] ;
print $a ;
}
ってソースで、my name is hoge って打ったらどーして$aがmyになりますか？
split は@_の配列に入った後、その後の正規表現で0個にマッチだから$aに該当するものは無しで、@_がそのまま$aに行って、配列の数が入ると思うのですが。今回だと4個。
誰か知恵を分けて下さい。宜しくお願いします。
0337デフォルトの名無しさん
NGNG普通にマッチするじゃん。
0338336
NGNGレスありがとう。
フィールドに分解された後の話なんだけど、0個にマッチのところでつまづいてます。
field 1(my),field 2(name), field 3(is), field 4(hoge)
ではなくて
field 0(my),field 1(name), field 2(is)....
って事ですか？
たとえば{0,2} って書いてもmy にマッチしてるし範囲指定部分が不明です。
宜しくお願いします。
0339デフォルトの名無しさん
NGNG[0]って、splitでできた配列の0番めってことじゃないの？
0340339
NGNG@x = split / /;
$a = $x[0];
$b = $x[1];
を
($a, $b) = (split / /);
@x = split / /;
$a = $x[0]
を
$a = (split / /)[0];
とか、でしょ？
0341339
NGNGか。あと ; 忘れた。
0342336
NGNG有難う。
鉤括弧[]は理解ですが、中括弧{}の事で悩んでいるのです。
配列に対する中括弧の中の数字の適用範囲なんです。
あ、ちなみこれって、「初めてのperl 第2版 オライリー出版社」の7章正規表現の7.7.3の練習問題で分からないので質問しました。
「/etc/passwd ファイルのログイン名の実名を出しなさい」 って問題。
模範解答では
#!/usr/bin/perl
while (<STDIN>) {
chomp ;
($user, $gcos) = (split /:/)[0,4] ;
($real) = split(/,/, $gcos) ;
print "$user is $real \n";
}
らしいんですけど、{0,4} の所がどうしても分かりにくくって。
0343342
NGNGログイン名の実名 → ログイン名と実名
0344339
NGNGその模範解答の[0,4]は
@x = split /:/;
$user = $x[0]
$gcos = $x[4]
を
($user, $gcos) = (split /:/)[0,4];
って話でしょ。{}はそこに使えるの？
0345342
NGNG本文も鉤括弧だったーーー!
>>337 340
ごめんなさい。 本当にごめんなさい
0346デフォルトの名無しさん
NGNGこれでどう?
use encoding 'shiftjis', Filter=>1;
use utf8;
use encoding 'shiftjis';
print join ' ', split //, 'あいうえお';
0347デフォルトの名無しさん
NGNGなどとなっているところから数字の部分だけを
$iに取りたいのですが、どうやったら良いのかさっぱり。
というわけで教えな兄ちゃん(w
0348デフォルトの名無しさん
NGNG0349347
NGNGこんな感じ？
0350デフォルトの名無しさん
NGNG教えるので漏れのことは兄チャマと呼ぶように。
$a =~ m(\d+);
$i = $&;
で取れた。数字がとびとびに複数回出てくるなら、
while ($a =~ m(\d+)g) {
push(@i, $&);
}
かなぁ。
0352デフォルトの名無しさん
NGNGどうもありがとう。あなたは神。
単に
use encoding 'shiftjis', Filter=>1;
use utf8;
use encoding 'shiftjis';
print "表示";
の部分だけで充分なんだけどね。
いまいち上の３行部分が何を意味してるかわからないから
これから 勉強します。
0353Perl初心者
NGNGAP001048.1:468..16588,AP001049.1:3222..36589,
AP001050.1:20683..98992,AP001051.1:27854..84904,
AP001052.1:17810..145540,AP001053.1:15589..161920,
AP001054.1:26009..120871,AB001523.1:28023..122638,
AB001517.1:8601..43051,AP001055.1:5998..36483,
AP001056.1:9890..36252,AP001057.1:168..3729,AP001058.1:100..39553,
AP001059.1:10880..36230,AP001060.1:9339..42133,
AP001061.1:1343..15847,AP001062.1:6219..36931,
AP001063.1:6606..45311,AP001064.1:4259..37061,
AP001065.1:25196..115798,AP001066.1:13493..39203,
AP001067.1:21334..148845,AJ011930.1:98247..333303,
complement(AJ239325.2:1..70301),AP001505.1:724..70282,
AP001579.1:1240..139270,AL133499.2:90483..128868,
AL163301.2:252851..340000,AL163302.2:1001..340000,
AL163303.2:1001..21522,AL133492.2:1..154157,AL592528.1:6352..37428,
complement(AJ011931.1:24401..98443),AJ239328.2:10925..41625,
AJ011932.1:1241..37818,AP001479.1:1..38936,AP001476.1:2028..32025,
AP001472.1:486..26467,AP001474.1:489..4628,AP001470.1:79..2476,
AP001471.1:550..7855,AP001467.1:616..7456,AP001101.2:1153..32331,
AP001473.1:1643..4299,AP001475.1:44..13697,AP001468.1:170..67332,
AP001469.1:480..47859,AP000471.2:1314..75008,AP001477.1:444..38399,
AP000335.1:102..26919,AP000336.1:903..36277,AP000337.1:25..53553,
AP000338.3:707..82117,AP000339.1:100..77774,AP000340.1:923..35932,
AP001478.1:1009..10338)
//
↑のデータがあるんですが→例：AP003351．1￥t102．．26919￥ｎ
のように取り出してデータを整理したいのですがわかりそうでわからない状態です。
誰か教えてください。
0354デフォルトの名無しさん
NGNG0355Perl初心者
NGNGCONTIG join()の中身だけ取り出して
○○○○：□□.．□□□，
↓
○○○○「タブ」□□.．□□□「改行」
というように出力したいということなんですが
これで分かってもらえたでしょううか？
0356デフォルトの名無しさん
NGNGs/^(.*?):(.*?),$/$1\t$2\n/g
0357デフォルトの名無しさん
NGNGとか
> AP001478.1:1009..10338)
の行はいらんのか?
あとこんな行はどうすんだ。
> complement(AJ011931.1:24401..98443),AJ239328.2:10925..41625,
…ところでCONTIGってなに?
0358Perl初心者
NGNG>357 ファイル内のデータの一部なのでよくわかりません。
0359デフォルトの名無しさん
NGNGおまえが分からんのに他の奴に分かるわけがあるか。
0360デフォルトの名無しさん
NGNGあなたがSE（のたまご）だとしたらあなたを殴らなくてはいけない。
0361デフォルトの名無しさん
NGNGまさかそりゃないでしょう。
0362デフォルトの名無しさん
NGNGああ、意味わかった。まず、データを整形しる。join()を削ってから、中身だけを
s/,/\n/g;
にかけてから、>356の正規表現を適用しる。
ただ、complementの扱いをどうするか言ってくれんと、これ以上進めん。
0363362
NGNG...で〜きた。
while (<>) {
chomp;
@data = m/(A[A-Z]\d+?\.\d):(\d+?\.\.\d+)/g;
while (@data) {
print shift @data, "\t";
print shift @data, "\n";
}
}
0364Perl初心者
NGNGcomplement()も削りたいです。
0365362
NGNGおーい、363でうまくいくでしょ?
テストしてみたよ。
0366Perl初心者
NGNGありがとうございます。
できました。
みなさん、ご迷惑をおかけしました。
0367デフォルトの名無しさん
NGNGデバイスの排他制御をしていますよね。でもPerlでは明示的にファイルのロック
をするようですが、これはなぜですか？
0368デフォルトの名無しさん
NGNG「ファイルロック」で検索したら？
0369367
NGNGつまりopen~closeの間、プロセスがストリームを独占できる訳じゃないって事
ですか。そういえばflockはsystemcallでしたね。どうもです。
0370デフォルトの名無しさん
NGNGまだ独習Perlでしか勉強してません。
0371デフォルトの名無しさん
NGNG定番でラクダ本でいいだろ。
0372デフォルトの名無しさん
NGNG独習Perlをマスターしたんなら、あとはひたすら書いて読むのがいいんじゃないかと
思いますよ。ラクダ本とかは「引く」本だと思う。
漏れはプログラミングPerl、実用Perlプログラミング、Perlクックブックを章ごとに
切り刻んだものを机の引きだしに入れていつも「使って」(読んで、ではない)いる。
0373372
NGNG0374デフォルトの名無しさん
NGNG0375デフォルトの名無しさん
NGNG補足です。
具体的にはハッシュの値(昇順)にハッシュの要素を並べ替える
うまい方法を知りたいです。
0376デフォルトの名無しさん
NGNG0377デフォルトの名無しさん
NGNG標準関数keysで
keys %hash;
とやると、ハッシュのキー一覧のリストが返ってきます。これを同じく標準関数sort
に与えて
sort keys %hash;
とするとソートされたハッシュのキー一覧のリストが返ってきます。
0378375
NGNGハッシュキーそのものではなく、値の方でキーをソートしたかったんです。
質問が不備ですみません。
foreach $val (sort {$b <=> $a} values %hash){
foreach $ky (keys %hash){
if($val == %hash{$ky}){push @hashkey, $ky;}
}
}
とりあえずこんな方法でいいのかな。
0379377
NGNG%reversed_hash = reverse %hash;
で、キーと値を反転できます。ここでsortしてから、また反転して戻すとか。
あと蛇足ながら、ハッシュの値が数値でないなら比較するときはeqですよ。
perldoc -q sortを実行してみちくり。
Found in /usr/local/perl/lib/5.8.0/pod/perlfaq4.pod
(中略)
How do I sort a hash (optionally by value instead of key)?
(中略)
@keys = sort keys %hash; # sorted by key
@keys = sort {
$hash{$a} cmp $hash{$b}
} keys %hash; # and by value
>>379
eqじゃなくてcmpだよ。
0382379
NGNG>foreach $val (sort {$b <=> $a} values %hash){
の部分ではなく、
>if($val == %hash{$ky}){push @hashkey, $ky;}
の部分に対してレスしたまで、とむきになってみるテスト。
>>if($val == %hash{$ky}){push @hashkey, $ky;}
>の部分に対してレスしたまで、とむきになってみるテスト。
をを! わし気づいてなかった。
そしたらperldoc -q valueを見てくらさい。
めんどくさいので全文引用。長くてゴメン。
How do I look up a hash element by value?
Create a reverse hash:
%by_value = reverse %by_key;
$key = $by_value{$value};
That's not particularly efficient. It would be
more space-efficient to use:
while (($key, $value) = each %by_key) {
$by_value{$value} = $key;
}
If your hash could have repeated values, the meth-
ods above will only find one of the associated
keys. This may or may not worry you. If it does
worry you, you can always reverse the hash into a
hash of arrays instead:
while (($key, $value) = each %by_key) {
push @{$key_list_by_value{$value}}, $key;
}
0386デフォルトの名無しさん
NGNGprintf
↑この違いって何？
0387デフォルトの名無しさん
NGNG最後にfがあるかないかの違い。
0388デフォルトの名無しさん
NGNGやっぱり！
漏れもそう思ってたＹＯ！
さっそく、ひろゆき君に教えてあげなくちゃ！
0389デフォルトの名無しさん
NGNGビデオではfが最後っていうことはあまりないようですが、実際には
よくあるのですか？
0390デフォルトの名無しさん
NGNGprintfだとフォーマットを指定することで出力形式を変えられる。
'2ch'を'002ch'と出力したい時とかに使う。
0391デフォルトの名無しさん
NGNG>>379
$hash{'foo'} = 1;
$hash{'bar'} = 1;
な場合反転して戻すと違うﾓﾉにならないかい？
0392379
NGNGはい、値が一意でなければ使えません。しかし「値でソート」と言っているので
値は一意であると仮定しました。
0393デフォルトの名無しさん
NGNG0394379
NGNGご不満ですか? それなら値が一意でない場合はこうします。
while (my($key, $value) = each %hash) {
push(@{$rev_hash{$value}}, $key);
}
反転させたハッシュの値は配列へのリファレンスとして、そこへ元のハッシュの値に
対応するキーを格納していきます。これで、値 => (複数のキー)というハッシュが
作れます。
0395デフォルトの名無しさん
NGNG0396デフォルトの名無しさん
NGNGこれだとうまくいきません。
(%a, %b) = func();
sub func{
my %a = (a, 1);
my %b = (b, 1);
return (%a, %b);
}
0397デフォルトの名無しさん
NGNG0398デフォルトの名無しさん
NGNGハッシュをそのまま返すことはできませんので、リファレンスで返します。
sub function {
my %a = (a => 1);
my %b = (b => 1);
return(\%a, \%b);
}
my ($ref_a, $ref_b) = func();
0399perl初心者１
NGNGというものは、perlスクリプトでできますか？
0400デフォルトの名無しさん
NGNG0402デフォルトの名無しさん
NGNG0404デフォルトの名無しさん
NGNGhttp://www.google.com/search?q=%82%A4%82%F1%82%B1&ie=Shift_JIS&hl=ja&lr=
とかいうURLの"%82%A4%82%F1%82%B1"の部分がURLエンコードされた検索文字だから
こういうURLをリクエストしてGETすればいいだけだとおもうけど
0405デフォルトの名無しさん
NGNGでね、HTTP モジュール見ても LWP モジュール見ても プロクシ噛ませる
場合の処理がよくわからないのです。
ヤフオクから 複数キーワードを組み合わせて いくつかのカテゴリ駆け
回って (自分好みの）出品物一覧を取得する ツール開発中。。。
0406デフォルトの名無しさん
NGNG0407デフォルトの名無しさん
NGNGplは requie 'XXX'でOKですか？
あと、pmってCPANとかいろいろ書いてるけど、
ふつーにはﾀﾞｳｿできないのですか？
0408デフォルトの名無しさん
NGNGポインタ演算できないけど、位置付けは一緒とおもって良いと思うが。
どっちかってーとJavaのそれを思い出したほうが適切だが。
0409デフォルトの名無しさん
NGNGいーんじゃん？
Hoge.pm でも require Hoge; って書くことは多々有るが。
ふつーにCPANからﾀﾞｳｿできます。
0410デフォルトの名無しさん
NGNG→>>389←
↑
0411デフォルトの名無しさん
NGNG0412389
NGNG0413デフォルトの名無しさん
NGNG0414389
NGNG「初めての真珠」。
0415デフォルトの名無しさん
NGNGふとおもったんですが
sub function {
my %a = (a => 1);
my %b = (b => 1);
return(\%a, \%b);
}
my ($ref_a, $ref_b) = func();
%a = %$ref_a;
%b = %$ref_b
って$ref_aと$ref_bを一度しか使いませんよね。
もう少し簡潔にできないのかといってみるテスト
my($ref_a, $ref_b) = func();
print $ref_a->{a};
またはタイプグロブとか。私は使わないけど。
our(%a, %b);
(*a, *b) = func();
print $a{a};
0417デフォルトの名無しさん
NGNGいや、わかるんだが、fってもいろいろあるし…
0418デフォルトの名無しさん
NGNG言ってる意味がよくわからんのだが
LWPモジュールでプロキシに対して処理したいってことか？
それとも、LWPモジュールとかで作ったやつをプロキシサーバとして
動かしたいってことか？
前者なら、プロクシサーバであってもWWWサーバであるときと同じ
と考えていいぞ。ってか気にすんな
後者なら、ブラウザからHTTPが送られてくるからそれを解析
して適切に処理してやればいい
0419デフォルトの名無しさん
NGNGという単純な話ではないのか？
0420418
NGNGなんについて？
プロキシサーバとして扱いたいなら、ブラウザからの要求を
解析する必要がある。
あと、プロキシサーバに対してなんかしたいときに特に
プロキシサーバであることを意識する必要ないんじゃないの？
じゃないとプロキシじゃないし・・・・
#UserAgentのなんかのメソッドにぶち込むだけでいいかも知らんがその方法は
#俺はよく知らんから調べるか、博識の人のレスをまつ
0421419
NGNG>でね、HTTP モジュール見ても LWP モジュール見ても プロクシ噛ませる
>場合の処理がよくわからないのです。
に対するレスね。
0423デフォルトの名無しさん
NGNG>> パールモジュールpmはuse XXXXで
>> plは requie 'XXX'でOKですか？
>>
>> あと、pmってCPANとかいろいろ書いてるけど、
>> ふつーにはﾀﾞｳｿできないのですか？
use Module;の場合、Module.pmというファイルがあると仮定する。つまり自動的に
拡張子を補う。requireはそういうことはしないので、拡張子をつけないといけない。
また、useの場合コンパイル時に処理を行うので、重いスクリプトを何度もテストする
場合はこの方がいい。というか今は特殊な事情がない限り、useを使うのがいい。
この端末では半角カナが読めないので後半には答えられない。
0424デフォルトの名無しさん
NGNGPerlからcshのプロンプトを変更したいのですが上手くいきません。
どのように記述すればよいのでしょう？
「試したこと」
system("set prompt=abcd");
とか、
system("source プロンプトを変更するシェルスクリプト名");
など。
0425デフォルトの名無しさん
NGNG嘘はいけません。
0426デフォルトの名無しさん
NGNG0427デフォルトの名無しさん
NGNG子プロセスから親プロセスの環境を直接いじることは不可能。
eval `perl -e 'print "set prompt=abcd"'`
とでも*cshから*やる以外にはない。
0428デフォルトの名無しさん
NGNGそうだったんですか、、、
残念だけど仕方ありませんね。
どうも有難うございました。
0429デフォルトの名無しさん
NGNGおながいします。
・削除理由によってスレッドをまとめる
・同じスレッドのレスは、一つのスレッドにまとめる
・重複依頼は一つにまとめる
こんな感じ
0430デフォルトの名無しさん
NGNGhttp://pc.2ch.net/test/read.cgi/php/1028943269/
にでも逝きな。
0431423
NGNGことを確認しますた。requireときたらライブラリの拡張子はplだったんで勘違いして
ますた。マジすいません。
0432デフォルトの名無しさん
NGNGカウントするＣＧＩってどっかにありますか？
0433デフォルトの名無しさん
NGNG0434デフォルトの名無しさん
NGNG中身がある既存のファイルを、何にも書いていない空ファイルにしたいのです。
seek関数を使ってポインタを最初に戻してからcloseしてもそのままでした。
0437棄教者 ◆witdLTi2
NGNGanalog というツールがあるので、それを探しましょう。
http://www.analog.cx/
UNIX用のツールですがWinにも移植されています。
アクセスログを提供してくれないプロバイダだとちょっと難しいかもしれない。
あとは、ファイルへの直接リンクを禁止して、
一度 *.cgi なページを踏ませることにしたらどうですか。で、
*cgi なページではページを踏んだ回数をカウントする、と。
0438デフォルトの名無しさん
NGNG数の要素を持つ任意の数の配列(@array[1], @array[2], ...) が
あったとして、全ての配列要素の順列組合せを出力する場合、
何か良い手はあるでしょうか? ちなみに要素の数は配列毎にばらばらです。
WEB 上でいろいろ探してみたのですが、perl 上での多次元配列の
順列組合せについて書かれているページを見付ける事はついに
出来ませんでした... 鬱氏
0439438
NGNG分からないまま質問したなぁ、と反省しています。多分、質問の
意図も理解されないような気がしますので、具体例でしたい事を
書いてみます。
たとえば、
@array[1] = 0.5, 1.0, 1.5, 2.0
@array[2] = 1, 2, 3
として、
(0.5, 1), (0.5, 2), ..., (2.0, 3)
という出力が欲しいんです。配列は a, b だけでなく不特定で、
各配列の中身もてんでんばらばらです。
perl の入門書とかを読みながら考えているのですが、配列だの
リストだのがだんだんごっちゃになって来てしまっています。
誰かここ読めゴルァで構わないので教えて下さい。
0440jpahたんらヴ ◆KsLROhUY
NGNG配列は@test=(4,5,6,) こう
とりだすのは print $test[0]
とかそういうのは分ってるんだね？
0441438
NGNGなんとか。
ところで、
@test=(4,5,6)
を
@test[1]=[4,5,6]
と書いても間違いではないでしょうか? 配列自体の数も不特定なので、
配列自体をある配列の要素として扱いたいのですが。< なんか自分で言ってて良く分からない...
とりあえず「プログラミングPerl」を買って読んだ方がいいね。
で、>>339はその通りにやろうとすると激しく面倒だから多次元配列の簡単な説明だけね。
my @foo = (1, 2, 3); # 通常の配列
my @bar = (\@foo); # barは要素を一つ持つ配列。その唯一の要素は配列への参照(リファレンス)
push @bar, [4, 5, 6]; # barの要素は二つになった。 [ expr, ...] は配列へのリファレンスのリテラル表現
print $bar[0][0]; # barのindex 0をデリファレンス。 1が表示される。
print $bar[1][2]; # 同様に、6が表示される。
$bar[0][0] = 0; # 代入も同様
少しは分かってもらえたかな？
まぁこのあたりはPerlでもCでも凄く難しいところだよね。
0443デフォルトの名無しさん
NGNGそういう風にやるのね…。
リファレンスって便利だね。
0444jpahたん死ね ◆KsLROhUY
NGNG／￣￣＿＿＿＿＿＿＿＿＿＿ ) ） ） `＼
（ ,/' ! i ｌ ｌ ｌ ｌ | | | | ｌ ｌ ｌ ｌ ｌ !i`~ーー､､ ＼
ヽ＿ （〆――――-〜//⌒~ヽヽミｼヽ､`ヽλ＿＿ｌ
､ ~ λλ___､丶ヽ/'~ヽ､。~ﾊｗｗヾ 〉〉
`､ー―――――-丶// /⌒~⌒ヽ､ヽ､ `ーヽく〃 ,//
￣￣￣￣￣￣~`（ | λ＼ヽ冫ﾉ,冫~ 《丿/
､ ､＿＿＿＿＿__| | ＼__丶´/ｌノ冫 ｌ /
` ー――ヽニ_ーｌ＼＿､＼＼＼冫 ／,〆
`ヽｌ＼___￣ ＼ヽ＼ ／ノ／
､`――――――ヽ＼__￣￣､, ＼ヽ＼ ,／イ／
￣￣`――､＿ー､!＼_￣￣ノ ＼ヽ∨'〃／
￣＼ 〉 ノ 〉 ヽο冫
,〉// ノ,| ~~
(/,/ '/'ｌ
ったく馬鹿がつられやがって、この板で決着つけようか？
0445foobar
NGNG@array1=(0.5, 1.0, 1.5, 2.0);
@array2=(1, 2, 3);
for $i (@array1) {
for $j (@array2) {
print "($i, $j), ";
}
}
0446デフォルトの名無しさん
NGNG[0.5, 1.0, 1.5, 2.0],
[1, 2, 3],
);
foreach my $foo (@array) {
foreach my $bar (@$foo) {
print "($foo,$bar), ";
}
}
日本語キーボード超ウゼー
0447デフォルトの名無しさん
NGNGあ、適当に書いたけど、これじゃ全然ダメだな…
$fooに入ってるのはリストへのリファレンスだ
俺のアホ
0448デフォルトの名無しさん
NGNG[0.5, 1.0, 1.5, 2.0],
[1, 2, 3],
# これ以上増えたら、下のコードじゃ対応できない。ヘボいね。
);
for (my $a=0 ; $a<@{$array[0]} ; $a++) {
for (my $b=0 ; $b<@{$array[1]} ; $b++) {
print "($array[0]->[$a],$array[1]->[$b]), ";
}
}
これでいいか…
日本語キーボード超ウゼー
0449438
NGNGむむむ、では、
@test[0]=[1,2,3]
@test[1]=[4,5,6]
ではなく
@test=([1,2,3],[4,5,6])
が正解なんですね。で、さらに配列を追加するには push を使う、と。
@var=(7,8,9,10)
push @test,(\@var)
なーるほど。なんかすごく納得できました。どうもありがとう!!
あとはこれを全部なめるやり方を考えるだけかな。
と言ってもそれが一番面倒そうだけど。
>>448 さんも書いているけど、不特定の配列要素を全部なめるとなると
普通に for を使うだけではダメですよね。
0450448
NGNGmy ($matrix, $left, $stratum) = @_;
foreach my $oe (@{$matrix->[$stratum]}) {
my @tube = (@$left, $oe);
if ($stratum+1 >= @$matrix) {
print (join(',', @tube), "\n");
} else {
recursive ($matrix, \@tube, $stratum+1);
}
}
}
my @matrix = (
[1, 2, 3],
['a', 'b', 'c'],
['X', 'Y', 'Z'],
);
recursive (\@matrix, [], 0);
これでmatrixが二次元配列である限り大丈夫かな
0451デフォルトの名無しさん
NGNGhttp://pc.2ch.net/tech/kako/1017/10177/1017736187.html
この過去ログと、このスレってどういう関係にあるの?
もう、なくなったのかと思ってたこのスレ。
0452デフォルトの名無しさん
NGNGpc鯖からpc3鯖に移転したんだよ。
0453デフォルトの名無しさん
NGNG@test = ($ref1, -> [1,2,3]
$ref2) -> [4,5,6] (概念図、コードとしては不正)
で、配列の要素は配列じゃなくて、それを指すリファレンス(スカラーの一種)です。
それから、配列の要素を指定する場合は接頭記号が$になります。
@test[1] じゃなくて $test[1] です。
>>さらに配列を追加するには push を使う、と。
>>@var=(7,8,9,10)
>>push @test,(\@var)
の場合、配列を追加してるわけじゃなくて、リファレンスを追加しているのです。
分かってたらおせっかいスマソ。
0454438
NGNGおお、すごい!!
そっか、再帰的に関数を呼び出すと言う手が使えるんですね!!
うーん、しかし、すぐにはわけわからんですな。少し考えてみます。
0455デフォルトの名無しさん
NGNG遅レスだが
foreach $key (sort {$hash{$b} <=> $hash{$a}} keys %hash){
// some operations
}
でどうか
0457デフォルトの名無しさん
NGNG0458デフォルトの名無しさん
NGNG失敬失敬。問題だけ見て他の人の解答を見てなかったよ。
0459デフォルトの名無しさん
NGNG$ua->timeout('30');としても30秒で終わらない（へたすると何分もかかる）状態
になります。
たぶん、$ua->timeout()はHTTPでリクエストを送信するときにヘッダに
timeoutを指定して送るだけだからなんじゃないかと思うんですが、
30秒したら、強制的にコネクションを切断して次のプロクシのテストを
したいときにはどうすればよいでしょうか？
callbackというのを使えばいいのかとも思ったのですが、これだと
何バイトか返ってくるたびにサブルーチンを呼び出すということなので、
ぜんぜん返事が返ってこない場合は意味のないような気もします。
どなたかヒントだけでもお教えくださいませ。よろしくお願いします。
0460デフォルトの名無しさん
NGNGうまくいったらフラグをたてとくようにして一定時間後にそれを見ると。
0461デフォルトの名無しさん
NGNGmy $res;
eval {
local $SIG{ALRM} = sub { die "timeout" };
alarm $TIMEOUT;
# Pass request to the user agent and get a response back
$res = $ua->request($req);
alarm 0;
};
if ($@ =~ /timeout/) {
print STDERR "time out\n" if $DEBUG;
return;
};
こんな感じで書いて見ました。
ただ、これでもたまに1分ほど固まるときがあるんですよね。。
はじめてalarmを使ったので使い方を間違えてるのかな？
もうちょっといろいろ試してみます。どうもありがとうございました。
0462デフォルトの名無しさん
NGNGGETなら簡単ですけど、それはなしで。
print "Location: hoge.cgi\n\n";
こういうのつかうのかな？
0463デフォルトの名無しさん
NGNGとかやってみたけどダメだ〜。
それとも不可能でしょうか？
0464デフォルトの名無しさん
NGNGちゃんとCGIの勉強したほうがいいかと。
Locationヘッダは関係ないよ。
POSTは標準出力から読み込むんだから。
0465棄教者 ◆witdLTi2
NGNG糞スレを立てた奴の名前を入れて下さい<INPUT TYPE="text" NAME="kusosure">
<INPUT TYPE="submit">
</FORM>
0466デフォルトの名無しさん
NGNG>>465
いや、CGIから呼び出したいんですが。
0467デフォルトの名無しさん
NGNG参考になるサイトありませんか？
0468棄教者 ◆witdLTi2
NGNG0469デフォルトの名無しさん
NGNGです。
0470棄教者 ◆witdLTi2
NGNGprint <<"__EOM__";
Content-type:text/html
<HTML><BODY>
<FORM ACTION="./bar.cgi" METHOD="post">
糞スレを立てた奴の名前を入れて下さい<INPUT TYPE="text" NAME="kusosure">
<INPUT TYPE="submit">
</FORM></BODY></HTML>
__EOM__
これで bar.cgi を POST メソッドで呼べるＹＯ！
0471棄教者 ◆witdLTi2
NGNG○これで foo.cgi から bar.cgi を POST メソッドで呼べるＹＯ！
0472デフォルトの名無しさん
NGNG<script language="JavaScript">
document.form[hoge].submit
</script>
的なJavaScriptを差してやれば目的のことができるのでは?
0473デフォルトの名無しさん
NGNG<HTML><BODY>
<FORM name="form1" ACTION="./hoge.cgi" METHOD="post">
<INPUT TYPE="text" NAME="txt">
<INPUT TYPE="submit" name="btn">
<script language="JavaScript">
document.FORM[form1].submit[btn]
</script>
</FORM></BODY></HTML>
あわせるとこんな感じだが・・
動いてくれない。
Javaはさっぱりでして。
というかこういう方法しかないんでしょうか？
0474デフォルトの名無しさん
NGNG環境変数に適当なものを与えれば、コマンドプロンプトで実行できるのと同じで。
0475デフォルトの名無しさん
NGNGパイプ付きでopen・・・
すみません、全然分かりませんです。
0476デフォルトの名無しさん
NGNGopen(CGI, "|post.cgi");
print CGI "hoge=hage";
みたいなことでは？
POSTはcgiに標準入力を食わせることになるから、
そのcgiプログラムを元のperlのcgiから直接実行してやる、と。
0477デフォルトの名無しさん
NGNGっていうかPOSTってCGIのことだったのか・・・
でもActivePerlのファイルをみるとpost.cgiってファイルは無いようです。
CGIの呼び出しはどこにいれるのやら
print "Location: hoge.cgi\n\n";
open(CGI, "post");
print CGI "mode=form";
こういうことではないですよね？
0478デフォルトの名無しさん
NGNGそれだと同一サーバ上のプログラムを呼んでるだけ。
CGI プログラムを POST で呼ぶには、Web サーバの port 80
とかに Socket 繋いで HTTP でお喋りしなきゃダメ。
もし環境に恵まれているなら、LWP 使うのが楽。
475 はペリカン本 (O'REILLY 「Web クライアントプログラミング」)
読むべし。細かい部分は RFC 2616 参照。
0479いらすま
NGNGいらすまですう
せいきひょうげんというのわぁ
おちんちんとかぁ
おまんことかぁ
/$.*^/とかぁ
0480デフォルトの名無しさん
NGNG難しそうですねぇ・・
っていうか、
ログイン→データ一覧表示→データ削除→
”削除しました”画面表示→元のデータ一覧表示に戻る
ってやるとページの有効期限切れってなっちゃうじゃないですか。
それをどうにかしたいってことだったのですが。
0481デフォルトの名無しさん
NGNG元質の>>462の発言が、どれかわからない。あげてるやつか？
0482478
NGNGPerl の話じゃないから板違いだが…。
有効期限切れ? JavaScript で back してない?
1. ログインページから login.cgi を呼ぶ
2. login.cgi でログイン処理後、処理終了ページを出力
3. 処理終了ページから list.cgi を呼ぶ
4. 出力されたデータ一覧ページから delete.cgi を呼ぶ
5. delete.cgi でデータ削除後、処理終了ページを出力
6. 処理終了ページから list.cgi を呼ぶ
7. 出力されたデータ一覧ページから…
2. や 5. で処理終了ページを一々出したくなかったら、
login.cgi や delete.cgi に list.cgi と同じ機能を持たせれば OK。
データ持ち回りたかったら Cookie なり隠しフォームなり。
0483デフォルトの名無しさん
NGNG当方文系でプログラム全然わかんない人ですが、恥を忍んでうかがいます。
ネットで公開されているスクリプトを使いたくて
ActivePerlをインストールしたんですが、
スクリプトの実行方法がよくわかりません。
プログラミングをしない単なる利用者として
perlの仕組みを勉強したインですが、
おすすめの本・サイトがあったら
教えてもらえませんでしょうか…（一応ｸﾞｰｸﾞﾙで検索したんですが）
0484デフォルトの名無しさん
NGNGそれがわかると説明しやすいんじゃないかな。
0485482
NGNGさっそくのレス、恐れ入ります。
スクリプトの内容は、
辞書データを間引くスクリプトです。
perlはＤドライブにインストールしてあるんですが、
スクリプトをＤＬ・解凍した後どこに持っていけばいいのかとか
スクリプトを実行する書式とか
わかんないことだらけで･…
0486デフォルトの名無しさん
NGNGまず perl そのものが実行できるかどうか
これはコマンドプロンプトから perl -v と入力して反応があるかどうかを調べる。
バージョン番号などの反応があれば、次へ、無ければパスの設定をする。
次にそのスクリプトを実行する。
付属ドキュメントにインストール方法が書いてなければ、
これは適当なディレクトリに *.pl ファイルを放り込み、
perl スクリプト名 を入力すれば実行できる。
モジュールを別にインストールする必要があるばあいは、
付属ドキュメントによく目を通すこと。
0487462
NGNGそれだとログインしたっていうじょうほうをクッキーに書き出すってことでしょうか？
ちなみにテストとして自サーバーというか、自分のパソコン上でやってますが
実際はPlalaサーバーで動かします。
>>483
多分CGIうごかしたいんじゃない？
http://www.st.rim.or.jp/~nakata/
のhttpdとかいれるとよいのでは？
0488デフォルトの名無しさん
NGNG文字化け対策がうまく行きません。
（文字化けする絵文字としない絵文字がある。）
処理をうまくしてる人はどうやってやってます？
0489482
NGNGCookie でログイン済フラグを持たせるのも一つのやり方だね。
何にしても、
・具体的にどんなシステムを作りたいのか
・どの程度厳密に制限しなくてはいけないのか
・誰が利用して誰が保守するのか
が分からないと、これ以上アドバイスしようが無い。
>>488
化ける文字と化けない文字、それぞれの共通点を調べてみたら?
http://www.google.co.jp/search?q=imode+%E7%B5%B5%E6%96%87%E5%AD%97+%E6%96%87%E5%AD%97%E5%8C%96%E3%81%91&ie=UTF-8&oe=UTF-8&hl=ja&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=lang_ja
462 も 488 も、WebProg 板辺りに質問をまとめ直して投げた方が
答えてくれる人多いと思うよ。ここは「Perl」のスレで「CGI」のスレじゃ
ないからね。
0490485
NGNGアドバイス、ありがとうございます。
ご指導の第一ステップはクリアできているみたいです。
もうチョット調べれば、なんとかなりそうです。
助かりました。
0491デフォルトの名無しさん
NGNGプロセスの終了を親プロセスで知ったり、あるいは出力をうけとったり
できないでしょうか．
0492491
NGNG親プロセスも子プロセスもパールスクリプトで
systemは子プロセスの終了待ちをしますから、
まずいです。
Win32::Processモジュールを使って、子プロセスを
作っているんですが、、、、
0493488
NGNG参考になりました。
ありがとうございます。
0494デフォルトの名無しさん
NGNG大抵のブラウザで読めるようにするために、最低限必要なファイルはなんでしょうか？
今作ったのが、read.cgi、index2.html、subback.html、read[1-9].datです。
datファイルの名前が良く分からなかったので、read1.dat〜read9.datまでとりあえず作りました。
0ch参考にしてみ。ソース公開してるんで。
0496デフォルトの名無しさん
NGNGLinuxサーバーなどでは、スクリプト中で外部のサブルーチンなどを呼ぶ場合は
require './sub.txt'; などと記述しますよね。
これをやりたいのですが、Macだとディレクトリを:で表すせいなのか
require './sub.txt'; や require '.:sub.txt'; ではエラーになってしまいます。
エラー内容は
# sub.txt did not return a true value.
File 'Macintosh HD:Desktop Folder:test:index.cgi'; Line 3
です。
どのように記述すればいいのでしょうか？
0497初心者
NGNGあと、エディターは何がいいですか？
0498デフォルトの名無しさん
NGNGUnix系OSを入手、Perlが標準で入っている。
そうなるとエディタはEmacsかvi、好きな方使え。
0499初心者
NGNGhttp://pc.2ch.net/test/read.cgi/php/1028816385/
0500デフォルトの名無しさん
NGNGナイスボケ。
0501デフォルトの名無しさん
NGNG> エラー内容は
> # sub.txt did not return a true value.
> File 'Macintosh HD:Desktop Folder:test:index.cgi'; Line 3
なんでしょ。
「sub.txt did not return a true value」だって。
ラクダ本の641ページ見てごらんよ。持ってないなら本屋で。
あと、この板の上のほうに「CGI は Web プログラミング板へ。」って書いてありますけど。
0502デフォルトの名無しさん
NGNG!=499だけども
らくだ本はやっぱり基本だし買っといたほうがいいかなぁ。
技術評論者のCGI/Perlしかないし。
CGI以外にも結構便利なんだが。
0503デフォルトの名無しさん
NGNG＞sub.txt did not return a true value
の意味がその本読んでもわからないようだったら、
らくだ本買ったほうがいいね。
ただし、今らくだ本は新版の翻訳中。
0504デフォルトの名無しさん
NGNG判断したいんだけど...
検索してもなかなか見つからないので
誰か知ってる人、知恵を貸してください。
0505デフォルトの名無しさん
NGNGman ascii
0506デフォルトの名無しさん
NGNG0507デフォルトの名無しさん
NGNG不合格
0508デフォルトの名無しさん
NGNG0509名無し
NGNGperlからservletを呼び出せるのでしょうか？
例えば、「http://*****/*****/servlet」を呼びだしたい場合
$ret = "http://*****/*****/servlet"
と記述したら、「$ret」にservletの戻り値が入るのでしょうか？
0510デフォルトの名無しさん
NGNG0511デフォルトの名無しさん
NGNG$ret=get('http://*****/*****/servlet');
これで。$retにservletの戻り値が（アワワ
0512名無し
NGNG早速のスレ有難うございます。
現在テスト環境がないので、明日試してみたいと思います。
有難うございました。
0513５０４
NGNG出来ました！ありがとうございました！
man ascii も勉強になったよ〜
0514デフォルトの名無しさん
NGNGopen OUT,">>datfile.dat";
print OUT "aaaaaa\n";
close OUT;
これで実行すると、datfile.datの中に元々あった文章の下の行にaaaaaa\nが入りますよね。
これを1番上の行に挿入したいのですがどうすればいいでしょうか？
0515デフォルトの名無しさん
NGNGファイルの途中に挿入するのは原理的に無理じゃない？
0516514
NGNGもう一つ質問なのですが、
open IN,"datfile.dat";
while(<IN>){
（省略）
でファイルを読み込んだ時、datfileの上の行から読み込みますよね。
それを下の行から読み込むことは出来ますか？
0517デフォルトの名無しさん
NGNGseek とか使えば出来ないことはないと思うけどちょっとしんどいかな......
datfile がそんなに大きくないなら
open FH, "datfile.dat";
@file = <FH>;
for ( $i = $#file; $i >= 0; $i-- ) {
print $file[$i];
}
0518
NGNG0519デフォルトの名無しさん
NGNGopen TMP, ">datfile.tmp" or die;
open DAT, "<datfile.dat" or die;
print TMP "aaaaaa\n";
print TMP <DAT>;
close TMP;
close DAT;
rename "datfile.tmp" => "datfile.dat" or die;
一番上に追加できりゃ、>>516 の処理はしなくていいと
読んだんだけど。これでいい?
0520newbie
NGNG2345678,猫,333,2
というCSVファイルを食わせて、最後の数字の行だけ
前から三つまでのフィールドを書き出したいのですが、
どうやったらよいのでしょうか
ちなみにMacPerlのドロップレットにしようと思ってます
0521棄教者 ◆witdLTi2
NGNG0522デフォルトの名無しさん
NGNGおまえら半端言語のくせに生意気だ。
0523デフォルトの名無しさん
NGNGもしくは初心者用ページを。
0524名無しさん＠Ｍｅａｄｏｗ
NGNG多分ActivePerlを入れたんでしょ。なら、documentが付いてるYO
英語じゃいやなら、http://www.harukaze.net/~mishima/perl/
あたりから辿れば、関数一覧なんかいろいろなところにあるよ。
0525デフォルトの名無しさん
NGNGしかしサーバーのOSがFreeBSDだったため、cryptの処理がLinuxと違い、困っています。
なにかうまく同じ処理結果を出す方法はないでしょうか？
0526デフォルトの名無しさん
NGNGLinuxのソースからcryptだけとってくるか、
FreeBSDのLinuxエミュレータ使えばいいんじゃねーの？
0527デフォルトの名無しさん
NGNGcryptってみんな同じ結果でるんじゃなかったっけ？
ためしにこれコンパイルしてみてよ。
http://davesource.com/Projects/DEStiny/x.c.html
・・つーかスレ違いだな
0528デフォルトの名無しさん
NGNG外部コマンドに標準入力から入れ，結果をまた
別の変数に格納したいのですが，良い方法ないでしょうか．
$result = `echo '$a' | foo`;
としたのですが，$aに「'」が入っていたりすると，まずいようです．
何か良い方法があれば，教えてください．
0529デフォルトの名無しさん
NGNG0530デフォルトの名無しさん
NGNGごめん。そだね。
>>525
cpanにcryptモジュールがいくつかあるからそっちでやってみて。
ちなみに、linuxでもDebianはDES、MandrakeはMD5みたい。
0531デフォルトの名無しさん
NGNGどうして $a を ' で括る必要があるの？
0532デフォルトの名無しさん
NGNG$aはHTML文書で，spaceやら"&"などを含んでいるのです．．．
何かいい方法は無いでしょうか？
0533デフォルトの名無しさん
NGNG^"^？？" かな？
0534デフォルトの名無しさん
NGNG" で括るようにしてもダメ？
それか、\Q$a\E とか......
0535デフォルトの名無しさん
NGNG\Q$a\Eでいけました．
ありがとうございました．
0536デフォルトの名無しさん
NGNGprint<<"HERE";
Content-type: text/html
<html><body>
■□■□■ index ■□■□■
</body></html>
HERE
exit;
こういうスクリプトを書いてサーバーに送った所、サーバーエラーになりました。
その後、■□■□■ index ■□■□■の部分の「 index 」の
全角スペースを取った所、正常に動くようになりました。■□■□■index■□■□■
これはPerlの仕様でしょうか？それとも、サーバー側の問題でしょうか？
0537デフォルトの名無しさん
NGNGもう解決したのかな、、
これとかはだめ？
http://www.mikeneko.ne.jp/~lab/perl/des/
0539デフォルトの名無しさん
NGNGPerlの仕様だね。全角の空白以外の文字でも運が悪ければエラーになると思うよ。
Perl5.8.0だと面倒なことしないでスクリプト中にUnicodeとかで日本語書いて
ラクーにシフトJISに直して出力できたりするんだろうか?
0540デフォルトの名無しさん
NGNGなんとか解析したいんですけど・・・
やはり無理ですか？
0541デフォルトの名無しさん
NGNG不可能ではないが、難しい
0542デフォルトの名無しさん
NGNG0543デフォルトの名無しさん
NGNG賞金かけてみれば？
0544デフォルトの名無しさん
NGNG賞金出すほど大変?
Perlで適当にやっても一ヶ月ぐらいで何とかなったり
する程度の分量だったりしないのかな。
0545デフォルトの名無しさん
NGNG0546デフォルトの名無しさん
NGNGSep 9 14:06:24 hogeという感じで表示されるので
if (/^(\w+ \d+ \d+:\d+:\d+ )
という感じに拾っています。
しかし10日から31日の間は
Sep 10とログが出るようです。
if (/^(\w+ \d+ \d+:\d+:\d+ )これでしか拾えません
差がSepと日にちの間が1日から9日の間は半角スペース二つ
10日から31日の間は一つになってしまいます。
どのように書けば両方とも拾えるようになりますでしょうか？
教えてください。
0547デフォルトの名無しさん
NGNG0548棄教者 ◆witdLTi2
NGNG0550foobar
NGNG移行作業にかかりっきりです
0551546
NGNG{1,2}と\s+どちらでもいけました。
でもスペースが一つか二つと限定されてるので一応{1,2}でやってみました。
ありがとうございました。
0552デフォルトの名無しさん
NGNGGentooだとデフォルトで5.8だよ
0553デフォルトの名無しさん
NGNGシステム総入れ替えはいくらなんでもしんどいよ。
>>550
xs関係以外でなにか問題出てる？
unicodeをフルに使いたい用途があるんで移行したい気持ちはあるんだけど、
なぜか周りに移行するって人が全然いないんで、ちょっとびびってた。
移行が一段落したらどんな感じがレスしてくらはい。
0554デフォルトの名無しさん
NGNGさもないと荒らすからな
0556デフォルトの名無しさん
NGNGWebやるときもテキストファイル、データベースもPerl使ってますが何か?
0557デフォルトの名無しさん
NGNGPerlのことよく知らないんだろうなこいつは。。
0558デフォルトの名無しさん
NGNG0559デフォルトの名無しさん
NGNG0560デフォルトの名無しさん
NGNGそういう発言は他所でやってくれ
0561デフォルトの名無しさん
NGNGパチパチパチ\(^_^)／
0562デフォルトの名無しさん
NGNGif(/hoge/) {
インデックス+= 3;
}
}
とかする事はできないのでしょうか？
つまり
for ($i = 0; $i< @tmp; $i++ ) {
$_ = $tmp[$i];
if(/hoge/) {
$i += 3;
}
}
の様な事がforeachで記述できないでしょうか？
0563デフォルトの名無しさん
NGNG0564デフォルトの名無しさん
NGNGPerlはWebProgへ
0565デフォルトの名無しさん
NGNGCGIってどういう意味か知ってます？
CGI=Perlって脳内変換されてるなら病院逝ったほうがいいですよ。
0566デフォルトの名無しさん
NGNGRubyとは違うんだよ。Perl糞厨房ども
0567円楽
NGNG0568デフォルトの名無しさん
NGNG標準入出力、ファイル入出力、文字列操作等使いやすいし、
UNIX系のマシンには高い確率でインストールされてるし、
ちょっとした処理にはとても使いやすいよPerl。
（だからCGIに向くのかも、、）
0569デフォルトの名無しさん
NGNG0570デフォルトの名無しさん
NGNGどうも賑わっているPerlスレが気に入らなくて仕方ないようだ。
目障りだから、そのうち書込み禁止にしてもらった方がいいだ
ろうけど・・・
0571デフォルトの名無しさん
NGNG0572デフォルトの名無しさん
NGNGWebProgにでも逝って反省の念を示したらどうだ？糞虫ども
0573デフォルトの名無しさん
NGNGRubyスレ行ってみて書き込みの品の悪さに読む気もしなかった。
0574デフォルトの名無しさん
NGNGJava == あたらし物好き
Perl == 化石
C == 堅実
.NET関係 == 寄らば大樹の陰
LISP == 屁理屈こねるメガネ
Pascal == 杓子定規
SQL == 5時から男
さてRubyは・・・?
0575デフォルトの名無しさん
NGNG0576デフォルトの名無しさん
NGNG0577デフォルトの名無しさん
NGNGJava == 流行に流されやすく主体性が無い。
C == 井の中の蛙の危険性アリ。
.NET == 盲目的な期待を抱きがち。
Ruby == Perlの真似しかできない。
もち、仕事で使わざるをえないケースは別。
Javaまわりは「押さえとかなっ」といった強迫観念が
うまくループしているが、それがいつまで続くかは謎。
0578デフォルトの名無しさん
NGNGお前の責任だよ。
0579デフォルトの名無しさん
NGNG0580デフォルトの名無しさん
NGNG($id, $data1, $data2) = split /\t/;
%data = ($id => { data1 => $data1, data2 => $data2});
}
として、$data{0}{data1}みたいにアクセスしたいのですが、
%dataに最後に読み込んだ物しか保存されてないようです。
0 256 256
1 128 128
とあったとき、0を読み込んだ直後だと$data{0}で中身が取り出せるのですが、
1を読み込むと0が消えてしまいます。
なにかおかしい（勿論私が）と思うのですが、なにがまずいのか教えて下さい。
ちなみに、@data[$id]とした場合は動いています。
0581デフォルトの名無しさん
NGNG0582デフォルトの名無しさん
NGNG$data{$id} = { data1 => $data1, data2 => $data2};
とするとうまくいきますた。
0583デフォルトの名無しさん
NGNG0584デフォルトの名無しさん
NGNG即レス感謝です、ありがとうございました。
0585584
NGNGちょっと納得いくような行かないような。
0586デフォルトの名無しさん
NGNGあんたのコードでちゃんと動きましたが、何か?
@tmp = ('hoge', 'moge', 'boke', 'giko', 'mona', 'hoge');
$counter=0;
foreach (@tmp) {
if(/hoge/) {
$counter += 3;
}
print "$counter", "\n";
}
print "result $counter", "\n";
結果は6。
0587582
NGNG%data = ですと、「ハッシュ全体」みたいな意味になります。
@data[$id] ですと、「配列の要素」って意味です。
(しかしこの書き方だとワーニングが出るはずです。正しくは$data[$id])
$data[$id]にあたるのが、$data{$id}ということです。
確認してませんけど、@data = ($id, $data1, $data2);
なんて書くとやっぱり毎回消えるはずです。
0588584
NGNG>しかしこの書き方だとワーニングが出るはずです
ワーニング出ませんでした、スカラーコンテキストだから$が正しいんですね。
全然気にしてませんでした。
ちなみに、ActivePerl v5.6.0 Build616使ってます。
古いかも知れませんが。
0589デフォルトの名無しさん
NGNG-wオプションをつけてみては？
> perl -wc hoge.pl
みたいな感じで。
0590デフォルトの名無しさん
NGNGeucに戻すには：
$keyw =~ s/%(..)/pack('c', hex($1))/ge;
と１行で済みますが、
base64形式でエンコードされたshift-jis文字列$key
を簡単にもとのshift-jis文字に戻すperlコードを教え
ていただけないでしょうか？（Jcode.pmでやろうと
しましたが、うまく行きません...）
0591デフォルトの名無しさん
NGNG0592デフォルトの名無しさん
NGNG単に 2ch 上で、嫌われるように仕向けている奴がいるだけで。
>>583 はその張本人か、そうでなければ嘘を嘘と見抜けなくて 2ch に向いていない
かどっちか。
0593デフォルトの名無しさん
NGNG>>単に 2ch 上で、嫌われるように仕向けている奴がいる
なんでこういうのがいっぱいいるのかなと。他の言語よりはるかに目立つ。
0594デフォルトの名無しさん
NGNG・嫌っているヤシが必死
くらいしかありえないんじゃないの
0595デフォルトの名無しさん
NGNGこっちのほうがありそう。
ほかに常駐してるスレでたったひとりのためにひどい雰囲気になったことがあって、強制IDに変更されたとたんにまともに戻ったりしたよ。
0596てすた
NGNG／∵∴∵∴＼
/∵∴∵∴∵∴＼
/∵∴∴,（･）（･）∴|
|∵∵／ ○ ＼|
|∵ / 三 | 三 | ／￣￣￣￣
|∵ | ＿_|＿_ | ＜ うるせー馬鹿！
＼| ＼＿/ ／ ＼＿＿＿＿
＼＿＿＿_／
0597デフォルトの名無しさん
NGNG> 単にtosjis関数かませばいけたはずだけど
tosjis関数の前に、base64をデコードする必要とあるはず
ですが、この方法が分かりません。
perldoc Jcodeの説明を参考にして、次のようなコードを
作りました
#$sjkeyは、base64に変換されたshift-jis文字列
$jcode = Jcode->new($sjkey);
$jcode->mime_decode;
$euc = $jcode->euc;
これで、$eucには、eucに変換された文字列が入るはず
なのですが、実際には次のようなbase64のままの文字
しか$eucには入りません。
%uFF95%uFFFA%uFF91%uFF97
base64をデコードして、それをeucに変換する、のは
cgiの基本の基本のはずなのですが、分かりやすい書籍
などでも、分かりやすく説明したものが見つかりません。
ご指導いただけると、助かります。
0598デフォルトの名無しさん
NGNGって書いてあるのにしつこくしつこく
CGIの話をし続けるのはどうしたわけだろうか。
ていうか、シフトJISなのか? それ。
0599デフォルトの名無しさん
NGNGご指導ありがとうございます。
(1) %uFF95%uFFFA%uFF91%uFF97
>ていうか、(1)はシフトJISなのか?
上のコードは「放送」という文字に対応しています。
MacOSX用Internet Explorer5.2で「放送」をperl/cgiで
処理する過程で出てきたものです。シフトJISではないかも
しれませんが、とにかく(1)をeucに戻したいのです。
MacOSX用Netscape7.0だと素直なbase64/eucでは、
「放送」は、
%CA%FC%C1%F7
でした。
%xxx%xxx...ってのはbase64じゃないよ？
それは普通URIエンコードとかURIエスケープとか呼ばれる物だけど。
しかももしかしてJavaScriptでエンコードしてる？
%uFF95はShift_JISでもなくEUC-JPでもなくUnicodeだよ。
じゃあそのuは何だろう。謎だぁ…。
とりあえず以下のコードでデコードできるけど、どうやってエンコードしてるのさ？
$s1 = '%uFF95%uFFFA%uFF91%uFF97';
$s1 =~ s/%uFF([A-F0-9]{2})/pack 'H*', $1/eg;
print $s1;
0602デフォルトの名無しさん
NGNG> しかももしかしてJavaScriptでエンコードしてる？
その通りです。私が作成しているソフトでは、文字列を
cgi/perlへ渡す際に、
(1) <FORM METHOD="get" ACTION="$main::myname">
から直接、perl/cgiに渡す方法、と
(2) Internet Explore5.2のJavaScriptでエンコードして、その
エンコードした値をCookieに保存して、そのCookieをperl/cgi
が読み込む、という方法、
の２つを採用しています。
MacOSX用IE5.2では、
(1)の方法では、「放送」とうい文字が：
%CA%FC%C1%F7 (euc)
なのに、(2)の方法では、
%uFF95%uFFFA%uFF91%uFF97 (unicode)
となり、混乱してしまいました。
> $s1 =~ s/%uFF([A-F0-9]{2})/pack 'H*', $1/eg;
ご指導ありがとうございます。これで成功しました。
この問題を解決するのに数十時間を費やし、書籍も２冊購入し、
googleで何十回も検索しましたが、どれも無駄でした。
この掲示板の皆様からのご指導がなければ、解決できませんで
した。深くお礼を申し上げます。
0603デフォルトの名無しさん
NGNGファイルハンドルから実際のファイル名を取得できますか？
perl5.0系です。
0604デフォルトの名無しさん
NGNG0605デフォルトの名無しさん
NGNG0606デフォルトの名無しさん
NGNGそのファイルハンドルはどうやって取得したの?
0607603
NGNGopen( INFILE, "test.txt" ) ;
で。
別にあるサブルーチンで、このINFILEを受け取って、そのファイル名を
取得したいのです。（もちろん、引数でファイル名指定ってのはナシで）
0608デフォルトの名無しさん
NGNG0609デフォルトの名無しさん
NGNG0610デフォルトの名無しさん
NGNGえ？ネタ？
0611デフォルトの名無しさん
NGNG0612デフォルトの名無しさん
NGNG逆。アクティブパールってのがある。
http://www.activestate.com/Products/Download/Get.plex?id=ActivePerl&_x=1
0613デフォルトの名無しさん
NGNG"No additional requirements"
と、あるみたいですが・・・。
0614デフォルトの名無しさん
NGNG翻訳してみて漸く分かりました。
お世話様でした。
NTのやつでいいんですよね？
0615デフォルトの名無しさん
NGNG落ち着いてプログラムするように（藁
0616デフォルトの名無しさん
NGNG以前、Win98対応のやつしか入ってない本を買いまして、
自分のPCがWin2kだったため諦めてたんです。
これで本が無駄にならずに済みそうですｗ
明日からPerl始めてみます。
0617デフォルトの名無しさん
NGNGじゃ、ついでに。ここのＴｉｐｓ参考になるかな？
http://www.officeamuse.co.jp/tips/perl/index.html
0618デフォルトの名無しさん
NGNGありがとうございます。
お陰様で今週はPerl週間になりましたｗ
ソースいじりながら参考にさせて頂きます。
0619デフォルトの名無しさん
NGNGこのページ参考になりそうです。
ありがとうございました。
0620デフォルトの名無しさん
NGNGがんばれ。
もしＨＰで使うならインストールディレクトリは合わせといたほうがいいよ。
’\usr\bin’とか
0621デフォルトの名無しさん
NGNGchdir("../");
ってactiveperlでも動くんですか？
linuxだと普通に動いてるんだけどactiveperl
だと動いてないっぽいのは気のせいでしょうか。
0622デフォルトの名無しさん
NGNGどうやって「動いてないっぽい」事を確かめたの?
use Cwd;
@dir = qw(foo bar baz);
mkdir $_, 777 and chdir $_ for @dir;
print(cwd(), "\n"), chdir '../' for @dir;
↑コレ走らせたら、ActivePerl build 522 on Win98SE
で問題なく動作したけど。
0623デフォルトの名無しさん
NGNGカレントディレクトリが予想外の場所にあったんだよ。
0624デフォルトの名無しさん
NGNGサブルーチンの中で my 宣言された変数は、そのサブルーチンを抜けた時点で消滅しますよね？
「メモリの節約」は、my を使う事によって得られる恩恵の一つと考えて良いのでしょうか？
0625デフォルトの名無しさん
NGNG> サブルーチンの中で my 宣言された変数は、そのサブルーチンを抜けた時点で消滅しますよね？
とは限らない。
0627デフォルトの名無しさん
NGNG>>625はメモリ上から消えるとは限らないと言っているだけなんじゃないの？
使えるとは思えないんだけど・・・
0628627
NGNG0629624
NGNG0630デフォルトの名無しさん
NGNG無名{}で一度だけのループを作ってその中でmyとかlocal宣言したら
そのブロックを抜けたら使えない＝メモリの節約になりますよね？
0631デフォルトの名無しさん
NGNGオレだけ間抜けみたいじゃないか。
0632デフォルトの名無しさん
NGNG「消滅」しない場合があるということかな。
perldoc -q closure
man perlref
とか
0634デフォルトの名無しさん
NGNG>>624
% perl -le 'sub main{ my $a = 1; $b = \$a; } main(); print $$b;'
1
"変数"は消滅するが"値"は消滅しない、とか細かいことはしらん。
>>632
perldoc ややこい...
0635デフォルトの名無しさん
NGNGスクリプト言語なんて使わない。
0636
NGNG{
my $a = 0;
b();
print "a=$a\n";
}
sub b
{
my $a;
$a = 10;
}
で結果に a=10 と表示されたんですが、これは正常なんですか？
0637デフォルトの名無しさん
NGNG0638デフォルトの名無しさん
NGNGリファレンスがあれば使えるよ。
単に my のスコープの外に出れば my した変数名で参照できなくなるだけで、
リファレンスカウントが０にならない限りデータそのものは消えないし
リファレンス経由で使うこともできる。
while(<>){
if($_ =~ /aaa/)
}
とかやるじゃないですか。
でも、このスクリプトを実行する際に引数を渡すとその引数をファイル名として
そのファイルの中身が読み込まれてしまうんです。
たとえば、
%test.pl filename
とか実行するとfilenameのファイルが読み込まれてしまう。
キーボード入力とコマンドライン引数の両立の方法ってないのですか？
0640デフォルトの名無しさん
NGNGwhile (<STDIN>)
下記のページが詳しい。
http://tohoho.wakusei.ne.jp/
0641デフォルトの名無しさん
NGNG>>640とはちょっと視点を変えて。
undef @ARGV; とかで引数を失くしちゃえば？
引数を他の用途で利用したいならshift使えばいい。
0643
NGNG0644デフォルトの名無しさん
NGNG0645デフォルトの名無しさん
NGNGCGI 関係を排除しているからだろうな。
0646デフォルトの名無しさん
NGNGWebProgに引きこもってろよカスども
0647デフォルトの名無しさん
NGNGまた出てきたぞ、こいつ
0648デフォルトの名無しさん
NGNGそれがプログラム板の総意だ。糞虫ども
0649デフォルトの名無しさん
NGNGぷぷぷ
そればっかり
0650デフォルトの名無しさん
NGNG0651デフォルトの名無しさん
NGNG終了
---------------------------------------------------------------
続きはWebProgで
0652デフォルトの名無しさん
NGNGPerlは、windowsAPIや各種データベースとの連係、自然言語処理
(例えばChasen）などに幅広く利用されている。
一般的には、Perl＞Ruby
圧倒的なライブラリ数、世界的な広がり、速度などの点で
Perlが勝る。Rubyはオブジェクト指向プログラミングを
簡単にできるようにしたが、スクリプト言語で作成する
規模のプログラムではそれほど必要不可欠な部分ではない。
0653デフォルトの名無しさん
NGNGおまえだけ行ってこい
0654デフォルトの名無しさん
NGNGお前らがどんなに現実逃避しようがこれは事実。ぷぷぷ
0655デフォルトの名無しさん
NGNG馬鹿の典型
糞Perlに出来ることは全てRubyでもできますが。しかも遙かにエレガント且つ迅速に。
0656デフォルトの名無しさん
NGNGできるけどできてないよな
Rubyは所詮Perlの後追いよ
0657デフォルトの名無しさん
NGNGうかうあかうあせまかわなんきいぼはのひせしとのひらしとみひにいてれすらんかきれあせうまらかせあうすかうあかあうまかうな゛あういなはとしはほとにはたてあのれもねけてるれしけいてもれきりかすまくきんすいにらｇ
0658デフォルトの名無しさん
NGNG質の良い方はどっちになるだろう。
0659デフォルトの名無しさん
NGNG0660デフォルトの名無しさん
NGNG0661デフォルトの名無しさん
NGNG>>624
実用Perlプログラミング(オライリー)という本の第１章
データリファレンスと無名のメモリ領域
のp.13あたりがそのものズバリの説明なので一度読んでみるとよろし。
0662デフォルトの名無しさん
NGNGお前らも糞
0663デフォルトの名無しさん
NGNGテキストの全文検索は自前でやったことあるけど、こーゆーのはSQLとか使ったほうが楽ですよねー？
SQLの構文自体は分かります。ただ、Perlが初めてなだけで(汗)普段はC++。
0664デフォルトの名無しさん
NGNGﾔｯﾄ,ﾏﾄﾓﾅｼﾂﾓﾝｶﾞｷﾀｰ!!
0665デフォルトの名無しさん
NGNG実行環境は？
0666663
NGNGWebで公開するためのCGIサーバは後で用意するつもりなので。
今はWinのActivePerでやります。
オススメの環境とかあれば、便乗させてもらいます。
0667デフォルトの名無しさん
NGNGなにがアンケート調査CGIじゃ
ヴぉけが
0668デフォルトの名無しさん
NGNGRuby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!
Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!
Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!
Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!
Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!
Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!
0669デフォルトの名無しさん
NGNG普段c使ってるならcでやんなよ。
>>663の処理ならコーディングの手間を減らせるメリットと
慣れない言語を扱うことのデメリットを天秤にかけりゃ
そのほうがて手っ取り早い。
0670デフォルトの名無しさん
NGNGまあそうだがRedHatなら定番MYSQL＋PHPというのもある。
彼のスレを読んでる限りじゃデータベース使うならどうせ覚えることは多いし
参考書籍はこっちのほうが多い。
0671663
NGNG別に、早く仕上げたいという気持ちは無いです。
半分は勉強目的です。
>>670
MYSQLですか・・・。ちょっと調べてみます。
OSに標準で入ってるか、もしくはどこのプロバイダでも
アクセスを許可しているような感じのものであれば使ってみたいです。
0672デフォルトの名無しさん
NGNGレンタル鯖？
海外なら大抵使えるよ。
自宅に置いてWEBサーバのCGIでアクセスってのもある。
0673デフォルトの名無しさん
NGNGいずれにせよ、板違いだ。
WebProg板へいきな。
0674663
NGNG海外はまったく考えていなかったです。
WEBサーバのCGIでアクセスするのは面白いかもしれませんね。
処理速度が落ちるとは思いますが、今回の規模ならそれでも十分です。
外部のDBと連携するのではなく、Perlプログラム中に組み込むような
形のデータベースエンジンって無いんですかね？
0675デフォルトの名無しさん
NGNGチェックサブルーチンを作りたいのですが、
jcode.plを使わずにShiftJISのままで
それを作るにはどうしたらよいですか？
お知恵を貸して下さい。
0676デフォルトの名無しさん
NGNG0677672
NGNGWebProg板の初心者質問スレにレス移動したのでよろしく。
0678デフォルトの名無しさん
NGNG0680675
NGNG思ってない
0681６７５ ◆iuNtvKQI
NGNG思ってます?。今もまだ出来なくて調べてました。
0x00A0-0x00DFが半角カタカナのコードらしい、まで調べたのですがそれで
チェックしてみると全角カタカナがチェックの対象になってしまって…
>>680
偽者
0682デフォルトの名無しさん
NGNG半角カナって１バイトじゃなかったっけ ?
0683デフォルトの名無しさん
NGNG0684デフォルトの名無しさん
NGNGEUCじゃ2バイトだよ
0685デフォルトの名無しさん
NGNG仕様書は､ちゃんと読めよ。
>>675
> ShiftJISのままで
0686デフォルトの名無しさん
NGNG0687デフォルトの名無しさん
NGNGこれらの発言は、Perlを憎む某によって書き込まれています
気にしないで下さい
プログラム板のRubyスレとPerlスレ見れば分かる
例えば：http://pc3.2ch.net/test/read.cgi/tech/1028906179/206-
0688棄教者 ◆KIKYO7cg
NGNGPerl は WebProg へ逝けというのなら、
CGI に使える言語なら Ruby でも C/C++ でも
WebProg に逝かないといけないね。
神とか漢とか言われてる人は CGI を C で書くでしょ。
0689デフォルトの名無しさん
NGNGDBIの具体的な使い方の話ならともかく、
cgiサーバがどうしたなんて話は完全に板違い。
0690デフォルトの名無しさん
NGNGPerlにCGI以外の＊まともな＊使い道ってあるの？嘲笑
ないだろ？ばぁぁか
0691デフォルトの名無しさん
NGNGPerlは結構使えますよ。
こないだ生ゴミ燃やすのに使いますた。
0692デフォルトの名無しさん
NGNGおれは688ではないが、ここはプログラム板だから使い道うんぬんの話だけじゃない。
そういう話こそWebProgやプログラマ板でやればよい。
でも、PerlはCGIの実行に使われるのが多いのも確か。
688は質問者のその辺を理解してやれよ。すぐ板違いというのはちょっとイタイ。
0693デフォルトの名無しさん
NGNG688→689ｽﾏｿ
0694デフォルトの名無しさん
NGNG２ちゃんのスレッドをGETしてNNTPにPOSTするというデーモンを動かしてます。
0695デフォルトの名無しさん
NGNG商用Java Servlet engineのResinで、サーバを起動するのに使うな＞Perl
http://www.caucho.com/resin/
0696棄教者 ◆KIKYO7cg
NGNGRuby で書かれたプログラムがあったら教えてください
0697デフォルトの名無しさん
NGNG自治厨でもなんでもなく単なる荒らしだから相手をするな。
しかもｼﾞｻｸｼﾞｴﾝしまくりなので注意。
0698デフォルトの名無しさん
NGNG0700_gunzip
NGNGstderr ">&STDERR" ないし $io_obj->fdopen(fileno(STDERR), "w") など
require/use IO::Handle;でSTDOUT->print(...)というふうにメソッドを呼んだりできるよ。
# 今更気付いたけど、 "-"や">-"はfdの複製はしないんだね。
0702デフォルトの名無しさん
NGNGそれ無しではインストールでも苦労すると思うのだが。
0703699
NGNGやりたいこととしては
STDERR
を読み込んでそれをもとに処理を行いたいのです。
$io_obj->fdopen(fileno(STDERR), "r")
でいいのでしょうか？
それは「標準エラー出力のファイルハンドルを作る」のとは何の関係も無いよ。
読み込みモードでfileno(STDERR)を開いても望みの結果は得られないでしょ。
やってみれば一発で分かると思うけど。
とりあえずそれをするにはIO::Scalarが使える。Perl5.6じゃないと多分失敗するけど。
#!perl
use IO::Scalar;
my $stderrbuff;
tie *STDERR, IO::Scalar => \$stderrbuff;
warn "warn 1";
warn "warn 2";
die "die";
END{ print $stderrbuff; }
__END__
Version500.5以下だとSTDERRを他のファイルにリダイレクトするしかないかも。
0706デフォルトの名無しさん
NGNG0707デフォルトの名無しさん
NGNG0708デフォルトの名無しさん
NGNGperlユーザは死ねperlユーザは死ねperlユーザは死ねperlユ
ーザは死ねperlユーザは死ねperlユーザは死ねperlユーザは死ねp
erlユ
ーザは死ねperlユーザは死ねperlユーザは死ねperlユーザは死ね
perlユーザは死ねperlユーザは死ねperlユーザは死ねperlユーザは
死ねperlユーザは死ねperlユーザは死ねperlユーザは死ねperlユーザ
は死ねperlユーザは死ねperlユーザは死ねperlユーザは死ねperlユーザ
は死ねperlユーザは死ねperlユーザは死ねperlユーザは死ねperlユーザは
死ねperlユーザは死ねperlユーザは死ねperlユーザは死ねperlユーザは死
ねperlユーザは死ねperlユーザは
死ねperlユーザは死ねperlユーザは死ねperlユーザは
死ねperlユーザは死ねperlユーザは死ねperlユーザは死ねperlユ
ーザは死ねperlユーザは死ねperlユーザは死ねperlユーザは死ねpe
rlユーザは死ねperlユーザは死ねperlユーザは死ねperlユーザは
死ねperlユーザは死ね
0709デフォルトの名無しさん
NGNG0710デフォルトの名無しさん
NGNGプログラム板で糞言語の話をするな！
0711デフォルトの名無しさん
NGNG/ ＿
／◎）､__＿＿＿＿＿∠ｌ / /◎ヽ
| 「....;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;| |,,. ` -_´/
.彡⌒ｰ／| ＼＿＿＿;;;;;;;;;;;;;;;;;;;;;;| |;;;;, " i￣￣i
／´⌒ヽ＿＿＿＿＿＼￣￣￣ .|;;;;;;, /Ruby ﾞ､
,/´ ! ヲ＝℃／￣ |;;;;;;;;, /_,-..‐..-､_ﾞ､
/_レ‐ｰ――‐"￣￣） ヾ;;;;;;;;,,,.. /':::::::::::::::::::::`i
／ __ r'~￣ ヾ;;;;;;;;;;;;,,,.トー――――-!
/ ＿） ヾ;;;;;;;;;;;;;;,,,,....
| ､ ノ ヾ;;;;;;;;;;;;;;;;;;;;;;;;;,,,,....
ﾞ､;;;,,.. ￣" ）;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;.......
rubyユーザさん、、かわいそうな人。
あなたは人から愛されたことが無いのでしょう。
0713デフォルトの名無しさん
NGNG0714デフォルトの名無しさん
NGNG粘着基地外がいます。放置をお願いします。騙されたり煽られたりした人がいたら
フォローしてあげてください。
0715デフォルトの名無しさん
NGNG書かれたコード！それは世にも醜い姿を晒します
悲劇はperlプログラマはそう思っていない事です
あとインタープリタ方式で遅いのによく使っていられることです
サーバの資源を無駄に使うperlを使うのをやめましょう
せめてJava ServletまたはCが書けるようになってください
ちなみに私は 709 ではありません 706です
0716デフォルトの名無しさん
NGNG「perlプログラマ」(w
「Java ServletまたはC」(w
突っ込みどころ満載だな。
Perl使いこなしてる奴だってこれが
美しいと思って使ってる奴はいないよ。
0717デフォルトの名無しさん
NGNG> Perl使いこなしてる奴だってこれが
> 美しいと思って使ってる奴はいないよ。
そうか ? C 程度には、きれいに書けるよ。確かに、いくらでもぐちゃ
ぐちゃに書けるけど、それって C でも同じだろ ?
0718デフォルトの名無しさん
NGNGどんなｳﾞｧｶでも同じようにしか書けません
COBOLには負けるけどなー
0719デフォルトの名無しさん
NGNG仮にCを美しいとしたときに、Perlは言語の仕様自体が美しくないと
俺は思うけどな。
美しくないお陰で使い勝手がいい(ことになっている)というか。
0720デフォルトの名無しさん
NGNGインタープリタ方式で遅いのに＝＞rubyはコンパイル言語でしたか。
>>719
使い勝手がいい＝＞上等。
0721デフォルトの名無しさん
NGNGstudy, write, study,
do review (each word) if time.
close book. sleep? what's that?
0722717
NGNG> 確かにCだって、ぐちゃぐちゃにかけるんだけど、人によるよね。
まあね。どんな言語でもぐちゃぐちゃに書く奴はいるのは確か。
> 仮にCを美しいとしたときに、Perlは言語の仕様自体が美しくないと
> 俺は思うけどな。
ほぼ同意。
> 美しくないお陰で使い勝手がいい(ことになっている)というか。
いいか ? まあ、作者はいいと思ってるんだろうからから問題ないけ
どね。
0723デフォルトの名無しさん
NGNGグリグリの3DゲームをPerlで作ってるわけじゃないし、、
普通の人はPerlで十分の内容のときにPerlを使い、スピードがほしい時に
C++使ったり用途に分けて使い分けてると思うが。
0724デフォルトの名無しさん
NGNG0725715
NGNG俺はcgiもCで書くけどね
最近はApacheで動かすmod_isapi Cで遊んでいるよ
0726デフォルトの名無しさん
NGNG>>725
だから？
727 名前：715[] 投稿日：02/09/22
>>726
ネタにマジレスｶｺｲｲ(・∀・)ｲｲ!
、、、( ﾉ ≧∇≦ )ﾉ ぷはははっ！
0727デフォルトの名無しさん
NGNGもしもポインタ周りのバグがあると大変だし。
PerlとかphpだのCだのは必要に応じて使い分けないと。
0728デフォルトの名無しさん
NGNG文字コード周りのめんどうさえみれば
ソケットも自在に使えるし
作ったあと美しい
perlだと軽自動車みたいな品のないコードが嫌い
ポインタとバッファオーバフローのチェックができない
Cプログラマが多すぎるからね
だからそういう人たちのためのperlなんだろうけどね
727は見込みありそうだけど
726は低脳そうだね
0729デフォルトの名無しさん
NGNG0730デフォルトの名無しさん
NGNG> Q.具体的にどの辺が美しくないですか？＜perl
switch 文がない。
同じ動作をする書き方のバリエーションが多すぎる。(書き易いけど、読み難い。)
sort() が $a, $b を使ってしまう。
多次元配列が無い。
構造体が無い。
ファイルハンドの扱いが特殊。(通常の変数じゃなくて、独自の名前空間をもつ。)
最近、Perl 使ってないから、今のバージョンだったら改善されているところはあるかもしれない。また、個人の好みによるところもある。とりあえず、今すぐ思いつくのはこんなところ。
0731デフォルトの名無しさん
NGNGほとんど同意。
同じ動作のバリエーションが多いっていうところが、
英語圏の人が「こう書けたら便利かなー(もしくは面白いかなー)」と
思って付け加えたんじゃないのか? って感じのところが美しくないんだな。
とってつけたような。
0732デフォルトの名無しさん
NGNG0733デフォルトの名無しさん
NGNG某サイトからパクッたサンプルソース
push @persons, { "name" => "tanaka", "age" => 24 };
push @persons, { "name" => "suzuki", "age" => 28 };
foreach $person (@persons) {
print "$person->{'name'} $person->{'age'}\n";
}
0734730
NGNGだよねー。俺もこの仕様が一番違和感ある。
>>733
> 構造体もどきではだめ？
ダメ。メンバの名前間違えても、コンパイルエラーにならないし、構造体の配列とか、
配列を含む構造体とかになると収拾がつかなくなるから。
0735デフォルトの名無しさん
NGNG常識だよ。リファレンスで多次元配列が無名ハッシュで構造体が扱える。
>>730
switch文なんてifの羅列で十分。gotoもあるけど。
バリエーションが多いから書きやすい＝上等。
ファイルハンドルは別のほうが便利。
0736デフォルトの名無しさん
NGNG0737デフォルトの名無しさん
NGNG予約語と思えば、、、
0738デフォルトの名無しさん
NGNG0739デフォルトの名無しさん
NGNGPerlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞
Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞
Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞
Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞
Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞
Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞
Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞
0740デフォルトの名無しさん
NGNG0741デフォルトの名無しさん
NGNGおとなしくWebProgに逝ったら？
0742デフォルトの名無しさん
NGNG0743デフォルトの名無しさん
NGNG> バリエーションが多いから書きやすい＝上等。
と言うわりには、switch が無いのが謎なんだなー。
> switch文なんてifの羅列で十分。
と言うなら、for/foreach どっちかにしろよ。ここら辺の、いいかげんさがちょっと嫌い。
> ファイルハンドルは別のほうが便利。
まあ、これに尽きるね。要は、書きやすい事にかなり比重を置いている。これは、これでいいとは思うけど、その分保守はやりにくい。(= 大規模開発にはダメ言語)
従来 awk なんかで書いていたちょっとしたツールや、GCI から呼び出されるプログラムなんかにはなかなか便利。
0744デフォルトの名無しさん
NGNG0745デフォルトの名無しさん
NGNGって感じで使い分けるので必要。
0746デフォルトの名無しさん
NGNGあるもんだな。
Perl は、たしかに書きやすいけど読みにくい。でもそれをわかってて適所に使う
分には良いものだと思う。
あと自分で作るプログラムなら、スタイルを決めて書けばそれなりに保守しやすい
ものにもできる。それなりにセンスや経験はいるかもしれないけど。
0747デフォルトの名無しさん
NGNGいい人多いね
がんばれ
0748デフォルトの名無しさん
NGNGコーディングスタイルを統一しないか？普通。
一貫したコーディング規約を維持できればかなり読みやすいと思うんだが＜Perl
0749デフォルトの名無しさん
NGNGスキルがないもんで、、、、
0750デフォルトの名無しさん
NGNG0751デフォルトの名無しさん
NGNG0752デフォルトの名無しさん
NGNG0753デフォルトの名無しさん
NGNGmatsuda hiro
saito masa
saito hiro
inoue maithi
これに
while(<STDIN>){
/(\$+) (\$+)/;
$m = $2;
$m =~ tr/a-z/A-Z/;
print "$2, $1\n";
}
これをやったら
何も出てこないのですよ、
0754デフォルトの名無しさん
NGNG$$$$$$$ $$$$
$$$$$$$ $$$$
$$$$$ $$$$
$$$$$ $$$$
$$$$$ $$$$$$
0755デフォルトの名無しさん
NGNGwhile(<>){
/([^ ]+) (\w+)/;
my ($fam, $name) = ($1, $2);
$fam =~ tr/a-z/A-Z/;
print "$name, $fam\n";
}
0756デフォルトの名無しさん
NGNGありがとうございます
STDINを抜くっていうのは何かしら利点があるのでしょうか
後二行めがよく分らんです、、、
勉強不足ですいません、、、
0757デフォルトの名無しさん
NGNG[^abcd]はabcd以外 \wはワードマッチ
0758a5
NGNGsage忘れてました、
申し訳ありません
0759デフォルトの名無しさん
NGNG最大文字数：20桁
を全て表示するプログラムを教えてください！！
おながいします！！
0760デフォルトの名無しさん
NGNGセキュ板にでも帰れ
もしくは隔離板(php板）へどうぞ
0761デフォルトの名無しさん
NGNG> 使用可能文字：半角英数
> 最大文字数：20桁
> を全て表示するプログラムを教えてください！！
最大文字数って何のだ ? 表示幅のことか ? だったら...
print "0123456789ABCDEFGHIJ\n";
print "KLMNOPQRXTUVWXYZabcd\n";
print "efghijklmnopqrstuvwxyz\n";
でいいと思うが。
0762デフォルトの名無しさん
NGNG0763デフォルトの名無しさん
NGNG粘着基地外がいます。放置をお願いします。騙されたり煽られたりした人がいたら
フォローしてあげてください。
0764747 ◆VaEdQZq.
NGNGHTMLタグをperlに埋めるときどうしてるの?
エディタでごりごり書くの?
それが知りたいYO
0765デフォルトの名無しさん
NGNGゴリゴリは書かん。
１．テキストエディタでブリブリ書く。
２．HTMLエディタでプリプリ書き、
print ＜＜XXXXX のところにペーストする。
0766747 ◆VaEdQZq.
NGNGなーる
だるい方法でがんばってるんだね
printのところにペーストするときって
結構ｺﾏｲ作業で悲しくなったりしない?
変換するツールとか使ってないの?
0767デフォルトの名無しさん
NGNGprint <<'EOF'
hogehoge
EOF
でいいじゃん。
0768デフォルトの名無しさん
NGNG↓ここを
http://tohoho.wakusei.ne.jp/wwwperl1.htm#EOF
0769765
NGNGAboneで下が化けたもので全角にしてしまった。
print <<XXXXXXX
0770747 ◆VaEdQZq.
NGNGん
タグ変換ツールどこにあるの?
HTMLをデザインしたら
ごそっとprint文にはさんでくれるようなつーるって無いの?
リンク先みたかぎりじゃないようだけど
0771デフォルトの名無しさん
NGNGそんなツールは要らんけどね。
0772デフォルトの名無しさん
NGNGそのままペーストすればいい、変換する必要ない。
print <<XXXXX
<HTLM>
<HEAD>
うんたらかんたら
</HEAD>
<BODY>
ちんらかんたら
</BODY>
</HTML>
XXXXX;
0773デフォルトの名無しさん
NGNGprint <<XXXXX;
<HTLM>
<HEAD>
うんたらかんたら
</HEAD>
<BODY>
ちんらかんたら
</BODY>
</HTML>
XXXXX
ようは、print <<XXXXX; から XXXXX までをそのまま標準出力してくれる。
0774デフォルトの名無しさん
NGNGそっか
perlだとごそっとこぴぺできるんだ
perlの美点があったじゃない
Cだとprintf("<html>...............</html>");
にはさむから長くなると醜くなるからある程度で細切れにしないと
いけないその点perlのほうがよいね
0775デフォルトの名無しさん
NGNGこれを美点と見るかどうかは人それぞれ。
0776デフォルトの名無しさん
NGNG0777デフォルトの名無しさん
NGNG>最大文字数：20桁
>を全て表示するプログラムを教えてください！！
>おながいします！！
ん？全ての組み合わせって事か？
パスワードでもクラックするのか？（藁
0778777
NGNGヘタレなのでsage
0779デフォルトの名無しさん
NGNG簡単だよ。
print "00000000000000000000\n";
print "00000000000000000001\n";
print "00000000000000000002\n";
：
：
print "zzzzzzzzzzzzzzzzzzzy\n";
print "zzzzzzzzzzzzzzzzzzzz\n";
0780777
NGNGprint "0\n";
print "1\n";
print "2\n";
：
：
print "a\n";
print "b\n";
：
：
print "zzzzzzzzzzzzzzzzzzzy\n";
print "zzzzzzzzzzzzzzzzzzzz\n";
まぁ、どちらにしても漏れには分からん。っていうか質問が意味不明だＹＯ!!
0781デフォルトの名無しさん
NGNG0782デフォルトの名無しさん
NGNGあんたらがこの板を見てる理由がｻﾊﾟｰﾘわからん
0783デフォルトの名無しさん
NGNGリテラルに設定しておけばいい。
printfでだらだら書くなど愚の骨頂。
0784デフォルトの名無しさん
NGNG0785デフォルトの名無しさん
NGNG#main()
{
....
....
}
と、c言語風に書く俺は邪道ですか？
こういうインデントがついてないと読みづらいから。
0786デフォルトの名無しさん
NGNGここは質問箱だろ。疑問を投げかける前に質問に答えれ！！
0787デフォルトの名無しさん
NGNGどうせなら
sub main(@)
{
blah blah blah...
}
unshift @ARGV, $0;
main @ARGV;
0788デフォルトの名無しさん
NGNG0789デフォルトの名無しさん
NGNGそれいいですね、今度から使わせてもらいます。
0790デフォルトの名無しさん
NGNG0791デフォルトの名無しさん
NGNG0792デフォルトの名無しさん
NGNG0793デフォルトの名無しさん
NGNG>>790
$hoge{abc} = [0, 1, 2, 3];
みたいな。
んで、
@list = @{$hoge{abc}};
みたいな。
0794棄教者 ◆KIKYO7cg
NGNG0795デフォルトの名無しさん
NGNGハッシュの値が配列のリファレンス。
0796デフォルトの名無しさん
NGNGFFのサイトはTomcatつかってたけどありゃアホだね。
0797デフォルトの名無しさん
NGNGif .. then .. else ..とかは英語的に読むことができるが、
switchは唐突に分野の違う言葉だからキモイ
みたいなことをカンファレンスで言ってた
0799棄教者 ◆KIKYO7cg
NGNGPerl はぼくの好きな言語だけどたまに開発者の趣味が露骨に現れるから嫌い
C に似せてあるくせに break; が last; になっていたり、
continue や next のあたりの名前の付け方が違う。
一ヶ月に一度は last を break と書いて半日潰す。
0800デフォルトの名無しさん
NGNG便利なんだか不便なんだかね。入り口が入りやすいだけに。
あと、これを書くと荒れるのかもしれないが、
オブジェクト指向の実装が微妙にヘンなのもなあぁ。
どうせとってつけたようになるんだから
Objective Cみたいなｶｯﾁｮｴｰのにしてほしかったな。
0801デフォルトの名無しさん
NGNG> if .. then .. else ..とかは英語的に読むことができるが、
> switchは唐突に分野の違う言葉だからキモイ
> みたいなことをカンファレンスで言ってた
それは、そうだが普通の人には perl の構文の方が唐突に分野の違う言葉ではないかと...。
0802デフォルトの名無しさん
NGNG$a1 〜 $a10 までの関数があるとします。
これをforループなどで全ての関数に対して同じ処理をしたいと思います。
$a$i ←このようなイメージです。$iを１〜１０まで変化させるわけです。
このような場合、どのような記述をすればよいのでしょうか？
0803デフォルトの名無しさん
NGNGFF のサイトってファイナルファンタジーの公式サイト? そりゃ Tomcat じゃ
無理だろ。っていうかそれは道具の選定を間違ってるだけで道具に罪はない。
0804デフォルトの名無しさん
NGNG関数? 変数じゃなくて?
0805デフォルトの名無しさん
NGNGすみません。変数でした。
0806デフォルトの名無しさん
NGNGfor ($i = 1; $i <= 10; $i++) {
print ${"a$i"} . "\n";
}
こんなふうにできなくはないんだけど
配列変数を使うように全部書き直したほうがいいと思うよ。
応用の利くテクとしては
for ($i = 1; $i <= 10; $i++) {
eval("print \"\$a$i\\n\";");
}
とかも。
0807デフォルトの名無しさん
NGNGどうもありがとうございました。
0810デフォルトの名無しさん
NGNGズコー
0811棄教者 ◆KIKYO7cg
NGNGsub func1 { .... };
...
sub func9 { ... };
に対して、
@funcref = ( \&func0, \&func1, ..., \&func9 );
てすることで、
foreach( @funcref ) {
&{$_}( @arguments );
}
とすれば、複数の関数に対して一括処理を行うことができます。
なお、 @arguments というのは &func0, &func1, ..., &func9
に食べさせたい引数です。
0812棄教者 ◆KIKYO7cg
NGNGPerl のリファレンスを使っているうちに逆に C のポインタが理解できるようになりました。
まんせー。
0813デフォルトの名無しさん
NGNGお、すげー。
0814デフォルトの名無しさん
NGNGすごすぎ
僕の目標です
0815デフォルトの名無しさん
NGNGfor $i (0 .. 9) {
$a_ref = "a$i";
print $$a_ref, "\n";
}
でもいいでしゅか？
0816デフォルトの名無しさん
NGNGんー気持ちはわかる。
事実折れもCで書いてる時間違ってlastとか書いちゃうことあるし。
んでもそこを突くのはちょっと違うような気もする。
「同じようなニュアンスで使える」別の言語なんだもん。
他の言語に慣れてるなら perltrap.podを声に出して熟読は必須でしょ。
http://www.perldoc.com/perl5.8.0/pod/perltrap.html
0817デフォルトの名無しさん
NGNG使いたいんですがどうにもうまくいかないようで・・・・。
どうやればよでしょうか？アドバイスお願いします。
sub FuncB
{
#.............
}
sub FuncA
{
$Func = $_[0]; #？
&{$Func}(); #？
}
&FuncA(FuncB); #？
0818デフォルトの名無しさん
NGNGperl のリファレンスは宣言がない分､文法的にすっきりしていると思ふ。
0819デフォルトの名無しさん
NGNGヒント。 >>811
0820817
NGNGどうもです。
0821デフォルトの名無しさん
NGNG「ソ」「予」「能」などの文字が入ったディレクトリ名だと、そのディレクトリ以下を
検索してくれません。
原因は、Shift-JISの2バイト目にバックスラッシュ文字が入っているためだと思うのですが、
これを回避するためのFile::findに対するパッチなどはありますか？
使っているperlは、ActivePerl5.6.1 BinaryBuild 633です。
0822デフォルトの名無しさん
NGNGパッチはないと思う。
自力で\x5cを追加しておくれ。
0823デフォルトの名無しさん
NGNGjperl使ったら？
0824デフォルトの名無しさん
NGNG同じページ数なのyo!
(洋書の方が紙が薄い)
0825デフォルトの名無しさん
NGNGもう馬鹿にされない(と思う)
がCurlが主流にならなければ馬鹿にされてしまう
0826デフォルトの名無しさん
NGNG策略
0827スンスンブラクラできたよー（・∀・）
NGNGfor ($sunn=0; $sunn<1; $sunn--){
$sn = "$sun[0],$sun[1],$sun[0],$sun[2]\n";
print "$sn\n";
}
0828デフォルトの名無しさん
NGNG0829デフォルトの名無しさん
NGNGPerlerなんだよな
だからDel厨やその他でPerlよりはいいよなとか言われてまうやないけ
もう氏ねとは言わせるなPerler立ち上がれ
http://curl.fc2web.com/
0830デフォルトの名無しさん
NGNG0831デフォルトの名無しさん
NGNG0832スンスンブラクラできたよー（・∀・）
NGNG止め方がわからないわけで…
0833デフォルトの名無しさん
NGNGCurl は終わっている言語だし。
0834デフォルトの名無しさん
NGNGｱﾌｫ
でてきたばかりで終わってるはないんじゃないの?
だいたい833は言語仕様の概要程度でもいいから知ってるの?
もちろん漏れは知らないけどね
0835デフォルトの名無しさん
NGNGていうか2chのスレでは去年の夏ごろにおまえの紹介した
ホームページそのままの内容がコピペされてるだろうが。
ということは、それから一年以上もまったく更新のされていないページを
おまえはこのスレッドで紹介したことになる。
そんな言語を「死んだ」言語だといって何か問題があるのか？
0836デフォルトの名無しさん
NGNG日本語版出たのかっ？！
0837デフォルトの名無しさん
NGNG$"=',';
while (1) {
print "@sun\n";
}
0838スンスン
NGNGforeach (@sun){
print "$_";
}
0839デフォルトの名無しさん
NGNGforeach (@sun) {
print;
}
0840デフォルトの名無しさん
NGNG0841デフォルトの名無しさん
NGNGそんなことできんの？
0842デフォルトの名無しさん
NGNG0843スンスン
NGNG@suun = ('スーン','( ゜Д゜)ハッ');
$surn[0] = $sun . $sun . $suun[0];
$surn[1] = $sun . $sun . $suun[0] . $suun[1];
foreach (@surn){
print "$_\n";
}
0844８３７へ。
NGNG$"=',';
while (1) {
print "@sun\n";
}
を１０回繰り返すにはどうすればいいの？
0845デフォルトの名無しさん
NGNG0846デフォルトの名無しさん
NGNG{
@sun = ('スン','スーン','( ゜Д゜)ハッ');
$"=',';
while (1) {
print "@sun\n";
}
}
0847デフォルトの名無しさん
NGNG日本語フォント対応 2002/9予定
IDE 2002/12予定
日本語マニュアル Curl Programming Bible翻訳版 2002/12予定
だそうだ
お前見込みあるよ
0848デフォルトの名無しさん
NGNGprint "何回スンスンしまっか？>";
$un= <STDIN>;
for ($suun=0; $sunn<$un; $count++){
print "$sun[0]$sun[0]$sun[1]$sun[2]\n";
}
0850デフォルトの名無しさん
NGNG0851棄教者 ◆KIKYO7cg
NGNG0852デフォルトの名無しさん
NGNGいざＣＧＩファイルを開いてみると、サーバーエラー、となってしまいます。
何が問題かさっぱりわかりませんコードは↓です
#! c:/perl/bin/perl
# カウントファイルの読み込み
open(IN, "<C:\Apache\htdocs\tendays\count.dat");
$count = <IN>;
close(IN);
++$count;
# カウントファイルへの書き込み
open(OUT, ">C:\Apache\htdocs\tendays\count.dat");
print OUT $count;
close(OUT);
# ヘッダー・HTML出力
print <<END;
Content-type: text/html
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">
<html>
<head><title>あくせすかうんたぁ</title></head>
<body>
<p>あなたは･････$count番目の訪問者です。</p>
</body>
</html>
END
0853852
NGNG#! c:/perl/bin/perl
# カウントファイルの読み込み
open(IN, "<./count.dat");
$count = <IN>;
close(IN);
++$count;
# カウントファイルへの書き込み
open(OUT, ">./count.dat");
print OUT $count;
close(OUT);
# ヘッダー・HTML出力
print <<END;
Content-type: text/html
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">
<html>
<head><title>あくせすかうんたぁ</title></head>
<body>
<p>あなたは･････$count番目の訪問者です。</p>
</body>
</html>
END
0854>>37じゃねーけど
NGNG悪いことは言わんから、黙って WebProg 板へ行け。そっちの方がまともな回答が得られるぞ。
0855デフォルトの名無しさん
NGNG0856デフォルトの名無しさん
NGNG二度と戻ってくるな。
0857デフォルトの名無しさん
NGNG0858デフォルトの名無しさん
NGNGprint (("ｽﾝ ｽｰﾝ ( ゜Д゜)ﾊｯ\n") x <STDIN>);
0859デフォルトの名無しさん
NGNG0860デフォルトの名無しさん
NGNG↓次、どうぞ
0861デフォルトの名無しさん
NGNG0862デフォルトの名無しさん
NGNG0863デフォルトの名無しさん
NGNG0864デフォルトの名無しさん
NGNG↓次、どうぞ
0865デフォルトの名無しさん
NGNG勘で、、
count.dat のパーミッションに w 入れてる？
0866デフォルトの名無しさん
NGNG0867デフォルトの名無しさん
NGNGアレがapacheだったらログ見ればある程度分かりそう
0868デフォルトの名無しさん
NGNGrubyプログラミングしたことないのに、ruby愛好家なのか
0869棄教者 ◆KIKYO7cg
NGNGc:/perl/bin/perl
が変。
おたくのプロバイダーのCGIの説明書を読んで、
Perl のパスがどこにあるかを確認してください。
この件に限っては、荒らしが書いているとおり、 WebProg 板に逝った方が
親切な回答が得られそうです。
0870862
NGNGとりあえずperlやめる。買った本も理解したんで。HSP以下の言語らしいし。
>>863 >>864 ← 二人もそういっているし。
ＣＧＩは始めっからやる気ないし。
0871デフォルトの名無しさん
NGNG使う用事がないならさいしょっから無駄なことしなけりゃいいのに。
人生そんなのの繰り返しなんだろうなこの人。
一般ユーザアプリにはあんまり使えないけど、
それは糞だからというわけではなく、
適材適所名だけ。
HSPも管理にはつかいづらいんじゃない？
使ったことないからわからないけど。
0874デフォルトの名無しさん
NGNGApacheで使える
mod_なんたらのperlってあるのか貴様ら
IISはActivePerlだっけ?
多少速くうごくやつあるよね
って聞く態度じゃないなあ
0875デフォルトの名無しさん
NGNG0876デフォルトの名無しさん
NGNG0877デフォルトの名無しさん
NGNGhttp://www.din.or.jp/~ohzaki/perl.htm#File_Reverse
0878デフォルトの名無しさん
NGNG一行づつ読んでくるのは大変かも
単純に一回全部読み込んで、逆順で取り出すなら楽だろうけど
0879デフォルトの名無しさん
NGNG0880デフォルトの名無しさん
NGNGそんなニーズはほとんどないから無理。
素直に後ろからシークしていけ。
0881デフォルトの名無しさん
NGNG携帯でも書き込み可能な掲示板で、PCとかiMなどの端末表示をしたいと思っています。
#$modeを文字に変換
if($mode == 1){$tanmatsu = "iM"};
if($mode == 2){$tanmatsu = "JS"};
if($mode == -1){$tanmatsu = "EZ"};
if($mode == -2){$tanmatsu = "DX"};
if($mode == 0){$tanmatsu = "PC"};
# タイムスタンプ生成
($sec,$min,$hour,$mday,$mon) = gmtime($gtime+$TIMEZONE*3600);
$timestamp = sprintf("%02d/%02d %02d:%02d <%s>",++$mon,$mday,$hour,$min,$tanmatsu);
$tanmatsuに端末の略称を入れて、$timestampに付加して表示させようとしてるのですが、
<%s>の部分だけごっそりなくなって表示されてしまいます。
どうすればいいのか教えて下さい。
0882デフォルトの名無しさん
NGNG使って書かないとデフォルト値を $tanmatsu にセットすることもできんのじゃ？
0883881
NGNGんー、その前にこんなのがあるから、こんな風に書いてみたんですけど…。
# ---ブラウザ種別をチェック（iモード:1 EZインターネット:-1 PメールDX:-2 J-Sky:2 その他:0 ）
$user_agent = $ENV{'HTTP_USER_AGENT'};
if($user_agent =~ /DoCoMo\//) { $mode = 1; }# iモード
if($user_agent =~ /UP\.Browser\//) { $mode = -1; }# EZインターネット
if($user_agent =~ /PDXGW\/\d\.\d/) { $mode = -2; }# PメールDX
if($ENV{'HTTP_X_JPHONE_MSNAME'} ne '') { $mode = 2; }# J-SkyWeb (Ver3.10)
# PDAモード（ザウルス・コミパル・Dialo）
if($user_agent =~ /sharp pda browser/ || $user_agent =~ /Dialo/) { $pda = 1; }
<hoge>がタグのように見えるから。
どうすればいいのかはHTMLの基礎を学んでください。
0885882
NGNGそれなら変数$mode を使わずに直接 $tanmatsu にセットしたら？
if($user_agent=~ /DoCoMo/i){ $tanmatsu= 'iM'; }# iモード
elsif($user_agent=~ /UP\.Browser/i){ $tanmatsu= 'EZ'; }# EZインターネット
elsif($user_agent=~ /PDXGW/i){ $tanmatsu= 'DX'; }# PメールDX
elsif($ENV{'HTTP_X_JPHONE_MSNAME'}){ $tanmatsu= 'JS'; }# J-SkyWeb (Ver3.10)
elsif($user_agent=~ /sharp pda browser|Dialo/i){ $tanmatsu= 'PDA'; }
else { $tanmatsu= 'Other'; }
0886881
NGNGタグと認識されて消えてるってことですか。
わかりました、学んでみます。
ありがとうございました。
0887881
NGNG配布してるCGIに手を加えてるんですけど、他にも$modeってたくさん使ってるので…。ｗ
その部分に$modeと$tanmatsuを２つ書けば済む話なんですけど、
あとで修正箇所が分かりやすいように、別に書きました。
0888デフォルトの名無しさん
NGNGニーズはあると思うが、、
0889デフォルトの名無しさん
NGNGあんたにとってはだろ
サイズ（データ全体）の分からないものの末尾から処理出来るわけ無いじゃん
0890デフォルトの名無しさん
NGNGperl -e 'print reverse <>'
0891881
NGNG$timestamp = sprintf("%02d/%02d %02d:%02d <%s>",++$mon,$mday,$hour,$min,$tanmatsu);
これを、
$timestamp = sprintf("%02d/%02d %02d:%02d %s",++$mon,$mday,$hour,$min,$tanmatsu);
に直してやってみたんですけど、まだ表示されません。
>>884さんの理由であってるんしょうか？
0892デフォルトの名無しさん
NGNG>>885
0893デフォルトの名無しさん
NGNGでホントに $tanmatsu に値が入ってるか確認。
0894デフォルトの名無しさん
NGNG>>890
ﾌﾟ
0895881
NGNGありがとうございます。
それでも出ないですね。^^;
もしかしたら、$timestamp変数を代入する所ではなく、実際表示する部分(?)で何か細工があるのかな？と思ってみたり…。
0896デフォルトの名無しさん
NGNGおまえ意図的にレスを飛ばしてないか？
if文ですべて式が真じゃなくて偽だから値がセットされてないことに気づけ馬鹿。
0897881
NGNG一度は「elseif」を使った文も試してますよ。
でも、配布されてるCGIソース(>>883の部分)が正しいから、なくてもできると思ったのですが…。
0898デフォルトの名無しさん
NGNG0899881
NGNG初期化しても、何も出ないっす。
やっぱり、おそらく表示する所で何かあるのか…。
0900デフォルトの名無しさん
NGNG書いてあるのにしつこくしつこくCGIの話をここでしようとするってのは
どういうつもりなのかね。
0902デフォルトの名無しさん
NGNGなんでニーズと技術的な話を混同させて話してるの？
0903デフォルトの名無しさん
NGNG0904デフォルトの名無しさん
NGNG0905K
NGNG-fとか-dでファイルが実在するかどうかをチェックするさいに、その大文字、小文字を
区別しないようにしたいのですが、なにかよい方法はありませんでしょうか。
どのような関数を書けばいいのでしょうか？すみませんが教えてください。
0906デフォルトの名無しさん
NGNG0907デフォルトの名無しさん
NGNG糞は黙ってろ
0908デフォルトの名無しさん
NGNGそれ難しいかもね。
てゆうか、ディレクトリ中にあるファイル名全部出してきて、
そのリストに対して比較するしか無いような気がする。
他にやり方あったら誰か書いてよ
0909デフォルトの名無しさん
NGNGそれが一番スマートだな。
sub is_exists_file_in {
local *DIR;
opendir DIR, shift or return;
my %file = map { lc, $_ } readdir DIR;
closedir DIR;
return map $file{$_}, grep $file{$_}, map lc, @_;
}
ファイル名を一文字ずつバラして正規表現組み立てるってのも
考えついたが、明らかに上に挙げた例の方が分かり易かろう。
0910デフォルトの名無しさん
NGNGsendmailで自動的にメールを送ります。
Windowsに送ると読めて，Macに送ると化けてしまうって時，
原因はどういったかんじでしょうか？
縺九ｉ縺ョ縺疲ウィ譁・「コ隱阪Γ繝シ繝ォ
こんなかんじ。
0911デフォルトの名無しさん
NGNGその糞コードは、わざとか？
0912デフォルトの名無しさん
NGNG0913デフォルトの名無しさん
NGNGいや、907=911
0914デフォルトの名無しさん
NGNG0915K
NGNGどうもありがとうございます。
すみまんせが良く分からないのでさらに質問させてください。
これだと、ファイル名がFoo/hoge/AAA.gifとかいうようにディレクトリ階層が
何個かある場合にもうまくいくのでしょうか？？？Foo/hoge/AAA.gifというのを
引数で与えた場合にも例えばfoo/Hoge/Aaa.gifというファイルが実在していれば
trueを返すような関数がほしいのです。。。すみませんご教授ください。
0916デフォルトの名無しさん
NGNG0917デフォルトの名無しさん
NGNGPerl2exeみたいな偽者じゃなくて。
0918デフォルトの名無しさん
NGNG0919デフォルトの名無しさん
NGNG0920デフォルトの名無しさん
NGNGmy @path = split m|/|, shift;
pop @path if $path[$#path] eq '';
if ($path[0] eq '') { $path[0] = '/' }
elsif ($path[0] !~ /^\.+$/) { unshift @path, '.' }
my $path = shift @path;
defined(($_) = is_exists_file_in($path, $_))
? ($path .= '/' . $_)
: return
for @path;
return $path;
}
ところでこのコードがやってることは当然理解してるよな？
-f や -d 一発で済むところを、わざわざ重そうな処理を加えるんだ。
大文字小文字の区別をしないのがそれほど重要なことか、
もう一度考えた方がいいぞ。
0921デフォルトの名無しさん
NGNG0x19,0x1D,0x1Eが正常に認識されないみたいなのです。
printで表示した場合、
0x19 … 表示されず
0x1D,0x1E … 違う値が表示される
となります。
何故なんでしょうか？
0922デフォルトの名無しさん
NGNG0923デフォルトの名無しさん
NGNG0924デフォルトの名無しさん
NGNGread(FILE,$data,2);
$num =unpack("n",$data);
print $num;
これを実行した時に
0x１A … 表示されず
0x001D … 173
0X001E … 174
と表示されてしまいます。
訂正：>>921で、"0x19 … 表示されず"と書きましたが0x1Aの間違いでした。
0925デフォルトの名無しさん
NGNGunpackの使い方がそれでは、、、結局どういうかたちで取得したいの？
文字？ 文字コード？
0926kalma ◆eRZ2quxw
NGNGネットワークバイトのshort型整数をファイルから取得したいのですが…
やり方が間違っているのでしょうか？
0927デフォルトの名無しさん
NGNG0928デフォルトの名無しさん
NGNG例えば、こんなこと？
$ar[0][0]="00";
$ar[0][1]="01";
$ar[1][0]="10";
$ar[1][1]="11";
$ar[2][0]="20";
$ar[2][1]="21";
splice(@ar,1,1);
for $i (0 .. $#ar) {
@tmp=$ar[$i];
for $j (0 .. $#tmp) {
print "$ar[$i][$j]\n";
}
}
0929デフォルトの名無しさん
NGNGbinmode FILE;
じゃないか？
0931デフォルトの名無しさん
NGNG@tmp=$ar[$i]なんてやる必要ない。
for $j (0 .. $#{$ar[$i]}) {
ってしる。
0932デフォルトの名無しさん
NGNGbinmodeは設定しています
一体何が悪いんでしょうか・・・
0933デフォルトの名無しさん
NGNGこれの回避法ってあるんでしょうか？
0934デフォルトの名無しさんぺいです
NGNG0935デフォルトの名無しさん
NGNGgzip, bz2用はあるのに、zipのはないんだよねえ。
0936デフォルトの名無しさん
NGNG●●●●●●●●「オセロさえ納期内に作れない＝ＯＯ役立たず 」祭り●●●●●●●
／| | |＿＿＿＿_ΦΦΦΦΦΦΦΦΦΦΦ||ΦΦΦ
| | |￣￣￣ ／| ||
| | | ／ ／|TTTTTT TTTTTTTTTT||TTTTT
| ／＼ | ／|／|／|^^^^^^ |三三| ^^^^^^^^^^^||^^^^^^^
| ／ ／ |／／ ／ ／|
| ／ ／ |＿|／|／|／|／|
| ／ ／ |文|／ ／／ ／
|／ ／. ＿.|￣|／|／|／ Λ＿Λ
／|＼／ ／ ／ |／ ／ （＿＿_）
／| ／ ／ ／ヽ /〔 非OO 〕〕つ
| |￣| | |ヽ／l ｀/二二ヽ
| | |／| |__|／ Λ＿Λ / /（＿）
| |／| |／ （ ´∀｀） （＿） Λ＿Λ
| | |／ ／/ / ^￣］ﾟ （｀ ）
| |／ ﾟ/￣￣_ヽ ⊂〔〔 非OO 〕
出力用ファイルハンドル(例だとSTDOUT)もbinmode()してる？
0938デフォルトの名無しさん
NGNGその値をローカル変数にコピーした方が効率がいい？
それともヘタに変数を増やすとメモリを喰って効率が落ちる？
# 1
if($array[0][0][0] == 0) {
} elsif($array[0][0][0] == 1) {
} elsif($array[0][0][0] == 2) {
}
# 2
my($copy) = $array[0][0][0];
if($copy == 0) {
} elsif($copy == 1) {
} elsif($copy == 2) {
}
0939厨房
NGNG環境がUNIX？でないせいか(WinでActivePerl＋httpdでやってますが)
本の通りに書いても<STDIN>で入力できません(？
上記の環境で<STDIN>を使ったスクリプトを試すにはどうしたらよいでしょうか？
0941厨房
NGNGThis is perlうんちゃら…って出てきますが…？
0942デフォルトの名無しさん
NGNGsub test {
my(@array) = (1,2,3);
$hash{'a'} = \@array;
return;
}
@array[0]は当然null。
$hash{'a'}->[0]は1。
なぜこうなるのかが分かりません。
0943デフォルトの名無しさん
NGNG変数名は実際の「値」に付いている「名札」に過ぎず、
「値」自身はそれを参照する「名札」が全部消えるまで
メモリに残っているから。
その例だと test の中で (1,2,3) という各「値」に @array という
「名札」を付けている。@array は my で宣言されている「名札」なので
test の中でしか使えないが、$hash{'a'} という「名札」は
グローバルな「名札」なので、test のスコープから抜けた後でも
(1,2,3) という「値」を見る為に使える。
詳しくは「ガベージコレクション (GC)」「クロージャ」
「リファレンス (参照) カウンタ」といった単語で調べて。
0944名無しさん＠Ｍｅａｄｏｗ
NGNG>>942じゃないけど、明解レスありがと。
漏れも質問に答えてんだけど、質問者からの感謝がないのが
このスレの特徴かな。
0945棄教者 ◆egKIKYO7cg
NGNGOKです。
UNIXで勉強するPerlの本にはコマンドプロンプト云々と書いてありますが、
MS-DOSがそのコマンドプロンプトになっています。
たとえば
---data.txt----
unko
chinko
manko
-------------
という三行のファイルを用意して
---hoge.pl----
while(<STDIN>) {
print $_;
}
-------------
という Perl スクリプトを用意して
C:\>perl hoge.pl < data.txt
してください。
これで後は厨学生程度の大脳があれば STDIN は理解できるはずです。
0946デフォルトの名無しさん
NGNGWebProg板にでも誘導するんだがな
0949デフォルトの名無しさん
NGNG0951デフォルトの名無しさん
NGNGあと、perldoc読めば済むような話を色々解説するのもどうかな。
0952デフォルトの名無しさん
NGNGはい決まった。
0953デフォルトの名無しさん
NGNG0954デフォルトの名無しさん
NGNGお呼びじゃないってやつですね。
0955デフォルトの名無しさん
NGNG次スレは絶対に立てるなよ。荒らした上で削除依頼出すからな。
0956デフォルトの名無しさん
NGNGお礼が欲しけりゃ余所に逝け。二度と出て来るな。
0957デフォルトの名無しさん
NGNG0958デフォルトの名無しさん
NGNGぷぷぷ
反論したいか？反論したいんだろ？ぷぷぷ大爆笑
お前らには無理。
Perlみたいな糞言語を使う奴らは人間以下
0959デフォルトの名無しさん
NGNGほんで日ごろの鬱憤をはらす、と。
0960デフォルトの名無しさん
NGNG0961デフォルトの名無しさん
NGNGこんなつまらんことで人を見下したくなるっていうのは。
次スレ立たなかったら自分を保てなくなっちゃいそうだ。
誰か立ててあげれ
0962Rubyust
NGNG0963デフォルトの名無しさん
NGNGぷぷぷ
ばぁぁあか
死ねよ
0964デフォルトの名無しさん
NGNGム板で厨房言語のスレッドを乱立させないで欲しい。
0965デフォルトの名無しさん
NGNG書いたPerlのスレを立てておかないと
いつか>>1みたいなのがまたでてきちゃって元の木阿弥なのでは?
0966デフォルトの名無しさん
NGNG0967デフォルトの名無しさん
NGNG0968デフォルトの名無しさん
NGNG「検索しましたが一覧にないようなので立てました」とかいいつつ
次スレを立てると思うよ。
0969デフォルト名無しさん
NGNG0970デフォルトの名無しさん
NGNG0971デフォルトの名無しさん
NGNG0972デフォルトの名無しさん
NGNG無視して便利なPerlの恩恵に与ろうぜ。
0973デフォルトの名無しさん
NGNG0974デフォルトの名無しさん
NGNG0975デフォルトの名無しさん
NGNG0976デフォルトの名無しさん
NGNG0977デフォルトの名無しさん
NGNG0978デフォルトの名無しさん
NGNG0979デフォルトの名無しさん
NGNG0980デフォルトの名無しさん
NGNG0981デフォルトの名無しさん
NGNG0982うんこ厨房
NGNG0983デフォルトの名無しさん
NGNG0984デフォルトの名無しさん
NGNG0985デフォルトの名無しさん
NGNG0986デフォルトの名無しさん
NGNGこれから住所の特定に入る。
0987デフォルトの名無しさん
NGNG0988デフォルトの名無しさん
NGNG0989デフォルトの名無しさん
NGNG0990デフォルトの名無しさん
NGNG0991デフォルトの名無しさん
NGNG0992デフォルトの名無しさん
NGNG0993デフォルトの名無しさん
NGNG0994デフォルトの名無しさん
NGNG0995デフォルトの名無しさん
NGNGﾏｨﾏｨ
0996Rubyist
NGNG0997デフォルトの名無しさん
NGNG0998デフォルトの名無しさん
NGNG1000デフォルトの名無しさん
NGNG1001１００１
Over 1000Threadもう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。