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

Perlコーディング初心 ..

554:nobodyさん
07/11/17 14:33:33 GlJQ98hk
URLﾘﾝｸ(oshiete.new-akiba.com)
ここを見ながらコマンドプロンプトを操作しているのですが
ダウンロードされる段階まで行っても
Can't locate strict.pm in @INC (@INC contents: .) at C:\Program Files \warrick\warrick.pl line8.
BEGIN failed--compilairion aborted at C:\Program Files \warrick\warrick.pl line8.
と出ます。

意味もそもそも分からないのですが、解決方法教えてください

555:nobodyさん
07/11/17 15:24:40
>>554
エラーの原因は@INCが空になってるから。なんでそうなってるのかは知らん。
ActivePerlを入れ直してみたら？

あとここはコーディングスレだからスレ違いだと思わなくもない。

556:nobodyさん
07/11/17 20:14:46
>>555
最新版入れてみたけど同じでした
質問スレいってきます

557:nobodyさん
07/11/17 20:58:37
>>にアンカを３つだけつけたいんだけど、これだと同じとこにリンクをかけてしまいます。
どうすればいいんでしょうか。
for($i=0;$i<3;$i++)
{
$str=~s/>>[0-9]{0,10}[-]{0,1}[0-9]{0,10}/<a href="$_[1]p=$&">$&<\/a>/;
$str=~s/p=>>/p=/;
}

558:nobodyさん
07/11/17 22:00:49
$i = 0; $buf =~ s/(>>\d+)/$i++ < 3 ? "LINK:$+" : $+/egs;

559:556
07/11/17 22:23:56
>>558
ありがとうございます。
そんな書き方知りませんでした。

560:557
07/11/17 22:26:54
>>559
556じゃなくて557でした

561:nobodyさん
07/11/18 19:50:49
自作モジュールをロードするときに、BEGINブロックで@INCに追加してからBEGINの外でuseするのは外道

562:561
07/11/18 19:51:25
↑
「ですか？」が抜けた。
すまぬ

563:nobodyさん
07/11/18 20:25:36
>>561-562
外道かどうか知らんが、普通は use lib でしょ。

564:nobodyさん
07/11/19 06:13:08 s0DcKkZM
これからプログラムをやりたいと思ってます。
いまからやるならperlは覚えたほうがいいですか？

565:nobodyさん
07/11/19 06:19:02
PHPでいいよ

566:561
07/11/19 08:54:57
>>563
ありがｔ

567:nobodyさん
07/11/20 11:38:30 PLctc9ni
多重起動の禁止はできたが、解放がうまくいかない。
どこが悪いか教えてください。

#登録＆多重起動禁止
use Win32::API;
use Win32::Mutex;
my $mutex = Win32::API->new("kernel32","CreateMutex",["N", "N", "P"], "N");
die "二重起動" if(Win32::Mutex->open('TestProgram123'));
$mutex=Win32::Mutex->new(1, 'TestProgram123');

#解放
my $releacemutex = Win32::API->new("kernel32","ReleaseMutex",["N"], "N");
$releacemutex->call($mutex);

568:576
07/11/20 14:43:38 PLctc9ni
自己解決

Win32-API使わなくてもできるのねぇ

569:nobodyさん
07/11/21 03:27:48
むしろ何の為のラッパーだよ

570:nobodyさん
07/11/23 21:52:32 BH2PwYj+
質問失礼します。

AとBの文字があるとき、文字列の中のBAを全てABにしたいときはどのような置換をすればいいのでしょうか？

例えば、
$s = "AABABABBBA";
と文字列があったら、
$s = "AAAAABBBBB";
にしたいのです。

$s =~ s/BA/AB/g;とすると、置換後を判定してくれないので、困ってます……

571:nobodyさん
07/11/23 21:58:25
>>570
たとえば。
$ perl -e '$s = "AABABABBBA";while($s=~s/BA/AB/g){}print $s;'

572:nobodyさん
07/11/23 22:00:18
>>570
その場合、これ以上置換できなくなるまで「$s =~ s/BA/AB/g;」の処理を行わなければならない。すなわち、ループである。
s/BA/AB/g;は、置換を行った回数を返す。つまり、0を返すまで処理を継続したいのだから、while文が使える。
したがって、次のようになる。
while($s =~ s/BA/AB/g;){}

whileのあとの{}の中に何も入っていないが、これでお望みどおり動くようである。

573: ◆TWARamEjuA
07/11/23 22:31:04 BE:6970188-2BP(6825)
sortって云う手もあるよなぁ♪
print join "", sort split "", "AABBABABBBABAABBAABABABABA";

574:570
07/11/23 22:36:47
>>571-573
返信ありがとうございます。
無事whileを使う方法で出来ました。

575:nobodyさん
07/11/24 07:56:01
>>574
遅レス。
他の文字が存在しないと云う条件下なら、素直に文字数カウントするって手もある
perl -le 'my $s = "atataaattttatatat" ; print "a" x ( $s =~ s/a/a/g ) . "t" x ( $s =~ s/t/t/g ) ;'
ま、他の文字が存在してても外側ループ一個つけるだけだけどね。

蛇足だと思ったんだが、、、、

576:nobodyさん
07/11/25 15:53:28
ちょっと分からないので質問させてもらいます。
手作りで掲示板みたいなのを作ってるんですけど
Location:で二重投稿を禁止したくて書いたんですが投稿したあとにLocation:って文字が表示されて飛ばないんですけど
なんでしょうか？
普通なら飛ぶのに飛びません・・・。

誰か分かる方が居れば教えてください。

577:nobodyさん
07/11/25 16:07:12
>>576
content-typeの前に書いてみ

578:nobodyさん
07/11/25 16:35:27
>>577
出来ました。
ですが書き込みがされなくなりました・・・。

579:nobodyさん
07/11/25 17:55:01
そもそもがどんな仕組み何だかわかんねーと答えようがねーよｗ
こっちはエスパーじゃないんだからさｗ

580:nobodyさん
07/11/25 18:30:55
>>579
URLﾘﾝｸ(www.uploda.org)
これなんですが上手く動作しなくて・・・。

581:nobodyさん
07/11/25 18:47:07
一番最初に

print "Content-type: text/html\n\n"; # データ形式

を書いてるのが不味いような気がするのは気のせいかな。

582:nobodyさん
07/11/25 18:47:57
>>581
他のところに置いたりすると上手く動作しないんです・・・。

583:nobodyさん
07/11/25 18:50:17
あと、$locationって変数、どこで使ってるんだろ。

584:nobodyさん
07/11/25 18:55:24
勉強し直しておいで。

585:nobodyさん
07/11/25 18:55:39
あ、それは書き忘れましたがKENTWEBさんのところのをちょっと借りたやつです。
# リロード
if ($location) {
if ($ENV{'PERLXS'} eq "PerlIS") {
print "HTTP/1.0 302 Temporary Redirection\r\n";
print "Content-type: text/html\n";
}
print "Location: $location?\n\n";
exit;
}
これがサブルーチンのwriteの最後に置いてました。

586:nobodyさん
07/11/25 18:56:09
とりあえずヒントは、
・Location: はHTTPヘッダに出力する
・ヘッダとボディの区切りは空行で示す

587:nobodyさん
07/11/25 19:08:15
前も書いたけど、kentwebのってデリミタに<>使うの好きだねえ。データがでかくなってくると、
2バイトも勿体無いと思う。

588:nobodyさん
07/11/25 19:10:08
>586
難しそうですが頑張ってみます。

589:nobodyさん
07/11/25 21:12:48
2バイトさえ気になるような人はデミリタに何使うんだろ。

590:nobodyさん
07/11/25 21:13:37
デリミタねｗ

591:nobodyさん
07/11/25 21:51:10
タブ？

592:nobodyさん
07/11/25 21:57:24
俺はタブ。excelにも貼るだけで、データやりとりできるし。

593:nobodyさん
07/11/26 01:21:50
俺は適当に,にしてた

594:nobodyさん
07/11/26 09:34:29
>>593
CGIでHTMLを吐く前提なら、 , を入力されると面倒なことになるんだよな。
< > なら < > ってできてしまうからいいんだけど。

595:nobodyさん
07/11/26 09:35:03
↑失礼
< > なら < > ってできてしまうからいいんだけど。

596:nobodyさん
07/11/26 17:00:07
, は,でいいんじゃね？俺もタブ使うけど

597:nobodyさん
07/11/26 19:49:54
ちょいと質問を。

今ソフトバンククリエイティブのCGI/perl ハンドブック第３版
のCGIサンプルで掲示板を作ったのですが掲示板にメッセージが書き込まれなかったらエラーを出そうと
思って四苦八苦しているんですがperl6はよく分からなく苦戦しています。
誰かこの本を持っていて、分かる方がいればご教授お願いします。

598:nobodyさん
07/11/26 20:23:48
>>597
その本持ってないから知らないけど、本当にperl6ですか？

#このスレはご教授ってＯＫなんだっけ？

599:nobodyさん
07/11/26 21:19:36
こんばんは。
LWPで、現在取得しているURLの情報を参照する方法ってあるでしょうか。

URLﾘﾝｸ(www.xxx.ne.jp)<)

こんな感じのURLになってるのですが、この　？　以降の情報を取得したいのです。
$responoser->base
では、　？　より前のURLしか返してくれません。
教えてください。

600:nobodyさん
07/11/26 23:26:29
>>598
その使い方も間違ってない以上、突っ込む方が野暮or空気が読めないでおｋ

601:nobodyさん
07/11/27 03:23:29
質問します

他のサーバー上のテキストファイルを読み込ませたいのですがopen関数ではできないんでしょうか？

602:nobodyさん
07/11/27 03:33:26
できない

603:nobodyさん
07/11/27 03:49:49
>>601
あんたすげーな

604:nobodyさん
07/11/27 06:16:45
童貞で40歳まで行ったら妖精になれるよりすごい発想

605:nobodyさん
07/11/27 07:36:33
ただ、PHPでは同じような方法でできるこの不思議。

606:nobodyさん
07/11/27 08:12:36
だれか599についての回答を・・・

607:nobodyさん
07/11/27 09:01:18
>>599=606
リダイレクトされるためには適切なHTTPヘッダが返っているはずだからそれ調べる。

608:nobodyさん
07/11/27 11:02:47
>>599 >>606
うちの環境では、３回リダイレクトを経て、？&引数がもっさりついたurlに飛ばしても、
print $response->base();
で、引数（’？’以降%E3%81%82%E3%81%84%E3%81%86%E3%81%88%E3%81%8Aとか)がついた
URLを表示できたけど・・・。

ActivePerl 5.8.8-build822(XPsp2)
LWP/5.808

609:nobodyさん
07/11/28 05:14:00
ブログの自動投稿プログラムを作りたいと思ってるんですが、大まかな仕組みも分からず困っています。
どなたかご教授願えませんか？
ちなみに、用途はバーチャルな人間の日記を作りたいと思っています。

日記を出力するアルゴリズムは別に用意しますので、
それをブログの投稿画面に自動でログインして書き込むようにしたいのです。

ローカルからでも構わないのですが、
できれば安いレンタルサーバーから行えれば良いなと思ってます。

検索で『自動投稿』としたらたくさん見つかったのですが、どれもアフィリエイター用のもので、
結構値段も高いですし、記事を予め用意しないとダメなので私がしたいようには出来そうにありません。

610:609
07/11/28 05:16:24 onMmaiK+
よろしくお願い申し上げます。m(__)m

611:nobodyさん
07/11/28 05:24:30
ひょっとしたら、atom っていうのを勉強したら道が開けるんですか？

612:nobodyさん
07/11/28 05:26:27
日記を出力するアルゴリズム　←これがきになる

613:nobodyさん
07/11/28 09:39:10
日記を出力するアルゴリズム　←ってのはもしかして勝手に日記を書いてくれるプログラムだろうか

614:nobodyさん
07/11/28 09:48:03
>>609
△▲　WebProg 初心者の質問 Part16　▼▽
ｽﾚﾘﾝｸ(php板)

615:nobodyさん
07/11/28 13:29:43
日記を出力するアルゴリズムを書ける人ならそれぐらい自分でできそうだけど。
荒らしスクリプトにするつもりじゃないなら、その日記を出力するアルゴリズムの
元ネタの場所を公開すれば信用が得られるかも。

616:nobodyさん
07/11/29 03:01:28
そういうのは荒らしやスパムに使われる可能性が高いから、自分でやりな。

617:609
07/11/29 18:18:55 fn44RAXr
>>612-615
日記のアルゴリズムが完成したわけではありません
ただそっちは、大したものじゃないにしても何とかなりそうなんです。
一方、自動投稿の方は何から手を付けていいのかすら分からない状態でしたので質問させてもらいました

>>616
やっぱりそうですか

わかりました。何とか頑張ってみます

因みにスパム行為をするつもりは毛頭ありませんが、確かに見ようによってはそう映る可能性も否定できないですね。

あくまでも普通の人間っぽい挙動にしたいと思っているので、投稿の数も一日で多くて3通程度、少ないときは三日ぐらい更新しないような動きを考えてました。

とにかく自分で何とかしないとダメみたいですね

ご迷惑おかけ致しました

618:nobodyさん
07/11/29 18:50:54
URLﾘﾝｸ(search.cpan.org)

619:nobodyさん
07/11/29 18:56:46
>>617
う～む、どう考えてもやっぱりその
日記を出力するアルゴリズム
ってのが、自動投稿するスクリプトより遥かに高レベルのような気がするが・・・・。

まあいいや、ヒントだけ。
WWW::Mechanize オススメ。
内容や使い方は、自分で調べてちょ。

620:609
07/11/30 00:45:15
>>618,619
ありがとうございました。
参考にさせていただきます。

今いろいろ資料を調べたり、さっき図書館で借りてきた
Webクライアントプログラミングって言う本(めちゃふるいですがw)
を読んだりしてます。

HTTP通信などは一度もやったことがないので、
LWPあたりから勉強したほうがよさそうな、
そんな気がしてる今日この頃。

AtomとかXML-RPCとかの資料にまではたどり着けたのですが、
そこに平然と書かれている GETだのPOSTだのという表現についていけない状況です。
あれを全部 perl のコードに解釈するための知識がないのです。

というわけで、だいぶ時間掛かりそうですが、
こつこつやっていこうかなと。

もう少し進歩して、またわからないことがあったら、
ここか>>614さんが教えてくれたスレにでも出没いたします。

では、ごきげんよう皆様。

621:609
07/11/30 03:34:24
(´・ω・`) ノシ　やっとこさ、livedoor から餌を頂戴できました

なんだか、嬉しくて涙が出てきた。・+゜（つД｀）゜+・。

みんなありがと

622:609
07/11/30 03:51:57
>>619 Mechanize というのを完全に誤解してたようです
XML-RPCとかAtomPubなどとはまったく違うんですね。

なんというか、禁断の･･･いや、貴重な情報ありがとうございました。

623:nobodyさん
07/11/30 12:46:37
フォームメールに入力された内容を半角→全角に変換するプログラムがわかりません。

$str = '$mystr';
$kigou ='@!"#$%&\'()=-^\\|{}:;+*?_/<>';

require 'jcode.pl';

if ($FORM{'namae'} ne ''){
$mystr = $FORM{'namae'};
&hankaku;
}

sub hankaku{
&Jcode'convert(*str,'euc');
if($str =~ /^[0-9]{7,11}$/){
&jcode'tr(*str,'０-９Ａ-Ｚａ-ｚ','0-9A-Za-z');
}elsif ($str =~ /\x8E/) {
&jcode'h2z_euc(*str);
}else ($str =~ /$kigou/){
&jcode'tr(*str,'＠!”#$％＆’()=－＾￥｜｛｝：；+＊?＿/＜＞','@!"#$%&\'()=-^\\|{}:;+*?_/<>');
}
&Jcode'convert(*str,'sjis');
$str = $value;
exit 0;
}

1度eucに変換してからと考えたんですが。

624:nobodyさん
07/11/30 13:06:38
>>623
Unicode::Japanese

625:nobodyさん
07/11/30 13:27:37 7wito75u
2007/11/30-2007/12/01,00-24,[動作させる値]

のようなdatファイルを下記でブランチさせると、指定範囲外だと判定されてしまうようなのです。
改善するにはどこを直せば良いでしょうか･･･最後の日付部分の比較だけで判定されてる･･？
localtime(time)取得やDAT読み込みは大丈夫っぽいです。

foreach $sdat(@set){
next, if $sdat eq "\n";
@sdat = split(/,/,$sdat);
@ddat = split(/\-/,$sdat[0]);
@d1dat = split(/\//,$ddat[0]);
@d2dat = split(/\//,$ddat[1]);
@tdat = split(/\-/,$sdat[1]);
if(
($ddat[1] eq '' || ($ddat[1] ne '' && $d2dat[0] eq '*' || $d2dat[0] >= $year))
&&($ddat[1] eq '' || ($ddat[1] ne '' && $d2dat[1] eq '*' || $d2dat[1] >= $mon))
&&($ddat[1] eq '' || ($ddat[1] ne '' && $d2dat[2] eq '*' || $d2dat[2] >= $mday))
&&($d1dat[0] eq '*' || ($ddat[1] ne '' && $d1dat[0] <= $year) || ($ddat[1] eq '' && $d1dat[0] == $year))
&&($d1dat[1] eq '*' || ($ddat[1] ne '' && $d1dat[1] <= $mon) || ($ddat[1] eq '' && $d1dat[1] == $mon))
&&($d1dat[2] eq '*' || ($ddat[1] ne '' && $d1dat[2] <= $mday) || ($ddat[1] eq '' && $d1dat[2] == $mday))
&&($sdat[1] eq '*' || ($tdat[0] <= $hour && $hour <= $tdat[1]))
){
chomp $sdat;
$url = $sdat[2];
last;
}
}

626:nobodyさん
07/11/30 13:32:25
ひどすぎわろた

627:nobodyさん
07/11/30 15:56:59 7wito75u
失礼。自己解決しました。

628:nobodyさん
07/12/10 07:32:09 aPvXjzqK
Perl5.x＋CGIです。

現在、複数のプロセスから、同じデータにアクセス（読み書き）したいと考えています。
異なるプロセス間で共有される静的な変数、というようなイメージです。

外部ファイルやデータベースなどを経由する方法以外で、
このような処理を実現するにはどのようにすればよいか、ご存知の方がいましたらお願いします。

やはりmod_perlが適当でしょうか。

629:nobodyさん
07/12/10 11:08:15
静的な変数？

ていうかそれプロセスが落ちたらデータは消えていいってこと？
素直にファイルなりDBなり使えばいいとおもうんだけど、それができない理由は？

630:nobodyさん
07/12/10 11:47:45
質問の意味がわからないけど
mmapやmemcacheみたいなの？

631:nobodyさん
07/12/10 13:16:59
読み書きするのに静的ってナンダロ

スレッド使うMPM+mod_perlで:shared使うとか
shared memory使うとかそういう話かな？

質問の仕方が初心者臭いし素直にDB使っとけって気がする。

632:628
07/12/10 20:47:52
>629-631
ありがとうございます。遅くなってすみません。
ご想像通り初心者です。初めて触ったのは何年も前ですが、仕事とか全然関係ないので。

Perl ←―→ 外部ファイル、DB
　　　　↑
ここのコストが凄く重いので、可能な限りアクセスを減らしたいと考えています。
Perl側で保持しておけば多少は減るかなあと。
要は、「キャッシュ」のようなものだと思っていただければ。

>629
＞プロセスが落ちたら
はい、構いません。もう一度、データ本体から取得するだけなので。

>631
＞読み書きするのに静的
「静的変数」と「定数」は全くの別物という認識だったのですが、
もしかするとPerlの世界だと違うのかもしれません。少し調べてきます。

>630-631
＞mmap、memcache、shared
軽く調べてみただけですが、そういうことです。勘違いしてるかもしれませんが。
この辺のキーワードを参考に、深く見てみようと思います。

633:nobodyさん
07/12/12 13:49:47 uWSb2hJm
すみません質問です。
複数画像ファイルが入っている特定フォルダから更新日が一番最新のファイルを
探して表示させたいのですが出来ますでしょうか？
尚、ファイル形式は不定です。
教えてください。
宜しくお願いします。

634:nobodyさん
07/12/12 13:58:00
(stat 'filename')[9]

635:nobodyさん
07/12/12 16:11:40
質問です。
aaa.htmというファイルを読み込んで、その中に書かれている変数を変数展開したいと思ったのですがそう簡単にはいきませんでした。
print qq|$_|;
とすれば変数展開されるかなと思いましたがそれもだめ。
置換を使えば簡単なのですが、置換以外の方法がありましたら教えてください。

--------aaa.htmの内容--------
<html>
<body>
$a
</body>
</html>

--------ソース--------
$a = 'aaa';

open(IN, "< aaa.htm");
@html = <IN>;
close(IN);

print "Content-type: text/html; charset=Shift_JIS\n\n";
foreach (@html)
{
print $_;
}

636:nobodyさん
07/12/12 16:27:53
HTML::Templateでも使っとけ

637:635
07/12/12 16:52:55
evalをつかったらなんとかなりそうです。

>636さんレスありがとう

638:nobodyさん
07/12/12 17:26:25 BkwLyerT
Encode.pm 5.85でEUC→UTF-8変換時に、
「髙」などの漢字が化けてしまうのですが、
これを化けないように工夫するにはどうすればいいのでしょうか？

639:nobodyさん
07/12/12 18:06:55
>>638
Encode::EUCJPMSを入れて、cp51932を使う。

640:nobodyさん
07/12/13 08:48:25
>>635
s/\$(\w+)/${$1}/g;

641:628=632
07/12/13 20:33:46
自己レスな上に遅レスです。
色々と検討してみた結果、速度や安全性に疑問も多いですが、とりあえずshm○○を使ってみようかなと思います。
ありがとうございました。

642:nobodyさん
07/12/14 03:20:01 jWEjvsMQ
質問です。
Usteramで録画したflvをダウンロードしたくて、
URLﾘﾝｸ(unknownplace.org)を参考に以下のソースを実行しました。
#!/usr/bin/env perl

use strict;
use warnings;
use AMF::Perl;
use LWP::UserAgent;
my $cid = shift || '5Fq8cQp9eHsEEknbQ22OOZniqS2xUiuz';
my $amf = AMF::Perl::Util::Object->new;
$amf->addBody('client.watch_video', '/1', { cid => $cid });
my $outputstream = AMF::Perl::IO::OutputStream->new;
my $serializer = AMF::Perl::IO::Serializer->new($outputstream, 'utf-8');
$serializer->serialize($amf);
my $amfdata = $outputstream->flush;
$amfdata =~ s/\xff\xff\xff\xff/\0\0\0\x31\x0a\0\0\0\x01/;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new( POST => 'URLﾘﾝｸ(gw.ustream.tv)' );
$req->content( $output );
$req->content_type('application/x-amf');
$req->content_length( length $amfdata );
my $res = $ua->request($req);
my $deserializer = AMF::Perl::IO::Deserializer->new(AMF::Perl::IO::InputStream->new($res->content), 'utf-8');
use YAML;
print Dump $deserializer->getObject->getBodyAt(0)->{value};

643:642
07/12/14 03:21:23 jWEjvsMQ
実行結果は以下の通りです。

Content-Length set when there is no content, fixed at /Library/Perl/5.8.6/LWP/Protocol/http.pm line 196.
Can't use an undefined value as a HASH reference at test.pl line 37.
どうすればいいでしょうか。

よろしくお願いします。

644:nobodyさん
07/12/14 08:48:00
37行目って何処よ

645:nobodyさん
07/12/15 20:24:19
$text = <STDIN>;

として、処理中に何らかのテキストを入力させたいです。
英数字は問題ないのですが、日本語を入力したときが変です。

aあ

と入力して、バックスペースを押すとちゃんと消去されません。2回おせば「あ」の表示は消えるのですが、
受け取った文字のaも消えてしまっています。
解決策を教えてください

646:nobodyさん
07/12/15 22:15:15
IPアドレスから携帯のキャリア判定してる人ってみんなここから
新しいＩＰアドレスが追加されたか定期的にチェックしてるんですか？
Wikipedia項目ﾘﾝｸ

647:nobodyさん
07/12/15 22:41:06
ついでにききたいのですが、
@text = <STDIN>;

ってやったときに、入力を終わりにするにはどうすればいいのですか？

648:nobodyさん
07/12/16 02:59:28
>646
そこから調べてるかどうかはともかく、公式サイトを見るのは確かだな。
まあ、IPアドレスが追加されること自体はあんまり無いし……。

649:nobodyさん
07/12/16 11:33:56
>>646
リモートホストに変換して判断してる。

650:nobodyさん
07/12/16 16:00:14
>>649
ホストに変換するのは失敗することあるらしいぞ。
直接IPから判断した方が確実。

気にするほどじゃないとは思うけど、どうなんだろ

651:nobodyさん
07/12/16 18:41:45
perlで2ちゃんねるの専用ブラウザみたいなのって作れるんでしょうか。

652:nobodyさん
07/12/16 19:23:33
ネットワークをサポートしていて、文章の出力が出来るなら大抵の言語で可能だと思うよ。

653:642
07/12/17 11:34:49 FgX+pG+l
>>644
37行目は一番最後のprintの部分です。

654:nobodyさん
07/12/18 10:34:57
たとえば、sample.plに、

require('lib/lib.pl');
&dosomething();

と書いておいて、lib/lib.plに、

sub dosomething{
　　open(FH, '>> baka.log');
　　print FH time."\n";
　　close(FH);
}

とすると、lib/の中にファイルができるのではなく、ひとつ上にできてしまいます。
これをlib/の中に保存したいのですが、ライブラリからの相対パスで保存する方法はないでしょうか。
または絶対パスを使うしかないのでしょうか。
ヒントだけでもお願いします。

655:nobodyさん
07/12/18 11:18:35
>>654
じゃあ、ヒントだけ…
つ %INC

656:654
07/12/18 16:52:48
>>655
ありがとう！
こーゆー用途に使うのな。

657:nobodyさん
07/12/19 01:05:36
ハッシュ配列の各要素をリファレンスとして関数の引数に渡したいのですが
よくわからなくて試行錯誤の末下のような方法にたどり着きました

$AA{'name'} = '1234';
$BB[0]{'name'} = 'abc';
$BB[1]{'name'} = 'ああああ';
$BB[2]{'name'} = '!?';

kansuu( \%AA );
$tmp = \@BB;
kansuu( ${\$tmp->[0]} );
kansuu( ${\$tmp->[1]} );
kansuu( ${\$tmp->[2]} );

sub kansuu
{
　　my $h = $_[0];
　　print "$h->{'name'}<br>";
}

BBの要素を kansuu() に入れるために
もっとスマートな方法（っていうか正しい書式）がありましたら教えていただけないでしょうか？

658:nobodyさん
07/12/19 01:14:31
my %AA = ( name => 1234 );
my @BB = (
{name => 'abc'}, #$BB[0]に無名ハッシュ(リファレンス)をいれる
{name => 'ああああ'}, #$BB[1]に〃
{name => '!?'} #$BB[2]に〃
);
kansuu( \%AA ); #\をつけることで%AAのリファレンスがわたる
kansuu( $bb[0] ); #$bb[0]の無名ハッシュリファレンスを渡す
kansuu( $bb[1] );
kansuu( $bb[2] );

sub kansuu {
printf('%s<br>',shift->{name});#ハッシュリファレンスは->をつけて要素を取り出す
}

659:nobodyさん
07/12/19 02:00:39
$,@,%,\と(),{},[]と->の組み合わせで大抵何とかなる。
正直スカラーのリファレンスの説明は自身がないけどおよそあってると思う
my $scalar = 'abc'; #スカラー
my $scalar_ref = \$scalar; #スカラーのリファレンス
my $anon_scalar_ref = \do {my $anon;}; #微妙に無名じゃないけど
my @array = (1,2,3); #配列
my $array_ref = \@array; #配列のリファレンス
my $anon_array_ref = [1,2,3]; #無名配列のリファレンス
my %hash = (a=>1,b=>2,c=>3); #ハッシュ
my $hash_ref = \%hash; #ハッシュのリファレンス
my $anon_hash_ref = {a=>1,b=>2,c=>3}; #無名ハッシュのリファレンス
my $slacar_object = bless $scalar_ref => __PACKAGE__; # スカラー使ったオブジェクト
my $array_object = bless $array_ref => __PACKAGE__; # 配列使ったオブジェクト
my $hash_object = bless $hash_ref => __PACKAGE__; # ハッシュ使ったオブジェクト
#素直に取り出せる
printf "scalar=%s\n",$scalar;
printf "array=%s\n",$array[0];
printf "scalar=%s\n",$hash{a};
#アドレスっぽいのがとれる
printf "scalar_ref=%s\n",$scalar_ref;
printf "array_ref=%s\n",$array_ref;
printf "scalar_ref=%s\n",$hash_ref;
#リファレンス先の値書き換えたり取り出したり
$$scalar_ref = '書き換えちゃった';printf "scalar=%s\n",$$scalar_ref;
$array_ref->[1] = '書き換えちゃった';printf "array=%s\n",$array_ref->[1];
$hash_ref->{b} = '書き換えちゃった';printf "scalar=%s\n",$hash_ref->{b};
#デリファレンスする(copyが作られる)
my $scalar2 = ${$scalar_ref};
my @array2 = @{$array_ref};
my %hash2 = %{$hash_ref};

660:nobodyさん
07/12/19 07:53:49
CGI.pmでmetaを出力したいのですがうまくいきません。
↓これを出力したいのですが・・・
　＜meta http-equiv="Content-Type" content="text/html; charset=utf-8" /＞

URLﾘﾝｸ(www.geocities.co.jp)

このページの解説によると、

use CGI;
my $q = CGI->new;

print $q->start_html(
　　　　　　　　　　　　　　-head=>meta({'http-equiv' => 'Content-Type'
　　　　　　　　　　　　　　-content=>"text/html; charset=$CharSet"}
),

このようなコードになるはずなのですが、やってみると
Undefined subroutine &main::meta called
というエラーがでます。meta()がメインのサブルーチンだと解釈されてるみたいです。

661:660　続き
07/12/19 07:54:19
print $q->start_html(
　　　　　　　　　　　　　　-head=>$q->meta({'http-equiv' => 'Content-Type'
　　　　　　　　　　　　　　-content=>"text/html; charset=$CharSet"}
),

とやると一応うまくいくのですが、なぜか
＜meta http-equiv="Content-Type" content="text/html; charset=utf-8" /＞
＜meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /＞

このようにもう一つ余計なメタが出てしまいます。どうすればいいのでしょうか？
ＣＧＩ．pmは3..31です。

662:nobodyさん
07/12/19 10:23:45
>>660-661
URLﾘﾝｸ(perldoc.jp)

my $q = CGI->new;
$q->charset('UTF-8');

663:６６０
07/12/19 23:37:11
>>662

ありがとうございました！

664:657
07/12/20 08:31:41
>>658-659
ありがとうございます！
超わかりやすくて助かりました
今のプログラムの色んなところがもっと簡潔に書けそうです

665:nobodyさん
07/12/20 10:28:40
> 超わかりやすくて助かりました
> 今のプログラムの色んなところがもっと簡潔に書けそうです

本当はわかってないくせに。

666:nobodyさん
07/12/20 13:33:18
>>658-659ですべてが理解できれば天才

667:nobodyさん
07/12/20 13:39:25
最低限は書かれてて分かりやすいとは思ったぞ

668:nobodyさん
07/12/20 16:21:00
読む気もしねぇよ

669:nobodyさん
07/12/21 21:13:42
でもああやって思いつく限りの書き方試して要素やハッシュ値見てればなんとなくでもわかってくるはず。
めんどいけど。

670:nobodyさん
07/12/22 18:50:11
あんな変な列挙を眺めるんじゃなくて、続初めてのPerl読むべきだろ。

671:nobodyさん
08/01/02 06:47:19
perl5.10 に移行した人います？

672:nobodyさん
08/01/02 20:07:21
ノ
依存コードは書いてないけど

673:nobodyさん
08/01/03 00:16:04
ﾉｼ
cygwinで5.10入れてみた
use 5.10;で書いてみてる

674:nobodyさん
08/01/05 22:21:41
変数の中身を展開せずに確認したい場合ってどうすればいいんでしょうか？

$test = "今日は\n いい天気です　$wether";

こんな変数があるとして、$test自体は展開してほしいんですが、
中身の\nや$wetherは展開せずに出力したいのです。

675:nobodyさん
08/01/05 22:58:36
'

ちなみに、weather？

676:nobodyさん
08/01/06 03:58:05
>>674
$testに代入した時点で展開しちゃってるでそ
そもそも確認したい意図は何？

リファレンスにしてアドレスを確認する手もあるけど

677:674
08/01/06 14:08:20
うーん、無理みたいですね。諦めます。一応問題は解決しましたので

>>675
そうです；
>>676
なるほど・・・
意図は正規表現でゴチャゴチャいじったあとの文字列が
どうしてもめちゃくちゃくになってしまうので、変数の位置関係を調べたかったのです。

678:nobodyさん
08/01/06 16:36:10
>>674はなぜ>>675の一行目を無視するんだ？
それが答えじゃないか。
>>676はそれもわかってないみたいだが。

679:nobodyさん
08/01/06 23:12:25 wcb81UNa
$kekka = int(200 * 0.29);
print "$kekka";

このような計算をしたら、結果が５７になりました。
intって小数点が発生した時に切り落とすはずですよね？
えと、なぜこんなことになるのか意味が分からないのですが、
誰かご教授お願いします

680:nobodyさん
08/01/07 01:59:09
>>679
URLﾘﾝｸ(www.tt.rim.or.jp)

681:nobodyさん
08/01/07 11:17:24
それ、今じゃ間違いじゃないってのが一般的。
語源の知識としてはありだけど、誤用が定着するなんていくらでもあることだから。

いつもいつも空気読めない人が指摘するよな。

682:nobodyさん
08/01/07 11:27:36
>>679
$kekka = int(((my $n=200 * 0.29)=~/(.*)/)[0]);
print "$kekka";

こう書けばＯＫ

683:nobodyさん
08/01/07 11:29:04
>>681
誤用でない方が一般的だとする根拠は？

684:nobodyさん
08/01/07 11:38:36
回答にはなってないけれど、こちらの環境でもいくつか試してみた
ので、その結果を書いておく。
何でこんな風な結果になるのだろうか。私も分からなかった。

$kekka = 200 * 0.29;
print "$kekka";
出力：58

$kekka = 200 * 0.29;
$kekka = int($kekka);
print "$kekka";
出力：57

$kekka = int(200 * 0.29);
print "$kekka";
出力：57

$kekka = int(2 * 29);
print "$kekka";
出力：58

685:nobodyさん
08/01/07 12:30:31
浮動少数の扱いの問題。
use bignum; これで解決。

686:nobodyさん
08/01/07 21:15:48 XSyaqzwg
>>685
おぉ　いきました！
詳しい原因はよくわからないですが、ありがとうございました。

687:nobodyさん
08/01/07 21:22:49
ためしにPerlじゃなくてLispで
(* 200 0.29)
ってしてみたら57.99999999999999だってさ。機械の計算って難しいことがあるな

688:nobodyさん
08/01/07 22:41:02
誤差については、がっこで習うものだと思ってたけど、そうでもない？

689:nobodyさん
08/01/07 22:44:33
俺は習ったけど、もしかしたら教えてないところも少なくないかもしれん

690:nobodyさん
08/01/07 23:59:36
情報工学を扱う授業でもなきゃ教わらないんじゃね？
少なくとも俺は浮動小数点の丸め誤差については習ったことない。

あと高校の世界史も。

691:nobodyさん
08/01/08 00:07:25
>>683
>>681じゃないがなんかの辞書に載ってた気がする
ソースはない

692:nobodyさん
08/01/08 00:31:05 k+nta2fc
丸め誤差の知識はありますけど、
コンピュータの中で200*0.29ってどうやって計算してるか分からない
そもそも結果が57.9999････になると言われても、どういう計算をしているのか
さっぱりｗ

693:nobodyさん
08/01/08 00:34:28
しかも
(* 20 0.29)
これは5.8って表示されるから困るｗ

694:nobodyさん
08/01/08 00:38:53
自前のショッピングカートの消費税を int($sum * 0.05) みたいに計算してるんだけど、大丈夫だろうか…

695:nobodyさん
08/01/08 07:14:24
>>694
>>685にすれば大丈夫かと

696:nobodyさん
08/01/08 08:15:35
俺は一番最初の質問者ではないが、浮動小数点の丸め誤差については、
wikipediaにも載ってたね。
問題の解決には、　use bignum;　つかえばいいわけで、それでいい
のは分かるけれど、それとは別の話で、小数を100倍して整数で演算をして、
あとで100で割ったりする方法だったらちゃんとでるから
use bignum; しなくてもいいんだよね？

697:nobodyさん
08/01/08 22:01:08
>>696
0.29が有効数字2桁だとあらかじめ分かっているなら100倍すればいいけどなあ。
既知でないときにはuse bignum;じゃないか？

698:nobodyさん
08/01/09 00:10:32
>>697
レスサンクス。
いや、意味の無い部分の考えかなと思ったんだけど、
そっちの方がメモリが少なくて済み、処理が早くなったりするのかなとか
思ったのよね。ま、すごく小さな世界をいっているんだろうけれど。

699:nobodyさん
08/01/09 01:01:57
うーん、俺も難しいことはわからんけど、
俺は細かい実行時間を気にしてミスをするより、コードの可読性を優先したいな。と思った。
大量のデータを扱う人から見ればふざけた態度かもしれないけどね。

700:nobodyさん
08/01/09 02:01:45
LL的には人間にとっての最適化（コードの可読性）のほうが重要だからそれでいいと思うな

701:nobodyさん
08/01/09 03:08:01 480klIK2
リーダビリティ重要。(高橋メソッド風に)

702:nobodyさん
08/01/10 23:51:33
IPを10進数に変換したものと、
サブネットマスク形式のリストをマッチングさせたいんですが、
どんなループさせればいいですかね？

#判定ルーチン内
foreach (@list) {
　my ($min,$max) = subnetMinMax($_);
　return ($ip >= $min and $ip <= $max) ? 1 : 0;
}
としてるんですが、grep等を使ったほうが良いんでしょうか？
ループ内でサブルーチン呼ぶのがちょっと気になります。

703:nobodyさん
08/01/11 00:04:09
訂正orz

x: return ($ip >= $min and $ip <= $max) ? 1 : 0;
o: return 1 if($ip >= $min and $ip <= $max);

704:nobodyさん
08/01/11 11:44:26
@listの中にマッチするものが複数存在する可能性があって
何にマッチしたか全て取りたいならgrepだけど
有るか無いかだけでいいならループ回して見つけ次第結果返していいんじゃない？

705:nobodyさん
08/01/11 16:30:20
return $ip >= $min and $ip <= $max;

706:nobodyさん
08/01/11 20:31:41
>>704
なるほど。このままにしますありがとうございました。

>>705
そっか、そうですよね。
聞いてみて良かったです。

707:nobodyさん
08/01/12 13:10:11
「うんこ」を含む行の最後に「出る」と追加することってできますか？
「うんこ」の前後は英数字・日本語交じりで文字数は不定です。
$_ =~ s/(うんこ)/$1でる/;
だと、うんこ～出るの間の文字が文末にきてしまいます。
文末指定は$みたいなので
$_ =~ s/(うんこ)/$1でる$/;
としてperlを実行させると、エラーなのか、プログラムが終わりません。

708:nobodyさん
08/01/12 13:13:01
if ( $うんこ =~ /うんこ/ ) ｛
　$うんこ .= ’でる’
｝

709:nobodyさん
08/01/12 13:38:43
「うんこを含む行」「改行」　⇒　「うんこを含む行」「でる」「改行」

if (index($_, 'うんこ') >= 0){ $_=~ s/$/でる/; }

710:707
08/01/12 13:54:47
>>708
全角を半角にしてやってみたりしましたが、エラーでした。

>>709
できました。ありがとうございます。
ただ、>=0の意味が分かりません。
改行は\nじゃないんですか？

711:nobodyさん
08/01/12 18:35:26
なにこのうんこスレ

712:nobodyさん
08/01/12 19:18:44
>>710
index

713:707
08/01/12 22:50:20
>>712
すみません、わかりました。ありがとうございました。

714:nobodyさん
08/01/13 13:16:41 rzzkvCmj
怠惰が美徳だの
エロエロ言語だの
言うけどさ
俺が習ってきた主な4つの言語のなかじゃ
間違いなく一番習得が苦しかった
ぞ
つまり、学習コストは高い
Perlより習得が難しい言語ってあるの？

私見では達人レベルを目指すならC++が全言語のなかで一番習得困難
そこそこのプロレベルを目指すならPerlが一番困難(C++はそこそこのプロならまだ簡単)

715:nobodyさん
08/01/13 13:17:19 rzzkvCmj
スレ間違えた( ﾟдﾟ )

716:nobodyさん
08/01/13 21:52:12
配布用のスクリプトを書く予定なんですが、
変数名のつけ方で悩んでいます。
たとえば、
my $title;
my $script_content_title;
my $ScriptContentTitle;
sub param{}
sub parse_URL_encoded_string{}
sub ParseURLEncodedString{}
等、色々書き方ありますが
短い方が良いのか、わかりやすい名前が良いのか、
又、大文字、小文字を混ぜて使うべきか、覚えやすい名前にするべきか、
意見ください。
賛否両論あると思いますが、極力万人受けするものを選びたいです。

長文すみません

717:nobodyさん
08/01/13 21:53:50
配布スクリプトの中身の変数名なんて誰も見ねぇよ

718:nobodyさん
08/01/13 21:56:06
>>717
学習、改造用として配布したいんです。

719:nobodyさん
08/01/13 22:43:42
perldoc perlstyle

720:nobodyさん
08/01/13 23:03:26
変数や関数の名前の付け方は、どんなプログラムを書こうとしている
かというところもあるからな。
例えば、関数名で html_ をつけるとそうでないものとの区別がついて
分かりやすくなるけれど、全部の関数に html_ がついてたら
逆に無意味に長いだけとなる。
ここでアドバイスが欲しかったら、その書こうとしているプログラムや
ソースをもう少し具体的にだすとかしないと話は進まないと思う。

721:716
08/01/13 23:22:17
>>719
ありがとうございます。全部読みました。

基本的にはアンダースコアを使うべきだそうです。
スコープによって使い分けるのが良いみたいですね。
$Global_Data #グローバル
$tmp 　　#局所
$LOCK_KIND #定数

>>720
プログラムの種類によって書き方が変わる、変えられるのがperlの利点かもしれませんね。
>全部の関数にhtml_
そういうのはパッケージにまとめればOKですかね。

おかげ様で書き方が頭に浮かんできました。ありがとうございました。

722:nobodyさん
08/01/14 02:09:11
Perlプログラマは"不精"なので面倒なタイピングはしません。
でもPerlプログラマは"傲慢"なので他人のコーディングスタイルを気にしません。
こんなイメージ。

723:nobodyさん
08/01/14 02:26:48
怠惰と傲慢と短気だっけなラリーの三原則。

ネーミング重要。(高橋メソッド風に)

でも職人芸的なところあるよねネーミングセンスって。
なかなかそこは難しい。

724:nobodyさん
08/01/14 04:10:53
果たして自閉症の描くイメージとは

725:nobodyさん
08/01/14 04:15:16
>>716
もう解決したみたいだけど、Perlベストプラクティスもおすすめ
ダミアン先生の盲信はいけないけど、かなりためになるYo

726:nobodyさん
08/01/14 17:41:01
ダミアン先生はPerl界屈指のハッカーだが、著作物での記述にクセが全くないわけではないからね。

一般論としては、上を目指すならいろんなハッカーのコードや文章にたくさん触れることが必要。
これがなかなか大変だし難しい。
そのためにはネット上のコミュニティーやリアルのイベントにこまめに参加したり
ブログを定期的にチェックし続けないといけないから。
そういうことをしてない自称Perl使いが結構俺の周りにはいて、
そういう奴らは我流のあまりエレガントじゃないスタイルから抜け出せないでいる。

727:nobodyさん
08/01/14 18:57:12 4AKnbZN2
ファイルに入っている文字を出力するつもりなのですが、
メタ字が混ざっていることもあり、ちゃんと出力できません。
あらかじめファイルの中のメタ字に\を振って置くとしても、かなりの手間になりそうですし、
何か効率の良いメタ字対策はないでしょうか？

728:727
08/01/14 19:02:23 4AKnbZN2
すみません。微妙に文書が狂っていました。
ファイルに入っている文字からの出力の際の
文字化けする文字の対策をお願いします。

729:716
08/01/14 20:00:43
>>725-726
オライリーファンの俺には最高の本かもです。
>>727-728
余計な事してるからじゃないですかね？
quotemetaなんてのはどうですか？
文字コードなんかも書くと返事もらえるかも。

730:nobodyさん
08/01/14 20:08:53
>>727
情報不足です。
「ファイルに入っている文字」…どんな文字? 文字コードは何?
「出力するつもり」…どこに出力するの?
「メタ字」…具体的にどの文字ですか?
「ちゃんと出力できません」…具体的にどのように出力できないのですか?

ありがちなのは、ファイルの中と、コンソールの文字コードの設定が異なっていて、文字化けしたように見えるとか。
メタ文字をいったん解釈してしまっているとか。
ヌル文字とかタブとか垂直タブとかグループセパレータとかasciiの制御コードはそもそも「文字」ではないですし。
「文字」をどう「出力」したいのかにもよります。

コードを示してはどうですか。

731:727
08/01/14 20:18:57 4AKnbZN2
$i = 0;
while($list = <IN>){
　(undef,$name[$i],undef) = split(/：/, $list);
　$i++;
}
@name = sort(@name);
while($line = <@name>){
　print "<option value='$line'>$line</option>";
}
えーっと、コードはこのような感じです。
ファイルのDBにアクセスして、その中の一部を取り出しソートしてhtmlで出力するという形です。

732:nobodyさん
08/01/14 20:21:10
メタ文字がhtmlの解釈の問題を引き起こしてるんじゃないよね？

733:nobodyさん
08/01/14 20:23:30
metaタグで宣言している文字コードと異なるとか…
html中で使われてる文字コードと出力してる変数の文字コードの不一致とか…

734:727
08/01/14 20:30:22
>>733
タグで宣言しているコードは関係ないのではと思います。
出力するとき、一部の文字がうまく表示出来ていませんから。

735:727
08/01/14 20:32:56
現状としてはファイルの中の「ソ」とかに\を付けていけば表示はうまくいくのですが、
ファイルをその後書き換えたりするとそれも出来なくなるのではないかと思っております。

736:nobodyさん
08/01/14 20:40:00
これか？URLﾘﾝｸ(www.kentweb.jp)

737:nobodyさん
08/01/14 20:46:05
>>735
use utf8;
binmode STDIN, ':encoding(shiftjis)';
binmode STDOUT, ':encoding(shiftjis)';
# windowsなら　shiftjis -> cp932

↑やってみて
ソース中に日本語文字列書くならutf8で保存してね。

738:nobodyさん
08/01/14 20:54:55
あｗ
binmode IN, ':encoding(shiftjis)';
かな？

739:nobodyさん
08/01/14 20:57:33
>>731
DBにアクセスしているのにファイルハンドルから@nameに格納しているとはいかに?
@nameへの格納の仕方が心許ないです。せめて以下のようにするとか。
my @name = map { (split(/：/))[1] } <IN>;
splitの対象が全角のコロンですが、perlソースと取り扱うデータの文字コードが合っていないと
間違いの元ですよ。

で、optionタグで書き出すべき文字列のリストが@nameに入っていて、それをどうしてグロブ
演算子を使っているのかわかりません。私はこんなこと一度もしたことありませんが…。
ここで、@nameの各要素がいったん解釈されてしまっていて、カタカナのソなどSJISの2バイト目の
\x5cが取り除かれてしまっています。単に
for (sort @name) {
　　print qq{<option value="$_">$_</option>\n};
}
でいいと思うのですが。

740:nobodyさん
08/01/16 00:34:21
CGI::Applicationで index.cgi?rm=<デタラメなキー> のように
run_modesで定義されなかったrun_modeを指定するとエラーが発生させられてしまうのですが
未定義の場合デフォルトのrunmodeを起動させる方法は無いでしょうか？

741:nobodyさん
08/01/16 02:08:57
$self->run_modes(
　　　　AUTOLOAD => \&catch_my_exception,
);

742:nobodyさん
08/01/16 02:17:14
>>741
ありがとうございます！試してみます。

743:nobodyさん
08/01/16 04:59:20 FWbaTTLj
5.005です。
以下のような、引数が省略可能なサブルーチンがあるとします。

　sub Func(;$\@\%) { （省略） }

このとき、引数が渡されたのか、それとも省略されたのかを
Func内で判断する方法を教えてください。

なお、そのままifに入れると偽となるような値（例えばスカラーの値が0）の場合も、
引数が渡されていると判断します。

744:nobodyさん
08/01/16 05:29:59
>>743
引数の数から判定
sub Func(;$\@\%) { print scalar @_ }
Func(); # 0
Func(undef); # 1
Func(1, @hoge); # 2

745:nobodyさん
08/01/16 05:44:10
>744
ありがとうございます。
なるほど、サブルーチンを使う時は常に@_を意識しないとダメだってことですね。

次ページ