Perlコーディング初心者質問スレ Part 57

Perlコーディング初心 ..

455:BEET
08/05/06 00:42:09
回答ありがとう。ハッキングって.. 簡単なのかな？ソフトはできるだけ使いたくないな

456:BEET
08/05/06 00:45:09
追記なんですけど
このレンタル掲示板の管理パスをクラックされて、改竄されたんだけど、どうやってクラックしてるのかな？

457:nobodyさん
08/05/06 00:49:33 fJq/GBDg
(｀･ω･´)？？

458:nobodyさん
08/05/06 00:50:15
>>455-456
>>1を100回声を出して読め。
読み終わったら610と三ポールのミックスカクテル飲め。

459:nobodyさん
08/05/06 00:51:09 fJq/GBDg
(｀･ω･´)ソフト使ってるだろｗｗ

460:nobodyさん
08/05/06 09:09:26
Windowsローカルに入れたActivePerlで
cpan > install XML::ATOM::Feed
したのに、それを500エラーになってしまいます
（useしてるところをコメントアウトすると通る）
moduschで見たら「存在しないか、ロード出来ない」っぽい
なぜでしょうか…？

461:nobodyさん
08/05/06 16:59:23
>>442
BCCで目的は達成できると思うけど、
自分のメールアドレスを、スパムを送りたい先などにされると
簡単にスパムの踏み台になるから気をつけてね。

462:nobodyさん
08/05/06 22:50:17 wGWcI8Lv
AUTOLOADってのを初めて使ってみたんです。
未定義の関数を読んだら無事AUTOLOADが呼ばれたんですが、
変数$AUTOLOADを参照するとGlobal symbol～っていうエラーが出てしまいます。
AUTOLOADを使う場合はno strictしていいものでしょうか。

463:nobodyさん
08/05/07 00:05:35
use strict;
use warnings;

sub AUTOLOAD {
　　our $AUTOLOAD;
　　print $AUTOLOAD;
}

foo();

464:nobodyさん
08/05/10 23:18:32
URL転送なんだけど今こうしてます↓

#!/usr/bin/perl
print "Location: URLﾘﾝｸ(*****\n\n)";

これに転送するまでHTMLの<meta content="x">みたいに
一定時間ウェイトかける事って出来るのでしょうか？

465:nobodyさん
08/05/10 23:19:01
いいえ

466: ◆TWARamEjuA
08/05/11 01:16:36
転送するまでひと寝入りする。

467:nobodyさん
08/05/11 02:11:14
>>464
いい事いうじゃねえか。
出来るんだな？
今すぐ頼むぞ。

468:nobodyさん
08/05/11 13:18:10 yMOlxpUv
print qq{あいうえお @{[1+1]} かきくけこ };

無名配列のリファレンスとデリファレンスを使ってクォート内に式を埋め込めます。
これ気に入っててよく使うんですが、これのスカラーリファレンス版ってできませんか？

\$()
無名スカラーって存在しないんですかね。
いやそもそも@{[]}に式を埋め込めるのはそこをクォート内ではないと認識するからなわけで。
いや、う～ん。確かこれなんかいい方法があったような期がするんですが。

469:nobodyさん
08/05/11 23:02:44 Vy6R2X5C
Perlスクリプトの処理が全て完了する前に
クライアントとの接続を明示的にクローズする方法は
ありませんでしょうか？

以下のようなことが実施したいです。
どなたかよろしくお願いします。

#!/usr/bin/perl

print "Content-type: text/html\n\n";
print "<html><body>なんちゃら</body></html>";

## ここで明示的にクライアントとのConnectionをクローズしたい。

## ここからクライアント側に影響がない時間がかかる別の処理を実施したい。
&HokaNoShori();

exit;

470:nobodyさん
08/05/12 01:08:40 CYOIx0A2
perlで重い処理をさせるのが困ります。
例えばパソコンの30％の能力だけ使わせるとかってできませんか？

471:nobodyさん
08/05/12 01:16:51
>>470
それは知らないけど、nice付けて起動とかしてみては？

472:nobodyさん
08/05/12 03:09:36
>>468

qq{　　${\do　{1+3}}　　}

473:nobodyさん
08/05/12 04:50:44
>>469
close(STDOUT);

474:nobodyさん
08/05/12 10:21:48
>>469
fork

475:nobodyさん
08/05/12 16:03:50
WindowsXPでActivePerlを使って
クリップボードにあるテキストに処理を加えて
クリップボードに戻すプログラムを作ろうとしています。
Win32::Clipboardを使用しているのですが、Unicodeだと化けてしまいます。
Unicodeでも化けないで処理できる方法はあるでしょうか？

476:nobodyさん
08/05/12 16:08:19 CYOIx0A2
>>472
思い出した！

print qq{ ${ \(1+1)} };
でしたね。
なるほどなるほど。${}これでデリファレンスができるというわけだ。

477:nobodyさん
08/05/12 17:20:30
Win32::Clipboard が受け取るのは Shift_JIS 固定っぽいです
Encode でShift_JIS にして渡してみたらどうりますか？

478:nobodyさん
08/05/12 18:00:21
>>477
回答ありがとうございます。
Shift_JISにない文字も処理したかったので
Win32::Clipboardでは無理と言うことですね。
Win32::Clipboard以外でクリップボードを利用できるものはありますか？

479:nobodyさん
08/05/12 20:22:51
文字化けしないようにする方法教えてください
use LWP::Simple;
my $page = get('URLﾘﾝｸ(hogehogehoge.jp)');
getprint('URLﾘﾝｸ(hogehogehoge.jp)');
print $page

480:nobodyさん
08/05/12 21:36:53
>>479
ヒント：Jcode

481:nobodyさん
08/05/13 01:04:45
perl 文字化けでググれカス

482:479
08/05/13 03:44:42
エスジス保存しておいたソースファイルをEUCに変更保存してみたけど
何も変わんないですよ

483:nobodyさん
08/05/13 06:45:22
>>482
「ソースファイル」ってのが上の us-ascii で足りそうなコードのことだったら
SJIS → EUC しても何も変わんないですよ。

環境その他も書かれてないし、変換に興味なさそうなので
perl hoge.pl > test.html
して「まともなエディタで見れば文字化けしない」でいいのかも。

484:nobodyさん
08/05/13 13:57:38
>>464
Location:を表示する前にwaitをいれればおk

485:nobodyさん
08/05/17 19:31:00
$obj = new Class;
$obj = Class->new();

この二つの違いは何ですか？

486:nobodyさん
08/05/17 20:03:56
おんなじ。どっちのClassクラスのコンストラクタを呼んでるだけ。
Classってサブルーチンが定義されてるときに問題がおきることがあるので、
$obj = Class->new;
の形式のほうが推奨されるけど。

487:nobodyさん
08/05/17 23:09:13
>486
ありがとんです

488:nobodyさん
08/05/18 11:25:25
俺はコンストラクタを呼び出すときだけはnew Classってしてあとはぜんぶ$obj->sub()ってするかな。

489:nobodyさん
08/05/19 06:36:14
なんだか、急にCPANでエラーで全く動かなくなったので、いろいろ調べてみたら、
ERRNO.pmが、MSWin32-x86-multi-thread-5.00（Windows Updateでいつの間にか変わってた）を弾いてた。

とりあえず、ERRNO.pmを書き換える（！）ことで対処したんだけど、
他に同じトラブルあってる人いません？

490:がんちゃん
08/05/19 10:02:27
perlでImage::MagickのAnnotateを使って画像と文字を合成できたのですが
出来上がった画像を右クリックして保存しましたが
そのファイルが開けません。
何が原因でしょうか。宜しくお願いします。

491:nobodyさん
08/05/19 11:27:27
>>490
開けないとは具体的にどういうこと?
単に、変なファイル名(拡張子)で保存してしまって、ダブルクリックしても関連づけの問題で開けないってことではなくて?

492:がんちゃん
08/05/19 12:15:34
うっせーよ！それぐらい分かるっての！腐った回答してんじゃねぇよｗｗｗ

493:がんちゃん
08/05/19 12:29:05
　　　　*　　　　　　*
　　＊　　　　　＋　　うそです
　　　 n ∧＿∧　n
　＋　(ﾖ（* ´∀｀）E)
　　　 Y 　　　 Y　　　　＊

494:がんちゃん
08/05/19 12:32:08
なんだここの人たちはこれぐらいの質問も答えられないの？
回答者が初心者のスレだったのか・・・

495:がんちゃん
08/05/19 12:35:01
　　　　*　　　　　　*
　　＊　　　　　＋　　うそです
　　　 n ∧＿∧　n
　＋　(ﾖ（* ´∀｀）E)
　　　 Y 　　　 Y　　　　＊

496:nobodyさん
08/05/19 14:06:12
print "Content-type: image/jpeg\n\n";
binmode STDOUT;
$image->Write('jpeg:-');

ソース晒せや。

497:nobodyさん
08/05/19 14:11:40
なにこの流れ・・・

498:nobodyさん
08/05/19 15:48:41
質問の仕方も知らないというか、質問の文章すら正しく書けない馬鹿が多すぎ
Perl云々の前に日本語学校行け

499:nobodyさん
08/05/19 15:59:52
\E

500:nobodyさん
08/05/19 16:39:50
はい、次

501:nobodyさん
08/05/19 16:41:56
>>498
お前の文章が一番変だわ

502:nobodyさん
08/05/19 18:36:38 82E4EJS9
すみません。ド素人です。
質問です。
Can't locate GD/Image.pm in @INC (@INC contains: C:/perl/site/lib C:/perl/lib .)
というソフトウェアエラーが出て、CGIを実行できません。
どうかどうか、教えてください。

503:nobodyさん
08/05/19 18:38:59
GD を入れてください

はい次

504:nobodyさん
08/05/19 18:39:34 82E4EJS9
GDは入れてるんですけど、image.pmってのがなにか、わかんないんです。。。

505:nobodyさん
08/05/19 18:44:49
GD-Image-Thumbnail でも居れておきゃえぇんとちゃうのん？

506:nobodyさん
08/05/19 18:45:58 82E4EJS9
505さん　ありがとうございますぅやってみます。

507:nobodyさん
08/05/19 18:47:44
URLﾘﾝｸ(search.cpan.org)

508:nobodyさん
08/05/19 18:54:23 82E4EJS9
507さん。。ありがとうです。
けど、このページの、なにをどうすればいいのか。
わかりません
どうしようもない素人なので。。

509:nobodyさん
08/05/19 19:12:16
*.pmってのはPerlモジュール
エラーの内容は「このモジュールがみつからないよパパ」
→インスコor場所確認
とりあえずモジュールが入ってるか確認する
→ぐぐる
入っていない場合、モジュールをインスコする
→ぐぐる
入っている場合、パスを確認する
→ぐぐる

510:nobodyさん
08/05/19 19:26:15
GDのバージョンを2.39に上げれば解決。

511:nobodyさん
08/05/19 19:58:48
「初心者」「素人」は分からないからフルサポートしてもらえる理由になりません。

512:nobodyさん
08/05/19 20:03:39 82E4EJS9
GD2.39の中のGD.pmとGDフォルダを　/perl/libの中にドラック＆ドロップしてるんです。
これは、どこかのサイトに書いてあったので。しました。
そしたら、エラーがでて。GD/Image.pmがどうのこうのとなってまして。
505さん507さん509さん510さんの言葉も、正直、理解しきれてない状況です。
まず、インスコというのが、コマンドプロンプトでするらしいとどこかに書いてて、
してみたんですけど。まず、「ｐｐｍ」とすると、perlpackagemanagerが起動して、
その中に、GDがなくて。どやってインストールしていいのかも、わかんない感じです。
すみません長々と。どうかお助け願います。。

513:nobodyさん
08/05/19 20:03:43
ローカルで試そうとしてるやつが、
どうしようもない素人を名乗るなよ。
向上心ねぇのか

514:nobodyさん
08/05/19 20:16:06
>>512
URLﾘﾝｸ(www.bribes.org)
ここへいってら。

それができたら、こっちも回っておくように。
URLﾘﾝｸ(theoryx5.uwinnipeg.ca)

515:nobodyさん
08/05/19 20:18:47 82E4EJS9
514さんありがとうございます。
読んでます。

516:nobodyさん
08/05/19 21:08:55 82E4EJS9
やっぱりエラーになります（涙

517:nobodyさん
08/05/19 21:35:03
リポジトリを増やしたのだからインストールできるはずだが。

掲示板なんだから、レスに主語と述語をはっきり書いてくれ。
とりあえず、頭にエラーが出たのか？

518:nobodyさん
08/05/19 22:17:16
良く読んでないけど、
スタート→すべてのプログラム→ActivePerl→Perl Package Managerで
必要なものをクリック、クリック！した方が楽で簡単だよ。

519:nobodyさん
08/05/19 23:01:51 82E4EJS9
perl package managerの中に　GDが見当たらないんです。
コマンドプロンプトで　CPANから　install GDってしても
できないんです。
GD/image.pmが＠INCに無いっていうエラーが出るんです。517さん。

520:nobodyさん
08/05/19 23:13:22
>>519
>>514サイトをよく読んでppmにリポジトリを追加すると、GD 2.39がインストールできるようになる。
ちゃんとリポジトリを追加したか？
それでも出ないというのなら、ppmに問題があることになる。

521:nobodyさん
08/05/19 23:23:58
URLﾘﾝｸ(mikiho.jp)

serach のとろを

s GD

としてくださいな

これでも出来なければ諦めてください
サポートしきれないです

522:nobodyさん
08/05/20 01:25:53
URLﾘﾝｸ(pub.ne.jp)
Perl 5.8ならなんか面倒そうなんだけどこれかな？

523:nobodyさん
08/05/20 03:52:12 U/T3y6km
ここ見て、Win用のGD-2.39来てるのかと思い、threory58に行くも2.35しかないじゃないか！？ぷんぷん。
ふと、PPM-Repositoriesを0.14に上げて見るとbribesなるレポがあるので、これを見に行くと、
おおー、結構新しいの来てるじゃないか～と、調子にのってperl　areaのmoduleもUpしまくる。
しかし、Compress-ZlibをUpすると、Bandleされてたversionを上書きしてしまい、
それ以降ppmがtar.gzファイルを展開できなくなってしまった。(今まで見たことないエラーでPPMが落ちる)

とゆうことで、今やっと再インストールと、(自分のよく使う)各種モジュールのインストール、最新版へのUpデートが終わった。
なんとか、Compress-Zlibも2.010に上げる事ができた。
ふう、疲れたぜ・・・・。

524:nobodyさん
08/05/20 04:15:25
そうなんだお疲れちゃん

525:nobodyさん
08/05/20 14:16:09 XrCi5l42
519です。
いろいろサポートいただいて、できました。
ほんとに感謝してます。ありがとうです。

526:nobodyさん
08/05/21 00:33:37
phpのexplodeみたいに、
正規表現を使わずに高速に動作するsplitの代わりはないでしょうか？

527:nobodyさん
08/05/21 01:39:24
substrでループさせる自前の関数でも作れば？

528:nobodyさん
08/05/21 01:41:57
それって速いのかな。。
indexとsubstrを併用してちょっと試してみるか。

529:nobodyさん
08/05/21 11:18:20 crauFAgn
モジュールが一切入っていないレンタルサーバで、xmlを読み込もうとしています。
ググってみると、どこもXMLとLWPというモジュールを読み込む事が前提になっているようなのですが、
何も無い状態でXML

530:529
08/05/21 11:19:42
すみません途中で送信してしまいました…orz

モジュールが何も無い状態でXMLを読み込むために
参考になるようなサイトがありましたら、ご教示下さい。

宜しくお願いします。

531:nobodyさん
08/05/21 12:00:10
ソケット使ってゴリゴリ書くしか無いんじゃないかな

532:nobodyさん
08/05/21 12:06:34
モジュールが一切入っていないレンタルサーバでソケットが使えるようにインストールされてる
とはとても思えないが・・

533:nobodyさん
08/05/21 12:14:45
xmlそのものについても調べてる状態なんですが、
どうも事実上無理っぽいということですかね…orz
お騒がせしました、ありがとうございました。

534:nobodyさん
08/05/21 13:46:16
php が動くなら php 普通にネットワーク経由でファイル開けるので php も考慮してみれば？

535:nobodyさん
08/05/21 23:33:50
>>529,530
XMLを読み込むだけなら、XML::TreePPでXMLが読める。
別サイト上にあるXMLを読むならLWP等が必要。

536:nobodyさん
08/05/22 08:42:14
質問です。Snアップローダー（URLﾘﾝｸ(sugachan.dip.jp)）の
ファイル個別HTMLを作成する部分で

$buff = "<html><head><title>$filename</title></head><body>";
$buff .= qq|Download <a href="./$filename">$filename</a>|;
$buff .= '</body></html>';
（ソースの760行目付近です）

特定の拡張子のみ別のHTMLコードを書き出したいのですが
if文で$filename等試してみましたが上手く行きませんでした

どなたか分かる方宜しくお願いします

537:nobodyさん
08/05/22 10:13:46
改造スレいけ

538:nobodyさん
08/05/22 12:40:41
$buff .= qq|Download <a href="./$filename">$filename</a>|;

こういう書き方もあるんだ。勉強になったｗ

539:nobodyさん
08/05/22 13:18:50
毎行クォート変えるくらいならヒアドキュメント使えよ

540:nobodyさん
08/05/22 13:25:55
ヒアドキュメントもコーディングの桁揃えと、HTMLの桁揃えでタブを使うと、すっきりする方法
がなかなか見つからない。

541:nobodyさん
08/05/22 13:40:38
>if文で$filename等試してみましたが上手く行きませんでした
どう試して、どういう結果になったのか書かないと。
基本だと思うが。

542:nobodyさん
08/05/22 17:17:18
>>540
普通に cookbook にある解ではダメなのか？
URLﾘﾝｸ(www.unix.com.ua)

543:nobodyさん
08/05/24 13:22:00 CztaXqIN
セッション変数の受け渡しについての質問です。

print <<EOT
<form action="URLﾘﾝｸ(localhost)" method="post">
<p>
<label for="nm">お名前：</label>
<input type="text" name="namae" id="nm"><br>
<label for="ma">メール：</label>
<input type="text" name="email" id="ma">
</p>
<p>
<input type="submit" value="送信">
<input type="reset" value="リセット">
</p>
</form>
EOT
;

これらのフォームデータをセッション変数としてsession.cgiに受け渡したい
のですが、どのようにすればよいでしょうか？
CGI::sessionモジュールを利用して、session.cgi側で
$hoge=$cgi->$session->param('namae');
などとすればセッション変数として受け取れる事は分かったのですが、
フォームからの受け渡し方が分かりません…。

よろしくお願いします。

544:nobodyさん
08/05/24 13:38:27
hiddenで投げれ

545:nobodyさん
08/05/24 13:41:36
>>543
どれがセッション変数なの？

546:543
08/05/24 13:47:45 CztaXqIN
>>544
hiddenフィールドを利用すればセッション変数として受け渡されるのでしょうか？

>>545
「お名前」や「メール」フォームに入力された文字列をセッション変数として
session.cgiで受け取りたいと考えています。

547:nobodyさん
08/05/24 13:47:48
CGI.pmでデータを受け取るところから勉強を始めるべき。
セッションはその後。

548:nobodyさん
08/05/24 13:49:52
・hidden
・GET
・cookie

わざわざCGI::session使うくらいなんだから、普通はcookie使うんじゃね？

549:543
08/05/24 13:53:40 CztaXqIN
>>547
すいません。>>543の書き込み微妙に間違っています。
$hoge=$cgi->$session->param('namae'); のところ

通常データの受け取りは
$hoge=$cgi->param('namae');
セッションでの受け取りは
$hoge=$session->param('namae');
の間違いです。

550:nobodyさん
08/05/24 14:04:47
>>549
受け渡しの情報が知りたいって言ってるのに、
受け取りのソース書いてるから、それを指摘されてるんだよ。

＞基本的にはセッション系モジュールの役割は、特定のキー＝セッションIDに紐付けて、
＞データを保存したり、読み込んだりといったことです。
＞セッションIDの受渡しはCGI側でする必要があります。

ヒント：URLﾘﾝｸ(digit.que.ne.jp)

551:543
08/05/24 14:05:03 CztaXqIN
cookieにセッションIDやもっておきたいデータ(今回の場合、お名前やメール)を記述しておき、
サーバ側から要求があった時点でクライアントはそのcookieのデータを受け渡す

といったイメージで良いのでしょうか。

うぅ、難しい。。。

552:543
08/05/24 14:13:48 CztaXqIN
>>550
＞受け渡しの情報が知りたいって言ってるのに、
＞受け取りのソース書いてるから、それを指摘されてるんだよ。

データを受け渡す側のソースが>>543で、受け取るソースがsession.cgiだと
認識してるのですが…。間違っているでしょうか。

もしかしたら私が勘違い？をしているのかも？

553:nobodyさん
08/05/24 14:14:00
>>551
正直、目的に対して技術が足りなすぎる。イヤミじゃなくてね。
トラブル起こす前に、オライリーのCGIプログラミング読破オススメ。

554:nobodyさん
08/05/24 14:18:21
>>552
＞受け取るソースがsession.cgiだと認識してるのですが…。
少なくてもこのソース中でセッションIDはどこにも発行してないでしょ？
後は調べなさい。

555:554
08/05/24 14:19:15
ごめんミスった。

　×　＞受け取るソースがsession.cgiだと認識してるのですが…
　○　＞データを受け渡す側のソースが>>543で

556:543
08/05/24 14:19:38 CztaXqIN
すいません。もう少し勉強しなおしてきます。
みなさん、有難うございましたー・・・

557:543
08/05/24 14:23:19 CztaXqIN
>>554
あ、ソースの一部分しか乗せてなかったためです！

use CGI::Session qw/-ip_match/;

my $session=CGI::Session->new(undef,undef,{Directory=>'./session'});
$session->expire('+1m'); #有効期限は1分間
$session->param('name','john'); #セッション経由で引き渡す項目と値

my $cgi=CGI->new;

print $cgi->header(-charset=>'UTF-8',
-cookie=>$cgi->cookie(-name=>'CGISESSID',
-value=>$session->id,
-expires => '+3M')),
#cookieにセッションidを保管
$cgi->start_html(-lang=>'ja',
-encoding=>'UTF-8',
-title=>'CGI.pm使用/cookie'),
$cgi->p('session id: '.$session->id.'<br/>',
'name: '.$session->param('name').'<br/>',

558:543
08/05/24 14:24:17 CztaXqIN
続き

print <<EOT
<form action="URLﾘﾝｸ(localhost)" method="post">
<p>
<label for="nm">お名前：</label>
<input type="text" name="namae" id="nm"><br>
<label for="ma">メール：</label>
<input type="text" name="email" id="ma">
</p>
<p>
<input type="submit" value="送信">
<input type="reset" value="リセット">
</p>
</form>
EOT
;
$cgi->end_html;
#end

すいません…！

559:nobodyさん
08/05/24 14:27:18
めんどくさいし、合ってる保証ないけど、適当にフォローしてみる

追記 use CGI;
追記 my $cgi = new CGI;

× my $session=CGI::Session->new(undef,undef,{Directory=>'./session'});
○ my $session=CGI::Session->new(undef, $cgi, {Directory=>'./session'});

560:nobodyさん
08/05/25 02:16:54
htmlのフォームデータをセッション変数に格納して利用するには

htmlのフォームデータをpost→受け取ったデータをセッション変数を格納するCGI
→それらのセッション変数にアクセス(利用する)CGI

の流れがいるのでは？

自信ないけど

561:nobodyさん
08/05/25 19:58:56 sAYmYKjS
perlのセッション管理はphpに比べるとかなりめんどい
もちろん細かく制御するには向いてるんだが始めとっつきにくいかもなー

562:nobodyさん
08/05/26 13:29:09
>>561
>>543の質問を分かりやすくPHPで説明すると、
$_REQUESTの内容を$_SESSIONで受け取るにはどうしたらいいんですか？
ということ。

563:nobodyさん
08/05/26 19:00:45 BXwqNwjP
すみません。質問です。
Global symbol "%in" requires explicit package name at C:/ApacheGroup/～～.cgi line 375, <DATA> line 855.
というソフトウェアエラーが出続けてるんですが。
どうすればいいでしょう。
どなたか教えてください～。

564:nobodyさん
08/05/26 19:09:34 fmVA2Qe8
先生方！　質問よろしいでしょうか！

open(OUT,"+< log.txt");
eval{flock(OUT, 2);};
eval{truncate(OUT, 0);};
seek(OUT, 0, 0);
print OUT @log;
eval{flock(OUT, 8);};
close(OUT);

今はこのように通常のテキストでログの上書き保存をしているのですが、
私はgzipで圧縮して上書き保存をしたいのです！
しかしどれだけGoogle先生に訊いてもgzipでの保存方法を教えてもらえません！　あの先生はケチです！
もう先生方だけが頼りなんです！　一体どうすればgzipでの保存が可能になるんでしょうか！

565:nobodyさん
08/05/26 19:18:18
>>563
URLﾘﾝｸ(xn--lckja1b6r.jp)

>>564
URLﾘﾝｸ(xn--lckja1b6r.jp)

566:nobodyさん
08/05/26 19:32:47
Archive perl でググればでてくるじゃないの

567:nobodyさん
08/05/26 23:41:19
>>563
英語が読めないなら駱駝本を買うべきだ。

568:nobodyさん
08/05/27 11:06:43
ラクダを漢字で書かれると困ります　（＞＜；）

569:nobodyさん
08/05/27 19:27:42
{
$global_foo = $foo;
$global_bar = $bar;
my $foo;
my $bar;
$foo = $_[0];
$bar = $_[1];
$foo = $global_foo if $foo eq undef;
$bar = $global_bar if $bar eq undef;
}
をコンパクトにまとめたいが、バグが混入しそうでいやん。

570:nobodyさん
08/05/27 19:44:24
{
my $global_foo = $foo;
my $global_bar = $bar;
$foo = shift || $global_foo;
$bar = shift || $global_bar;
}

571:nobodyさん
08/05/27 19:55:45
>>569-570
$foo eq undef もたいがいだが
shift || $global_foo だと $_[0] が '0' の時に挙動変わるな。

572:nobodyさん
08/05/27 20:06:24
{
my $global_foo = $foo;
my $global_bar = $bar;
$foo = defined( $_[0] ) ? $_[0] : $global_foo;
$bar = defined( $_[1] ) ? $_[1] : $global_bar;
}

こうか？

573:nobodyさん
08/05/27 20:06:58
あ、三項演算子逆だ。すまん。

574:nobodyさん
08/05/27 20:33:00
defined関数の存在が頭から抜けてたorz
$foo = $global_foo if $foo eq undef;
$bar = $global_foo if $bar eq undef;
ではなく
$foo = $global_foo unless defined $foo;
$bar = $global_foo unless defined $bar;
でお願いします。あと>>570-573サンクス、参考になります。

575:nobodyさん
08/05/27 20:38:51
つーか、>>569だとまともに動かんよ。

初期化するためにmy使っちゃってるように見えるけど、
この場合、ブロックスコープになるから、
ブロック内の$foo, $barと、グローバル変数$foo, $barは別物になる。

576:nobodyさん
08/05/27 20:54:18
myの仕様間違えて覚えてたか…
$global_foo = $foo;
$global_bar = $bar;
{
my $foo;
my $bar;
$foo = $_[0];
$bar = $_[1];
$foo = $global_foo unless defined $foo;
$bar = $global_foo unless defined $bar;
}
欲しい動作はこうかな…

577:nobodyさん
08/05/27 20:56:48
いやいやいやいやｗ
「perl スコープ変数」でググっみ。

578:nobodyさん
08/05/27 21:53:15
全然わかってないわかってないｗｗｗ

579:nobodyさん
08/05/27 22:34:53
my $foo = 1;

sub func {
my $temp = $_[0];
return defined( $_[1] ) ? $_[1] : $temp;
}

ex :
$foo = func( $foo, 10 ); # $foo = 10
$foo = func( $foo ); $foo = 1

580:nobodyさん
08/05/28 00:31:36
早くdefined-or演算子実装されないかな…

581:nobodyさん
08/05/28 01:24:48
今日が今月の何週目か求めるにはどうしたらよいでしょうか

582:576
08/05/28 01:29:54
$global_foo = $foo = 1;
$global_bar = $bar = 2;
@_ = (3,4); #@_に値あり
{
my $foo;
my $bar;
$foo = $_[0];
$bar = $_[1];
$foo = $global_foo unless defined $foo;
$bar = $global_bar unless defined $bar;
print "point 1: foo=$foo bar=$bar\n";
}
print "point 2: foo=$foo bar=$bar\n";

出力結果
point 1: foo=3 bar=4
point 2: foo=1 bar=2

583:576
08/05/28 01:32:06
$global_foo = $foo = 1;
$global_bar = $bar = 2;
@_ = (3,4); #@_に値あり
{
my $foo;
my $bar;
$foo = $_[0];
$bar = $_[1];
$foo = $global_foo unless defined $foo;
$bar = $global_bar unless defined $bar;
print "point 1: foo=$foo bar=$bar\n";
}
print "point 2: foo=$foo bar=$bar\n";
出力結果
point 1: foo=1 bar=2
point 2: foo=1 bar=2
━━━━━━━━━━━━
うん、欲しかった動作そのままだけど。
>>577-578が理解できず悩み中

584:nobodyさん
08/05/28 01:34:02
ぎゃー、>>583張り間違えた

【誤】@_ = (3,4); #@_に値あり

【正】@_ = (); #@_に値無し

orz 120秒規制が若干きつい…

585:nobodyさん
08/05/28 01:35:51
Date::Calc

586:nobodyさん
08/05/28 01:46:51
>>576
目的が分からん。そもそも何がしたいの？
説明する気あるのか？

my $foo = 1;
my $bar = 2;

print $foo = func( $foo );
print $bar = func( $bar );
print $foo = func( $foo, 3 );
print $bar = func( $bar, 4 );
exit;

sub func {
return defined( $_[1] ) ? $_[1] : $_[0];
}

587:nobodyさん
08/05/28 01:47:41
>>585
感動した　ありがとう

588:576
08/05/28 01:58:37
>>586
サブルーチン冒頭にて、引数リスト　＞　デフォルト値（グローバル変数の値とか）
の優先順でmy変数値を設定したいことはよくあるから、
perlなら…　perlならきっとすごくスマートに書く方法があるに違いない…

という夢を見たけど、幻だったみたいですね…
変数ひとつずつシコシコとunless definedを当てることにします。

589:nobodyさん
08/05/28 02:00:25
いや、日本語でおｋ
お前の望むようなことは確実にできると思うんだけど、
なにぶん言いたいことがよく分からんｗ

590:nobodyさん
08/05/28 02:16:48
my $global_foo = my $foo = 1;
my $global_bar = my $bar = 2;

# @_ =( );
@_ =( 3, 4 );
{
my $foo = defined( $_[0] ) ? $_[0] : $global_foo;
my $bar = defined( $_[1] ) ? $_[1] : $global_bar;
print "point 1: foo=$foo bar=$bar\n";
}
print "point 2: foo=$foo bar=$bar\n";

結局、最初に提案されてる回答をアレンジすれば、
>>582-584をシンプルかつ可読性も保ったまま実現できるんだが。
これじゃいかんの？

591:nobodyさん
08/05/28 02:25:18
>>590
そのへんが限界みたいですね…ありがとうございます。
私の欲求そのものが十分特殊だったのかな…

いま考えてる最善の形はサブルーチンを使うことです。
サブルーチンコールは負担かかりそうだからやりたくないんだけど…

sub merge_argument_and_default{
my ($argument, @default) = @_;
my @value;
while(1){
my ($a, $v) = (shift @$argument, shift @default);
my $c = ((defined $a) ? $a : $v);
last unless defined $c;
push @value, $c;
}
return @value;
}

sub foo{
my(@bar) = &merge_argument_and_default(\@_, @default_bar);
}

みなさんありがとうございました。

592:nobodyさん
08/05/28 02:30:59
殺してぇ……。日記じゃねぇんだよ。

593:nobodyさん
08/05/28 06:17:52
>>580
もう実装されてるよ?
URLﾘﾝｸ(search.cpan.org)

594:nobodyさん
08/05/28 06:40:31
>>576みたいに、自分のプライド保つために
当初の目的をすり替えて、自分は違うもの作ってました的な発言するやつは質問にくるなよ。

当初は「>>569をコンパクトにしたい」って言ってただけなのに、
どんな解が提示されても、
どんどん違う方向に勝手に転換して善意のレスすら流し読み。
こういう奴は、治らないから本当に放置すべきだと思うよ。

595:nobodyさん
08/05/28 07:18:42
>>594
それは違うんだけど、あなたへの説得は無理かな。
ひどく機嫌を損ねてしまったのは悪いと思ってるが。

いただいたありがたいアドバイスから、例えば今回は、
「サブルーチン化でもしなければ相当コンパクトに収めるのは難しいらしい」
「そのサブルーチンはこういう形で書くのがよいのだろうか」
などと、自分の知識や興味対象は移り変わっていくことが多いです。

ただ、このスレッドにはしばらく書き込みを自粛します。さよなら。

596:nobodyさん
08/05/28 10:11:34
典型的な"隠す人"だったか。

597:590
08/05/28 10:39:10
うわ、ちょっと離れたスキにすげぇ慇懃無礼なこと書いてやがる。
目的も明確にせず、そのへんが限界てｗ
そもそも次の疑問に移ったなら、その過程を説明するのが回答者への最低限の礼儀だろ。
社会出て苦労するよ。

ちなみに>>591は、俺ならこう書く。

sub merge_argument_and_default {
　my ($argument, @default) = @_;
　my %count;
　$count{$_} = $default[$_] for( 0..$#default );
　$count{$_} = ${ $argument }[$_] for( 0..$#{ $argument } );
　return map { $count{$_} } sort keys %count;
}

598:nobodyさん
08/05/28 11:40:59
>595みたいなやつっているよね
言葉遣いが丁寧なだけで、いっぱしの大人だと思ってる人。

599:nobodyさん
08/05/28 12:04:01
sub merge_argument_and_default { map{ defined $_[0][$_] ? $_[0][$_] : $_[$_ + 1] ;} 0 .. $#{$_[0]} ; }

>>598
ガキなの見え見えなんだよねw
URLﾘﾝｸ(www2.atpages.jp)
の595を思い出した。

600:nobodyさん
08/05/28 13:55:09
>>593
そいえば5.10でてるんだっけ(汗
RHELとCentOSしか使ってないからすっかり忘れてました。

601:nobodyさん
08/05/28 15:44:58
5.10って絶対分かりづらいよｗ
5.8より昔のリリースだとしか思えない。

602:nobodyさん
08/05/28 15:51:58
Ver　5.008008
Ver　5.010000
こう書けばよいのか？

603:nobodyさん
08/05/28 16:09:29
5.1の方が新しいんですか？
知らなかったorz

604:nobodyさん
08/05/28 16:21:25
5.10.0 > 5.9.5 > 5.8.8 >> 5.1.0
苦肉の策なんだろうな……。

605:nobodyさん
08/05/28 17:55:49
perl6ってどうなったん？

606:nobodyさん
08/05/28 19:03:22
>>605
parrotの新しいのが最近でた気が･･･

607:nobodyさん
08/05/28 20:28:19
あるIPアドレスが変数$ipに格納してあります。
この$ipが存在するか、あるテキストファイル(ip.txt)を読んで
チェックしています。以下は例です。

$ipは"192.168.0.1"
ip.txtに192.168.0.1が記述してあります。

この場合マッチするようプログラムしてあります。

ip.txtに

192.168.0.0/24
または
192.168.0.0/255.255.255.0
と記述してあるものと
マッチさせたいのですが、
そういうサブルーチンは
ありますでしょうか？

簡単にいうと、あるIPアドレスが
サブネットマスクで指定してある
１０進表記またはサイダー表記に
マッチするか判定したいのです。
ip.txtは１０進表記でもサイダー表記の
どっちでも構いません。

608:nobodyさん
08/05/28 20:34:04
ｽﾚﾘﾝｸ(tech板:491-590番)
の543-544及び「IP pack unpack perl」でググれ。

609:607
08/05/28 20:59:40
>>608
あり♪
明日、見てみるよん

610:597
08/05/28 21:17:34
>>599
終わった話題なんだけど、ちょっと気になった。
めんどくさかったら、スルーして。

提示してくれてるルーチンだと、

　引数1 @array1 = ();
　引数2 @array2 = ( 1,2 );

のとき、返り値が空になっちゃうよね。
配列1（引数1） > 配列2（引数2）という優先順位で、
配列3（返り値）を混ぜ合わせるというのが目的の処理だと思うんだけど、
配列1と配列2で要素数の大きい配列を、要素数だけループさせる処理にする場合、
キレイにまとめる方法ってないかなぁ？

　if( ( $#array1 <=> $#array2 ) == -1 ) {
　　EXPR for( 0..$#array2 );
　} else {
　　EXPR for( 0..$#array1 );
　}

みたいな、冗長な方法しか俺には思い浮かばなかった。

だから、「配列の重複値をハッシュを利用してマージ」の応用みたいなことを>>597でやってみたわけだ。
なんか美しい方法あればいいんだけどなぁ。

611: ◆TWARamEjuA
08/05/28 21:20:10
(´-`).｡ｏＯ(Net::CIDRでよさそうな。。。)

612:597
08/05/28 21:26:18
my @temp = ( $#array1 <=> $#array2 ) == -1 ) ? ( 0..$#array2 ) ; 0..$#array1;
こんな前処理してから、>>599のmap対象配列に、( 0..\$temp ) って感じかなぁ？

エレガントさには欠けるけど、これが可読性保つギリギリかな？

613:597
08/05/28 21:28:46
動作確認してないからtypoしまくり。まぁ分かるよね？（苦笑

614:６０７
08/05/28 21:31:18
>>611
私へのレスですね。
明日調べてみます

615:599
08/05/28 22:23:24
>>610
ああ、
@array1 = ( undef, undef ) ;
は考えてたけども、それは想定してなかったw
>>612の解で良いんじゃね？　助長を厭わないならば、
map{ 略 } 0 .. $#{$_[0]} , 0 .. $#_ - 1 ;
っつー荒技もw
自分のスクリプトじゃ絶対やんないけどね。

616:599
08/05/28 22:27:21
>>615
s/助長/冗長/

617:nobodyさん
08/05/29 03:05:45
mapがいまいち理解し切れなくて使ってないんだが覚えとくべき？
覚えると便利そうだけど。

618:nobodyさん
08/05/29 03:45:40
やってることは、forやforeachと変わらん。
違うっていえば、{}の中を、引数リストのそれぞれの要素で実行した結果をリストとして返すってとこか。
かなり便利な局面もある。覚えとくべきだとは思う。

@res　=　map{　$_　+　10　}　(1,2,3,4,5)　;
print　join("\n",@res);
---結果---
11
12
13
14
15

619: ◆TWARamEjuA
08/05/29 07:02:31
my $Now_Date = sprintf qq|%04d/%02d/%02d %02d:%02d|, map {
$_->[0] += 1900;
$_->[1]++;
@$_;
}[(localtime)[5,4,3,2,1]];

2008/05/28 07:02
って出るかと思う。

620:nobodyさん
08/05/29 08:23:18
>>617
シュワルツ変換という定番sort手法には必須だよ。
ぐぐって、foreach 文で書いてみたらありがたみが分ると思う。

>>619
お前さんの例は頻繁にとんでもなく斜め上を行くなあw
なんで一要素しかないと分りきってる無名配列を作って map の例にする？
do ならいざしらず
perl -le 'my $Now_Date = sprintf qq|%04d/%02d/%02d %02d:%02d|, do{
@_ = (localtime )[5,4,3,2,1] ;
$_[0] += 1900 ;
$_[1] ++ ;
@_ } ;
print $Now_Date ;'
それ以前に普通は↑こんな面倒な事しないだろ？
perl -MPOSIX=strftime -le '$str =strftime "%Y/%m/%d %H:%M", localtime; print $str, "\n"; '

621:607
08/05/29 17:51:57
Net::CIDR::cidrlookupでうまくいきそうなのですが、
IPアドレスのチェックを行いたいと思ってます。
ググると、以下の様な正規表現がありますが、
\d(バックスペース)の意味が分かりません。
どういう意味なんでしょうか？

\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}

622:nobodyさん
08/05/29 17:53:57
0-9

623:607
08/05/29 17:54:42
すみません。
\dは数字でした。
申し訳ない

624:607
08/05/29 18:10:05
またまたお願いします。

正規表現で/をマッチさせたいのですが、
以下であってますでしょうか？

$hoge =~ /\//

625:607
08/05/29 18:11:58
すんません

\/で、いけるみたいです。
お騒がせしました。

626:nobodyさん
08/05/29 18:15:31
$hoge =~ m(/);

すこしは綺麗？

627:nobodyさん
08/05/29 18:19:11
>>617だけどレスありがとう。
シュワルツ変換とかまだいまいち理解できないけど良さそうだね。
sortは結構使うから思い処理の部分で使うのはいいかも。
でも問題は後で読み直して何してるか理解できなくなりそうな所だな。

628: ◆TWARamEjuA
08/05/29 20:45:58
>>620
つっこみおおきに♪
mapを覚えちゃってからどんどん斜め上に逝っちゃいました。

ひとまず車輪の再発明は大好き♪

629:nobodyさん
08/05/30 02:09:30
曲芸はほどほどに

630:nobodyさん
08/05/30 08:17:40
出来た物が車輪じゃない上に使えないのならただの無駄

631:nobodyさん
08/05/30 10:14:07
車輪を作ろうとしたら鎖鎌が出来ちゃった感じだな

632:nobodyさん
08/05/30 10:19:32
まーmapは便利だってことだ

633:nobodyさん
08/05/30 11:57:18
XML::DOMを使ってXHTMLに広告を挿入するCGIを書いたのですが、use encoding "utf8";
を書くとローカルで文字化けしてしまいます。これをコメントアウトすると
XREA.COMのサーバ上でScript Errorが発生してしまいます(しかもエラーログが見られない)。

ローカルでもXREA.COM上でも動くようにしたいのですがどうすればいいでしょうか。
コードはこんな感じです。

#!/usr/bin/perl
use strict;
use XML::DOM;
use encoding "utf8";

my $xhtml_file = $ENV{'PATH_TRANSLATED'};
my $parser = new XML::DOM::Parser;
my $doc;
eval { $doc = $parser->parsefile($xhtml_file) };
if($@) {
print "Content-Type: text/plain;charset=utf-8\n\n";
print "parsing error occured: $@";
exit;
}

# 広告挿入処理

print "Content-type: application/xhtml+xml;charset=utf-8\n\n";
print $doc->toString;
$doc->dispose;

ローカルの環境はUbuntu 8.04 + Perl 5.8.8 + Apache 2.2.8、
XREA.COMはよくわかりません。

634:nobodyさん
08/05/30 12:22:33
>>632
だれも「mapが不便」なんて言ってないがな
明らかにバッドノウハウなコードを曝してる奴をくさしてるだけで

635:nobodyさん
08/05/30 12:23:13
すみません。自己解決しました。use encoding "utf8";をコメントアウトして
utf8::is_utf8($doc->toString) ? print encode('utf-8', $doc->toString) : print $doc->toString;
とすればいいみたいです。utf8フラグというのが関係しているみたいなので、
調べてみます。おさわがせしました。

636:nobodyさん
08/05/30 12:40:26
>>635
これはマジメに調べまくった方がいい。
慣れるまでPerl5.8以降でハマる最大の原因。

637:nobodyさん
08/05/30 12:50:11
BOM付けてたりして・・・

638:nobodyさん
08/06/01 07:19:24
BOMBなら付いてますw

639:nobodyさん
08/06/02 12:34:35
Wed, 12 Mar 2008 21:20:11 GMT
Last-Modified↑これをtimeの値に変換する方法を教えてください。
3600秒以内とかの判定に使いたいので。

640:nobodyさん
08/06/02 12:49:16
>>639
timelocal

641:nobodyさん
08/06/02 12:57:39
>>640
ありがとうございました！

642:nobodyさん
08/06/02 13:51:21
こんな感じで出来たのですが凄く格好悪いです。
$mon = 1 if $mon eq 'Jan';とか。
スマートな例があったら参考の為に見せてください。

sub last_modified {
my $time = shift;
my($day, $mon, $year, $hour, $min, $sec);
if ($time =~ /\w+, (\d+) (\w+) (\d+) (\d+):(\d+):(\d+) GMT/) {
($day, $mon, $year, $hour, $min, $sec) = ($1, $2, $3, $4, $5, $6);
$mon = 1 if $mon eq 'Jan';
$mon = 2 if $mon eq 'Feb';
$mon = 3 if $mon eq 'Mar';
$mon = 4 if $mon eq 'Apr';
$mon = 5 if $mon eq 'May';
$mon = 6 if $mon eq 'Jun';
$mon = 7 if $mon eq 'Jul';
$mon = 8 if $mon eq 'Aug';
$mon = 9 if $mon eq 'Sep';
$mon = 10 if $mon eq 'Oct';
$mon = 11 if $mon eq 'Nov';
$mon = 12 if $mon eq 'Dec';
} else {
die "Error: $time\n";
}
$time = timelocal($sec,$min,$hour,$day,$mon-1,$year);
return $time;
}

643:nobodyさん
08/06/02 14:47:28
>>642
%mons = (
Jan => 1, Feb => 2, Mar => 3, Apr = 4, # ……以下省略
);
$mon = $mons{$mon};

とかどうよ？

644:nobodyさん
08/06/02 15:22:18
>>643
ありがとうございます。
連想配列は普段全く使わないので、この機会に試してみます！

645:nobodyさん
08/06/02 15:44:50
>>643は、どうせ後で1引くのに、どうしてわざわざ1足すのさ？ｗ

646:nobodyさん
08/06/02 16:15:30
>>645
ほんとだ＞＜
お前頭いいな
すみません＞＜

647:nobodyさん
08/06/02 17:46:33 VCfcjQkN
CPANを使わずにモジュールを使いたいのですが、なかなかうまくいきません。
HTML::Template を使いたいのですが、

ローカルにインストールしている、
C:\Perl\cpan\build\HTML-Template-2.9\Template.pm
というファイルを、以下のcgiと同ディレクトリにコピーしました。

#!/usr/local/bin/perl
use strict;
use lib qw(.);
use HTML::Template;
print "Content-type:text/html\n\n", "test";

ですが、うまくいかないようです。
use lib qw(.); の部分を、
unshift @INC, '.';
などとしても不可能でした。
ググっても上記の方法ぐらいしか出てこないんですが、何がいけないか教えていただけますでしょうか。
Perl のバージョンは 5.00503 です。

648:nobodyさん
08/06/02 17:51:49
Template.pmをHTMLというディレクトリを作ってそこにいれる

649:nobodyさん
08/06/02 18:08:23 VCfcjQkN
>>648
ありがとうございます。
助言どおりHTML ディレクトリにTemplate.pmを入れて、エラーが出たので、
Digest::MD5がどうだとかエラーが出ました。
同じ要領で、Digest ディレクトリを作り、MD5.pmを入れると、
次はXSLoader.pmが必要らしく、それもcgiと同ディレクトリに入れました。
次はDynaLoader.pmがどうとかエラーが出たので、それも同じディレクトリに入れたのですが、
今度はエラーが消えませんでした。。
最終的にCGI::Carpがはいたエラーは以下です。

[Mon Jun 2 18:01:45 2008] Template.pm:
[Mon Jun 2 18:01:45 2008] Template.pm:
[Mon Jun 2 18:01:45 2008] MD5.pm:
[Mon Jun 2 18:01:45 2008] MD5.pm:
[Mon Jun 2 18:01:45 2008] DynaLoader.pm: Can't locate loadable object for module Digest::MD5 in @INC
(@INC contains: /usr/lib/perl5/5.00503/i386-linux /usr/lib/perl5/5.00503 /usr/lib/perl5/site_perl/5.005/i386-linux /usr/lib/perl5/site_perl/5.005 .) at HTML/Template.pm line 915
[Mon Jun 2 18:01:45 2008] Template.pm:
[Mon Jun 2 18:01:45 2008] Template.pm: BEGIN failed--compilation aborted at HTML/Template.pm line 915. BEGIN failed--compilation aborted at test.cgi line 6.

650:nobodyさん
08/06/02 18:17:18
CPAN にモジュールの関連性とか書いてなかったっけ？

651:nobodyさん
08/06/02 18:18:22
関連性とかじゃなくて依存のこと

652:nobodyさん
08/06/02 18:25:00 VCfcjQkN
URLﾘﾝｸ(q.hatena.ne.jp)
↑必要としているモジュールは違うものの、
この人と同じ状況なのかな、と思うんですがどう思いますか？

同じ状況だとすると、不可能ですよね
FTPであげることしかできませんので。。。

653:nobodyさん
08/06/02 18:41:40
呼び出されてるDLLがWin用のコンパイル済みDynaLoader.pmを、Linuxにそのままコピーしたんでしょ？　たぶん。
Linuxでコンパイルし直さないとムリ。よってムリ。

654:nobodyさん
08/06/02 18:45:29 VCfcjQkN
あぁ・・・やはり無理ですか。

5.00503で使えるHTML::Templateの代わりのようなものがほしいんですが、
どこを探せばいいでしょうか。
何度も申し訳ありません。

次ページ