Perlについての質問箱 ..
257:デフォルトの名無しさん
07/04/14 23:48:58
>>256さん
あ、もしかしてここは関係なかったですかね…
カレンダーの1日ごとにコンボボックスが入っているので、そのカレンダーの方のコードなんでしょうか…
わからないことだらけのまま質問してしまってごめんなさい。
もう一度コードを見直してみます。
258:デフォルトの名無しさん
07/04/14 23:53:55
読み込まれたテキストデータがコンボボックスのどの変数になってるのかがわからない。
perlコードの、$periods、$showpname・・・とやらが何なのかわからないと
何もアドバイス出来ないよ。
259:デフォルトの名無しさん
07/04/15 00:03:49
>>258さん
そうですか…
$periodsなどなどは専門用語なのかなぁ、と思っていたのでそこから間違いだったのですね。
前任者とは全く連絡が取れず、初心者の私には何がなにやらさっぱりで…
失礼致しました。
もっと勉強して出直します！
260:デフォルトの名無しさん
07/04/15 00:23:13
periodつーたら何らかの「期間」じゃないのか?
261:デフォルトの名無しさん
07/04/15 00:39:39
>>260さん
期間…カレンダー関係ですかねぇ。
日ごとにアルファベッドを選択して登録するんですけど、
何ヶ月か分をまとめて登録してそれをScriptで(？)違うページに呼び出すので、それですかねぇ…
それにしても8番までしか出てこないのもどこかで指定してるんですかねぇ。
あまりにファイルが多すぎて、探すのに時間がかかりそうです…
262:デフォルトの名無しさん
07/04/15 00:52:49
>>255
本当にそのコードが該当コードなのかどうか怪しいね
ありうるとすれば@STATUSSTRの中が"<select>…"といったhtmlになってるとか
とりあえずPerlの配列変数は先頭の記号が $ だったり @ だったりするので
それだけ注意して変数をさかのぼって行くとか
お節介だけど$showpnameのif文、通らない場合に開始<tr>タグ欠けるよ
263:デフォルトの名無しさん
07/04/15 01:03:42
俺なら解読するの諦めて書き直したくなるな
264:デフォルトの名無しさん
07/04/15 01:56:12
>>255
エスパーのおいらが予測するには、>>255 が挙げた箇所の次に
} else {
という行があり、その後の部分が問題の部分なんだろうな。
265:デフォルトの名無しさん
07/04/15 06:52:58
perlのソースコードの中に直接HTMLが書かれているなら
「type="select"」あたりで検索すれば、該当個所の近辺の
コードに当たるんじゃないか？
266:265
07/04/15 06:55:31
間違えた。「type="select"」じゃなくて「<select」だな。
267:デフォルトの名無しさん
07/04/15 23:51:49
>>255さんには内緒で、実はその前任者さんをこのスレにお呼びしています＾＾。
実は前任者さん、その書き込みの様子をモニターを通して見ておりました。
では、心に引っかかっていた辛い過去。
あの時、伝えられなかった想いを今、、、
268:デフォルトの名無しさん
07/04/16 00:50:06
perlの時代は終わった・・・
これからの初心者は、今の時代に合った言語を使ってくれ・・・
・・以上
269:デフォルトの名無しさん
07/04/16 00:53:48
ruby？python？
270:デフォルトの名無しさん
07/04/16 01:04:26
情報保護の時代だからな。
Whitespaceだろ。
271:デフォルトの名無しさん
07/04/16 04:53:46
仕事をPHPいじってから、Perlを汚い言語だなんて言ってた自分の愚かさに気づいた。
Perlは消えなくていい。PHP、頼むから消滅してくれ。
272:デフォルトの名無しさん
07/04/16 04:56:25
s/(?<=仕事)を/で/
273:デフォルトの名無しさん
07/04/16 06:08:15
255です。
皆さんどうもありがとうございます。参考になりました！
ここで皆さんにお聞きするにはあまりにも自分が無知すぎて申し訳ないです。
更新は休みの土日しかできないので、来週までに色々調べてまた挑戦します。
>>262さん
なるほど…
<tr>タグの件、ご指摘ありがとうございます！
>>263さん
書き直すなんて絶対無理ですので頑張って解読したいと思います…
>>264さん
} else { って部分あります！！
その部分に注意してみます。
>>265さん
検索ですね。htmlがperlの中にあるので試してみます！
>>267さん
実は前任者とは全く面識がないので、あの時も何もあったもんじゃない、って感じなのですが…
274:デフォルトの名無しさん
07/04/16 14:16:33
>>225
すんげー今更だな
google出来た頃から規約に書いてあるし
URLﾘﾝｸ(www.google.co.jp)
275:デフォルトの名無しさん
07/04/17 06:50:02
まさかLWP使ったらすべて自動クエリだとか思ってる訳じゃないよな。
276:デフォルトの名無しさん
07/04/17 06:59:52
>検索結果ページに対して
ってあるからなぁ
277:デフォルトの名無しさん
07/04/17 13:36:22
質問です
$var = 010203 とあります
これを
$var = 01/02/03
このように2桁ごとにスラッシュを入れるにはどうしたらよいでしょうか？
0102 や 01、01020304 の場合などどの桁数にも対応したいです
278:デフォルトの名無しさん
07/04/17 13:43:51
perl -e '$var="010203"; $var=~s/([0-9]{2})/$1\//g;print $var;'
279:デフォルトの名無しさん
07/04/17 15:07:07
ありがとうございます
できました
280:デフォルトの名無しさん
07/04/17 15:48:19
正規表現の中にスラッシュがあるときはエスケープするより
s{([0-9]{2})}{$1/}g
とかの方が良い気がする
281:デフォルトの名無しさん
07/04/17 16:06:26
0-9より\dのがいい気がする
282:デフォルトの名無しさん
07/04/17 16:11:38
'010203' のとき '01/02/03/' になる気がする
283:デフォルトの名無しさん
07/04/17 16:44:03
s{\d{2}(?=\d)}{$&/}g;
かな
284:デフォルトの名無しさん
07/04/17 17:15:38
$& 使うくらいだったら普通に join したくなるなあ、俺は。
perl -le '$var = qq{010203} ; print join q{/}, ( $var =~ /(\d{2})/g )'
285:デフォルトの名無しさん
07/04/17 19:37:56
まあ一般には \d は 0-9 の必要条件であって同値ではないけどな。
286:デフォルトの名無しさん
07/04/17 19:46:31
こういうことか
$ perl -e 'use utf8; print q[０] =~ /\d/'
1
287:デフォルトの名無しさん
07/04/17 22:03:19
J2EEの方がいい気がする
288:デフォルトの名無しさん
07/04/17 22:40:33
>>277
3桁区切りにカンマをつけるというのがよくあるから
それを参考に好きなの使えば？
289:デフォルトの名無しさん
07/04/17 22:57:26
>>282
答えはそれでいいんだろ？
290:デフォルトの名無しさん
07/04/17 23:59:03
>>289
質問者の出してる例はそうは言ってないぞ。
291:デフォルトの名無しさん
07/04/18 03:02:24
>>277
Date::Manipでできんじゃね?
292:壁| x ・)つ○
07/04/18 03:09:07
こういうのは こうりつわるいですか？
for ($i = 2; $i < rindex($var, ""); $i += 3) {
substr($var, $i, 0) = "/";
}
293:デフォルトの名無しさん
07/04/18 12:07:56
$var = reverse( ( $var = reverse $var ) =~ s{(\d\d)(?=\d\d)}{$1/}g );
294:デフォルトの名無しさん
07/04/18 12:18:50
近頃はs#･･･#･･･#って書き方見なくなったな
295:デフォルトの名無しさん
07/04/18 13:07:55
>>292
人間の読み書きの部分で効率悪いと思う
296:デフォルトの名無しさん
07/04/18 14:36:58
1 while $var =~ s/(\d{2})(\d{2})/$1\/$2/g;
297:デフォルトの名無しさん
07/04/18 14:43:01
s/(\d{2})(?=\d{2})/$1\/$2/g
298:デフォルトの名無しさん
07/04/18 16:53:45
>>297
$2なんてないじゃん
299:デフォルトの名無しさん
07/04/18 17:11:53
>298
なにを言っているんだお前は。
300:デフォルトの名無しさん
07/04/18 17:40:37
いやさ、 (?= ) は後方参照を生成しないだろう？
> perl -e "q/123/ =~ /(\d)(?=\d)(\d\d)/; print $2;"
23
そもそも、(?= )はゼロ幅先読みだろう。
> perl -e "q/123/ =~ /(\d)((?=\d))/; print $2;"
(出力なし)
301:デフォルトの名無しさん
07/04/18 20:54:57
>>295 なるほど ワンライナーでさらっとかけるよう しょうじんいたします
・)つ● ←おれいのしな
302:デフォルトの名無しさん
07/04/19 10:56:55
>>300
そのとおり。適切な指摘ありがと。書いてから気がついた。
>>283か、
s|(\d\d)(?=\d)|$1/|g
みたいな感じで。
303:デフォルトの名無しさん
07/04/19 22:59:05
ファイル出力の質問です
open IN , ">$failename";
print IN , "test;
close IN;
で、$filenameに絶対パスを入れたいんですが、なんかうまく言ってくれないんです Orz
助けてエロい人
304:デフォルトの名無しさん
07/04/19 23:02:26
>>303
> で、$filenameに絶対パスを入れたいんですが、なんかうまく言ってくれないんです Orz
さあ、「なんかうまく言ってくれないんです」の「なんか」を推定するクイズです!!
305:デフォルトの名無しさん
07/04/19 23:08:28
これは流石に釣りだろう
306:デフォルトの名無しさん
07/04/19 23:11:10
エスパーの私がお答えしよう。
Windows で \ 記号がディレクトリ名の区切りなもんだから
ダブルクォーテーションで括っただけだとエスケープと
解釈されちゃって変な文字列完成。→オープン→エラー。
そんなファイルはねえよヴォケと $! に入っている。
307:デフォルトの名無しさん
07/04/19 23:34:21
$failename (フェイルエネーム?) だからではないか・・・なんてことはないか。
そもそも IN じゃなくて OUT だろうと
use Fatal qw(open close);
open my $out, '>', $filename;
print {$out}, "test";
close $out;
308:307
07/04/19 23:39:40
- print {$out}, "test";
+ print {$out} "test";
309:デフォルトの名無しさん
07/04/19 23:40:55
{$out}
310:デフォルトの名無しさん
07/04/19 23:54:37
{$safe}
311:265
07/04/19 23:58:02
$failename =~ s/^/zettaipath\/;
312:303
07/04/20 00:05:38
みなさま マジでありがとうです
こんな初心者をささえてくれてありがとお つω；
313:デフォルトの名無しさん
07/04/20 01:32:59
なんかうまく言えました
314:デフォルトの名無しさん
07/04/20 03:42:05
うまく言えないけれど宝物だよ
315:デフォルトの名無しさん
07/04/20 03:53:44
僕たちはできる!! できるんだ!!
316:デフォルトの名無しさん
07/04/20 03:54:26
最高ですか！！？
最高です！！！
317:デフォルトの名無しさん
07/04/20 12:14:51
プラス思考のスレはここですか?
318:デフォルトの名無しさん
07/04/20 15:30:27
プラス指向プログラミング POP
319:デフォルトの名無しさん
07/04/20 19:25:20
@http = $_ =~ /s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]+/g;
print FILEA @http;
このような記述をしたら、
Variable "@http" is not imported at http-client.pl line 53.
Variable "@http" is not imported at http-client.pl line 54.
Global symbol "@http" requires explicit package name at http-client.pl line 53.
Global symbol "@http" requires explicit package name at http-client.pl line 54.
と言われました。
これは何のエラーですか！？
320:デフォルトの名無しさん
07/04/20 22:19:47
@httpを括弧でくくってください
321:デフォルトの名無しさん
07/04/20 23:21:12
>>319
Variable "@http" is not imported については、perldiagをどうぞ。
というか、「何の」もなにもperlが出しているエラーなんだからまずはここで調べるべし。
つ URLﾘﾝｸ(perldoc.jp)
とりあえず、use strictなのに @http が生で使われているのが原因ですので、パッケージを明示的に
指定して使うか、my宣言すればいいのでは。
322:デフォルトの名無しさん
07/04/21 23:17:55
PDFを解析したいんですが、どのような方法で読み込んでいったらいいと思いますか？
ちなみに、PDFの仕様として：
・改行文字はCR，LF，CRLF，のどれでもよい。
・文字列内での改行文字はそのままのかたちで残さなければならない。
・文字列内で（見た目のために）改行したいときは \改行文字 とする。
read(FILE, $buf, 512) ってのもめんどくさそうだし、できれば while(<FILE>) で
済ましたいんですが、意味のある改行もあるしなぁ。。。
323:デフォルトの名無しさん
07/04/22 00:20:39
>>322
何をしたいのか知らんが、まずCPANでPDF関係のモジュールを
サーチしたほうがいいね。
あなたがしたいことを既に実現しているモジュールがあるかもしれないし、
少なくとも、改行文字の扱い方については、ソースの中にお手本が
あると思うし。
324:303
07/04/22 04:50:29
303ですが またまた超初心者な質問です。
requier './jcode.pl';
sub jis { $msg = $_[0]; &jcode'convert(*msg, 'jis'); }
ってコードがあったのですが
&jcode の後ろについている ' の意味がわかりません。
もしかして
&jcode::convert(*msg,'jis');
と同義ですか？
エディターの色分けが気持ち悪くなるので直したいです。教えてエロい人 Orz
325:デフォルトの名無しさん
07/04/22 05:35:13
Perl4
326:デフォルトの名無しさん
07/04/22 05:37:45
>>324
エロい人よりマニュアルに頼ろうよ。
<q cite="URLﾘﾝｸ(www.kt.rim.or.jp)
古いパッケージ区切り子はシングルクォートでしたが、
現在はダブルコロンを使うのが推奨されています。
</q>
URLﾘﾝｸ(mikeneko.creator.club.ne.jp)
327:324
07/04/22 11:13:18
なるほど！ ありがとうございました ＞＜
Jcodeの使い方も含めて勉強してきます ＞＜ノ
328:デフォルトの名無しさん
07/04/22 14:43:25
CPAN でインストールする際に以下のようなメッセージが出て失敗します。
Undefined subroutine &Compress::Zlib::gzopen called at /usr/local/lib/perl5/5.8.8/CPAN.pm line 5721.
何をインストールしても大体このエラーが出て失敗します。
Zlib は、
/usr/local/lib/perl5/site_perl/5.8.8/Compress/Zlib.pm
にあって、サブルーチン gzopen もありました。
また、@INC に /usr/local/lib/perl5/site_perl/5.8.8 は含まれていました。
どこに問題があるか分からないのですが、教えてもらえないでしょうか。
環境は、
OSX 10.4.9 で Perl 5.8.8 を /usr/local/bin にインストールしました。
329:デフォルトの名無しさん
07/04/22 16:09:08
>>328
あえて /usr/bin/perl ではなく /usr/local/bin/perl を使いたいわけね？
で、実際に使ってる(環境変数 PATH で優先的に参照される)のは /usr/bin/perl ではなく、
/usr/local/bin/perl ってことに間違いはない？
330:デフォルトの名無しさん
07/04/22 16:35:51
>>329
レスありがとうございます。
>あえて /usr/bin/perl ではなく /usr/local/bin/perl を使いたいわけね？
はい。ソースコードからインストールしたらそこにインストールされたので、
/usr/local/bin/perl を使っています。
>で、実際に使ってる(環境変数 PATH で優先的に参照される)のは /usr/bin/perl ではなく、
>/usr/local/bin/perl ってことに間違いはない？
間違いないはずです。
which perl で確認しました。
CPAN.pm の該当箇所をみると、
$CPAN::META->has_inst("Compress::Zlib") で判定した後に、
Compress::Zlib::gzopen を呼び出していました。
そこで gopen がないとなる理由がよく分かりません。
331: ◆TWARamEjuA
07/04/22 17:40:08 BE:2287837-2BP(6823)
>>330
> >で、実際に使ってる(環境変数 PATH で優先的に参照される)のは /usr/bin/perl ではなく、
> >/usr/local/bin/perl ってことに間違いはない？
> 間違いないはずです。
> which perl で確認しました。
$env
してみると判るけれども標準ではpathが通っていないと思うですです。
PATH=/bin:/sbin:/usr/bin:/usr/sbin
@MacOSX 10.4.9
もっぺん確認してみよう♪
♯tu-ka未だに5.8.6のままなんだよなぁ。。。(´･ω･`)
$ perl -v
This is perl, v5.8.6 built for darwin-thread-multi-2level
(with 3 registered patches, see perl -V for more detail)
332:デフォルトの名無しさん
07/04/22 17:55:38
>>331
レスありがとうございます。
$env
で確認してみましたが、先頭に/usr/local/binがありました。
PATH=/usr/local/bin:/bin:/sbin:/usr/bin:/usr/sbin
こうなるように、以前./bash_profile に追加しました。
となると、原因は不明でしょうか？
インストールの仕方が悪かったのかなあ。
333:デフォルトの名無しさん
07/04/22 20:53:01
CPANなんてまともに動作すると思うほうがおかしい。
手動で入れろ。
334:デフォルトの名無しさん
07/04/22 21:21:50
>>323 THX
PDFファイルのすべてを把握するのが目的です。
CPANをみたところ、PDFのテキストや書誌情報を抽出したりするためのAPIは用意されてる
のですが、もっと低レベルなパーサーがないようです。。
各種トークンが出現するたびにイベントを起動するような奴がほしいんですが。
HTML::ParserのPDF版でPDF::Parserみたいな感じの奴です。
335:デフォルトの名無しさん
07/04/22 23:26:59
日曜潰してまだ分からないので、どなたか助けてください＼(ToT)／
UTF-8でURIエスケープされた文字列を、アンエスケープするPerlの処理でけつまづいてます。
元の文字列をURIエスケープした文字列がサーバ側まで来ているのは確認しました。
「質問」→「%E8%B3%AA%E5%95%8F」だとか、「ü」→「%C3%BC」だとか。
これを
$utf8str =~ s/%([a-f\d]{2}/pack('H2',$1)/egi;
しても、正しくアンエスケープされない（文字化けする）のです。
UTF-8が可変バイトなのが曲者なのでしょうか。。。
ググった先（URLﾘﾝｸ(oshiete1.goo.ne.jp)）の
$utf8str =~ s/%(e[a-f\d])%([a-f\d]{2})%([a-f\d]{2}/pack('H2',$1).pack('H2',$2).pack('H2',$3)/egi;
してもやはりだめでした。
336:デフォルトの名無しさん
07/04/22 23:56:33
>>333
むあじっすか。
337:デフォルトの名無しさん
07/04/22 23:59:22
>335
use Encode qw/from_to/;
my $str = '%E8%B3%AA%E5%95%8F'; # utf8の'質問'をエスケープ
(my $dec = $str) =~ s/%([a-f\d]{2})/pack 'H2', $1/egi;
from_to($dec, 'utf8', 'cp932'); # Winのコマンドプロンプトで表示するのでcp932にしてる
print $dec;
とりあえずこれで動いてるけど？ ブラウザに出してるんなら、Shift_JISって解釈されてるとかじゃない？？
338:デフォルトの名無しさん
07/04/23 00:01:31
>>335
> $utf8str =~ s/%([a-f\d]{2}/pack('H2',$1)/egi;
$1のための括弧が閉じられてません。
あとは、UTF-8に対応したEditorで開いてないとかでしょうか。
上の式で正しくアンエスケープされました。
339:デフォルトの名無しさん
07/04/23 00:35:06
括弧閉じ忘れでごめんなさいorz
>>337さんのスクリプトを実行したところ、文字化けしませんでした。
また、from_toする前でも、ファイルにリダイレクトして、
そのファイルをエディタで開いても同様に文字化けしていませんでした。
しかし、サーバに持って行ってブラウザに結果を出すと文字化けしてしまいます。
エディタはUTF-8に対応していて、Perlスクリプトもutf-8で保存して、
use utf8; use open ":utf8"; use open ":std";して、
print "Content-type: text/html; charset=utf-8\n\n";
いるのですが、
>>337さんのものでprint $dec;でもprint $str;でも駄目（文字化け）でした。
環境はWin XP SP2 + IE7、[表示]-[エンコード]でもUTF-8であることを確認しているのですが。。
。
度々で申し訳ないのですが、他に何か怪しい箇所がありますでしょうか？
340:デフォルトの名無しさん
07/04/23 00:49:03
#!/usr/bin/perl
my $str = '%E8%B3%AA%E5%95%8F';
(my $dec = $str) =~ s/%([a-f\d]{2})/pack 'H2', $1/egi;
print "Content-Type: text/plainl; charset=utf-8\n\n";
print $dec;
__END__
とりあえず手元だとこれで動いてる。まずは問題の発生する最小限のコードまで切り詰めてみ？
341:337
07/04/23 01:17:20
ありがとうございました！解決しました。
use open ":std";が余計でした（よく分からないのに「おまじない」で書くのは駄目でしたね）。
問題のスクリプトから上記を除いて、かつ、
自分で作って読んでいるモジュールからも上記を除きました。
本当にありがとうございます！
342:デフォルトの名無しさん
07/04/23 01:18:56
自分（↑）は>>337さんでなくって>>335でした。お目汚しでごめんなさい。
標準入出力を使わないなら、use open ":std";等は確かに不要でした。
343:335
07/04/23 03:15:36
事後報告がてら・・・
use open ":std";を外せばアンエスケープで文字化けしないものの、
今度は後続処理でUTF-8な文字を処理できないという問題がありました。
結局、以下のサイトを参照して、
URLﾘﾝｸ(naoya.dyndns.org)
use open ":std";は残したままで、アンエスケープ処理の後に
utf8::decode($str);でUTF8フラグを落とせば、
スクリプトへのUTF-8文字列の受け渡しも、後続処理も、うまく行きました。
夜更けにお答えくださって、本当にどうもありがとうございました。
これで安心して眠れそうです。
344:デフォルトの名無しさん
07/04/23 18:08:16
■ Perl言語 ■ 何でも質問コーナー ■
URLﾘﾝｸ(mixi.jp)
Perlに関すること、cgiに関すること
なんでも質問できるコーナーです(たとえばApacheとかでもOKとします！)
（Web系であればOK）
ルール：
Google検索で調べてわかるようなことでも質問してもOKです
（初心者のうちは、どの情報を取捨選択したらイイのかわからないと思うので）
回答してくださるかたは、暖かく質問者を迎えてやってください
o(^^o) (o^^)o
345:デフォルトの名無しさん
07/04/23 18:19:57
そのトピック自体はどうでもいいんだが
コミュニティのタイトルとか説明文が凄く気になって仕方が無い。
346: ◆TWARamEjuA
07/04/23 19:56:34 BE:3485748-2BP(6823)
コミュニティの名前
PERL言語 CGI言語
コミュニティの説明
perl言語 cgi言語のコミュニティです
だそうです。。。
347:デフォルトの名無しさん
07/04/24 04:11:19
Web系NGなこのスレとうまく連携していければいいですねo(^^)o
348:デフォルトの名無しさん
07/04/24 08:17:44
未だにCGIが（ｒｙ
349:デフォルトの名無しさん
07/04/24 10:36:14
ダメそうなコミュだなｗ
350:デフォルトの名無しさん
07/04/24 22:51:58
どうしようもない質問の数々に、「ちったぁマニュアル読んでください！」と、
最後に管理者がキレるに１票。
351:デフォルトの名無しさん
07/04/25 02:27:30
いやあ管理人もろくすっぽ読んでないんじゃないか?
352:デフォルトの名無しさん
07/04/25 11:12:27
実は、管理人自身が２ちゃんねるで質問したところ、
「ググれカス」だの「マニュアル嫁」みたいな回答しか
返ってこなかったので、管理人にやさしく教えてくれる
ところが欲しかったんじゃないの？
353:デフォルトの名無しさん
07/04/25 12:06:40
>>352
もちろんそうでしょ。
そうじゃなきゃルール書きの冒頭が「Google検索で調べて
わかるようなことでも」で始まるわけないっすよ。
354:デフォルトの名無しさん
07/04/25 12:33:51
モヒカン族はお断りです＞＜
355:デフォルトの名無しさん
07/04/25 17:38:48
モヒカン族の土地に侵入してきたくせに、大きい顔をするな
356:デフォルトの名無しさん
07/04/25 19:00:43
座り込んで動かない、口だけ達者なでっぷり太ったモヒカン族ほど
役に立たないものはない。
川に流してしまいたい。
357: ◆TWARamEjuA
07/04/25 20:55:45 BE:980633-2BP(6824)
不法投棄しちゃダメです♪
358:デフォルトの名無しさん
07/04/25 21:32:05
食肉に加工するというのはどうだろう
359:デフォルトの名無しさん
07/04/25 22:08:09
強くなれ!! と願いを込めて、子供たちに食べさせるとよいね。
360:デフォルトの名無しさん
07/04/25 23:13:46
弱者の肉なんかいくら食べても強くなれないよ
361:デフォルトの名無しさん
07/04/25 23:27:06
食べるのなら、戦場で最前線に立つモヒカンを食べよう。
362:デフォルトの名無しさん
07/04/26 09:20:12
／ ： 》：､∩
（===○=）/ センセー
＿_ / ⇔ / 話しについてけませーん
＼⊂ノ￣￣￣＼
||ヽ||￣￣￣￣||
...||￣￣￣￣||
363:デフォルトの名無しさん
07/04/26 22:17:39
>>346
CGI言語と来たか・・・。
本当に作ってしまって混乱させるというのはどうか?
もちろんその言語はクライアントマシンの限られた
中でしか使えず、 Web の CGI になんて使えないのだ。
364:デフォルトの名無しさん
07/04/26 22:18:42
Common Graphics Interface とかいう紛らわしいグラフィック操作用言語を新たに作る。
365:デフォルトの名無しさん
07/04/26 23:07:10
parrot上で走らせたらもっと混乱の元に。
366:デフォルトの名無しさん
07/04/26 23:15:11
ｺﾓﾝ ｸﾞﾗﾌｨｯｸｽ ｲﾝﾀｰﾌﾟﾘﾀｰ
池袋で乗車してきた女の子がハロプロエッグの子とかたかまりこ
367:デフォルトの名無しさん
07/04/27 11:39:27
ついでだ。IT言語というのも作ってしまえ。
368:デフォルトの名無しさん
07/04/27 11:57:03
そろそろここは質問箱だということを思いだそう。
369:デフォルトの名無しさん
07/04/27 15:28:36
そういえば Perl の質問がないなあ・・・。
370:デフォルトの名無しさん
07/04/27 15:34:31
Chanto Gugure Internet de
371:デフォルトの名無しさん
07/04/27 17:29:18
perlってグーグル八分されてるんだってね
372:デフォルトの名無しさん
07/04/27 18:13:20
WindowsでDOSコマンドの結果を取り込むには、
どうすればよろしいでしょうか？例えば、
dir c:\trash
の結果を取り込もうとしても、次のスクリプトではうまくいきません。
$files = `dir c:\\trash`;
print "The files are $files\n";
373:デフォルトの名無しさん
07/04/27 18:43:53
GW前に出された宿題で質問が増えるから大丈夫ｗ
374:デフォルトの名無しさん
07/04/27 18:53:55
>372
手元だとそれでうまくいってるけど。
375:372
07/04/27 20:04:12
>>374
すみません。書き忘れていました。>>10にある先頭の5行を入れていました。
use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)";
「use open IO => ":encoding(cp932)"; 」の行を削除して
次のように修正すると動きました。
use Encode;
$orgfiles = `dir c:\\trash`;
$files = decode('cp932', $orgfiles);
print "The files are $files\n";
376:デフォルトの名無しさん
07/04/27 21:23:44
>>372
例によって cmd.exe /c dir ... じゃない?
377:デフォルトの名無しさん
07/04/27 21:24:53
失礼、関係なかったのね。
378:デフォルトの名無しさん
07/04/27 21:35:08
>371
記号が多いから、とか？
379:デフォルトの名無しさん
07/04/27 22:21:10
>>378
うんにゃ、LWPのUAがはじかれる件でしょ？
380:デフォルトの名無しさん
07/04/27 22:23:19
>>378
Perlで書かれたボットの多くがLWPのデフォルトUser-Agentをそのまま名乗って
おり、403を食らうようになった。当然だがUAを変えれば通れる。
381:デフォルトの名無しさん
07/04/27 22:24:27
Google八分ってのは、Googleの検索結果に出なくなる話だから、
今回のそれとは違うよな。
382:デフォルトの名無しさん
07/04/27 22:30:29
新しく覚えた言葉を使ってみたかっただけだろ
そう責めるな
383:デフォルトの名無しさん
07/04/28 00:19:39
perlのモジュールって一気にアップデートできないの？
それとも使う奴だけ手動でアップデートさせるしか方法ない？
384:デフォルトの名無しさん
07/04/28 00:39:19
>383
cpanシェルでupgrade
385:378
07/04/28 01:18:47
Perlに限らないけど、プログラミング言語の仕様として存在する演算子や記号は検索しづらいよなあ。
386:デフォルトの名無しさん
07/04/28 03:22:17
不満を抱えるものが改善する。それが基本である。
387:デフォルトの名無しさん
07/04/28 05:09:49
でもそれを誰かが改善したらPythonっぽい何かになるからPythonでいいよねｗ
388:デフォルトの名無しさん
07/04/28 17:56:47
比較演算子は記号じゃなくて文字列にすりぁいいんだよな
Pealのeqとかみたいにさ
389:デフォルトの名無しさん
07/04/28 19:26:07
>>380
なったと言っても数年前からだよ。
今頃騒いでるやつらはアンテナが低すぎると思ったのだった。
390:デフォルトの名無しさん
07/04/29 01:57:47
struct {
char len1;
char word1[len1];
char len2;
char word2[len1];
char len3;
char word3[len1];
}
みたいな構造の可変長のバイナリなデータがあるんですが、
これをperlで綺麗でかっこよく展開する方法ってないですか？
今は下のようなことをしてるのですが、なんか見辛いし汚いので…
$data = "\4ABCD\3EFG\7HIJKLMN";
($len1,$data) = unpack("Ca*",$data);
($word1,$data) = unpack("a${len1}a*",$data);
($len2,$data) = unpack("Ca*",$data);
($word2,$data) = unpack("a${len2}a*",$data);
($len3,$data) = unpack("Ca*",$data);
($word3,$data) = unpack("a${len3}a*",$data);
print "$word1\n$word2\n$word3\n";
391:デフォルトの名無しさん
07/04/29 03:40:49
少なくともループ構造にするべきだと思う
392:デフォルトの名無しさん
07/04/29 04:06:37
>>390
perldoc -f pack して目を皿のようにして熟読せい。
The "/" template character allows packing and unpacking
of strings where the packed structure contains a byte
count followed by the string itself. You write
*length-item*"/"*string-item*.
393:デフォルトの名無しさん
07/04/29 05:12:56
>>392
あああああ、そんなテンプレートがあったんですね。
日本語の5.6ベースのman見てたので気づきませんでした…
ありがとうございます。
394:デフォルトの名無しさん
07/04/30 02:59:39
>>393
あ、すまん。
5.6からの拡張だと思ってたが、違ったか(393には問題ないみたいでよかった)。
395:デフォルトの名無しさん
07/05/01 17:38:05
ファイル内の文字列を置換するスクリプトを書いているところなのですが、
「置換する」「置換しない」(飛ばす)「残り全て置換」「キャンセル」という
処理を行うにあたって、見つけた文字列を置換せずに飛ばして次を置換する
方法が思いつきません。置換しないテキストは適当な文字列に置換しておいて
最後に戻すという方法も考えたのですが、あまりスマートではないと思いまし
た。何かよい方法があったら、お知恵をお貸しください。
while($text =~ /($regexp)/) {
if($all == 0) {
$before = $1;
$after = $1;
$after =~ s/$regexp/$replace/m;
print "置換前:\n$before\n置換後:\n$after\n";
do {
print "置換する? [y]es [n]o [a]残り全て [g]キャンセル ";
$key = <STDIN>;
chomp($key);
} while ($key ne "y" and $key ne "n" and $key ne "a" and $key ne "g");
if($key eq "y"){
$text =~ s/$regexp/$replace/m;
}elsif($key eq "n"){
# ここをどうする？
}elsif($key eq "a"){
$text =~ s/$regexp/$replace/gm;
$all = 1;
}else{ exit; }
}elsif($all == 1) {
$text =~ s/$regexp/$replace/gm;
}
}
396:395
07/05/01 17:39:43
補足です。$textはファイルの内容、$regexpは置換前の文字列、$replaceは
置換後の文字列です。
397:デフォルトの名無しさん
07/05/01 17:51:02
>>395
ヒント: posと\G
perl -e '$x = "aaaaaa"; pos($x) = 2; $x =~ s/\Ga/x/; print $x,"\n";'
aaxaaa
398:395
07/05/01 21:09:08
ありがとうございます、無事できました。コードはこのようになりました。(たぶん問題ないはず…)
$p = 0;
while($text =~ /\G(?:.*\n)*?.*?($regexp)/gm) {
$p = pos($text) - length($1);
pos($text) = $p;
if($all == 0) {
$before = $1;
$after = $1;
$after =~ s/$regexp/$replace/m;
print "置換前:\n$before\n置換後:\n$after\n";
do {
print "置換する? [y]es [n]o [a]残り全て [g]キャンセル ";
$key = <STDIN>; chomp($key);
} while ($key ne "y" and $key ne "n" and $key ne "a" and $key ne "g");
if($key eq "y"){
$text =~ s/\G$regexp/$replace/m;
pos($text) = $p + length($after);
}elsif($key eq "n"){
pos($text) = $p + length($before);
}elsif($key eq "a"){
$text =~ s/\G$regexp/$replace/gm;
$all = 1;
}else{
exit;
}
}elsif($all == 1) {
$text =~ s/\G$regexp/$replace/gm;
}
}
399:デフォルトの名無しさん
07/05/01 21:31:38
\Gの使い方がおかしいような
最後の全置換は絶対うまくいかんだろ
400:デフォルトの名無しさん
07/05/01 22:01:18
せっかく書いたんだからたぶんとかいってないで動かしてみるべきだな。
401:395
07/05/01 22:02:38
すみません、やっぱ問題がありました。置換位置\Gが正規表現に含まれている
と、置換される文字列に改行が含まれている際に、オプション"g"をつけても
複数置換してくれなくなってしまうのですが、どうすればいいんでしょうか。
perl -e '$text = "a\na\na"; $text =~ s/\Ga/b/gm; print "$text\n";'
結果:
b
a
a
perl -e '$text = "aaa"; $text =~ s/\Ga/b/gm; print "$text\n";'
結果:
bbb
perl -e '$text = "a\na\na"; $text =~ s/a/b/gm; print "$text\n";'
結果:
b
b
b
402:デフォルトの名無しさん
07/05/01 22:23:56
\Gは置換文では使わないほうがいいよ。代入されるとposがリセットされてしまうから
あとを置換しながらposを保持することはできないのでコピーを作ることを考えてみては
自分ならこう書く
my $replaced_text;
pos $text = 0;
while (pos $text < length $text) {
if ($text =~ m/\G $regexp/gcsx) {
# ここで入力による分岐処理を行う
}
elsif ($text =~ m/\G(.+?) (?=$regexp)/gcsx) {
$replaced_text .= $1;
}
else {
$text =~ m/\G (.*)/gcsx;
$replaced_text .= $1;
}
403:デフォルトの名無しさん
07/05/01 22:28:17
s///gが一種のループなのでこんな手もある。
my $mode;
$text =~ s{($regexp)}{
my $r;
if (!defined $mode) {
my $key;
do {
print "置換する? [y]es [n]o [a]残り全て [g]キャンセル ";
$key = <STDIN>;
chomp($key);
} while ( $key ne "y"
and $key ne "n"
and $key ne "a"
and $key ne "g" );
if ($key eq 'y') {
$r = $replace;
} elsif ($key eq 'n') {
$r = $1;
} elsif ($key eq 'a') {
$mode = 'a';
} else {
$mode = 'g';
}
}
if ($mode eq 'a') {
$r = $replace;
} elsif ($mode eq 'g') {
$r = $1;
}
$r;
}gme;
404:395
07/05/01 23:34:11
>>402-403
おお、これはすごい、正規表現でループができるんですね。
>>403の方法できれいなスクリプトになりました。ありがとうございます。
405:デフォルトの名無しさん
07/05/02 03:13:40
CPANシェルについてなんですが、
インストールするごとに[1]とか[2]とか増えるのはなんなんでしょうか？
406:デフォルトの名無しさん
07/05/02 03:44:02
>>405
現在実行したコマンドを識別するIDみたいなもの。
何に使ってるかまでは見てないけど。
ちなみに↓とやるとIDを変えてしまうこともできる。特に意味はない。
cpan[1]> ! $CPAN::CurrentCommandId = 100;
407:デフォルトの名無しさん
07/05/02 05:56:50
>>406
レスありがとうございます。
そうなんですか。
なんか Bundle::CPAN をインストールしてからそうなったような気がしたので、
間違えたかと思いました。
そのような情報ってどこで得ているのでしょうか？
408:デフォルトの名無しさん
07/05/02 09:35:32
モジュール（lib/CPAN.pm）のコードを読む。
409:デフォルトの名無しさん
07/05/02 14:03:43
>>406
知らないけど、ヒストリ用では?
よくUNIX用のシェルであるんだけど、 ! の直後にその番号入れて
実行するとその番号のコマンドが動くんだよ。全く同じなら再入力
する必要がないの。(更に後ろに :s/// のようなのを付けて文字列
置換できたりもする。 !30:s/aa/bb/ みたいな。全てのシェルが
同じこと出来るかどうかは知らないが)。
410:デフォルトの名無しさん
07/05/02 21:18:49
cpanpのメリットがイマイチわからん
411:デフォルトの名無しさん
07/05/02 21:20:37
最近CPAN.pmがだいぶ進化したからCPANPLUS.pmの意義が相対的に薄くなったしねー
412:デフォルトの名無しさん
07/05/03 06:35:39
awkは多少かじったのですが、perlはまるっきりの初心者です。どなたかお知恵を貸して下さい。
2つのファイル a.txt と b.txt を比較して、条件にあった行を抽出、出力するスクリプトを作りたいのです。
具体的には、
[a.txt]
ID, field1, field2
1, 5.8, 7.3
2, 6.3, 8.2
3, 3.2, 4.1
4, 4.8, 4.0
5, 8.3, 10.2
[b.txt]
ID, field1, field2
1, 6.8, 7.7
3, 4.3, 5.5
4, 5.9, 4.9
というファイルがあったとき、b.txt のIDに数値が存在する行だけを a.txt から抽出して a2.txt として保存したいのです。
[a2.txt]
ID, field1, field2
1, 5.8, 7.3
3, 3.2, 4.1
4, 4.8, 4.0
と言った具合にです。よろしくお願いします。
413:デフォルトの名無しさん
07/05/03 07:47:00
#!/usr/bin/perl
use strict;
use warnings;
open my $a, '<', 'a.txt' or die;
open my $b, '<', 'b.txt' or die;
my %ids = map { $_ => 1 } map { (split /,/)[0] } <$b>;
while (<$a>) {
my $id = (split /,/)[0];
print if $ids{$id};
}
414:412
07/05/03 08:00:05
>>413さま
早速のレス、ありがとうございます。助かりました。
こんなに簡単にできちゃうんですね。しかし、私にはスクリプトの内容は不明...。解読して勉強させていただきます。
415:デフォルトの名無しさん
07/05/03 13:36:22
use IO::File;
sub func {
my $file = shift(@_);
my $input = IO::File->new($file,"r") or die;
ごにょごにょ
・
・
}
$filename = （ディレクトリからファイルネームをとるロジック）;
&func($filename);
みたいに書くと、一番最初にいきなりファイルオープンのエラーが出ます。
その後、ファイルネームをとるロジックが走ってる模様…。
何故か解らないのですが原因解りますでしょうか。
416:デフォルトの名無しさん
07/05/03 13:48:01
>>415
原因はわかりますよ。
あんたが、そう動くようにプログラムを作ったから。
417:415
07/05/03 13:53:53
>>416
早い回答ありがとうございます。
やっぱり自分が悪いんですね。
調べてみます。
418:415
07/05/03 14:26:25
うーんやっぱり解らない…。
サブルーチンが先に実行される事なんてあるのか…？
419:デフォルトの名無しさん
07/05/03 14:50:10
>>415
まあエラーメッセージでも貼ってみ
420:415
07/05/03 15:05:12
>>419
そのようなファイルやディレクトリはありません at (何行目)
としか出ないんですが…。
421:デフォルトの名無しさん
07/05/03 15:08:03
>>420
訳したりせずにそのまま貼れ
422:415
07/05/03 15:16:54
そのようなファイルやディレクトリはありません at test.pl line 32.
だけです。
CentOS4.4、perl5.8.5です。
423:415
07/05/03 15:30:01
フルパス指定してなかった…。
>>422さん、親身になってくれてありがとうございます。
くだらないミスで申し訳ありません。
本当にすみませんでした。
424:デフォルトの名無しさん
07/05/03 15:40:40
>>423
s/422/421/g;
425:デフォルトの名無しさん
07/05/03 15:47:38
突っ込みどころはいろいろあるけど、エラーメッセージは自分のためにも他人のためにもわかりやすくすべし。
my $fp_in = IO::File->new($filename, "<") or die qq(cannot open '$filename': $!);
426:415
07/05/03 16:07:57
>>425
了解です。ただ or die $!;だけしてました。
連休中にコメントありがとうございました。
427:デフォルトの名無しさん
07/05/05 14:17:50
chompって何の略ですか？
428:デフォルトの名無しさん
07/05/05 14:26:54
>>427
略じゃないよ。
噛み切るとかそんな感じ。
429:デフォルトの名無しさん
07/05/05 14:41:24
chomp 【自動】 ～をムシャムシャ食う◆【同】champ
430:デフォルトの名無しさん
07/05/05 14:43:41
へー。ありがとうございました。
431:デフォルトの名無しさん
07/05/05 15:30:31
オブジェクト指向で書いていないので、巨大モジュールの分割がうまいこといかんのです＞＜
具体的には、親パッケージが子パッケージをuseしているとき、
子パッケージから親パッケージのサブルーチンを呼べません。
Giko.pm
[-------
package Giko;
use Giko::Mona;
（omaemonaサブルーチンをEXPORTしている）
sub omaemona { .... }
-------]
Giko/Mona.pm
[-------
package Giko::Mona;
-------]
となっていた場合、
Giko::Monaの中でomaemonaを呼ぶ方法は、Giko::omaemonaしかないでしょうか？
Giko::Monaでuse Gikoはできないし、use base 'Giko';は違うみたいですし。
432:デフォルトの名無しさん
07/05/05 17:12:46
Encodeモジュールのfrom_toを用いて
「①」「②」や「Ⅰ」「Ⅱ」などを
sjis <-> euc-jp 変換すると文字化けしてしまいます。
回避するにはどうすればいいでしょうか？
433:デフォルトの名無しさん
07/05/05 19:33:33
>>432
つEncode::EUCJPMSのcp51932
434:デフォルトの名無しさん
07/05/05 20:32:56
それは拡張文字なので、 sjis じゃなく cp932 を指定。
435:デフォルトの名無しさん
07/05/05 20:40:22
単純に分割するなら、全部同じ名前空間に展開すればいいんじゃない
Giko/Mona.pm
[-------
package Giko::Mona;
package Giko;
-------]
436:431
07/05/06 01:14:39
遅レスで申し訳ないです。
>>435
なるほど。
まとめると巨大ファイルになりがちで不安だったのですが、
今のところはまだなんとか1ファイルにまとめられそうなので、
同じファイルスコープで仲良く共存してみます。
ありがとうございました。
437:デフォルトの名無しさん
07/05/06 17:12:14
例
( split /\//, $x )[0 .. bar];
リストの末尾要素を除いたリストを返す方法、知りませんか？
barをどう記述すりゃいいのやら。
Perl ならできそうな気がするんですが。思い当たりません。
検索してみたものの、それらしいものも見つけられません。
438:デフォルトの名無しさん
07/05/06 17:31:22
( @hoge, undef ) = split //, $foo ;
じゃダメなの？
439:デフォルトの名無しさん
07/05/06 17:43:01
>>437
尻尾だけ消すのじゃだめなの?
440:デフォルトの名無しさん
07/05/06 17:44:40
最後から2番目の要素をひとつ抜き出すだけなら (～)[-1]
でいいんだけど、範囲演算子で(～)[0..-1]とは書けないんだよな。
配列変数なら@x[0..$#x-1]という書き方もあるが、リストでは$#xに
相当するものが書けない。
とりあえずおもいついたのはこれ。
sub{@_[0..$#_-1]}->(～)
441:デフォルトの名無しさん
07/05/06 18:03:14
>>437
@list = split(/\/(?=.+\/)|\/.+$/, $x)
とかやってないで、全部入れてから$#list--すればいいんじゃね?
442:デフォルトの名無しさん
07/05/06 18:31:19
>>429
首チョンパの略と思ってた
443:デフォルトの名無しさん
07/05/06 18:38:52
まずchopありき。
やがてより安全なchomp生まれり。
444:デフォルトの名無しさん
07/05/06 18:52:28
え…普通にpop関数じゃだめなの
445:デフォルトの名無しさん
07/05/06 19:51:31
popの第１引数は左辺値つーかARRAYじゃないと×じゃ?
446:デフォルトの名無しさん
07/05/06 20:19:01
splice @{[split /\//, $x]}, 0, -1 というのはどうだ
447:デフォルトの名無しさん
07/05/06 20:35:56
ちょんぱ
448:デフォルトの名無しさん
07/05/06 21:07:48
# 悪い例
(split /\//, $x)[0..(split /\//, $x)-2]
449:デフォルトの名無しさん
07/05/06 21:21:14
>>448
scalar contextのsplitは@_を上書きしちゃうからねぇ。
450:デフォルトの名無しさん
07/05/06 22:19:22
(split m{/})[0..(s{/}{/}g)-1]
451:デフォルトの名無しさん
07/05/07 00:17:23
みんなよく頑張ったな。先生感心したぞ。
my $str = 'foo/bar/baz/quux';
sub p { printf ">>%d:[%s]\n", shift, join ',', @_ }
p(438, (my @arr, undef) = split m{/}, $str);
p(439, do { @arr = split m{/}, $str; pop @arr; join ',', @arr }); # & >>444-445
p(440, sub { @_[ 0 .. $#_ - 1 ] }->(split m{/}, $str));
p(441, split m{/(?=.+/)|/.+$}, $str);
p(446, splice @{[ split m{/}, $str ]}, 0, -1);
p(448, (split m{/}, $str)[ 0 .. (split m{/}, $str) - 2 ]);
p(450, (split m{/}, $str)[ 0 .. $str =~ tr|/|/| - 1 ]);
p(451, $str =~ m{(.+?)/}g);
452:デフォルトの名無しさん
07/05/07 00:52:33
>>451
my $str = 'foo/bar/baz/quux';
を
my $str = '/foo/bar/baz/quux/';
にすると、いろいろ違いが出てくるね。
453:デフォルトの名無しさん
07/05/07 00:58:21
>>451
重箱の隅つつき。
p(451 の行の正規表現。(.+?) ではなく(.*?) でなければ
split を用いた他の例と挙動が違うぞ。
$str = q{/foo/bar/baz/quux} で確かめろ。
454:437
07/05/07 01:10:11
多くのお返事ありがとうございました。
>440
単純な範囲演算子で記述できそうに思った私が考え足らずだったようです。
sub { @_[0 .. $#_ - 1] }->(split /\//, $x) は見た目にわかり易いですね。
いろいろ応用できそうだし。しかし、私は露とも思い至りませんでした。
>441
まぁ、そうなんですよね。
$file = "/usr/local/bin/bar"; # ファイル名が与えられて。。。
$fold = join "/", ～split /\//, $file を使った記述～; # フォルダ名を得る。
ここで余分に変数を使わず、可読性も損なわない方法がありそな気がしたもので。
>446
splice の第一引数はARRAYしかダメだと諦めてしまったのです。
リファレンスについて熟知すると、こんなやり方に気付くんですね。
自分の頭の硬さとリファレンスに対する理解の浅さを恥じて
精進したいと思います。
まず、>440 さんと >446 さんの方法、どっちを使うか悩みます。
455:デフォルトの名無しさん
07/05/07 01:17:53
>>454
いいからFile::Specを使え。
次ページ最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
5368日前に更新/220 KB
担当:undef