08/04/20 16:06:37 BE:238787993-DIA(100004)
[プログラミング自体の経験が無い奴はまずココを読め]
Perlプログラミング講座: URLﾘﾝｸ(www.site-cooler.com)
[本]
リャマ: URLﾘﾝｸ(www.oreilly.co.jp)
駱駝: URLﾘﾝｸ(www.oreilly.co.jp)
Effective Perl: URLﾘﾝｸ(www.ascii.co.jp) (修正)
クックブック: URLﾘﾝｸ(www.oreilly.co.jp)
Perl ベストプラクティス: URLﾘﾝｸ(www.oreilly.co.jp)
Perl Hacks: URLﾘﾝｸ(www.oreilly.co.jp)
[オンラインマニュアル]
最新のドキュメント: URLﾘﾝｸ(search.cpan.org)
perl5.8.xのドキュメント(一部): URLﾘﾝｸ(www.kt.rim.or.jp)
perl5.005_03 のドキュメント: URLﾘﾝｸ(www.kt.rim.or.jp)
日本語ドキュメント検索: URLﾘﾝｸ(www.cpan.jp) (停止中)
perldoc.jp: URLﾘﾝｸ(www.perldoc.jp)
perldoc.com: URLﾘﾝｸ(www.perldoc.com)
3:デフォルトの名無しさん
08/04/20 16:09:13 BE:123817027-DIA(100004)
[モジュール]
CPAN.com: URLﾘﾝｸ(search.cpan.org)
河馬屋二千年堂: URLﾘﾝｸ(homepage3.nifty.com)
[テクニック]
Perlメモ: URLﾘﾝｸ(www.din.or.jp)
Perlのページ: URLﾘﾝｸ(homepage1.nifty.com)
Perlの小技: URLﾘﾝｸ(homepage3.nifty.com)
[Perl 5.8 Unicodeメモ]
URLﾘﾝｸ(www.rwds.net) (修正)
URLﾘﾝｸ(www.namazu.org)
URLﾘﾝｸ(www.lr.pi.titech.ac.jp)
4:デフォルトの名無しさん
08/04/20 16:12:33 BE:636768689-DIA(100004)
[過去スレ1]
1 URLﾘﾝｸ(pc.2ch.net)
2 URLﾘﾝｸ(pc3.2ch.net)
3 URLﾘﾝｸ(pc2.2ch.net)
4 URLﾘﾝｸ(pc2.2ch.net)
5 URLﾘﾝｸ(pc5.2ch.net)
6 URLﾘﾝｸ(pc5.2ch.net)
7 ｽﾚﾘﾝｸ(tech板) (事故により消滅)
8 ｽﾚﾘﾝｸ(tech板) (事故により消滅)
9 ｽﾚﾘﾝｸ(tech板)
10 ｽﾚﾘﾝｸ(tech板)
11 ｽﾚﾘﾝｸ(tech板)
12 ｽﾚﾘﾝｸ(tech板)
13 ｽﾚﾘﾝｸ(tech板)
14 ｽﾚﾘﾝｸ(tech板)
15 ｽﾚﾘﾝｸ(tech板)
16 ｽﾚﾘﾝｸ(tech板)
17 ｽﾚﾘﾝｸ(tech板)
18 ｽﾚﾘﾝｸ(tech板)
19 ｽﾚﾘﾝｸ(tech板)
20 ｽﾚﾘﾝｸ(tech板)
5:デフォルトの名無しさん
08/04/20 16:13:54 BE:265320656-DIA(100004)
[過去スレ2]
21 ｽﾚﾘﾝｸ(tech板)
22 ｽﾚﾘﾝｸ(tech板)
23 ｽﾚﾘﾝｸ(tech板)
24 ｽﾚﾘﾝｸ(tech板)
25 ｽﾚﾘﾝｸ(tech板)
26 ｽﾚﾘﾝｸ(tech板)
27 ｽﾚﾘﾝｸ(tech板)
28 ｽﾚﾘﾝｸ(tech板)
29 ｽﾚﾘﾝｸ(tech板)
30 ｽﾚﾘﾝｸ(tech板)
31 ｽﾚﾘﾝｸ(tech板)
32 ｽﾚﾘﾝｸ(tech板)
33 ｽﾚﾘﾝｸ(tech板)
34 ｽﾚﾘﾝｸ(tech板)
6:デフォルトの名無しさん
08/04/20 16:17:33 BE:636768689-DIA(100004)
少しミスりました、すみません。
テンプレは以上だと思います。
7:デフォルトの名無しさん
08/04/20 17:37:30
>>1おつ
8:デフォルトの名無しさん
08/04/20 21:59:21
柚縁故とかの説明は無しにしたのね
9:デフォルトの名無しさん
08/04/20 22:05:44
だいぶまえからないよ
10:デフォルトの名無しさん
08/04/20 23:21:25
エロ画像収集言語 perl
11:デフォルトの名無しさん
08/04/21 00:34:06
sedとawkさえあれば何も困らないことに気が付いた
12:デフォルトの名無しさん
08/04/21 01:04:51
perlでクライアントの2chブラウザ作ったけど見たい人いますか？
4時間ほどで作りました
13: ◆TWARamEjuA
08/04/21 01:35:41 BE:3049474-2BP(7082)
(´-`).｡ｏＯ(前スレが埋まる前に次ぎスレを立てて案内を入れて欲しいよなぁ。。。)
14:デフォルトの名無しさん
08/04/21 07:15:16
お前がやれ
15:デフォルトの名無しさん
08/04/21 18:03:48
perlの-MO=オプションってなんなんですか？
perlrunやperlcompile見ても
-MO そのものの説明は全然のってないんですが
16:デフォルトの名無しさん
08/04/21 18:08:05 BE:212257038-DIA(100004)
"O" と言うモジュールがあるんだよ
17:デフォルトの名無しさん
08/04/21 18:30:53
perldoc O だけで説明が出ますよ。探し回ってしまうのはなんとなくわかる。
18:デフォルトの名無しさん
08/04/21 18:35:21
ところが、perl -MO=Deparse とかの場合
perldoc B::Deparse
なんだなこれが。
19:17
08/04/21 18:45:42
そこは perldoc O すれば
「-MO=Hoge すると B::Hoge が、だな」とか書かれてたはずだからいいか、と
思い込んでみました。
20:l15
08/04/21 18:48:58
ありがとうございました
perlccで使えるモジュールみたいなもの(B::x)をperlコマンドから参照するアダプタモジュールが
Oっていう名前でそれを-Mオプションでuseしていると理解しました
=...はOモジュールのオプションですね
道理で-MOで幾ら探してもでてこないわけだ…orz
21:18
08/04/21 18:51:16
確かにCONVENTIONSとかに書かれてるね。
きちんと読みゃ問題ないんだが、オレはハマったw
22:デフォルトの名無しさん
08/04/21 18:52:54
リロードしてから投げりゃよかった。
>>21は>>19へのレス。
23:デフォルトの名無しさん
08/04/22 16:32:51 BE:238789139-DIA(100004)
#!/usr/bin/perl
use utf8;
sub スイーツ {
my $argument = shift; utf8::encode($argument);
my($package, $routine) = (caller 0)[0, 3];
{
no utf8;
$routine =~ s/\Q$package\E:://;
printf("%s(%s)", $routine, $argument);
}
}
スイーツ(笑)
__END__
URLﾘﾝｸ(codepad.org)
スイーツ関数出来たよー
24:デフォルトの名無しさん
08/04/25 10:46:58
cat a.txt b.txt c.txt > d.txt
と同等のことをする Perl モジュールはあるでしょうか？
なるべく、
while (<FH>){print;}
の繰り返しを避けたいのですが。
それとも
(open FH, "cat a.txt b.txt c.txt |");
のようにするのでしょうか。
25:デフォルトの名無しさん
08/04/25 12:35:24
>>24
perl -ne print a.txt b.txt c.txt > d.txt
26:デフォルトの名無しさん
08/04/25 12:38:26
これ使えば
URLﾘﾝｸ(search.cpan.org)
print slurp $_ for @files;
とかでできるんじゃね？
ってか何がやりたいの？ なんで繰り返しを避けたいの？
質問するときはそれを書くようにしましょう。
27:デフォルトの名無しさん
08/04/25 12:39:13
>>25
どうもありがとうございます。
言葉が足りなくて申し訳ありません。
実はコマンドラインでなく、スクリプトの中で実行したいのです。
28:24
08/04/25 12:47:18
>>26
どうもありがとうございます。
ご紹介の Slurp.pm を使用してみます。
while (<FH>){print;} の繰り返しを避けたいのは、何度も同じ作業をする予定なので、
while (<FH>){print;} をファイルの数だけループさせる以外にもっといい方法があればと思いまして。
シェルスクリプトでやっていたことを Perl スクリプトで実行したいところなので
発想がシェルからなのです。
他には、 comm や sort に対応するモジュールを使ってみようかと。
29:デフォルトの名無しさん
08/04/25 12:50:08
いや、だから
cat.pl
---- ここから---
#!/usr/bin/perl -n
print;
---- ここまで---
コマンド行：
cat.pl a.txt b.txt c.txt > d.txt
要するに
while(<>)
と
while(<STDIN>)
は違いますよって事だな
30:24
08/04/25 13:16:10
>>29
たびたびありがとうございます。
本当に言葉が足りなくて、ごめんなさい。
コマンドラインで a.txt b.txt c.txt を指定するのでなく、
スクリプト内で File:Find を駆使して、a.txt 他を探すつもりでした。
31:デフォルトの名無しさん
08/04/25 21:43:46
@ARGV = <*.txt>;
print while <ARGV>;
32:デフォルトの名無しさん
08/04/26 04:06:08
萌え萌えじゃんけんに絶対勝つモジュールはありますか？
33:デフォルトの名無しさん
08/04/26 23:14:27
お世話になります。お力添えください。
テキストファイル内の特定の文字列を検索して、
１．検索結果の『前』『後』の行に、任意の文字列を『追加』する、
２．検索結果の行を、任意に編集する
ということを行いたいのですが、
openしたファイルを直接書き換えることはできるのでしょうか？
一度、別のファイルを作成して、
元を削除して、
作成したファイルをリネームするのではなく、
直接編集できないのかなと思いました。
あと、上記の『１』について、
ファイル内の先頭から検索して、
はじめにマッチする場所へポインタを移動する関数って標準にはないでしょうか？
今は先頭からゴリ押しで探しているので、格好悪いです…。
34:デフォルトの名無しさん
08/04/27 01:04:42
>>33
書き換えは普通にできる。
だが危険だぞ。
35:デフォルトの名無しさん
08/04/27 12:55:49
perl ド素人です。
perl の FillInForm というモジュールを使いたいのだけど
利用しているレンタル鯖（さくら）には入ってないようです。
同じ処理が出来るモジュールなどを教えてもらえないでしょうか。
やりたい事は、
「入力画面からの入力値をチェックし、
不足があれば、入力値を保ったまま入力画面を再表示する」
というものです。この「入力値を保ったまま」というのに
FillInForm を使いたいと考えています。
select や radio の値復帰を
FillInForm で出来るという記事を見かけたので
使おうと思いましたが、
別にこれにこだわっているわけではないので、出来ればなんでもいいです。
管理者権限がなく、インストールなどは出来ないので
.pm の 1 ファイルだけ置いて、require して使えるようなモジュールだとより助かります。
（FillInForm も試してみたのですが上手くいかず……）
36:デフォルトの名無しさん
08/04/27 12:58:23
依存してるモジュール全部突っ込んで、
use lib '.';
とかでいいだろう。
37:デフォルトの名無しさん
08/04/27 13:01:29
CGI::Ex::Fill
38:デフォルトの名無しさん
08/04/27 13:11:49
即レスありがとうございます。
>>36
そういう書き方が出来るんですね、なるほど。
今回は残念ながら、FillInFomr のソースを見たところ、
require 5.005;
なんて記述があり、自分では依存先ファイルの全貌がつかめませんでした…。
>>37
試してみます。
39:デフォルトの名無しさん
08/04/27 16:03:15
>>38
そのrequireは単なるバージョン制限だ。5.005未満の環境だと、そこで強制終了。
40:デフォルトの名無しさん
08/04/27 16:34:19
すいません今日はじめるんですが、perl5.8.8.822インストールして
環境変数設定するんですが、パスこれであってますでしょうか？
c:\ActivePerl-5.8.8.822-MSWIN32-x64-280952\perl\bin\perl.exe
41:デフォルトの名無しさん
08/04/27 16:56:43
エクスプローラのアドレスバーに
C:\ActivePerl-5.8.8.822-MSWIN32-x64-280952\perl\bin
と打ってみてその中に perl.exe さんがいるのなら、↑こう。
環境変数 PATH の設定なんだから最後の \perl.exe 要らない。
でも、Windows環境だと C:\Perl\bin 辺りに perl.exe さんがいる
状態にする人のほうが多いので、どこに perl.exe さんがいるのか
きちんと確認してください。
42:デフォルトの名無しさん
08/04/27 17:11:18
ほんとにインストールしたのか?!
43:デフォルトの名無しさん
08/04/27 21:01:48
>>35です。
すみません、CGI::Ex::Fill を入れようとしたのですが
うまくソースを読み込めていないようで、
関数を呼び出すと
Undefined subroutine &main::form_fill
となります。
やったことは、サイトから落としたソースを Fill.pm として ./lib にアップ、
use lib qw(./lib);
でその読み込み、
form_fill($html, $query);
の呼び出し、の 3 点です。
form_fill の1行をコメントアウトすると、もちろん値は復帰しませんが正常に動きます。
（なので、use lib qw(./lib); も少なくともエラーにはなっていないようです）
問題点の心当たりのある方がいたら教えてください。
44:デフォルトの名無しさん
08/04/27 21:17:37
今、パールの勉強始めてます
変数がクソだと思いました
Cをやりたいです
配属先でぱーるなんてやらせるのがイヤです
こんなクソ言語
先の無い言語
rubyやPythonやPHPやSQLみたいなオサレなのをやらせてください
COBOLとかFortlanみたいなもんと同じじゃないんですか？ぱーるって
45:デフォルトの名無しさん
08/04/27 21:23:45
>>43 補足
公式サイトの説明での読み込み方が、
use CGI::Ex::Fill qw(form_fill fill);
となっているので、ひょっとしたら use の読み込みの際、
読み込む関数を指定する必要があるのか考えています。
ただ、use lib qw(./lib) で、読み込み方を指定する方法がわからず試せていません。
全く的外れかもしれませんが、自分で思いつく問題点はそれぐらいです。
46:デフォルトの名無しさん
08/04/27 21:42:33
>>43
インストールしてない
読み込んでない
47:デフォルトの名無しさん
08/04/27 21:57:54
>>43
CGI::Ex::Fill::form_fill($html, $query);
じゃダメなのか?
48:デフォルトの名無しさん
08/04/27 22:05:40
>>46
上にも書いている通り、ファイルを置いて use しているだけなので
インストールしてないというのは、その通りだと思います。
>>43に書いた通りには読み込み処理を書いているので
まさにそれで読み込めない理由が知りたいです。
>>47
ダメでした。同様に
Undefined subroutine &CGI::Ex::Fill::form_fill
となりました。
49:デフォルトの名無しさん
08/04/27 22:13:44
use libはインクルードパスを変えるだけだぞ…
50:デフォルトの名無しさん
08/04/27 22:21:09
置いたファイルを use していない、のだ。
51:デフォルトの名無しさん
08/04/27 22:42:16
>>49-50
なるほど！ わかりました。
use lib でパスを通した後で、
改めて use CGI::Ex::Fill qw(form_fill fill); を行う必要があったんですね。
Fill.pm の置き場所を ./lib/CGI/Ex/Fill.pm に変更し、use したところ
まだ値は復帰しませんが、とにかく form_fill は通るようになりました。
ありがとうございました。
52:デフォルトの名無しさん
08/04/27 23:52:55
インストールすりゃいいだろ!!
53:デフォルトの名無しさん
08/04/28 03:02:57
∩＿＿＿∩ /)
| ノ ヽ ( i )))
/ ● ● | / /
| ( _●_) |ﾉ / コイツ最高のアホ！
彡､ |∪| ,/
／＿＿ ヽノ /´
(＿＿＿） /
54:デフォルトの名無しさん
08/05/01 00:19:43
∩＿＿＿∩ /)
| ノ ヽ ( i )))
/ ● ● | / /
| ( _●_) |ﾉ / コイツ最高のアホ！
彡､ |∪| ,/
／＿＿ ヽノ /´
(＿＿＿） /
55:デフォルトの名無しさん
08/05/01 02:11:38
Template Toolkit の質問でも良いですか？
Template Toolkit でファイルの存在判定ってできるんでしょうか？
例えばあるテンプレート内で
[% INCLUDE hoge.tt %]
を使って異なるディレクトリにあるファイルを include させたいのですが、
実際に hoge.tt が存在しない時は、"file not found"にて処理が失敗しています。
今作ってる仕組み上、hoge.tt は時と場合に応じて有ったり無かったりするので、
ファイルが無いときは、include させない制御をテンプレートのみで実装したいのです。
お願いします。
56:デフォルトの名無しさん
08/05/01 07:35:17
>>55
ここの「例外処理、フロー制御」の項読めば？
URLﾘﾝｸ(www.hakoniwa.net)
57:デフォルトの名無しさん
08/05/01 13:12:30
>56
ありがとうございます。
まさにそのままでしたね。
どんだけ視野狭いんだ俺。
58:デフォルトの名無しさん
08/05/02 03:25:33
perlからvb.net で作成したクラスライブラリにアクセスはできないのでしょうか？
例えばperlから、
URLﾘﾝｸ(homepage1.nifty.com)
のサンプルで作成したMyLibrary.dllの関数の"Add","Total"等を
使用する場合、次のような書き方では、Died となってしまいます。
どなたかご教授お願いします。
use Win32::API;
$Add = new Win32::API( "MyLibrary.dll", "Add", [N], "N") || die;
$Total = new Win32::API( "MyLibrary.dll", "Total", [], "N") || die;
＜結果＞
Died at D:\work\DLL_Access.pl line 27, <DATA> line 164.
59:デフォルトの名無しさん
08/05/02 14:16:23
Perl で LWPを使用したとき（activePerl) HTTP/1.1 を使用しちゃうんですが
HTTP/1.0 で通信したい場合どう指定すればいいか分かりますか？
60:デフォルトの名無しさん
08/05/02 19:07:41
>>59
環境変数PERL_LWP_USE_HTTP_10をセットする。
61:デフォルトの名無しさん
08/05/05 12:28:42
CGI掲示板を自作していますが、書き込み送信メールのSendmailによる送信処理でつまづきました。
以下のように記述すると、管理人である自分には登録メールが送られますが、
管理人以外に、書き込みした人にも登録確認メールが送られるようにしたいんです。
#Sendmailによる送信処理
if (open(MAIL,"| $sendmail -t")){
print MAIL "X-Mailer:legend2\n";
print MAIL "To: $administrator\n";
print MAIL "Errors-To: $administrator\n";
print MAIL "From: $administrator\n";
print MAIL "Subject: $subject\n";
print MAIL "MIME-Version: 1.0\n";
print MAIL "Content-type: text/plain; charset=ISO-2022-JP\n";
print MAIL "Content-Transfer-Encoding: 7bit\n";
print MAIL "$mail_comment\n";
print MAIL "\n";
close(MAIL);
}
}
以下のどれかを使うのでしょうか？
print SENDMAIL "From: $sender <$from>\n";
print SENDMAIL "To: $to\n";
print SENDMAIL "Cc: $cc\n";
print SENDMAIL "Bcc: $bcc\n";
どうすれば良いか御教授下さい。宜しくお願いします。
62:デフォルトの名無しさん
08/05/05 13:30:13
>>61
>>1
63:デフォルトの名無しさん
08/05/06 12:23:32
>>62
知らないなら出しゃばるなよ
64:デフォルトの名無しさん
08/05/06 13:31:21
>>63
>>1
65:デフォルトの名無しさん
08/05/06 13:36:14 BE:212257038-DIA(100004)
sendmail のスレ行けよ
純粋な Perl の質問なら
標準モジュールの
Net::SMTP 使って質問しろ
66:デフォルトの名無しさん
08/05/06 13:49:56
既にwebprogに移動したようですよ。
67:デフォルトの名無しさん
08/05/06 14:41:58
こういう赤ん坊のムニャムニャみたいな質問に良く答えられるなあ。
webprogはエスパーが多いのか。
68:デフォルトの名無しさん
08/05/06 15:51:47
あっちは隔離施設なので訓練をつんだ回答官が配備されてます
69:デフォルトの名無しさん
08/05/06 16:00:05
こっちのスレは素人なので、答えられない質問が来ると他所へ追いやります。
70:デフォルトの名無しさん
08/05/06 16:01:24
>>69
> こっちのスレは素人なので、答えられない質問が来ると他所へ追いやります。
その通りなので、最初からあちらへ行ってください。
71:デフォルトの名無しさん
08/05/06 16:29:08
訓練を積んだ回答官が配備されてるんじゃなくて
「&jcode'convert(*value, 'sjis', 'euc') の *value って何ですか？」
「&ReadParse(*in) の *in って何ですか？」
「open() or &error("読み込みエラー") で読み込みエラーが表示されて困っています」
「エラーメッセージは 500 Internal Server Error です」
任務が厳しくて鍛えられてしまうんです。
72:デフォルトの名無しさん
08/05/06 18:18:54
激務だな。
それはそうと、未だにjcode.plつかってるのが出回ってるのかね。
73:デフォルトの名無しさん
08/05/06 18:28:12
use Jcode や use utf8 がクソだから jcode.pl から乗り換える気にもなれない。
わざわざ労力をかけてコードを書き直す価値が無いんだよ。
過去の古い資産をそのまま使うのでじゅうぶん。
74:デフォルトの名無しさん
08/05/06 19:26:17
最近グロブ使って書かれてるスクリプトに触ってないから
グロブはあまり使わなくなっちまったなあ。
75:デフォルトの名無しさん
08/05/06 22:59:14
しょこたんブログも飽きたな
76:デフォルトの名無しさん
08/05/07 11:44:34
Perl/tkで書いたものをWin32exe形式にするにはどうしたらいいんでしょうか？
77:デフォルトの名無しさん
08/05/07 20:09:07
perl2exe
78:デフォルトの名無しさん
08/05/08 06:57:50
UNIX環境でコマンドラインからスクリプト動かしたとき、
動かしたユーザーのidを取得するにはどうしたらいい？
スクリプトの使用制限をはかりたい。
79:デフォルトの名無しさん
08/05/08 08:26:58
>>78
$<
manくらい嫁。
80:デフォルトの名無しさん
08/05/08 13:05:01
>>78
コピーされて無効化されるぞ。
81:デフォルトの名無しさん
08/05/08 20:53:48
教えてください。
テキストファイルの中から、
hoge
を含む行を検索して、
その行をprintしたいのですけど、
一行一行読み込んで、パターンマッチして、真であれば、printする、
という方法以外に、何か方法ありますか？
(perlはテキスト処理が得意と訊いたのですが、『一行一行読み込んで』のステップがプログラムで必要か気になりました。)
ところで、cygwinでperlをはじめたのですが、何か気をつけることはありますか？
82:デフォルトの名無しさん
08/05/08 20:54:34
hogeを見つけたら前後の改行を探し出すとか。
全く意味ないけど。
83:デフォルトの名無しさん
08/05/08 21:51:51
>>81
perl -ne '/パターン/ && print' <file
84:81
08/05/08 22:37:56
レスありがとうございます。
さっぱりわからないので、教わったことをキーワードに調べてみます。
また、御願いします。
85:デフォルトの名無しさん
08/05/09 16:18:45
>>81
そういう事のためにあるのが、grep
86:デフォルトの名無しさん
08/05/09 18:25:10
まあ正規表現なんだけどな ！
87:デフォルトの名無しさん
08/05/09 18:32:04
grepやsedを素っ飛ばしてperlから始めたのかな。一行野郎
なんて知らないんじゃないのかな。
88:デフォルトの名無しさん
08/05/10 14:33:02
目的：perlTk で GUI のテキスト検索ツールを作成しています。
状況：ユーザから入力された検索文字列の正規表現が不正であると、プログラムが
終了してします。 (invalid regular expression at * )
$search_string に格納された文字列が正規表現として有効であるかを、
eval を使って事前に評価したいのですが、どうしたら良いのでしょう？
if (eval (m/$search_string/)) ? これだと常に true が帰ってしまいます。
エロい人、教えてください。
89:デフォルトの名無しさん
08/05/10 14:49:04
困ったときのクックブック
6.11 パターンが有効かどうか検証する
90:デフォルトの名無しさん
08/05/10 15:12:19
qx
91:デフォルトの名無しさん
08/05/10 15:52:18
>>88
エロイ人への質問はURLﾘﾝｸ(venus.bbspink.com)でしなさい。
92:88
08/05/10 16:16:44
>>89
ありがとう。正規表現の箇所は全部呼んだつもりだったのに。。。
解法（p.254）：
eval { ""=~ /$search_string/ };
warn "パターンが無効 $@" if $@;
>>91
性器表現に困ったときはそうします。ありがとうございました。
93:デフォルトの名無しさん
08/05/10 19:00:21
Win32::OLEを使って wordドキュメントの編集をしようとしています。
読み出しはできるのですが、テキスト編集を受け付けてくれません。
下記のようなソースで、「ABC」→「abc」としたいのですが、元の「abc」のまま出力されてしまいます。
どのようにしたらよいでしょうか？
WindowsXP SP2上で、ActivePerl 5.10と、5.8.8で試してみました。
-------------------
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Word';
$word = Win32::OLE->GetActiveObject('Word.Application') || Win32::OLE->new('Word.Application', 'Quit') || die;
$doc = $word->Documents->Open( 'test.doc' ) || die;
$paras = $doc->Paragraphs;
foreach (in $paras){
$_->Range->{'Text'} =~ tr/A-Z/a-z/;
print $_->Range->{'Text'}."\n";
}
$doc->Close( 0 );
-------------------
94:デフォルトの名無しさん
08/05/10 22:36:57
URL転送なんだけど今こうしてます↓
#!/usr/bin/perl
print "Location: URLﾘﾝｸ(*****\n\n)";
これに転送するまでHTMLの<meta content="x">みたいに
一定時間ウェイトかける事って出来るのでしょうか？
95:デフォルトの名無しさん
08/05/10 22:55:03
いいえ
96:デフォルトの名無しさん
08/05/10 23:04:42
>>94
>>1
97:デフォルトの名無しさん
08/05/11 02:50:29
>>94
できなくはないがやるな。
それと>>1
98:デフォルトの名無しさん
08/05/11 12:59:18
教えて先生！
01 や 11 などの文字列を数値に変換するにはどうすればいいの？
99:98
08/05/11 13:26:41
自己解決っす
他のスクリプト同様 -0 でよかったのかｗ
100:デフォルトの名無しさん
08/05/11 14:17:20
intでいいよ
101:デフォルトの名無しさん
08/05/12 21:23:54
モジュールでモジュールのファイル位置を知るにはどうしたらいいでしょうか？
|-foo.pm
|-data/data1
こんな感じのフォルダ構造になってて、foo.pmの中からdata1を相対参照したいのです。
102:デフォルトの名無しさん
08/05/12 21:31:33
あとcgiとして使う場合。cgiが呼ばれる度毎回dataファイルを読み込むのは処理が重くなると思うんですよ。
最初の一回だけ読み込む方法とかありませんか？
103:デフォルトの名無しさん
08/05/12 22:57:05
mod_perl
104:デフォルトの名無しさん
08/05/12 23:35:05
fastcgi
105:デフォルトの名無しさん
08/05/13 00:00:09
>>103 >>104
有難うございました。fastcgiを調べてみます。
106:デフォルトの名無しさん
08/05/13 00:14:04
>>105
Speedy-CGI
107:デフォルトの名無しさん
08/05/13 00:18:38
perlはインタプリタだから、見下すべき言語なんだろ？
108:デフォルトの名無しさん
08/05/13 00:36:37
perlはコンパイラつんでます。
109:デフォルトの名無しさん
08/05/13 00:37:57
所詮JIT
110:デフォルトの名無しさん
08/05/13 13:52:10
質問です。
package number;
sub get_codeNumber(){
my $number = 1;
if ($number > 0){
print "0より大です。";
}else{
print "0以下です。";
}
}
このplをローカルで実行しても何もコンソールに表示されません。
これをコンソールに表示するには、どうしたらよいのでしょうか。教えて下さい。
111:デフォルトの名無しさん
08/05/13 13:56:45
>>110
そんな断片だけ書かれていては釣りだとしか思えない
112:デフォルトの名無しさん
08/05/13 14:03:43
>>111
サブルーチンの中身をデバッグしたいのです。
113:デフォルトの名無しさん
08/05/13 14:13:19
>>112
問題がサブルーチン内にあるとわかっているのですか？
114:デフォルトの名無しさん
08/05/13 14:20:44
>>113
いいえ。perlの仕事がはじめてなのですが、
渡されたサブルーチンが仕様通りに動いているかを自分で確認したくて書き込みました。
Javaでいうと、
public class hoge1{
System.out.println("0より大です。");
}
public class hoge2{
System.out.println("0以下です。");
}
のような確認をしたかったのですが、おかしいでしょうか。
115:デフォルトの名無しさん
08/05/13 14:24:25
呼べ
116:デフォルトの名無しさん
08/05/13 14:30:44
>>114
ごめん，俺に理解力がないせいか何をしたいのかがよくわからない．
もうちょっと詳しく説明してくれたら助かるんだが．
117:デフォルトの名無しさん
08/05/13 14:42:28
もうちょっと実際のplに近いものを書いてみます。
お待ち下さい。
118:デフォルトの名無しさん
08/05/13 14:42:50
package number;
#sub get_codeNumber(){
my $number = 1;
if ($number > 0){
print "0より大です。";
}else{
print "0以下です。";
}
#}
119:デフォルトの名無しさん
08/05/13 14:55:04
>>118
単純に改行が入ってないからとか
stdout が flush されてないからとか
じゃないよね?
120:デフォルトの名無しさん
08/05/13 14:58:48
ちゃんと実行されてるかどうかがあやしいような
121:デフォルトの名無しさん
08/05/13 15:05:45
#torikomi.pl
package torikomi;
#戻り値：String（分類コード）
sub get_code(){
($organizationcode,$sectioncode,$itemcode) = @_;
$itemcode = "999999";
my $i1cd ="";
my $i2cd ="";
my $i4cd ="";
$i1cd=substr($itemcode,0,1);
$i2cd=substr($itemcode,0,2);
$i4cd=substr($itemcode,0,4);
if($itemcode eq "000000"){
return "A00";
}
if( $itemcode eq "999999" ){
return "Z00";
}
}
このperlが、きちんとA00やZ00を返しているかを確認したいのです。
122:デフォルトの名無しさん
08/05/13 15:11:54
「サブルーチンの中」を詳細に書けっていうんじゃなくて、
それを呼び出す側とか、実行している環境とかの詳細を書けって話だと思うよ。
123:デフォルトの名無しさん
08/05/13 15:37:02
あー、呼び出す側や実行環境のソースはもらっていません。
124:デフォルトの名無しさん
08/05/13 17:03:19
質問です。
１つのデータを複数に分割して、それぞれをgnuplotで
表示しようとしているのですが、実行すると
gnuplot> 'plot './X1.txt' using 1:2 w l 1'
^
line 0: invalid command
という風なエラーが分割したデータ全てに対して出ます。
（X1.txtというのが分割したデータの１つです。）
分割まではうまくいっているので、gnuplotの部分で問題があると思うのですが、
わかる方がいましたらよろしくお願いします。
gnuplotの部分のプログラムは以下のような感じです。
for( $j = 0 ; $j < 10 ; $j++ ){
open ( GP "| gnuplot -persist" )
or die "no gnuplot";
print GP "set term postscript color 20\n" ;
print GP "set output './X1.eps\n'" ;
print GP "plot './X1.txt' using 1:2 w l 1\n" ;
close GP;
}
125:デフォルトの名無しさん
08/05/13 17:08:42
>>124
スレ違いだが、、、
w l 1 の「1」って何だ？ そんなのあったっけ？
126:124
08/05/13 17:14:59
>>125
スレ違いで申し訳ありません。
perlでプログラム書いてたんで、perlのスレで質問した方がいいかなと・・・
「1」はlineの色ですのであまり気にされなくても大丈夫です。
127:デフォルトの名無しさん
08/05/13 17:20:15
>>125
色だか線種だかを1に指定ってことだったはず．
>>124
gnuplotに流してるコマンドの最初と最後にいらないシングルクオートが入ってるせいじゃないかな？
このコピーでは問題なさそうだけど，ソースのprint文を確認してみたらいいと思う．
128:デフォルトの名無しさん
08/05/13 19:57:39
' なんてコマンドはねえよ、って言ってるだけじゃねえの?
129:124
08/05/13 23:28:23
124です。
124で書いたプログラムの間違いに気づきました。
プログラム中の「X1」は「X${j}」でした。
じゃないと、for文の意味ないですもんね。。。
あと、今自分で間違いに気づきました。
print GP "set output './X1.eps\n'"
じゃなくて、
print GP "set output './X1.eps'\n"
でしたorz
こんな簡単なミスに気づかないとは。。。
大変ご迷惑おかけしました。
130:デフォルトの名無しさん
08/05/14 00:54:44
>>121
>このperlが、きちんとA00やZ00を返しているかを確認したいのです。
Test::Base使えば良いじゃん。
131:デフォルトの名無しさん
08/05/14 02:52:29
asciiコードを16進数に変換するにはどうしたらいいでしょうか？
printf "%x","a"
こんなことやっても上手くいきません
61と表示させたいです
132:デフォルトの名無しさん
08/05/14 03:04:43
URLﾘﾝｸ(www2u.biglobe.ne.jp)
これみたら分かりました
133:デフォルトの名無しさん
08/05/14 03:21:56
grepでデータ中から目的の行を検索したいのですが
grep(/$foo/i, @ary);
・ignore caseは使いたい
・$fooは「+」などのデータが含まれており、そのままgrepすると正規表現と解釈されてエラーになる
・正規表現はつかわない
何かよい方法はないでしょうか？
134:デフォルトの名無しさん
08/05/14 03:32:47
>>133
quote (disable) pattern metacharactersの出番
135:デフォルトの名無しさん
08/05/14 03:35:23
ありゃッ、先頭が抜けた。
>>133
\Q quote (disable) pattern metacharactersの出番
136:デフォルトの名無しさん
08/05/14 04:14:43
>>134
grep(/\Q$foo\E/i, @ary);
でいけました。ありがとうございます
137:110
08/05/14 15:58:33
メインルーチンとの結合でうまくいきました。
相談に乗ってくれた方、ありがとうございました。
138:デフォルトの名無しさん
08/05/14 23:04:47
Windows環境で、ディレクトリ一覧を取得、正規化してリネームしたくて
いろいろやってるんだが、shift-jisの文字の扱いに苦労してる
ひょっとしてPerlでやるのあんま向いてなかったりする？
139:デフォルトの名無しさん
08/05/14 23:14:21
Unicodeであつかえばいいだろ。
140:デフォルトの名無しさん
08/05/15 19:33:10
あまりPERLの構文詳しくないので誰か教えてください
こんなのを作ってみたのですが
sub cont{print "contents\n";}
sub html{print "<html>\n"; $_[0](); print "</html>\n";}
sub body{print "<body>\n"; $_[0](); print "</body>\n";}
body(\&cont);
html(\&cont);
これを、出力が<html><body>cont</body></html>となるように
呼び出したいのですが可能でしょうか
↓動かないですが、こんな感じのことがやりたいです
１． html(\(body(\&cont));
２． sub f{html(\&&_[0]);} f(\&html);
３． sub g{$f=shift; html(\&f);} g(\&html);
141:デフォルトの名無しさん
08/05/15 19:43:23
>>140
こういうことか?
sub cont { print "contents\n"; }
sub html { print "<html>\n"; shift->(); print "</html>\n";}
sub body { print "<body>\n"; shift->(); print "</body>\n";}
html(sub { body(\&cont) } );
142:140
08/05/15 19:58:14
おお、想定通り動きました。ありがとう。
143:デフォルトの名無しさん
08/05/15 20:19:38
use strict;
use warnings;
sub binding{ my($F,@P)=@_;sub{$F->(@P)} }
sub cont {print "contents\n";}
sub html {print "<html>\n"; shift->(); print "</html>\n";}
sub body {print "<body>\n"; shift->(); print "</body>\n";}
sub cont2 {return "contents\n";}
sub html2 {return "<html>\n",shift->(),"</html>\n";}
sub body2 {return "<body>\n",shift->(),"</body>\n";}
html( binding( \&body => \&cont ) );
print html2( binding( \&body2 => \&cont2 ) );
144:デフォルトの名無しさん
08/05/15 20:21:07
windows上のperlのGDモジュールで、
日本語フォントをjpg画像で出すサンプルってありませんか。
下のサンプルをmsgothic.ttcに変えて実行したら、
どうやっても・という文字になってしまいます。
URLﾘﾝｸ(x68000.q-e-d.net)
145:140
08/05/15 20:41:48
>>143
このbindingってやつナイスですね
これ参考に、1タグ多要素に拡張してみます
146:デフォルトの名無しさん
08/05/15 21:51:34
>>144
PerlMagickでできるかも。
まー、内部はGDかもしれないから、同じ結果かも知れない。
147:デフォルトの名無しさん
08/05/15 22:05:34
>>144
よくわからんが、文字コードの問題とか？
148:デフォルトの名無しさん
08/05/15 22:32:06
>>144
utf8か、フォントファイルを絶対パスで指定かな。
Imagerも良いよ。
149:プヨー
08/05/16 18:03:07
Perl で Lisp のマクロのようなものを使うことはできないの？
遅延評価する仕組みがほしい。
Func1( ...exp1..., ...exp2....);
という呼び出しがある場合、状況に応じて exp1, exp2 の
いずれか一方だけを評価したい。
Func1( sub { ...exp1...}, sub {...exp2...} );
のように無名関数を渡す方法は思いついたが、
記法が簡単でないので、もっと簡単に記述できる方法がいい。
150:デフォルトの名無しさん
08/05/16 19:09:34
>>149
Lispは名前しか知らないけど、「状況に応じて」の部分を条件文にすればいいんじゃない？
関数を呼んだ時点では、引数の値が決定してないってこと？
そうだとしても、値が決定するまで待つとかすればいいような気がする。
Lispがわからない人でもわかる説明で。
151:プヨー
08/05/16 19:31:07
> Lispは名前しか知らないけど、「状況に応じて」の部分を条件文にすればいいんじゃない？
そうなんだけど、
if (,,,) { ... } else {...}
のような定型化した条件文が大量にあるから、きれいじゃないんだよね。
それよりも、単に
Func1( ...exp1..., ...exp2....);
のように書けば一行ですむから、保守性が高くてクールだよね。
> 関数を呼んだ時点では、引数の値が決定してないってこと？
そう。Lisp のマクロというのは、必要に応じて引数を eval するみたいなものだよ。
Lisp のマクロはコードを簡単化するために使われることが多い。
152:デフォルトの名無しさん
08/05/16 20:02:14
>>151
sub exp1{ .... }
sub exp2{ .... }
Func1(\&exp1, \&exp2)
でいいんでないの？
153:デフォルトの名無しさん
08/05/16 20:02:34
>>151
質問が漠然すぎるんだが、、、
my %hash = (
foo => sub { print "foo\n" ; },
bar => sub { print "bar\n" ; },
);
$hash{foo}->() ;
こう言うこととかしたいのか？
それともif文を三項演算子？
154:デフォルトの名無しさん
08/05/16 20:04:34
常に先行評価のPerlで急に遅延評価になったら保守性が著しく低下するだろ
sub { } で我慢しろ。どうしても黒魔術を発明したいならソースフィルタを使って何とかすればいい
155:デフォルトの名無しさん
08/05/16 20:30:18
exp1,exp2が長い場合、保守性がいいとは思えないし
>>149が考えたコードも改行位置ちょっと変えてあげれば複雑にはみえないし
関数を読んだ時点で引数の値が決まってないのは
コードがタコなだけな気がしてならないので
せめて、もう少し具体的に書いてもらえないかな
とりあえずFunc1の中でevalしたいならそうすればいいんじゃ？
Func1(
q(...exp1...),
q(...exp2...)
);
sub Func1 {
my($exp1,$exp2) = @_;
#なんかいろいろ
my $exp = $COND ? $exp1 : $exp2;
eval "$exp";
}
156:デフォルトの名無しさん
08/05/16 21:45:27
初歩的な質問で申し訳ないのですが
クッキーにデータを入れるときエスケープなどの処理をしてから入れたほうがいいのでしょうか？
よろしくお願いします。
157:デフォルトの名無しさん
08/05/16 23:13:35
>>156
URLエンコードと同じエスケープがいるよ。
日本語化されたRFCもあるから、読んでみれば？
もっと簡単にやるなら、CGIモジュールに全部任せる。
158:デフォルトの名無しさん
08/05/16 23:57:48
>>157
なるほど。クッキーはURLエンコードですか。勉強になりました。
159:デフォルトの名無しさん
08/05/17 01:38:05
最終的に決められた文字だけになるなら、任意のエスケープ方式でいい
160:デフォルトの名無しさん
08/05/17 13:25:57
要素数が同じlistとvalueがあるときに、同じ添え字の処理ってどうやって書きますか？
#こんなのがほしい・・
for $i $j(@list @value){print "$i=$j";}
タプルみたいなのがあれば使いたいんですが
やっぱり添え字をインデックスにしてループするしかないんですかね
161:デフォルトの名無しさん
08/05/17 13:35:43
どういうときに便利になる？
その例でもwhile shiftで事足りるし。
162:デフォルトの名無しさん
08/05/17 13:40:01
use List::MoreUtils qw(each_array);
163:デフォルトの名無しさん
08/05/17 13:54:11
zipWithを書けばおｋ
164:デフォルトの名無しさん
08/05/17 13:55:32
単に短く書きたかっただけなんですが、あまりPERL使いこなせてはないので・・
shiftだとこんな感じでしょうか。
while(@list){print shift @list;print "=";print shift @value;}
これはこれで、短くていいですね。
165:デフォルトの名無しさん
08/05/17 13:57:38
while($i=shift@list and $j=shift@value){print "$i=$j";}
166:デフォルトの名無しさん
08/05/17 14:04:10
>>162
オブジェクト指向部分はあまりわかってないので後ほど調べてみます。
>>163
sub zipwith{shift->(shift,shift);}こんな感じですかねｗ
ちゃんと動くかはこれから試してみますが・・
>>164
こっちのが全体的にいいですね、トン
167:デフォルトの名無しさん
08/05/17 14:38:21
練習がてら作ってみました
@a=qw(a b c);
sub zipwith{($f,$l,$r)=@_;while($i=shift @$l and $j=shift @$r){$f->($i,$j)}}
zipwith(sub{($a,$b)=@_;print "$a=$b\n";},\@a,[1,2,3]);
関数へ複数の配列を渡す際にはリファレンスにしないとだめってのは少し不便ですね
168:デフォルトの名無しさん
08/05/17 17:31:48
perlの勉強中で
カメラ 785円
お菓子 98円
…
という文字列がファイルであるのですが
if(円という文字を含んでいたら)
$temp = "円より前の数字";
という風に文字の抽出を行いたいのですが
正規表現の部分と、抽出の部分がわかりません
ファイルの読み込みから1行だけを取り込むのは出来たのですが
ご指導お願いいたします。
169:デフォルトの名無しさん
08/05/17 17:55:32
/円/ and $temp = $`;
170:デフォルトの名無しさん
08/05/17 18:12:27
すいません、上手く動かないみたいです
171:デフォルトの名無しさん
08/05/17 18:23:41
ちょっとかんべん
172:デフォルトの名無しさん
08/05/17 22:31:48
perlっていうかsendmailについてなんですが…
open(MAIL, "| /usr/sbin/sendmail -t env_addr") or die $!;
# 中略
close(MAIL) or die $!;
のように、パイプ渡しでopenするとき、closeに失敗するときがあるんですが、このとき
エラーメッセージを捕捉する方法どなたかご存じですか? $!には入ってこないのです。
173:デフォルトの名無しさん
08/05/17 22:34:32
>>172
エラーメッセージは何処に出るの? 標準出力ならIPC::Open2, 標準エラー出力ならIPC::Open3参照。
174:デフォルトの名無しさん
08/05/19 11:53:11
#!/usr/bin/perl
$inputfile="test.txt";
open (FILE1, ">>$inputfile") or die "$!";
for ($hoge=0;$hoge<10;$hoge++) {
print FILE1 "$hoge";
sleep(1);
}
close (FILE1);
このプログラムを同時に2つ実行すると、私の予想ではtest.txtの中身は
00112233445566778899
となると思うのですが、なぜかファイルの中身には
01234567890123456789
と出力されます。
perlは排他制御が勝手に行われたりするんでしょうか？
175:デフォルトの名無しさん
08/05/19 11:54:52
バッファリングされてるから
176:デフォルトの名無しさん
08/05/19 11:56:39
>>175
どういうことでしょうか？
もし正しくバッファリングされるのならflockなどの排他制御は不要な気が…。
すいませんがもう少し詳しくお願いします。
177:デフォルトの名無しさん
08/05/19 12:05:50
どのタイミングでflush()されるかわからないのに、それに依存しちゃダメでしょ
ちゃんと排他制御しなよ
178:デフォルトの名無しさん
08/05/19 12:27:50
なんとなーく分かりました。ありがとうございました
179:デフォルトの名無しさん
08/05/20 19:30:53
cryptの返り値はsaltと同じ半角英数字、半角スラッシュ、半角ピリオドの範囲で
salt2文字と残り11文字ってことでってますでしょうか。
180:デフォルトの名無しさん
08/05/20 19:31:58
あってますでしょうか、の誤字でした。あとあげます。
181:デフォルトの名無しさん
08/05/20 20:50:16
いいえ。ホストのcrypt(3)に依存です。
182:デフォルトの名無しさん
08/05/20 20:53:22
マニュアルを読むのは身分の低い下賎の民の仕事なので、
高貴な方々は、他人にマニュアルを読ませます。
183:デフォルトの名無しさん
08/05/20 21:02:57
だからいつまでたっても
184:デフォルトの名無しさん
08/05/20 23:59:36
これだからゆと（ｒｙ
185:デフォルトの名無しさん
08/05/21 01:05:07
言っても無駄だから、適当にヒントなり与えてスルーしようよ。
186:デフォルトの名無しさん
08/05/21 01:13:28
>>182 職業に貴賎なし。
だが、海外にも目を向けるとインプリする人はいっぱいいるから、
そういう志向はありだと思う。
187:デフォルトの名無しさん
08/05/21 18:46:46
ファイルテスト演算子を再定義することって可能でしょうか？
188:デフォルトの名無しさん
08/05/21 20:52:09
むり
189:デフォルトの名無しさん
08/05/22 01:15:29
「独習 perl」を一冊
やり通したのですが、次は何をすべきでしょうか？
perlの機能を覚えただけで実用的な使い方は学べていません。
次は何をしたらいいでしょうか？
190:デフォルトの名無しさん
08/05/22 01:28:32
何かを作る。
ファイルの一括処理プログラムとか、板違いではあるがCGIなんかでもいい。
191:デフォルトの名無しさん
08/05/22 03:09:43
自分が何をしたいのか、わかりません。
てか？
192:デフォルトの名無しさん
08/05/22 03:15:25
そもそも何で perl をやろうとしたのかって話だ
193:デフォルトの名無しさん
08/05/22 03:50:29
プログラムって何かを作るためにある道具であって
何を作るかは作り手が考えなきゃどうしようもなかろう。
194:デフォルトの名無しさん
08/05/22 04:11:01
>>189
適当なフリーのCGI等をダウンロードして
辞書的に使える本（Google先生でもOK)で調べながら
ソースを読んでみる。
ある程度理解できるようになったら、それを少しだけ改造してみる。
これを繰り返すだけでも相当勉強になると思うよ。
195:デフォルトの名無しさん
08/05/22 09:02:43
ネットに転がってるperlで書かれたCGIやCGI解説本のソースはほぼ100%クズなので
初心者はそんなものを見てはいけない。
196:デフォルトの名無しさん
08/05/22 09:14:39
言いますね…
197:デフォルトの名無しさん
08/05/22 10:03:26
まあ、メジャーな掲示板のcgiコードもひどいもんだ。
一番良い例が、しばらく前までの2ch。
今動いているのはプロが書いたはずだから、ちゃんとしているはずだけど、
公開されてんのかね。
198:デフォルトの名無しさん
08/05/22 10:13:12
フリーGGIはオススメできない
書き方が古いから。
199:デフォルトの名無しさん
08/05/22 10:41:17
>>191
自分がやって「楽しい」と思うものでなければ、長続きしない。
例えば、任意の文字列を入力すると、
▄ ▄▄▄▄▄▄▄▄
▄▄▄▄▄▄▄ ▄▀ ▄▄█▄▄ ▄▄ █▄▄▄▀ █
▄▀ ▄▀ ▄ ▀ █▄▄█▄▄ █
▄█▄▄ █ █ █▄▄█▄█ █
█ ▄▀ █ █ █ ▄▀▀▀█▄ █ █ ▄ █ ▄
▀▄▄▄▄▄▄▄▄ ▄▀ ▀▄▄▀ ▀▄▄▄▀ ▀ █ ▀▀▀▀ ▀ ▀█
に変換するスクリプトを作ってスレを荒らすというのはどうだ？
200:デフォルトの名無しさん
08/05/22 11:22:02
>>199
それくれｗ
201:デフォルトの名無しさん
08/05/22 12:34:25
>>197-198
同じ事をするにも何通りも書き方がある，
というのとは違うのかい？正直わからん。
202:デフォルトの名無しさん
08/05/22 12:37:30
>>197
2chのbbs.cgiは8年ぐらい前に流出した以外に表に出てないと思うのだが。
203:デフォルトの名無しさん
08/05/22 16:25:48
>>201
perlのCGIがブームだった頃に作られた遺産がたくさん残ってる。
それらは大抵perl4時代のコードのままメンテナンスされてない。
204:デフォルトの名無しさん
08/05/22 17:32:22
元々の>189からの話の流れからすると、特定のものを批判するより
これ読めってのを挙げた方がいいと思うが、定番といえそうなものがないな。
205:デフォルトの名無しさん
08/05/22 17:34:57
普通に推奨本のコードを真似れば良いよ。
206:デフォルトの名無しさん
08/05/22 18:19:24
ラマですね、わかります。
207: ◆TWARamEjuA
08/05/22 20:21:28 BE:1961429-2BP(7088)
おいちゃん＝プロですね。わかるます。
208:デフォルトの名無しさん
08/05/22 20:32:50
やっぱある程度面白くないとね。
mailあたりをいじってみたらどうかな
209:デフォルトの名無しさん
08/05/22 20:44:22
>>189
2-gramの全文検索エンジンの試作オススメ。
リスト処理や文字列処理などまんべんなく入ってる。
210:デフォルトの名無しさん
08/05/22 20:59:36
モチベーション最強は、やっぱエロだろ。
211:デフォルトの名無しさん
08/05/22 21:12:29
・出版ブームが終了してまともな本が出てない
・Apache + mod_perlでも面倒なのにモジュールとか考えたくない
・webで探すとまともにメンテされてない糞ページがヒットしまくる
・Perl自体の記法が自由すぎるせいでそのページのコードが古いのかこっちの設定ミスなのでエラー出してるのか区別ができない
参入障壁高すぎ
212:デフォルトの名無しさん
08/05/22 21:37:14
>・出版ブームが終了してまともな本が出てない
>>2以外の本はビブリオマニアでなければ必要ないよ。
>・Apache + mod_perlでも面倒なのにモジュールとか考えたくない
文の前後が繋がってないよ。
>・webで探すとまともにメンテされてない糞ページがヒットしまくる
Perlの疑問はググる前にperldocだよ。
>・Perl自体の記法が自由すぎるせいでそのページのコードが古いのか
>こっちの設定ミスなのでエラー出してるのか区別ができない
最新のperl(1)でもPerl4時代のコードが問題なく動くよ。
混ぜておかしくなるのは「新旧」でなく「お作法」だよ。
213:デフォルトの名無しさん
08/05/22 23:42:33
Perlでクロスワードパズルつくってみたいんだ
まずは その準備として単語（表記はカタカナで）とその対応説明が
登録されているデータベース（Excelでもテキストでもなんでもいい）
が必要です。どなたか知ってたら教えてください。それではおやすみ。
214:デフォルトの名無しさん
08/05/22 23:46:34
>>213
っ[Wikipedia]
215:デフォルトの名無しさん
08/05/23 00:01:31
クロスワードパズルは数理パズルじゃなくて、おちゃらけクイズごっこだから得る物ないよ
216:デフォルトの名無しさん
08/05/23 01:46:17
chasenの辞書からも取り出せるんじゃないかな。
217:デフォルトの名無しさん
08/05/23 01:51:48
茶筅の辞書に言葉の意味なんて入ってないだろ
218:デフォルトの名無しさん
08/05/23 07:32:37
>>213
クロスワード作るのとPerlは無関係
まず紙に書いて作ってPerlで起こす時に分からないことあったらまた質問しな
219:デフォルトの名無しさん
08/05/23 23:40:22
\xe3\x80\x9cは変換できるのに、\xc2\xa2は変換できん。何故？
$PTNの内容をs///にべた書きすると変換できるようになる。何故？tr///が高速ならこんなことせんでもええのに。何故？
(ver. 5.8.5)
use encoding "utf8";use Encode;
binmode STDIN, ":utf8";
binmode STDOUT, ":utf8";
$PTN="(\xe3\x80\x9c|\xc2\xa2)";
%HASH=("\xe3\x80\x9c"=>"\xef\xbd\x9e","\xc2\xa2"=>"\xef\xbf\xa0");
while(<STDIN>)
{
s/$PTN/$HASH{$1}/geo;
print;
}
220:デフォルトの名無しさん
08/05/24 02:10:23
URLﾘﾝｸ(w8ac6nxs.hp.infoseek.co.jp)
perlで書かれたCGIゲームです。
パーラーのみなさん、ユーザーとして
どうぞ登録してください。
まだプレイヤー４人くらいしかいません。
ユーザーの５０％をパーラーにしたいという
計画です。
221:デフォルトの名無しさん
08/05/24 03:24:15
>>219
$PTN="(\x{301C}|\x{00A2})";
222:デフォルトの名無しさん
08/05/24 03:26:18
>>219
ｽﾚﾘﾝｸ(tech板)
223:デフォルトの名無しさん
08/05/24 11:07:24
>>221
ダメでした。
\x{00a2}が\xc2\xa2じゃないものになってしまいます……。
224:デフォルトの名無しさん
08/05/24 11:51:07
>>前スレ928の方
utf8を扱う tr/// で再帰時に落ちる件、ActivePerl 5.10.0.1003 では正常になっていました。
詳細は未確認だけど、33747 のmg.cへの修正が効いている感じ。
225:デフォルトの名無しさん
08/05/24 13:24:03
>>215
英会話の勉強とか。。。perlのコマンド、モジュール名だけでできたクロスワードだったら
といてみたいかも。
226:デフォルトの名無しさん
08/05/24 13:25:32
>>225
「Head First Java 第2版―頭とからだで覚えるJavaの基本 (単行本) 」
ではJavaに関連した単語でクロスワードパズルがあった。
227:デフォルトの名無しさん
08/05/24 17:26:41
>>219
ソースコード中に「use utf8」の宣言が無いから、全ての文字列は、
UT8フラグの無い、シングルバイトの文字から構成されていることになる。
ネット上の情報からすると、Perl では、UTF8 フラグ
なし文字列を Latin-1 文字列とみなしている（らしい）。次に、
binmode STDOUT, ":utf8";
の宣言があるから、print 文等において文字列が出力される際には、
シングルバイトのLatin-1 文字列が、utf8に変換される。その結果、
このような現象が起きる.....ということでいいのかな？
間違っていたら、エロイ人、修正して下さい。
228:デフォルトの名無しさん
08/05/24 19:50:41
だから猿用のテンプレを何で貼らんのよ？
229:デフォルトの名無しさん
08/05/24 19:58:46
>>227
>>3
#!/usr/bin/perl -w
require 5.008001;
use encoding 'utf8';
print utf8::is_utf8('binary?') ? 'with utf8 flag' : 'binary';
__END__
>>228
utf8 プラグマも encoding プラグマも使わないに越した事ないし。
フラグの有無で悩むより、マルチバイト文字処理が本当に
必要な箇所でだけフラグ付け外しする方がよっぽど楽。
230:デフォルトの名無しさん
08/05/24 20:02:05
つーかおまえら。
shは使わない方がいい、Perl使うべきだ。
とかいって、perlで
$test = `cat /home/test/test.txt`
とか多様してるやつってなんなの？
231:デフォルトの名無しさん
08/05/24 20:02:50
Missing ;
232:デフォルトの名無しさん
08/05/24 20:22:26
使うななどとどこのどいつが言ってるんだ？
ものぐさ番長＝パーラーだ。
233:デフォルトの名無しさん
08/05/24 20:34:51
猿用のテンプレってこれだっけ？
次スレからは入れような。
---------------------------------------------------------
# 【Perl 日本語処理の基礎の基礎】
# このレスは、Windows の ActivePerl で日本語処理を行う場合のテンプレートです。
# このレスの内容をそのまま、UTF8 形式のソースファイルに保存して下さい。
# 入出力ともシフトJIS形式のファイルまたはDOS窓を想定しています。
# まず、以下の行を先頭に入れて下さい。
use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)";
# 次に、あなたが実行したい処理の内容を入れて下さい。
print "SJISには、「十表貼申予暴」のようなダメ文字がある。\n";
sleep(1);
# 以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう
# おまじないです。条件が異なる場合の対処方法は、ご自分で勉強して下さい。
234:デフォルトの名無しさん
08/05/25 02:05:50
>>230
if( `[ -f /home/test/test.txt ]` ) {
$test = `cat /home/test/test.txt`;
235:デフォルトの名無しさん
08/05/26 21:58:51
>>219です。
結局、\xc2\xa2の置換は諦め、別ツールで提供することになりました。
別のバージョンとか調べている時間がない……。
236:デフォルトの名無しさん
08/05/26 22:16:31
>>234
if( -f /home/test/test.txt ] )
{
$test = `cat /home/test/test.txt`;
}
237:デフォルトの名無しさん
08/05/26 22:17:11
>>234
if( -f /home/test/test.txt)
{
$test = `cat /home/test/test.txt`;
}
238:デフォルトの名無しさん
08/05/26 22:57:43
普通
my $test = `cat /home/test/test.txt` if(-f /home/test/test.txt);
だろ
239:デフォルトの名無しさん
08/05/27 01:22:49
>>238
>>230
240:デフォルトの名無しさん
08/05/27 22:41:24
Ｃ言語のプラグラミングできたお。
void main(int argc, char**argv)
{
system("cat /home/test/test.txt");
}
241:デフォルトの名無しさん
08/05/27 22:48:04
URLﾘﾝｸ(www.amazon.co.jp)
これが書かれた頃は perl など無かったが
まさに、system() 関数使いまくろう！的な内容。
242:デフォルトの名無しさん
08/05/28 00:33:29
cでやるとすごく損した気になるんだよなあ
243:デフォルトの名無しさん
08/05/28 18:50:42
perlでやっても損でしょ。
perlでできる処理はperlでできるだけやるべき。
catとか。
244:デフォルトの名無しさん
08/05/28 19:08:58
>>243
確かにそうなんだけど、catについてはそうかな～。
perl だったら、open,while,colose (またはread)とかで三段処理踏まないといけないから、
cat なんかは $test = `cat file.txt` なんかはよく使う。
実際どっちが早いとかBenchとったことはないけど・・・。
245:デフォルトの名無しさん
08/05/28 19:09:46
失敬、close間違い
246:デフォルトの名無しさん
08/05/28 19:12:39
かなり遅いよ、perlで外部コマンド実行したら。
相当な差がある。
コード的には段階踏んでるが。
247:デフォルトの名無しさん
08/05/28 19:20:10
一つ関数を書くか、CPANから探してきて使うだけでしょ
248:デフォルトの名無しさん
08/05/28 19:36:06
qxはforkしてshell起動して実行して・・・って感じなので
perlだけで終わらせたほうが圧倒的に早い
File::Slurp使うか、入れるのめんどくさかったら
sub slurp {open my $fh , $_[0] || die("$_[0]:$!");local $/;<$fh>}
って書いとけばＯＫ
249:244
08/05/28 20:06:16
いやいや、そりゃあ自分も本格的な(？)スクリプト書く時や、
複数のファイルにループ処理する時はサブルーチンで書いたりするよ。
そうでなくて、ちょっとした確認とかで数行のスクリプトとか、
コマンドラインからのワンライナーみたいな感じで書く時には便利かな ってゆうぐらい。
そんな時にまで、いちいち、useやrequireやsub{}なんて書きたくないじゃん。
250:デフォルトの名無しさん
08/05/28 20:21:38
>>244
数行だとか、処理速度とか処理効率を考えなくていいなら便利。
あくまでコマンドレベルの用途ね。
ただ不明なのが、
>サブルーチンで書いたりする
ってとこ。
関係が不明なんだけど。
251:デフォルトの名無しさん
08/05/28 20:50:01
むっか～しは、sortは外部コマンドでやってたりしたもんだ。
環境やバージョンが変わったら、こまめにベンチマーク取って
最適の方法を探らないとね。
252:デフォルトの名無しさん
08/05/28 21:09:03
「cat を使う」
…ねえ。知ってると思うけど
$ cat > foo.pl
#!/usr/bin/env perl -n
print ;
}
{
print "foo\n" ;
# control + D をタイプ
$ perl foo.pl foo.pl foo.pl
$ perl -lne '}{ print $. ;' foo.pl
253:デフォルトの名無しさん
08/05/28 21:25:17
そいつは初耳だ
解説よろしく
254:デフォルトの名無しさん
08/05/28 21:46:36
>>253
optionに関しては perl -h するなりで
-n assume "while (<>) { ... }" loop around program
-p assume loop like -n but print line also, like sed
で実際の挙動を見るには
perl -MO=Deparse -ne 'print;'
この結果を見ると while ループで単純にかこってあるだけだから
ループの終りの「}」と無名ブロックの始まりの「{」を入れて
好きな様に処理させる。
応用すれば、「tsvの第二カラムの積算」なんてのは
perl -lane '$t += $F[1] ; }{ print $t ;' FILE
スクリプトファイルにしたときも同じ事。B::Deparse にて確認して。
perl -MO=Deparse foo.pl
あとはお好みに。これで手に負えない時とかstrict適用したい時は
普通に書きゃいいだけだし。
255:244
08/05/28 22:41:30
>>250
それは、>>247や>>248に対するレスで、例えばopen();while(){うんたらかんたら・・・}close();を
一まとめにしたサブルーチンなんかに投げるってこと。
いや、スマン。244で速度のこととか言い出したんだけど、
自分が言いたかったことは、>>240-243までの流れで、ちょっとした処理(>>240とかｗ)を
わざわざCで書いたんなら、かなり損した気分になるのは大いに理解できるけど、
それをperlでやるのは、そんなに損した気にはならない、
ってゆうか、perlだからこそ、$nakami = `cat file.txt`;や@files = `find ・・・`;
みたいな事が手軽に出来る、ってのが、perlの大きな魅力の1つではないかと自分は思ってる。
ってことを言いたかった。
>>252
それはオレも初耳。
完全に理解しきれてないけど、色々応用が効きそうだ。
256:デフォルトの名無しさん
08/05/28 23:31:00
>>246
>>248
「かなり」 とか 「圧倒的に」 とか、ずいぶんアバウトだな。
そんなんじゃ全然説得力が無い。
たとえば、$a = `cat unko.txt` すると ０．１秒かかるとしよう。
open・read・close すると０．０１秒しかかからないとしよう。
で？それが何なの？どうなのよ、って事だ。
えっ？１０倍早いだって？
おいおい、０．１－０．０１＝０．０９秒しか違わないんだよ。
たったの０．０９秒の差を人間が感じ取れるとでも思うの？
アフォくさ。
257:デフォルトの名無しさん
08/05/28 23:34:30
>>256
whileかけるようになったらまたおいで。
258:デフォルトの名無しさん
08/05/29 00:09:41
>>256
一回だけ処理するならその程度で済むかもね。
259:デフォルトの名無しさん
08/05/29 00:29:53
svn より、cvs のほうがインストールの敷居は低いんじゃないかなぁ。
cvs のほうが依存するライブラリ少いし、FreeBSD なら最初から入ってるし。
260:デフォルトの名無しさん
08/05/29 00:42:12
俺はsubversion派だわ
って誤爆か
261:デフォルトの名無しさん
08/05/29 13:56:47
誤爆じゃないだろ。perldoc.jpの話じゃね？
262:デフォルトの名無しさん
08/05/29 15:29:41
my $message = "He is 5 years old\n";
$message =~ s/(\d+)/{ twice($1) }/e; #数字を検索して、2倍して置換
print $message;
これなのだけど
my $message = "He is 5 years old\n";
$message =~ s/(\d*)/{ twice($1) }/e; #数字を検索して、2倍して置換
print $message;
これじゃダメなのはなんで？
263:デフォルトの名無しさん
08/05/29 15:35:34
* は0回以上の繰り返しだから、先頭でマッチする。
264:デフォルトの名無しさん
08/05/29 18:45:13
(\d*)
全てが任意なので、全ての行で置換が行われることに
265:デフォルトの名無しさん
08/05/29 18:47:59
先頭つーか、全ての文字の間にマッチする。
266:265
08/05/29 18:48:46
\d\d*
でやってみ。
267:デフォルトの名無しさん
08/05/29 19:34:03
>>265
egじゃなくてeだから、この場合は先頭だけだろう。
268:デフォルトの名無しさん
08/05/29 21:48:26
お、eをgと見間違えたわ。
269:デフォルトの名無しさん
08/05/29 21:59:34
いーじーさんにつーれられーてー・・・
いや何でもない
270:デフォルトの名無しさん
08/05/29 22:23:27
逝っちゃった
271:デフォルトの名無しさん
08/05/29 23:56:31
横浜港 乙
272:デフォルトの名無しさん
08/05/30 03:29:45
港のヨ～(ry
273:デフォルトの名無しさん
08/05/31 19:56:52
cpan起動出来なくなりました。
#cpan
Unable to get Terminal Size. The TIOCGWINSZ ioctl didn't work.
The COLUMNS and LINES environment variables didn't work. The resize program didn't work.
at /usr/local/lib/perl5/site_perl/5.8.3/i386-freebsd/Term/ReadKey.pm line 362.
Compilation failed in require at /usr/local/lib/perl5/site_perl/5.8.3/Term/ReadLine/Perl.pm line 63.
とエラーが出ます。
恐らく、perlのバージョンアップした際に不具合が生じているのかと思うのですが・・・。
ネットで解決法を探すも情報がほとんどなく手がかりもつかめません。
perl v5.8.3
OS FreeBSD 4.2-R
助けて下さい。お願いします。
274:デフォルトの名無しさん
08/05/31 20:09:04
もっかいCPANインスコしなおせばいいじゃん
275:273
08/05/31 21:57:38
インストールしなおしてみましたが、ダメでした。
同じ症状です・・・。トホホ。
276:デフォルトの名無しさん
08/05/31 21:58:41
12 May 2008 20:15:40
を
2008/05/12 20:15:40
という風に返すモジュールないですか？
277:デフォルトの名無しさん
08/05/31 22:02:33
>>273
どこでおかしくなっているか明示されているんだから、
見てみればいいだけ。
278:デフォルトの名無しさん
08/05/31 22:19:44
>>276
use HTTP::Date qw(str2time time2iso)
print time2iso( str2time("12 May 2008 20:15:40") );
279:デフォルトの名無しさん
08/05/31 22:22:11
ああスラッシュ(/)か >>278 なし
280:デフォルトの名無しさん
08/05/31 22:27:06
>>276
Date::Manipかな。日付を扱うならDate::Calcとともに定番。
perl -MDate::Manip -e 'print UnixDate("12 May 2008 20:15:40", "%Y/%m/%d %H:%M:%S")'
281:276
08/06/01 00:57:56
>>278
>>280
280氏のDate::Manipで解決できました。ありがとうございました。
282:デフォルトの名無しさん
08/06/01 04:50:03
activeperl v5.10.0 built for MSWin32-x86-multi-thread
において
GD v2.39
GD::Graph v1.4308
GD::Text v0.86
で
use GD;
use GD::Text;
use GD::Graph::bars;
my $graph = GD::Graph::bars->new( 800, 800 );
my $gd_text = GD::Text->new();
GD::Text->font_path( _______DIR______);
$gd_text->set_font(_______FONT______, 178) ;#or die $gd_text->error;
$graph->set_title_font(_______FONT______, 178 );
_______DIR______ = undef | '' | 何か意味のある値
_______FONT______ = undef | '' | 何か意味のある値
をWindowsXP SP2あるいはWindows2k SP1で実行したとき
どうもシステムのフォントを破壊?するようです
283:232
08/06/01 04:57:25
以下windows板に書いた物。
windows XP
起動してみると ”ようこそ”が明朝体になってて
ファイル名の全角空白までも文字化けしている状態になりました。
標準で恐らく第１水準漢字が表示できたりできなかったりするフォントが選択されているようです。
検索 -＞ 索 が表示できない
削除 -＞ 削 が表示できない
書き込む －＞ 込 が表示できない
またcmdで日本語が返ってくるような状態
>> c:\hoge\foo.bar （実際には存在しないファイル）
とかタイプすると ■■■■■ ■■■■と文字化けして
（ファイルが見つかりませんとかそんな感じのメッセージ）と返ってきます。
URLﾘﾝｸ(support.microsoft.com)
に従ってフォントキャッシュを消して再起動しても改善されませんでした。
Windows 2000 SP1では ＩＥ6の検索ウインドウに英字を入れるとイタリックに化ける
という共通してんだか共通してないんだかな現象が発生します。
232に書いたコードを実行したときに即に破壊するわけではなく、次回起動時から影響が出始めるので
何がどうなってるのかまったく分からない上に妙な分野にまたがった問題のために、
５時間戦って何にも戦果が上がらずもう疲れたのでとりあえずよし牛でも行ってからＯＳ入れなおすことにしますた。
GD(GD::Textだと思うんだけど)使うときは気をつけてください。
284:282
08/06/01 05:17:28
すみません、 訂正 283 で s/232/282/g; で読んでください。
再現したくないのでぜんぜん検証ができないのですが
これはCPANの作者さんにも報告したほうがいいのでしょうか？
285:デフォルトの名無しさん
08/06/01 17:00:58
ヤフオクの管理をしようと思います
とりあえず出品リストを作ろうと思って、
URLﾘﾝｸ(openuser.auctions.yahoo.co.jp)
の内容の取得をしようと思っても、アダルト商品なので表示されません
クッキー周りだと思うのですが、うまくいきません
書いてみたのは下のようなもので、
yahoo_cookieにはadministrator@auctions.yahoo.co[2].txtの内容を
#LWP-Cookies-1.0
Set-Cookie3: YAUC_AV=.....
みたいな感じでコピーしてあります
どこが間違っているのでしょう
use LWP::UserAgent;
use HTTP::Request::Common;
use HTTP::Cookies;
use Encode;
$cookie_file = 'yahoo_cookie';
my $cookie_jar = HTTP::Cookies->new(file => $cookie_file, autosave => 1);
$ua = LWP::UserAgent->new;
$ua->cookie_jar($cookie_jar);
$req = GET "URLﾘﾝｸ(openuser.auctions.yahoo.co.jp)";
$res = $ua->request($req);
print $res->content;
286:デフォルトの名無しさん
08/06/01 17:12:13
どういう風にできないの？
287:デフォルトの名無しさん
08/06/01 23:15:25
要素に配列への参照か文字列を含んだ再帰的な配列を出力するプログラムを作ろうとしているのですが
ややこしくてついアイスに手を出してしまいます。
どうすれば幸せになれますか
my @a=(1,2,3);
my @b=qw(a b c);
my $c=[\@a,\@b];
my $aa=[1,2,3];
my $bb=[4,5,6];
my $cc=[\$aa,\$bb];
sub pr{
my($depth,$ary_ref)=@_;
if((ref $ary_ref) eq "ARRAY"){
foreach (@$ary_ref){
pr(($depth+1),$_)
}
}elsif(defined $$ary_ref){
print $depth,":",$$ary_ref,"do something\n";
}else{
print "do nothing\n";
}
}
pr $cc;
pr $c;
288:287
08/06/02 08:56:48
自己解凍しました。
289:デフォルトの名無しさん
08/06/02 11:07:13
書きたかっただけだろｗ
290:デフォルトの名無しさん
08/06/02 12:34:14
sendmailで受信したメールを、procmailからperlスクリプトを起動して処理しているのですが処理結果ない場合があります。
どこかでエラーが出て止まっていると思うのですが、エラー内容をファイルに出力できないでしょうか？
.procmailrcを
:0
|perl ./foo.pl 2>&1 > ~/out.txt
としてみましたがout.txtにはなにも出力されませんでした。(空ファイル)
291:デフォルトの名無しさん
08/06/02 12:44:59
Windows だとその書き方はダメで
perl ./foo.pl > ~/out.txt 2>&1
というふうに 2>&1 を後ろにもっていく必要がある。
Unix 系はどうか知らん。
292:デフォルトの名無しさん
08/06/02 12:55:40
2>&1は後ろに持っていくはず。
Unix系でも。
293:デフォルトの名無しさん
08/06/02 13:42:21
perl ./foo.pl 2> ~/out.txt
じゃだめだっけ？
294:デフォルトの名無しさん
08/06/02 14:45:45
>>290
リダイレクトは左から評価されるんで、順序に注意汁ってこったな
2>&1みたいのはイメージ的には $b = $a みたいな変数のコピー
>~/out.txtみたいなのは $a = "hoge" みたいな代入
と思っておけば、イメージ的にはほぼ間違い無い
$b = $a;
$a = "hoge";
とかやっても、$bは"hoge"にならないでしょ
逆順だと上手くいくけど
295:デフォルトの名無しさん
08/06/02 19:03:12
少しそれるが、この右からとか左からとかってのは結局のところ
対象の言語の実装がfastcallとかstdcallとかってことかね
296:290
08/06/02 19:33:01
>>291-294
ありがとうございます。解決しました。
perlじゃなくてshellの問題でしたね。すいません。
294氏のイメージは理解しやすかったです。
297:デフォルトの名無しさん
08/06/02 21:15:52
binmode(STDOUT);
と指定したものをテキストモードに戻すにはどうしたらよいでしょうか？
298:デフォルトの名無しさん
08/06/02 21:40:55
binmode(STDOUT, ":crlf");
perlfunc読めよ糞が
299:デフォルトの名無しさん
08/06/02 22:59:05
↑
キミ、後輩を育てられないタイプだね。
300:デフォルトの名無しさん
08/06/02 23:06:24
うん。自分でもそう思う。
でも、いまのところ自営業で後輩いないからなんとかなってる。
301:デフォルトの名無しさん
08/06/02 23:11:36
相手に糞とか言う輩は、殆どの場合己がそうだから。
302:デフォルトの名無しさん
08/06/02 23:31:02
相手をくそとか言う輩は，ほとんどの場合周囲からくそと言われてるから。
303:デフォルトの名無しさん
08/06/03 00:41:30
>>301
> 相手に糞とか言う輩は、殆どの場合己がそうだから。
調査不可能なことを断言する嘘つきの出現です。
304:デフォルトの名無しさん
08/06/03 02:06:42
断言してないような
305:デフォルトの名無しさん
08/06/03 02:30:56
質問してもいいでしょうか？
winxp sp2を使っていて、activeperlを入れています。
パソコンのボリュームの調整をするコードを書きたいのですが、
perlからでもそういうのはいじれるのでしょうか？
メイン音量・ＷＡＶＥ、あと、wmpなど音楽再生ソフトの音量もいじりたいです。
どこか参考になるサイトなどありますでしょうか？
306:デフォルトの名無しさん
08/06/03 03:48:25
なんでperlで？
VBでも使った方が良くね？
307:デフォルトの名無しさん
08/06/03 07:37:39
>>305
どうしてもPerlでやりたいなら、Win32APIをつかえば？
それ以上は、Perl関係ない。
308:デフォルトの名無しさん
08/06/03 17:03:21
use utf8;
binmode STDOUT, ':encoding(cp932)';
このコードを他のOS環境で使うためには
:encoding(cp932) を手作業で書き換えてもらってるんですが
自動取得することはできますか？
そのOSのデフォルトのコードページとかエンコードとかを
自動取得することは出来ますか？
309:デフォルトの名無しさん
08/06/03 17:32:59
>>308
「そのOSのデフォルトのコードページとかエンコードとか」というのが
そもそも不明。
310:デフォルトの名無しさん
08/06/03 18:18:44
>>308
OSごとにデフォで使われてる文字コードを完璧に判定することはできない。
同じ記述なら一括で置き換えればいいだけだし
共通する部分なら最初に開発した段階で
定数なり関数なり作ってそこに定義しておくべきだった。
311:デフォルトの名無しさん
08/06/03 19:03:49
>>308
OS名や環境変数で、ある程度は判別できるだろうね。
312:デフォルトの名無しさん
08/06/03 20:04:39
>>311
> OS名や環境変数で、ある程度は判別できるだろうね。
「そのOSのデフォルトのコードページとかエンコードとか」が存在するかどうか
とか、それを守っているのかとか、そもそも一貫性があるのかとか
はいちいち調べないとね。
313:デフォルトの名無しさん
08/06/03 20:21:42
出力の話なんだから環境変数LANGみて空ならCP932にするだけで
ほぼ解決しないかな？
314:デフォルトの名無しさん
08/06/03 21:48:18
中国とかフランスとかドイツの Windows って、環境変数 LANG に何て設定してあるの？
315:デフォルトの名無しさん
08/06/03 22:25:52
そもそもUNIX系OSには「OSのデフォルトのコードページとかエンコード」なんて概念自体無いわけだが。
LANGはOSのデフォじゃなくて、「その人が端末に表示したいエンコード」。
端末装置はユーザごとに異なるのが当たり前・・・というUNIXの基本を忘れてるよ。
んで、メンド臭いなら全部 UTF8 にしたら？
今時のWindowsのメモ帳ならUTF8開けるよ。
316:デフォルトの名無しさん
08/06/03 22:29:21
Unix環境なら
use open ":locale";
とかでよきに計らってくれるようだが
Win32だと良い方法はないかも
317:デフォルトの名無しさん
08/06/03 22:32:43
> use open ":locale";
これも駄目。
何故なら、プロセスの実行環境と、その出力を閲覧するユーザのlocaleが一致する保証は無いから。
318:デフォルトの名無しさん
08/06/03 22:36:41
>>317
それが「いい」か「だめ」かはケースバイケースでしょ。
それで少なくとも伝統的なUnixのI18N/L10Nプログラムと同じ動作にはなる。
Cでsetlocale(LC_CTYPE, "")するのとほぼ同じだから。
無論、設定ファイルや何かでオーバーライドできるようにすることが
望ましいけどね。
319:デフォルトの名無しさん
08/06/03 22:37:25
>>313
他国語版使ったこと無いから知らんけど、cp932が有効なのが
そもそも日本語版Windowsだけなんじゃないかな。
>>314
中国はbig5?(と思ったら、Windowsでは、GB2312(cp936)らしい？？)
フランス等ラテン語件はlaten-1(ISO-8859-1)なんじゃね？(cpだと1252)
>>316
VCからなら、locale取得したり、変更したりする関数があったハズ。
Win32APIから叩けそうな気がするけど、どうなんだろ。
まあ、日本語環境のみで使用するってんなら、>>313でええかも。
320:305
08/06/03 23:32:11
>>306
CGIでPerlをかじりました。
実行ファイルにしてしまえば（自分のパソコンにはperl入ってるので不要ですが）Perlで問題ないと思いました。
Perlではwindowsを操作するようなプログラムはかけないなんてことはないと思ってたんですが。
特に簡単なのなら言語なんてほとんどなんでもいいのかと。
>>307
win32apiとやらを調べてみます。
321:デフォルトの名無しさん
08/06/04 01:36:05
>>315
UNIXのメモ帳で端末のエンコードが変更できるんですか？
エンコードの概念が無いなら、いったいどうやって漢字を表示するんでしょう？
テキストファイルをopenするのに、いったい何のコードでデコードすればいいんでしょう？
322:デフォルトの名無しさん
08/06/04 02:00:32
>>321
> UNIXのメモ帳で端末のエンコードが変更できるんですか？
「UNIXのメモ帳」という謎の概念が提示されました。
323:デフォルトの名無しさん
08/06/04 02:01:13
viとemacsの戦い
324:デフォルトの名無しさん
08/06/04 02:02:10
ああ、いるんだよ。別なOSを「別なWindows」だと思ってるやつ。
325:デフォルトの名無しさん
08/06/04 02:08:47
しばらく俺の雇用は安泰だな
326:デフォルトの名無しさん
08/06/04 04:11:02
まあ、確かにメモ帳ライクな外見＆操作を意識したテキストエディタはあるけどな。
それならUNIXのメモ帳と言っても何ら差し支えは……。
327:デフォルトの名無しさん
08/06/04 05:04:24
>>322
> > UNIXのメモ帳で端末のエンコードが変更できるんですか？
これ全体が謎なんだな。
328:デフォルトの名無しさん
08/06/04 07:03:52
>>320
Perlもモジュールだなんだでいろいろ出来るようにはなったけど
基本はテキスト処理をするための言語だぜ？
ちょっとじかじったくらいなんだったら
それに適した言語をかじり直したほうがたぶん早いよ
329:デフォルトの名無しさん
08/06/04 08:25:15
>>320
win32apiをPerlから使うのは結構面倒なので、場合によるだろうけど、>>305をみると、Perlでコーディングする意味はないと思う。
やってで気ないことはないけど、適材適所ってヤツがある。
VBだと金がかかるという場合、もしVista使ってるならサイドバーガジェットという選択肢もあるかな。
330:デフォルトの名無しさん
08/06/04 10:48:24
>>319
ちょっとやってみた感じだと、ActivePerlでもPOSIXモジュールのsetlocale()は
機能する模様（実際にはMSVCRTのsetlocale()を呼んでいるのだろう）
use POSIX qw(locale_h)
$old_locale = setlocale(LC_CTYPE, "");
とかやると、Japanese_Japan.932とかいう文字列が帰ってくる。
.の後ろがコードページのはず。
cygwinみたいにロケールが完全に腐ってる環境ではどうしようもないけどな。
331:デフォルトの名無しさん
08/06/05 00:25:55
>>323
おーっと、ここで 「ed・はるみ」 が乱入ｗ
332:デフォルトの名無しさん
08/06/05 05:42:10
帰れカス
333:デフォルトの名無しさん
08/06/05 10:17:09
Kwaliteeってなんですか？
334:デフォルトの名無しさん
08/06/05 15:09:00
$ ed
hello, world
?
help
?
quit
?
exit
?
q
?
?
?
--help
?
-help
?
fuck
?
335:デフォルトの名無しさん
08/06/05 16:18:29
ﾜﾛた
336:デフォルトの名無しさん
08/06/05 20:11:12
open FILE, '<:utf8', "unko.txt";
read FILE, my $content, (stat FILE)[7];
close FILE;
この (stat FILE)[7] の部分が、見た目が汚く感じるんですが
もっと美しい書き方はありませんか？
read FILE, my $content, 9999999999; とか、死んでもイヤです。
どっかのクソ言語の ReadAll メソッドみたいなのが欲しいです。
337:デフォルトの名無しさん
08/06/05 20:13:08
open my $file, '<:utf8', "unko.txt";
my $content = do{local $/; readline $file}
close $file;
338:デフォルトの名無しさん
08/06/05 21:12:54
-s FILE
339:デフォルトの名無しさん
08/06/05 21:16:32
>>336
っ[File::Slurp]
340:デフォルトの名無しさん
08/06/06 00:13:26
my $content = join("",<FILE>);
341:デフォルトの名無しさん
08/06/06 00:39:53
>>338
そっか、それがあったか。それ使わせてもらいます。感謝感謝。
あとの残りはクズですね。
342:デフォルトの名無しさん
08/06/06 00:46:36
全部読むなら$/をクリアするのが常套手段だろ。
343:デフォルトの名無しさん
08/06/06 00:59:50
OBJS = ${CSRC:.c=r30}
.c.r30:
${CC} $<
Makefile中の$<をPerlを使って置換してCCに渡すことは可能でしょうか？
$<に含まれているスラッシュを\\に置き換えるために
$< =~ s|/|\\\\|g
このような置換を行いたいです。
環境はCygwinPerl5.8.8です。
344:デフォルトの名無しさん
08/06/06 01:00:03
>>341
どうやって使うの？
345:デフォルトの名無しさん
08/06/06 01:11:15
sub write {
($fileName, $text) = @_;
open(FH, "+>$fileName");
print FH $text;
close(FH);
}
こんな感じでファイルを出力するコード書いたのですが、
サブルーチン経由だとなぜか動きません
サブルーチンなしだと正しくファイルが書き出されました
なにがおかしいのでしょうか
346:デフォルトの名無しさん
08/06/06 01:21:24
writeという標準関数があるから
347:デフォルトの名無しさん
08/06/06 01:52:38
>>346
writeという標準関数の存在しりませんでしたが
今回はなぜこのコードが動かないかについてよろしくお願いします
というのも、同じ仕様(関数名,引数,戻り値)を複数の言語で記述してみてるだけなのです
348:デフォルトの名無しさん
08/06/06 02:11:42
組み込み関数を再定義するためにはお作法がある。writeが再定義可能かは知らん。
perlsub読むか、親切に解説してくれるおせっかいが通りかかるのをまて。
349:デフォルトの名無しさん
08/06/06 02:23:57
あ、なるほど そういう意味でしたか
文法自体はあってるんですね
ありがとうございます
350:デフォルトの名無しさん
08/06/06 02:35:57
&writeでもだめなのかな。
351:デフォルトの名無しさん
08/06/06 08:19:33
>>349
ほかにどういう意味だと思ったんだ？
352:デフォルトの名無しさん
08/06/06 08:22:01
>>343
makeのsubstやpatsubst関数じゃだめ？
353:デフォルトの名無しさん
08/06/06 08:33:28
perlを始めたばかりなのですが、
foreachやwhile等で、何回目のループかをカウントしているような
変数は無いでしょうか？
自前で用意すればいいだけなのですが、そのような変数が無いかと思い
質問させて頂きます。
354:デフォルトの名無しさん
08/06/06 11:20:21
あったとしても、時前で用意した方が他の人も読み易いんじゃないかな。
355:デフォルトの名無しさん
08/06/06 11:57:16
そういえば、不精なPerlのハッカーたちは、foreachを使わずに全てforを使う……だなんて
どこかに書かれてたような気がするけど、実際どう？
自分は使い分けてる。
356:デフォルトの名無しさん
08/06/06 12:02:27
自分は for かな後ろ見りゃわかるし。
foreach で (;;) とかやらなきゃどっちでも良いとは思う。
357:デフォルトの名無しさん
08/06/06 12:08:14
forもforeachも一緒じゃないの？ただのシンタックスシュガーかと思ってたけど
358:デフォルトの名無しさん
08/06/06 12:17:35
>>357 それを前提として書いたつもり。
a) for my $n (0..9) {}
b) foreach (my $n=0; $n<10; $n++) {}
a は許容できるが、b は嫌かなってこと。
359:デフォルトの名無しさん
08/06/06 12:21:56
for しか使わね。それと、C type の for は使わね。
360:デフォルトの名無しさん
08/06/06 12:29:16
俺も同じくforのみ
361:デフォルトの名無しさん
08/06/06 13:32:56
どうでもいい。
んで、暗黙のループカウンタなんてあったら言語仕様としてきもい
362:デフォルトの名無しさん
08/06/06 15:39:58
C言語の const 変数の様なのは定義できないでしょうか？ perl 5.8です。
363:356
08/06/06 16:14:23
んー、やっぱforだけとかの人のほうが多いのね。
まさにPerlスタイル。
>362
use constantとかはー？
364:デフォルトの名無しさん
08/06/06 17:02:47
use Readonly ;
>>361
$. は？w
365:デフォルトの名無しさん
08/06/06 17:07:46
つまりキモイってことですよPerlはｗ
366:デフォルトの名無しさん
08/06/06 17:19:32
柔軟な頭を持ってない奴が負け惜しみを言ってますw
367:デフォルトの名無しさん
08/06/06 17:23:44
ゴミを美味いと思う自分の狂った味覚を「柔軟さ」と主張する人生ですかｗ
368:デフォルトの名無しさん
08/06/06 17:31:57
君がゴミだと思って捨てていた部分は実は高値で取引される珍味でした。
369:デフォルトの名無しさん
08/06/06 17:56:23
>>362
Cライクにやりたいなら
use constant NAME => 'hoge';
ただし Perlでベアワードはメンドくさい。
"my name is NAME"
とやっても展開されないから
"my name is ".NAME
とするしかない。
*NAME = \'hone';
これを使えば
"my name is $NAME"
で展開できる。
*C_STR = \'xxxx'; # 文字列定数。参照は $C_STR
*C_NUM = \100; # 数値定数。参照は $C_NUM
*C_ARRY = [1,2,3]; # 配列定数。参照は @C_ARRY
*C_ASSOC = {k1 => v1,k2 => v2}; # ハッシュ定数。参照は %C_ASSOC
370:デフォルトの名無しさん
08/06/06 18:04:39
>>368
まぁ、珍の字はニュアンスぴったりだと思うよ。
Perlの仕様を漢字一字で表せといったら、珍・奇・醜・糞あたりが有力だろうし。
371:デフォルトの名無しさん
08/06/06 18:44:43
forは数値カウンタのときやCライクな使い方のとき。
配列から読み取るってときはforeachにしてるな。こっちはPHPぽい方で
372:デフォルトの名無しさん
08/06/06 18:45:22
>>370
あれ？なんでわざわざこのスレに？
373:デフォルトの名無しさん
08/06/06 18:50:29
・上にあがってるから
・Perlを盲目的に全肯定するキチガイだけが住人ではないから
374:デフォルトの名無しさん
08/06/06 19:03:32
誰も全肯定なんてしとらんがな・・・
375:デフォルトの名無しさん
08/06/06 19:41:58
それを言ったら、誰も負け惜しみなんて言ってないよな。
376:デフォルトの名無しさん
08/06/06 20:34:35
>>373
ゲテモノだってのは認識しとる。
377:デフォルトの名無しさん
08/06/06 21:41:28
>>352
レスありがとうございます。
substを使ってうまくいきました。
ありがとうございました。
378:デフォルトの名無しさん
08/06/06 22:15:29 BE:477576296-DIA(100004)
まず匿名の臆病者は自分の (好きな|メインの) Lightweight Language を言えよ
379:デフォルトの名無しさん
08/06/06 22:52:56
BER圧縮された数値(オフセット値、ID)のビット列に対し、
二分探索法を行なっている実装例ってありませんかね?
380:デフォルトの名無しさん
08/06/07 01:02:59
そういうのはCでやった方が
381:デフォルトの名無しさん
08/06/07 14:17:18
>>378
できるよ。
以上。
↓次どうぞ
382:デフォルトの名無しさん
08/06/08 00:21:35
↑おつかれさまでした
383:デフォルトの名無しさん
08/06/08 19:02:55
他のファイルに変数を設定したファイルを用意し、
そのファイルを読み込み設定された変数を利用したいのですが、
どのようにすれば実現できますか？
384:デフォルトの名無しさん
08/06/08 19:05:01
そのようにすれば
385:デフォルトの名無しさん
08/06/08 19:13:01
そういうふうにプログラムすりゃいいでしょ
386:383
08/06/08 19:14:47
すみません。
サンプルコードなど頂けませんでしょうか？
387:デフォルトの名無しさん
08/06/08 19:16:05
do "configs";
388:デフォルトの名無しさん
08/06/08 19:17:30
D'OH !
389:383
08/06/08 19:19:09
reqireでできました。
阿呆しか答えてくれないので、聞く手間をかけずに調べれば良かったですね。
390:デフォルトの名無しさん
08/06/08 19:26:32
reqireなんてあったか？
391:383
08/06/08 19:26:33
>>389は私ではありません。
requireも試してみたのですが、変数の値が継承されないようで
うまくできませんでした。
>>387
ありがとうございます。
試してみたのですが、requireと同じように変数の値が継承されません。
doと言うものを調べたのですが、while文のdoしかなかなか見付からず
使い方が悪いのかも知れません。
すみませんが詳しく教えて頂けるとありがたいです。
392:デフォルトの名無しさん
08/06/08 19:28:41
まず自分で調べる手間をかけずにいきなり聞くという方法で何か学ぼうとするのもなんだかなあ…。
何かを知ろう学ぼうとするなら知る学ぶ為の正しい手段を取るべきだと思うけどなあ…。
393:デフォルトの名無しさん
08/06/08 19:42:06
>>391
perlfunc嫁
394:デフォルトの名無しさん
08/06/08 19:49:07
何ができないと言っているのかがわからない
395:デフォルトの名無しさん
08/06/08 19:59:13
1行ずつ読み込んでdoじゃだめなわけ？
396:デフォルトの名無しさん
08/06/08 20:18:32
doはファイル名を引数に取るわけだが
397:デフォルトの名無しさん
08/06/08 22:03:27
open FILE, "unko.pl";
read FILE, my $unko, -s FILE;
close FILE;
eval $unko;
398:デフォルトの名無しさん
08/06/08 22:04:06
それならdoでいいだろ。
399:デフォルトの名無しさん
08/06/08 22:32:17
関係ないけど do-dai っていい曲だよね
400:デフォルトの名無しさん
08/06/09 01:10:43
WinXP、perl5.8.8、でPerl/Tkからボタンを押した時にthreadsを使ってバックグラウンド処理をしようと考えています。
バックグラウンド処理そのものは最後まで実行されますが、終了同期を取ろうとjoinを呼び出した時に、クラッシュして更に、Free from wrong pool during global…
となります。
これを回避出来た猛者はいますか？
401:有吉 ◆01z1p9gzeo
08/06/09 01:43:25
子プロセスから親プロセスのTkウィジェットにアクセスするとactiveperlが落ちてしまいます。
$top = MainWindow->new();
$frame1=$top->Frame(-height=>25)->pack(-side=>top,-fill=>'x',-expand=>'no');
$listbox1 = $frame1->Scrolled('Listbox',-scrollbars=>'osoe')->pack(-fill=>'both',-expand=>'yes');
$listbox1_ref = \$listbox1;
if ($pid = fork()) { MainLoop; }
else { &refresh($listbox1_ref); }
sub refresh {
my $listbox1_ref = shift;
$$listbox1_ref->delete(0,'end');
opendir(DIR,'mail/');
@file = sort readdir(DIR);
@file = grep(!/^\.\.|^\./,@file);
foreach(@file) {
my $time = localtime((stat "mail/$_")[9]);
$$listbox1_ref->insert('end',$time);
}
}
ログには
Free to wrong pool 1ec5020 not 274dc8 at C:/Perl/site/lib/Tk.pm line 250.
と出て終わってるようです。refreshの処理中に落ちてるみたいです。
ググったところ、同じ症状の方もいるようですがこの場合の解決策が見つかりませんでした。
子プロセスから親プロセスのウィジェットにはアクセスできないのでしょうか？ご教授ください。OSはWinXP SP2です。