Perlについての質問箱 44箱目

CGI についての質問は板違いです。WEB プログラミング板でどうぞ。
CGI と Perl の区別がつかない人も WEB プログラミング板に行ってください。
(WEB プログラミング板: http://pc11.2ch.net/php/)

このスレでは(CGI 以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。

"The duct tape of the Internet" こと、Perl についての質問箱です。
"There's more than one way to do it" ということで、
Perl の奥深さについて皆で語り合い、追求してまいりましょう。

http://www.perl.org/get.html
● 2010/07/31 現在の最新版: 5.12.0

▼ 前スレ
Perlについての質問箱 43箱目
http://pc12.2ch.net/test/read.cgi/tech/1266565626/
リンク集は >>2-3
Perl 日本語処理の基礎の基礎 >>4
過去スレは >>5-7 あたり

[プログラミング自体の経験が無い奴はまずココを読め]
Perl プログラミング講座: ttp://www.site-cooler.com/kwl/perl/

[本]
リャマ: ttp://www.oreilly.co.jp/books/9784873114279/
駱駝: ttp://www.oreilly.co.jp/books/4873110963/
Effective Perl: ttp://www.ascii.co.jp/books/books/detail/4-7561-3057-7.shtml (修正)
クックブック: ttp://www.oreilly.co.jp/books/4873112028/
Perl ベストプラクティス: ttp://www.oreilly.co.jp/books/4873113008/
Perl Hacks: ttp://www.oreilly.co.jp/books/9784873113142/

[オンラインマニュアル]
最新のドキュメント: ttp://search.cpan.org/dist/perl/
perl5.8.x のドキュメント(一部): ttp://www.kt.rim.or.jp/~kbk/perl-5.8/
perl5.005_03 のドキュメント: ttp://www.kt.rim.or.jp/~kbk/perl5.005/
日本語ドキュメント検索: ttp://www.cpan.jp/search.cgi (停止中)
perldoc.jp: ttp://www.perldoc.jp/
perldoc.com: ttp://www.perldoc.com/

[モジュール]
CPAN.com: ttp://search.cpan.org/
河馬屋二千年堂: ttp://homepage3.nifty.com/hippo2000/

[テクニック]
Perl メモ: ttp://www.din.or.jp/~ohzaki/perl.htm
Perl のページ: ttp://homepage1.nifty.com/nomenclator/perl/
Perl の小技: ttp://homepage3.nifty.com/hippo2000/perltips/index.htm

[Perl 5.8 Unicodeメモ]
ttp://www.rwds.net/kuroita/program/Perl_unicode.html (修正)
ttp://www.namazu.org/~tsuchiya/perl/perl-5.8.html
ttp://www.lr.pi.titech.ac.jp/~abekawa/perl/perl_unicode.html

#　[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)"; # ※1
use Encode;
#　次に、あなたが実行したい処理の内容を入れて下さい。
$file = 'C:/なんたら/かんたら.txt';
open my $fh, '<', encode("cp932", $file) or die $! ; # ※2
print <$fh>;
#　以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう
#　おまじないです。条件が異なる場合の対処方法は、ご自分で勉強して下さい。
#　【注】※1. の行を入れると、DOS 窓への日本語出力は簡便になりますが、
#　ソースファイル名に非 ANSI 文字が含まれる場合に die 文の出力が失敗します。
#　※2. OS に渡す文字列（ファイル名，dos コマンドのオプションなど）は、
#　この例のように cp932 でエンコードする必要があります。

[過去スレ1]
1 http://pc.2ch.net/tech/kako/1017/10177/1017736187.html
2 http://pc3.2ch.net/tech/kako/1033/10336/1033688230.html
3 http://pc2.2ch.net/tech/kako/1041/10412/1041205885.html
4 http://pc2.2ch.net/tech/kako/1048/10485/1048519394.html
5 http://pc5.2ch.net/tech/kako/1053/10530/1053053082.html
6 http://pc5.2ch.net/tech/kako/1060/10606/1060689008.html
7 http://pc2.2ch.net/test/read.cgi/tech/1068051036/ (事故により消滅)
8 http://pc2.2ch.net/test/read.cgi/tech/1074151549/ (事故により消滅)
9 http://pc5.2ch.net/test/read.cgi/tech/1079114157/
10 http://pc5.2ch.net/test/read.cgi/tech/1085564875/
11 http://pc5.2ch.net/test/read.cgi/tech/1090889189/
12 http://pc5.2ch.net/test/read.cgi/tech/1094579428/
13 http://pc5.2ch.net/test/read.cgi/tech/1097851764/
14 http://pc5.2ch.net/test/read.cgi/tech/1101649274/
15 http://pc5.2ch.net/test/read.cgi/tech/1105953092/
16 http://pc8.2ch.net/test/read.cgi/tech/1111034732/
17 http://pc8.2ch.net/test/read.cgi/tech/1117870308/
18 http://pc8.2ch.net/test/read.cgi/tech/1121804136/
19 http://pc8.2ch.net/test/read.cgi/tech/1126977805/
20 http://pc8.2ch.net/test/read.cgi/tech/1131286411/

[過去スレ2]
21 http://pc8.2ch.net/test/read.cgi/tech/1134327348/
22 http://pc8.2ch.net/test/read.cgi/tech/1138519327/
23 http://pc8.2ch.net/test/read.cgi/tech/1141742901/
24 http://pc8.2ch.net/test/read.cgi/tech/1146022352/
25 http://pc8.2ch.net/test/read.cgi/tech/1149259409/
26 http://pc8.2ch.net/test/read.cgi/tech/1153412251/
27 http://pc8.2ch.net/test/read.cgi/tech/1157874614/
28 http://pc8.2ch.net/test/read.cgi/tech/1162273941/
29 http://pc11.2ch.net/test/read.cgi/tech/1166708139/
30 http://pc11.2ch.net/test/read.cgi/tech/1173880452/
31 http://pc11.2ch.net/test/read.cgi/tech/1181500187/
32 http://pc11.2ch.net/test/read.cgi/tech/1186995713/
33 http://pc11.2ch.net/test/read.cgi/tech/1192463997/
34 http://pc11.2ch.net/test/read.cgi/tech/1199977642/
35 http://pc11.2ch.net/test/read.cgi/tech/1208674881/
36 http://pc11.2ch.net/test/read.cgi/tech/1215569470/
37 http://pc11.2ch.net/test/read.cgi/tech/1218449440/
38 http://pc11.2ch.net/test/read.cgi/tech/1221967332/
39 http://pc12.2ch.net/test/read.cgi/tech/1234181856/
40 http://pc12.2ch.net/test/read.cgi/tech/1243631674/

[過去スレ3]
41 http://pc12.2ch.net/test/read.cgi/tech/1249581780/
42 http://pc12.2ch.net/test/read.cgi/tech/1257139591/
43 http://pc12.2ch.net/test/read.cgi/tech/1266565626/

乙

ところで整数の算数を文字列でやってるんだけど
250桁同士の掛け算に15分かかる。
効率いい方法ってある？

use Math::BigInt lib => 'GMP';

今まで時間かかってた600桁同士の掛け算が0.1秒くらいで終わったよ……
どうもです

UNIXの勉強中。
基礎を学んでUNIXC少しやってVBちょっとやったらCGIに入る予定だ。
目標KENT WEB！
多少なりとも足固めしてしてからサイトから落として徐々に作り変えて自分のサイトにしていく。
どうせ誰も見てないサイトだ。何やってるかなんてわかりゃしない。
がんばろ！

釣り針でかすぎだろｗ

>>12
こういう初心者最高すぎるよ！

>>12
友達になろう

>>12
君は最高だ！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！っ

なんか基地外がいついたな

CGI覚えてちゃんとできるようになったら仕事もらって在宅ビジネスにするんだ。
KENTのように１０年くらいで覚えて独立も視野にいれて頑張る。
儲かるぞーーーー、夢の上では＾＾；
貸借対象表と損益計算書でROA計算してROEもだしてヂュポンシステムで財務レバレッジの適正値も出すんだ。
KENTに仕事回してもらえるくらいにならんといかんな。
無いな＾＾；
だが、ROAはだせるはずだ。がんばろ。

1のテンプレの順番変えたんだけど逆効果だったか

すれたておつ
逆効果ってこたないだろうけど効果もないような気はする

>>18
僕にはコミュニケーション能力と英語力があるので雇ってください
私はプログラミングにはTOEICが必要だと思っています
私はTOEICで９００点以上目指して日々がんばっています
楽天が英語を使っているので　「今の企業は全て英語じゃないと行けない」と思いました
プログラミングなんて今時時代遅れなのです！今はコミュニケーション能力とクラウドの時代です
これからKENTWEBを使ったクラウドが沢山展開されると思っています！
KENTを利用することで大規模なクラウドが作り上げられます！
KENTを使ったホスティングサービスはクラウドというんです　私は５年前から目をつけてました
そもそもPerlなんて時代おくれです！！ですがCGI言語を使うために私はperlを使います
CGI＝Perlなので　CGI言語を取得すれば大丈夫です　　私はIISをつかってますIISを使って高機能なサーバを提供できます
OSは一番最新なものがいいのです　私はWindows7をつかっています
CGI言語はActivePerlでかいているので・・・　あとCGI言語をみてると　my our localなどuse xxx;
などと意味不明な文字が見つかります・・・なんなんでしょうねあれは　　かっこつけてるんでしょうか
私にはコミュニケーション能力と英語力と経営学、マネージメント力があるので
プログラミングより人をプログラミングするのです　今時TOEICをもってないプログラマはプログラマではありません
TOEICもってない英語のできない人はプログラミングがへたでしょう
あと毎日新聞読んでます　あとは株などFXやって世界の事に関心をもってます
プログラミング歴はVB１年です　現在は自宅療養で職探しです

BigInt使わないときのアルゴリズムってどんなの？

>>22
聞いてますか？

テンプレ見ない奴はどうしたってみないもの

やはりPerlはテキスト処理とか得意ですよね
いまActivePerlをインストールしたんですが

最初は何入れた方が良いですか？
エディタは禿丸使ってます

HTML::TagParserやったら
utf8のファイルをinnerTextで表示してるのに文字化けしてるなんでですか教えてください！

use strict;
use Encode::Guess;
use HTML::TagParser;
use Encode qw/from_to/;
my $html=HTML::TagParser->new("chat2.html");
my $elem=$html->getElementsByTagName("font");
my $data=$elem->innerText();
my $enc=guess_encoding($data);
print $enc->name."\n";
print $data;

ファイルの文字コードutf8ですし　読み込んだ文字も判別した結果もutf8なのに
なんで文字化けするんですか！！！教えてください！！端末の設定はutf8です！

utf8
���������(6)鐚�T
ってでます

推測に失敗してんじゃないの？
文字化けしないって思う方が理解できん

>>27
早く解決方法教えろやこら？！
なあ？推測とか単語並べてんじゃねえ世早く教えロやこら！！
クソがよwwwwwなあ？wwww教えろよ派やくwwwwなあ？wwww早く教えてください

と・・判別には成功してるのか。
とりあえず出力を16進数ダンプするとかｆｒ、何が出力されてるか確認してみては

0000000: e88e 87ef bfbd efbf bdef bfbd efbf ........
0000010: b6bd efbf bdef bfbd efbf bdef bfbd efbf ................
0000020: bdef bfbd efbf bdef bfbd efbf bdef bd83 ................
0000030: efbf bdef bfbd efbf bdef bfbd efbf bd0a ................

・・・・・・・

文字化けしてるワードは「超初心者チャット」です

教えてくださいお願いします

間違えました
文字化けしてるワードは他のやつです教えてください

さっきふと思ったけど、端末への出力の時点で
化けてる可能性はないんだろうか。
あとテスト書いた方が問題切り分けやすいよ

>>32
たぶんchat2.htmlのcharset指定が間違ってるためだと思う

<html>
<meta http-equiv="content-type" content="text/html; charset=EUC-JP">
<font>超初心者チャット</font>
</html>

$ ./hoga.pl |od -x
0000000 7475 3866 e80a 878e bfef efbd bdbf bfef
0000020 efbd bdbf b6e7 efbd bdbf bfef efbd bdbf
0000040 bfef efbd bdbf bfef efbd bdbf bfef efbd
0000060 bdbf bdef ef83 bdbf bfef efbd bdbf bfef
0000100 efbd bdbf

WindowsならSJISだから、utf8で出力すると化ける
>>26はOS何？

>>34
できました！！ありがとうございます！！
HTML::TagParser で取り出した文字コードは UTF-8 となります。
META タグで文字コード（エンコーディング）が指定されている場合、自動的に文字コードを UTF-8 変換します。

<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">

って書いてあったんで UTF-8に変換してくれるとおもったら
EUCのままでしたそうじゃないんですね　ありがとうございました
本当にありがとうございます

>>35
MacOSXです＾＾
自分に非はありませんでした＾＾

>>37
非ありまくりだろ

>>38 これにさわるなよ↓
＾＾；

xslateというテンプレートエンジンが速いそうですが、mobasifと比べてどっちが速いでしょうか。
ベンチマーク探したけど、両者を比較しているのは見つかりませんでした。

というか xslate のほうは後発なんだから、高速だと主張するならTTなんかじゃなくて
mobasifと比べてほしいよね。

なんで2chって名無しなの？
まじ名前ってあんだから名前つければいいのにwwwwwばかじゃねえのほんとあほくせえ

sub foo($;$){
↑これの$;$はどういう意味ですか？

プロトタイプ

ありがとうございます。
受け取る引数の型や数を指定できるんですね。

既存のパッケージのクラスにメンバ変数を追加する方法を教えてくれ
use foo::bar
{ package foo::bar;
my %hash
sub hash {return \%hash}
}
としてみたんだが、どうもこれはクラス変数になるっぽい
メンバ変数を追加する方法を教えてください

>>42
しってるのに聞くてめえは老人かぼけが！！！！！！＾＾

今ここで質問したら、自力でやったのでは無く2chの人たちに教えてもらった形になるので質問したくないです
どうすればいいですか？ここで質問したら恥ずかしいと思ってます
かといってPerlの場所できいたら　初心者だなこいつ　って思われるから聞きたくないです
どうすればいいでしょうか教えてください

>>47
しねよてめえはよ！！！！！！！！！！

LWP::UserAgentでEUC-JPのログをUTF8にしたいんですが

$req=HTTP::Request->new(GET=>"http://xxxxxxxx.xxx/xx.html");
$res=$ua->request($req);
print "Content-Type: text/html;charset=utf-8\n\n";
print $res->content;

やっぱりこれだと 読み込んだのがEUCなので文字化けされてしまいます
charset=euc-jpに変えれば問題なく表示されるんですが
utf-8で読み込んで表示させたいです

なんかrequestで読み込むとき　HTML::TagParserみたいに自動でutf8で読み込まれる方法ないんですか？？？
教えてください！

http://xxxxxxxx.xxx/xx.htmlのcharsetがEUC-JPです utf8じゃないです
おしえてください

binmode

$res->decoded_content(charset => "euc-jp")

↑flagged utf8になるから出力するときはencode_utf8してくれ

use Encode qw(encode_utf8);
my $ua=LWP::UserAgent->new();
my $req=HTTP::Request->new(GET=>"xxxxxxx");
my $res=$ua->request($req);
print "Content-Type: text/html;charset=utf-8\n\n";
print encode_utf8($res->content);

出来ないです！！！！教えてください！！

>>53は>>52の補足なんだけど

URL先は　EUC-JPでエンコーディングされてます
charsetもEUC-JPです

my $res=$ua->request($req);
$res->decoded_content(charset => "euc-jp");
print "Content-Type: text/html;charset=utf-8\n\n";
print encode_utf8($res->content);

すみません　$res->decoded_content(charset => "euc-jp")
これぬけてました
これがあってもできません

print encode_utf8($res->decoded_content(charset => 'euc-jp'));

>>58
できました　ありがとうございます
ちゃんと表示されました。

encode_utf8つかえばsocketで１行１行読みこんでもutf8にできるんですかね？
LWPで１行ずつ読み込む方法ないんですか？
requestだと一気に読み込まれてるんですが
やっぱりuse Socket;使わないと　１行単位での処理はむりでしょうか？
いちいちsocketでprnt socket "ファイルパス";みたいにするのがめんどくさいので
LWPみたいにurl指定して　１行読み込む奴無いですか？おしえてください

正規表現かいてて途中でみづらくなってエンタおしちゃうと\n（改行）が入っちゃう場合どうすればいんですか
教えてください！！！！！！！！

>>59
use Encode qw(from_to);
use IO::All;

my $io = io("http://example.com");
$io->autoclose(1);
while(my $line = $io->getline){
from_to($line, 'euc-jp', 'utf8');
print $line;
}

>>60
x修飾子

>>61
きみすごいな〜 よかったらボクの弟子になりませんか？
天才すぎるよ〜本やサイトみるより君にきいたほうがすごいからねえ

彼なりの感謝の言葉なので責めないであげてください

ネット系でおすすめのモジュールありますか？
HTML::TagParser
LWP::UserAgent　の他にネットで加工する時に役に立つモジュール教えてください。

>>64

use URI::Amazon::APA; # 弾氏作成モジュール
use LWP::UserAgent;
use XML::Simple; # http://search.cpan.org/~grantm/XML-Simple-2.18/lib/XML/Simple.pm
use YAML::Syck;
use Encode ;

>>65
ありがとうございます。

他の人々もあったら教えてください。

LWPで取得したHTMLファイルのAタグのhrefを絶対パスに書き換えたいんですけど、
URIを相対パス→絶対パスに置換してくれるモジュールないですかね？

>>67
てめえそんなの正規表現でやりぇお！！！！！！！！！！！
あたりまえだろ！？！！！！てめえそれでもperlやってんのか！？
モジュールとかなら質問してもいいけどなああ？そんな当たり前の素人みたいな質問してんじゃねえぞ！！！！！！！！！！！！

>>67
URIでいいんじゃねーの? LWPあるんなら入ってるだろ。

だぶるコンボ成功・・・・
2010/08/04(水) 19:17:35
2010/08/04(水) 19:17:38

>>69
まさに求めていたものでした。thx

$i=2;
my $a="\x{304$i}";
my $a=encode("utf-8",$a);
print $a;

これ　「あ」　ってでるはずなんだえどでません
\x{3042};だとでますが　ブレースのなかで変数展開をするにはどうすればいんでしょうか？教えてください

あいうえおって表示させたいです 2ずつ繰り上げて

IO::Allってすごいな！！！！！！！！！！！！！！！！！！！

>>61

my $io=io("http://xxxx.com");
while(my $line=$io->getline)
{
form_to($line,'euc-jp','utf-8');
print $line;
}
$io->close;

それやると
Can't find a class for method 'http' at test.pl line 11
ってでるんだけどな！！！

xxxx.com:80でいいのか？！

嘘教えたな！！！！

>>74
IO::All::LWPを突っ込め

>>77
はい隊長！！！！！！！！！！

>>77
入れたら
できましたよ！！！！！！！！ありがとうございます！！

>>67
もう解決しちゃったかもしれんが、
HTML::ResolveLinkっつーのがあるよ

say.txt utf-8 改行LF
##################
わろす
うしね＾＾b
きんも
##################

use utf8;
use Encode qw(encode from_to);

open FH,"say.txt" or die "error";
our $c=0;
while(<FH>)
{
push @list,$_;
$c++;
}
close FH;

my $a="あいうえお";
print encode("euc-jp",$a);
print "\n";
print encode("euc-jp",$list[0]);


EUCで出力すると
〓〓〓〓〓〓〓〓
あいうえお
ãⅺ?ãⅺ?ãⅺ?

っとでます
my $a="あいうえお";
print encode("euc-jp",$a);
print "\n";
print encode("euc-jp",$list[0]);
これって同じじゃないんですか？　ファイルから@listに読み込んだのはutf-8だし
$a="あいうえお";これもutf-8なんで２個目の
print encode("euc-jp",$list[0]);はeucに変換してるのに　文字化けするんでしょうか？
$a=あいうえお　のほうはちゃんと変換できてるんですが
教えてください

間違えました
print $list[0];
my $a="あいうえお";
print encode("euc-jp",$a);
print "\n";
print encode("euc-jp",$list[0]);
でした

教えて下し

push @list,decode("utf-8",$_);
これやったらできましたwwwwwwwwwwwwwwwwwwww

外部文字列
内部文字列
覚えました　外部か読み込んだ奴はencodeするんですね。
次覚えた方が良いのありますか？？教えてください！

my $io=io("xxx.com");
$io->autoclose(1);
foreach(1..7)
{
$line=$io->getline;
if($_==7)
{
from_to($line,"euc-jp","utf8");
}
}
if($line=~//)
{
decode("utf-8",$1);
print $1;
}

これを繰り返したいのですが
while(1)でかこってもできません・・・　１回ならちゃんとマッチされた文字がかえるのですが
くりかえしやると　１回目の表示すらされません　おしえてくだい

誰か教えてくれ！！！

contentのbodyは一行しかない

どういうこですか！！！！
１回しか読み込まれないってことですか？
$ioのバッファクリアするにはどうすればいいんですか？

最後等編をに替えてもだめでした・・・while(1)をつかって繰り返させたいのですが
$io->clear();
$io->close();
sleep(20);

誰か教えてーーーーーーーーーーーーーーーーー

教えてくれ！！！！

教えてください一生のお願いです！！！！

while($line=$io->getline || $io->getline)
{
if($i==6)
{
$line=decode("euc-jp",$line);
if($line=~/(aiueo)/)
{
print $1;
}



$1をクリアして　ずっと$1を使う事はできますか？
$1=undef;とやってもできませんでした
教えてください

>>94
できません。$1は読み出し専用。マニュアルに書いてある。

ttp://perldoc.jp/docs/perl/5.10.1/perlvar.pod

# $<digits> $1 $2 $3

最後のパターンマッチで対応する括弧のサブパターンにマッチした文字列が入っているが、
既に抜けてしまったブロックでのパターンマッチは勘定に入れない。 (記憶法: \(数字) の
ようなもの。) これらの変数はすべて read-onlyで、現在の BLOCK に動的なスコープを
持ちます。

どうすれば良いんですか教えてください
<FONT COLOR="green"><B>aaaa</B></FONT> <B><FONT size="4" >aiueo </FONT></B>
こういうデータの <font>のなかの aiueoをとりだしたいんです　一番目の場所がaaaaではなく
aiueoだったらまずいので　どうしても <font size=\"\d\" >のやつをとりだしたいんです
ですが$1つかってやると　無限ループみたいになっちゃって
my $i=0;
my $io=io("http://aaa.com/a.html");
my @a;
while($line=$io->getline || $io->getline)
{
if($i==6)
{
$line=decode("euc-jp",$line);
if($line=~/(aiueo)/)
{
print $1;
}
$i=-1;
$io->close;
}
$i++;
}
$io->close();
＝＝＝＝＝＝＝＝＝
print $1;のあとにlast;つかうと　ちゃんと aiueoって表示されて終了するんですが
ログを監視したいので　ずっとループさせたいです　ですが$1の場合だとよみこまれません空表示
print $line;だともちろ<FONT COLOR="green"><B>aaaa</B></FONT> <B><FONT size="4" >aiueo </FONT></B>
って表示されてましてどうか教えてください

$1の代わりとか　マッチ変数しりませんか？なんかどうすればいいんでしょうかreset();やってもだめでしたが

>>95
返事ありがとうございます
なんかいい解決方法ありませんか？

誰だよ初心者にIO教えた奴は

何がしたいかが全く伝わらない
$|=1;ってこと？

ちょっとやってみるので後で聞くから待っててください

質問ぐらい分り易く書けよ

$|=1;
これやったらなんか　できそうです

又後で質問します

$|=1;
一つで解決しました！！！！！！！！！！！！！！！！！！！！
うおおおおおおおお！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！


！！！！！！！！！！！！！！

>>98
私ですが何か？

おいこれでボットつくれた！！！！！！！！！！！！
ありがとう感謝するよ！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
最高だよ！！！！！！！！！！！！！！！！！！

分かったから！少なくして

夏休み時期らしい展開だねぇ。

夏ですから。

2chはこんなもんだ。
高望みするなよ。

>>109
了解しました！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
！！！！！！！！！！！
！！！！！！！！！！！
！！！！！！！！！！！
！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

ageんなsageろよボケ

>>111
すみません

>>110-112
コピペ化ｹﾃｰｲ

>>113
意味文恵

い　み　ふ　み　え

筋悪なコードばっかり書いてると伸びしろがなくなるぞ。
つーか、もういっぱいいっぱいだろ。

>>115
うぜえんだよしね

>>115
誰に言ってるのかな？
どこが悪いとかいってみ？な？おめえの判断がむかつくんだよ　みすかされてるみたいでよなあ

おめえ　strictとかきにしてるばかくそばかだろ？何番目のレスのコードがわるいかいってみ？

いっぱいいっぱいとかウゼエなお前は死んじまえよ速く　　レスじゃなくて　他のこいってるのかな？
お前死ねよな？クソがネット社会や著名人にすがりついていきがってんじゃねえよかす

その筋悪とか伸びしろとかいわれるとむかつくんだ　謝れ　謝罪しろ
いっぱいいっぱいとか　謝罪しろ　　お前マジ死んでほしい

はいはい夏夏

今年の夏は暑いせいか厨の活動も活発的だな

perl -lpe '' hoge.txt
行末改行を削除したいのですが、-ｌオプションの使い方が間違ってるのかうまくいきません。
初歩的な質問で申し訳ないですが、どうやればいいか教えて下さい。

>>120
無難に行けば良いんじゃないだろうか。
perl -e 'print map{chomp; $_} <>'

>>121
もっと短くかけるよ
p -e 'p m{c;$_}<>'

連想配列で、キーのところに
$ha{'hoge'} って感じで ' ' で囲うけど、ここって
囲わなくても正常に動作しちゃうよね。
これって仕様？ それとも糖衣構文？

仕様でしょ

そうかー！仕様かー！ありがとう！

連想配列のキーの仕様について
書いてあるHPとかある？
仕様といわれてもソース無しだと納得できん

ていうか、今はじめて知ったんだけど
$a = hoge ;
ってエラーになんないんだな。いいのかこれ。

barewordって仕様

そんな君にはuse strict。あと$aはやめとけ

>>129
use strict; つけてもbarewordって有効になっちゃう・・・
うちのperlがバグってんのか

>>121,122
ありがとうございます。
結局、-lは使い方が分かりませんでしたが解決することができました。

use strict信者おおすぎ＾＾；
夏だね＾＾；

自己紹介ですか

use strict use strcit騒ぎさわぎすぎですね
そんなの昔からしってましたし＾＾；（汗

２０〜３０代の若造は何で　株、マネジメントなど経済学をかじるやつが増えるんですかね？
なんでですか（笑）　バカ企業人さん教えてください＾＾；

バカ企業じゃなくてニートでしたか（苦笑）

コテ付けろ
NG出来ない

$a=`ls`;
とかやって実行結果取得したときの結果から改行を取るのって
やっぱchopとかchompとかしかないの？

>>138
そんな簡単な事質問するまでの事か七？

>>139
正規表現で置換するか、分割して結合するか
ってのもあるけど、格好悪いじゃん。

$u=`ls|tr -d "\n"`;
print $u;

＾＾；

$u=`ls|tr "\n" " "`;
print $u;

これで改行がスペースにかわるよ＾＾；

ばかすぎるよおおおおおおおおおきみは！！！！！！！！！！！！！！！！！！！！！！！！！！
どういうことだね！？！！！！！！！！！！！！！！！！！！！僕はニートみたいなもんだぞ！！！！！

僕が答えられた理由

１、頭が良すぎた
２、努力
３、問題が低レベルすぎた

＾＾；

！！！と＾＾；をNGしとけば事足りるか

コテつけてほしいですか？
〜か　〜だな　って僕が言えば回避できませんね（笑）

みなさんガリガリ君は何味が好きですか？

私はパイナップル味とコーラ味が好きです

今日はマスカット・アレキサンドリア味食べたら美味しかったです

ガリガリきみが４０円台で買えるから嬉しいです　きみ等も食べたまえ

CGIをやろうと思いperlをはじめたのですが、どこでPerlをダウンロードするのかわかりません。
あと、Perlのメリットって何ですか？
どなたか教えてください。

どこにでもまず最初からインストールされてることがメリットなので
いまからインストールしますとかいってるやつにはメリットは無い。

>>149
Ａｃｔｉｖｅ　ｐｅｒｌいれろと言われたんですが　ダウンロード先とかがわからないです
英語が苦手なので
DOSプロンプトとかでインストールしたりしますか？あまりＰＣいじったことないので
メリットどうこう、そういうのは人によって違うのでは？こちらが悪いならあやまります。
すみません。

１０日までに教えてくれませんか？
研究でＰｅｒｌを使うので、１０日までに入れないと間に合いません。
インストール方法教えてくれる人が要らしたらご教授ください。

>>150
http://www.activestate.com/activeperl/downloads

すみません、>>151の名前は残ってしまっていただけなので無視して下さい

また間違った・・・
×151
○152

>>152
そこ見ました。
どれをダウンロードすればいいんですか？
時間的に足りるか心配です。

ここはそういうことを聞く場所じゃないから
Yahoo知恵袋でやってろよ

>>155
多分、「Download ActivePerl 5.12.1 for Windows (x86)」って書いてあるボタン。

>>155
おめえ最高ノバカだなwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
やっぱりWindows使ってるやつってろくにインスコできねえしかすすぎwwwww
しかもそれで研究とかごみwwwwwwww
アホだろwwwwwwwwwwwwwwwwwwwwwww
本当ごみだなwwwww技術的な質問ならいいのに　インストできいてるばかwwwww
インストもできない　Windows使ってるばかはこれだからだめなんだよwwww
（笑）（笑）（笑）（笑）（笑）（笑）（笑）（笑）（笑）（笑）（笑）
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
（笑）（笑）（笑）（笑）（笑）（笑）（笑）（笑）（笑）（笑）（笑）（笑）
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
（笑）（笑）（笑）（笑）（笑）（笑）（笑）（笑）（笑）（笑）（笑）（笑）（笑）
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww



Yahooの珍言袋で聞いてろよwwwwwwwwwwwwwwwwwwwwwwwwwwww（笑）（笑）（笑）
（笑）（笑）（笑）（笑）（笑）（笑）（笑）（笑）（笑）

夏休みはやくおわらねーかな

Perl刀七人衆って誰ですか？教えてください

・宮川達彦
・高木浩光
・牧大輔
・池？智洋
・山口徹
・大沢和宏
・伊勢幸一

霧隠れの忍び刀七人衆ですね・・・・

？　じゃねえよｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

伝説の３忍とうたわれた人は誰ですか教えてください

暁みたいな人たちは誰ですか教えてください

そういうのはYahoo知恵袋あたりで訊け

質問したんですが　回答がきません教えてください

ファイルから1行だけ読むかっこいい関数無い？

外部コマンド実行したときの戻り値を取得する方法を教えて。
標準出力や標準エラー出力なんかどうでもいい。

perldoc -f system

>>169
サンキュー

>>167
$u=<FH>;だけでいいだろ
おまえばか？

>>168
禁術をおおしえてやろう火遁
$u=system("ls|true")?$?:$?;
print $u;

>>171
オープンとクローズがうっとおしいので

>>172
コマンドつかえよなああああああ
がりがりくん食ってて片手でうってるから思いつかねえんだよ

>>173
ところでついでに質問なんだけどさ、
<FH>;
だけで$_に入るんだとばっかり思ってたけど実際には
$_=<FH>;
って書かないと入らないんだな。知ってた？

知ってたけどあえていわなかったんだよ
なめてんのか？

>>175
で本題なんだけど、なんで while(<FH) とかだと $_ に入るの？

仕様

Larryちゃんがそう決めたから

文法上なにがどういう省略されてるのかわからない
これ結構 謎なんだけど <FH>だけでは$_に入らないのに
while( $_=条件式 )みたいな隠れ代入があるわけ？
でももしそうならwhile(1)の中は$_=1になっちゃうよね？

>>177
>>178
ありがとうチームメンバー

>>177-178
入力シンボルだけが while ループの条件文の中にある場合は (そしてこの場合にかぎり)、 値は変数"$_" に自動的に代入されます。

ほんと例外的な仕様だったんだなー。勉強になったわ。

僕のチームに入りたい人いますか？

そこらへんも詳しく書いてあるリャマはやっぱり良書だぬ

本に頼ってんじゃんじゃねえよ！！！
http://d.hatena.ne.jp/perlcodesample/20100228/1269445781
ここ最高だぞ＾＾

>>183
詳しく書いてなかったぞ

>>185
へりくつほざいてんじゃねえぞこら

>>185
俺が持ってるのは第三版でpp.104-105に詳しく書いてある
版が違うか別の本の話をしてるのかもね

俺ってまともなレス返された事無いしな

普段の行いの問題

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1345009138

質問したからこたえてね　＠＿＠

Perlでリンクドリストを使いたいときはどうしたらいいですか？

>>191
異星人乙津

>>190
はてなでやれ

>>193
おおめえどこまで　つれてくんだよ

つぎはライブドアでやれ
アメブロでやれ
グリーでやれとかなあ？？？？

うん

うんｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
ｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
ｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
wwwwwwwwwwwwwwwwwwwwwwwwwwwww
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
wwwwwwwwwwwwwww
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
wwwwwwww

ここが Grass のスレだっとは

perlのワンライナーをこれ以上短くできますかね。
UNIX版　perl -e'print"\"$_\","for 0..9,A..Z,a..z'
WIN 版　perl -e"print\"'$_',\"for 0..9,A..Z,a..z"
望んでいる出力結果
"0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z",
いわゆるGolf的なことがしたいのです。
シングルクオートでもダブルクオートでも構いません。ただしきちんとクオートが対応していることが条件とします。

引用符のエスケープやめて q や qq でクオートすればかすかに短くなるかな

>>171
phpのfile関数みたいなのがほしい

関数つくれよはげ

var GET_eq = '_%%eq%%_';
var GET_amp = '_%%amp%%_';

これってどういういみ？

PerlやってるやつでJavascriptやってる人いるだろ？なあ？教えてください

eqとampって最初からあるやつだよな？　%%なんで２個つけてるの？おしえて

後のほうでどんな意味があるか知らんけど、単なる代入でしょ。

>>199
ありがとうございます。
でも、微かに長くなりました
UNIX版
perl -e'print qq("$_",)for 0..9,A..Z,a..z'
perl -e'print"\"$_\","for 0..9,A..Z,a..z'
Win版
perl -e"print qq('$_',)for 0..9,A..Z,a..z"
perl -e"print\"'$_',\"for 0..9,A..Z,a..z"

引数の省略を上手く使えたら良いのですがなかなか上手くいかないですねぇ
あとprintが長すぎ。`echo `も上手くは使えないですねぇ
perl -e'print qq(").join(qq(","),0..9,A..Z,a..z).qq(",)'
perl -e'for(0..128){print"\"".chr."\","if chr=~/[a-zA-Z0-9]/}'
↑こんなのも書いてみました

よくワンライナーでかくきあるね＾＾；
めんどくさそうだし　しょぼそうだし
ファイルにかいたほうがいいしね＾＾；

pspからも書き込めるんだな!!!!!!!!!!!!!!! !! ! ! ! !! ! ! ! ! ! !! ! ! !!! !!! !!!!!!!!!　　　　KENT-WEBマンせー

http://codepad.org/KFzgb4MH

数独を解くプログラムを作っているのですが2つ数字が入ったところで止まってしまいます
どうしたらよいかお教えください

q001.txtの中身はこれです↓

004001020
000300005
507060400
030009008
005020600
600700040
003050102
900004000
060100300

よろしくお願いします

>>207
一番手っ取り早いのは、動かないコードを捨てて動くコードを使う。
例えばココとか。
ttp://spring.sakurasaita.net/perl/28.html

あいうえお
かきくけこ

わおん

まで表示するのって

my @a=unpack("C*","あ");
$a[2]+=2;
とかやって繰り返すしかないの？

簡単な方法あったらおしえて

Image::ExifToolの使い方がイマイチわかりません
Exifを全て削除したいのですが、どうすればいいのですか？

http://search.cpan.org/~exiftool/Image-ExifTool-8.25/lib/Image/ExifTool.pod#SetNewValue

VVSは、日本のクラッカー。数学者である事が知られるが、所属組織等は不明。数種のコンピュータ言語を使いこなすが主にPerlを得意とする。
彼の作成した「ちりりduke」は現在、掲示板荒らし系スクリプトの中で最も高性能であるとされている。

VVSってやつここにいるの？誰だ？Perlやってるしwwww

http://ja.wikipedia.org/wiki/VVS
きになる忍刀とかのなかにはいないよね？

>>212
そろそろうざいわ

言っとくけど俺をあまりナメないほうがいいよ
VIPでコテハンやってるしクソコテ潰すくらいの影響力は持ってるから
くだらないことで刺激して後悔しないようにね

キムチがムキになってるヽ(・∀・。)ﾉ☆

DBICのサンプルで「AutoCommit => q{1}」という書き方を見たんですが、これってどうして「AutoCommit => '1'」と書かないんでしょうか？
同じ意味になると思ってるんですが、間違っていますか？

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1445310039

>>213
いいから早く潰してみせろよバカ

>>215
文字列リテラルとして意味は同じなので、あとは書いた奴に聞けとしか。

'...'をさらに文字列化しようとするとエスケープとかめんどくさいけど
q{..}ならバランス見てくれるので楽という人はいた。

俺ならはじめから単に 1 と書くけどな。

#!/opt/local/bin/perl
use strict;
my @file=<*.jpg>;
my $i=0;
my @list;
foreach (@file)
{
my $time=(stat "$_")[9];
my ($sec,$min,$hour,$day,$mon,$year)=localtime($time);
$year+=1900;
$mon++;
$list[$i]=join ":",($year,$mon,$day,$hour,$min,$sec);
$i++;
}
map {print "$_\n"} sort @list;


2010:8:16:21:32:24
2010:8:16:22:9:22
2010:8:8:14:53:47
2010:8:9:12:23:59

これを日付の昇順でやりたいんですが　でません 教えてください

join のとこを sprintf に置き換え

unix timeのまま配列かなんかに保存してソートしたほうが
絶対楽だと思うぞ。表示用の文字列を作るのは最後にしろ。

はい　sprintfためしてみます

これってアップローダでファイルをcopy()して新しい順にするときは
↑の方法で良いんですか？

perlでアップローダつくってて　そのとき１０件ずつ画像表示させたいんです
これで日順にして　もしファイルが１４個とかだったら　１０個表示して次のページとかやりたいんですが
なんかモジュール使うんでしょうか？　引数で　xxx.cgi?next=1　これで１０県表示で
とかやって残りの４件を表示ささせるやりかたは　next=2ってやるんですか？

ファイルが１４個あって　（最大１０個表示）そして最初のページに１０個表示させて
あまりの４個は次のページみたいに表示させたいんですが

お教えください

unix timeもしらべてみますいい方法おしえてください

unix timeはお前が

my $time=(stat "$_")[9];

で$timeに入れてる数のことだよ。1970年1月1日0時0分0秒(UTC)からの
秒数で表した日時で、1つの数だから大小比較や足したり引いたりが楽。
つーかわかっててlocaltimeで変換してたんじゃないんかい。

全データ件数÷１ページに表示させたい件数＝ページ数

上記の計算結果が割り切れ無ければ、ページ数を１足す
(この余りが幾つかは気にしなくていい)

全データ件数−(最初に割り出したページ数×１ページに表示させたい件数)＝最後のページの件数

全ページ数の範囲外のページ指定は１ページ目にしてしまう

pagerも作れないようならプログラマはあきらめろ

Data::Pager オススメ。たいした計算じゃないんだけど
めんどくさいのでこれ使うと楽だよ。

>>224
ネットではお前　おいクソで良いけど　リアルでは君かさんずけしろクソ^-^
あああそうか　そういういみね　11223434333みたいな数値ね 文字だけだったからみのが

>>225
やっぱ割ればいいのかあ
そういう公式どっかにのってるの？？
きみあたまいいね〜〜〜〜

>>226
逆鱗にふれたようだねえきみは
クソガリそうだけど　殴りアイする？

ぼこぼこになるよ君　プログラマに鳴りたくてもなれない奴いんだからな
てめえは死んでほしいよ

プログラミングは発想だよ

さすがに小学校の算数の知識は必要だと思うぞ。

>やっぱ割ればいいのかあ
小学校からやり直した方がいいんじゃね？

ActivePerl-5.10.1（WinXP)のWin32::OLEでhotmailにログインすると、
Pass長16文字くらいまでしか対応できないのでしょうか？
（20字以上ログイン失敗、17〜19字は未確認）
どこか参考になるドキュメントとかあれば教えてください。

LWP を使いなよ

Data::Pager
英語ばりばり　クソイですねえしらべますかあ

ページング処理むずすぎvvvvvvvvvvvvvvvvvvvvvvvvvvvv

>>234
すみません、情報不足でした。
IEでログインして、そのままhotmail（WindowsLive）を使いたいのです。
「ブラウザとして振舞う」事は出来ても、そのセッションをIE/Fxで使ったりできませんよね？

・・・と確認してたらWin32::IEAutomationなるものを見つけましたので、調べて見ます。
（ぶっちゃけランダムな英数記号16字のパスワードで何も問題ないのですが・・・）

>>237
LWPにHTTP::Cookies::Microsoftて入ってるだろ

[% xxxx %]ってなんなの？
教えて
[% %]これよくみかけるど

誰か　Data::Page Data::Pagerのサンプルみせて
１０県表示みたいな

つSYNOPSIS

ファイルの数でやりたいんですが

ファイルが１４個あったら　ファイルをリストに保存するんですよね？
それでunix timeで並び替えて

@a=（ファイル１４個）；
my $page = Data::Page->new($total_entries, $entries_per_page, $current_page);


my $page = Data::Page->new($#a+1, 10);


どうやって使っていいか分からない
１０個になるまで　表示させて　次のページ　　前のページってやるんだけど

１０こ表示したとかカウントはどうするの？
<img src="xxxx.jpg"><img src="xxxx.jpg"><img src="xxxx.jpg">とかを１０個ちゃんと認識してくれてるの？

意味が分からないんですが教えてください

例えば全要素数が14個ページあたり10個の1ページ目
といったら何番から何番の要素を出せばいいかって計算
するだけで、実際にその数字にしたがって物を揃えたり
表示したりするのは使う人の仕事だよ。

<a hrefでnextページのやつつかえばいいんだろ^^

xxx.cgi?page=$xx->next_pageみたいに

>>244
うん

#!/opt/local/bin/perl
use strict;
use CGI;
use Data::Page;
my $page=Data::Page->new(20,5);
my $next=$page->next_page;
my $back=$page->previous_page;
print "Content-type: text/html\n\n";
print <<"HTML"
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>Page</title>
</head>
<body>
<a href="./test.cgi?page=$next">次のページ</a>
<br>
<a href="./test.cgi?page=$back">前のページ</a>
</body>
</html
HTML
これ次のページやっても　ずっと　2のまま
20/4で5ページまで表示されるはずなのに　
何でか教えてください

次のページってやって　リンク先みると　ずっと２のままです
３、４、５ってなってほしいんですが　次のページのリンクのやつが

HTML Template +1ってなだったけ？

+1の意味知ってる人居ますか？

+1って何だったか教えてください

>>246
全項目数とページあたりの項目数しか指定してないだろ。
現在のページが何ページか指定しなかったらデフォルトの
1ページ目になるのでずっとそのままだぞ。

$page->current_page(現在のページ);

で設定しろな。

>>249
うひぃひょ〜〜〜〜〜〜〜〜できたよ〜〜
my $cgi=CGI->new();
my $current=$cgi->param("page");
my $page=Data::Page->new(20,5,$current);
きみあたまいいな〜

perl長年使ってる人はいまでも
perl最高！！とか思ってたりするんですか？教えてください

>>251
うん

Perl大嫌い！ って人も同じくらい居そうだがｗ

Perlのすごいところってやっぱり　正規表現やテキストファイルの扱いやすさ？
などネットワーク系？CPANのモジュール？

これしか知らないけどなにかある？

>>253
そういうひともいるみたいですねえ〜＾　ー＾

Perl通っぽくいうにはどんなのあるかな？

上のだとありがちだから

モジュールのたぐいは一切使えない環境ですが
それでもperlはよく使います。

バッチ処理代わりに使ってるなあ。

perl -i -pe 's/OLD/NEW/g'は標準コマンドレベル。

@file=<f/*.jpg f/*.png f/*.gif f/*.bmp>
これって略したりできませんか？
正規表現みたいに

f/*.jpe?g||*.png
みたいにやりたいんですが

>>259
出来合いのは知らないけど

*CORE::GLOBAL::glob = \&適当な関数

でオーバーライドできるから好きなの書けばいいんじゃないか?

>>260
頭良いねえ

@file=<f/*.{jpg,png,gif,bmp,JPG,PNG,GIF,BMP}>;

こっちのほうがはやいかな＾＾；
考えるより

@file=grep/\.(jpe?g|png|gif|bmp)$/i,<f/*>;

それかんがえたけどね
拡張子がそれだとうまくとれないんだよね
他の名前のファイルはいるからね

グロブで正規表現使えたら最高だけどね^

glob関数はUNIXシェルのファイルグロブ互換だから、
それ以上のことがやりたきゃ他の方法と併用するのが筋だと思う
というか>>263でだめな理由がわからん

>>264
>>263

>>265
頭の良い人はそういうところまで考えるんですよ

http://d.hatena.ne.jp/yukikimoto/20100201/1265032276
ここの

__DATA__

@@ index.html.ep

<%= $message %>

や@@とか% %とか_DATA_とかなんですか？
なんかよくわからないんですが検索してもひっかからないし
意味教えてくださいお願いします。

>>268
__DATA__から先の部分はDATAというファイルハンドルで読み込むことができる。
perlとして決まってるのはここまでで、読んだ後どう使われるかはプログラム次第。

@@と%%は？

>>270
たぶんそれを目印にしてなんか加工するプログラムなんだろうけど、それは
プログラムを読んで理解しろってことだ。perlとしてはただの文字列。

HTMLにコードを埋め込む目印によくそういうのを使う
簡単な解説もあったよ
http://d.hatena.ne.jp/perlcodesample/20091217/1260183022

ちなみにこれなんかと似てる
http://jp.rubyist.net/magazine/?0017-BundledLibraries

Mojoliciousフレームワーク使ってるみたいだからそれの勉強もしないと。
とりあえずここ。

ttp://wiki.livedoor.jp/mojolicious/

my @arr = qw(foo bar);
print map { s/^(.+)$/「$1」\n/g, $_ } @arr;

実行結果
1「foo」
1「bar」

この"1"はどこから出てきて、どうすれば消えるのでしょうか？

print map { s/^(.+)$/「$1」\n/g, $_ } @arr;

↑
foreachで書き直すとこうなってる

foreach (@arr){
　　　print (s/^(.+)$/「$1」\n/g, $_);
}

printに(s/^(.+)$/「$1」\n/g, $_)のリストが渡されてる
だから1はs/^(.+)$/「$1」\n/gの評価結果

1を消したいなら、
print map { s/^(.+)$/「$1」\n/g, $_ } @arr;
ではなく
print map { s/^(.+)$/「$1」\n/g; $_ } @arr;
にすればいい
コンマでなくセミコロンで区切る

>>274
1はs///gで置き換えられた要素の数。
s///gの後がセミコロンじゃなくてコンマになってるせいで
mapの返り値が (1, "「foo」\n", 1, "「bar」\n") になってる。

>>274
s///の戻り値。(1回置換したから1)
方法はいくつかあるけど、簡単なのは「,」じゃなくて「;」にしろ。

print map { s/^(.+)$/「$1」¥n/g; $_ } @arr;

おまえら張り切りすぎww

>>275
>>276
>>277

誰の説明が一番わかりやすかった？

>>278
しかも全員説明が違うｗ

グリー社員の説明が一番わかりやすいっす！！ｼｭｯｼｭ

こういうケースでありがちなトンデモ解説が混じってなくてつまんねえお

じゃあトンデモ解説をねつ造しようぜ！

>>275-277
ありがとうｗｗｗ

いや、すみません、思わず草生やしたくなりました。
久しぶりにmap使ったので「；」で区切ることを完全に忘れてました。

>>279
>>275はとても丁寧でした。最初真偽が返ってるのかと思ったけど、評価数なのですね。
>>276はとても簡潔で、原因もずばり突いてくれてるので分かりやすかったです。
>>277もとても簡潔で、初心者には一番理解しやすいかもしれませんね。

ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！
ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！wwwwwwwwwwwwwwwwwwwwwwwwwwwwww
ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！wwwwwwwww
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！wwwwwwwwwwwwwwwww
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！
ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！wwwwwwwwwwwwwwwwwwwwwwwwwwwwww
ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！wwwwwwwww
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！ｼｭｯｼｭｯｼｭﾊﾟﾈｰｰｰｰｰｰｰｰｰｰｯｽ！！wwwwwwwwwwwwwwwww
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
wwwwwwwwwwwwwwwwwwwwwwwwwwwwWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW

>>283
Larryがコミケでプリキュア同人誌の売り子やってた

emacsスレを荒らしてるやからをこっちで引き取ってもらえないだろうか

真性のようなので黙してNGすべし

つーか彼は8/10にこのスレで発生したからもうすでに見えなくなってた

$a=10;
\$aって$aのリファレンスですが

$a=[ {a=>10,b=>20},{u=>30,i=>40}];
これってなんていえばいいんですか？

無名ハッシュの無名配列っていうんですか？

読み方が分からないです教えてください。

略して、ムハムハって呼べばいいんじゃね？

プログラムを一気に起動させたいんですが

シェルで　perl xx.plっていうのを新規ウインドウを立ち上げまくってやるのが大変です

っでwhileで繰り返しやってsystem(perl xx.pl)ってやっても１回しか起動されず
どうやれば一気に起動して実行することができるのでしょうか？
教えてください

バッチファイルかシェルスクリプト

perl　のwebフレームワークでおすすめなのは何がありますか？

>>292
system("$^X xx.pl &")

>>269
ヒアドキュメントってやつ？
ヒアじゃない感じだけど

openするとき、どうして
open my $FH "< hoge";
はOKなのに
open my FH "< hoge";
がNGなのはなぜ？

これは酷い質問ｗ

myとかは変数につけるやつだから

そんなのもわからないの？

知恵おくれ（笑）

>>298
出来れば回答おねがいします

ファイルハンドルと変数について勉強し直せば分かるよ

ファイルハンドラを変数に入れるメリットがよくわからない。

というか、どうしてファイルハンドラをレキシカルスコープで
持てるようになってないの？ ラリーさん耄碌してるの？

じゃあコレで
open local(*FH), "<", "/etc/passwd";

>>303
ありがとう。 さすがラリーさん、しっかりしてるわ。

こんなのグローブ型で無理やりスコープつけただけだろ

ラリーさんdisってんのか？

localはレキシカルスコープじゃないんだけどな

strictバカがわめいてますね

何を求めてるのか分からないから、答えようがない。

バカの特徴

自分が答えられないモノがあると

「何がしたいのかわからない　っで？　答え用が無い　何を求めてるのか分からない」

まじ簡単なものは　クソ詳しく熱弁するけど　難しい質問には
>>309
みたいにクソみたいな答えかたしかできない（苦笑）

>>310
分かるように説明してくれたら回答するよ。
お前も回答してやれ。

>>309
ていうか、ほんとうにわからないの？馬鹿なのは君じゃないのか？

perlにレキシカルスコープな物は変数しかない。
localはダイナミックスコープだし、型グロブはグローバルスコープ。

だから、レキシカル変数にファイルハンドルを渡せば解決。
という理解なんだが、求めるものは違うわけだろ？

俺が質問したんじゃないんだけどね（笑）
勘違い妄想　幻術にかかってるwwwwwwwwwwwwwww


いますぐ俺のレスみて　　「解！！！！！！！！！！！」って叫んだ方が良いよ（苦笑）

珍言（笑）


309 ：デフォルトの名無しさん：2010/08/25(水) 09:03:25
何を求めてるのか分からないから、答えようがない。

312 ：デフォルトの名無しさん：2010/08/25(水) 09:51:00
>>309
ていうか、ほんとうにわからないの？馬鹿なのは君じゃないのか？

>>313
＞レキシカル変数にファイルハンドルを渡せば解決。
内部でダブらないようにユニークなファイルハンドルを
作ってるって解釈でいいの？

誰かポケモンwifi対戦しましょう

ともだちコード　2149 7693 9978
【対戦ルール　6on6　シングル
【対戦レベル】50
【使用ロム】ハートゴールド
【ボイスチャット】×
募集します。
対戦したいやつはコード教えて下さい

引数の文字数が一定であれば、文字列を変数にセットし、違えば終わらせたいのですが、

my $isbn13 = length( ARGV[0]) eq 13 ? ARGV[0] : die( "13keta");

これでは動きません。
どのようにかけばいいのでしょうか？

$ARGV

my $isbn13 = length($ARGV[0]) eq 13 ? $ARGV[0] : undef;

if(!defined($isbn13)){
　〜エラー処理〜
}


丁寧にやるならこんな感じかな？

すみませんでした・・。
以後、誤字には気をつけます・・

my $isbn13 = $ARGV[0];
length $isbn13 == 13 or die "13桁で入力しろってんだよボケカス";

これでいいだろ

my $isbn13 = shift;
でいいような気もしなくは無い

　　　　　　　　　　+　　　　　　　　　　　　　　　　　　　　　　　　　　　.
　　* 　　　　　　　　　　 　　　+
　　　　　　.　　　　　 　　　　　/ ーーーーーーーーーーーーーーー\　　　　　 　　
　　　　　　　　　　　　　　　　/　_,,,...　 ヽ;:　　／""ヽ　　　 ヽ 　　　　　　　　.
　　　+ 　　　　 　　　　　　|　;'"　　"＼ l　/;:;;:::-'''"ヽ,　　　i 　　　*
　　　　　　.　　　　　　　 | /::::::::-'''''"~　　　　　　　 ヽ, 　 .|,
　　.　　　　 　　　 　　　|　 |;:" 　　　　　 　　　　　　　 ヽ　　 !　　.　　　　　　+
　　　　　　　 　 　　　　| /　　　　　　　　　　　　　　　 |　　|
　　　　　　* 　 　　　 | 人　　　　　　　　　　　,,,,;;::''''' i,　　| 　　　　.
　　　　　　　　 　　　　|　　';　　,,,,;;::::::::::;;;　　　.: 　 ,,,,,,　ヽ　ヽ　
　　　　　　　　 　　　　|　　|　　"　　,,,,,,,,,　.:: 　　 ;''“”`　 | 　| 　* 　「フッ　use strict 使わないとライブドアとか入れない。」
　　　+ 　　　 　　　　　|　 |:　　　;::''“”“~`　::::. 　　 　　　 |.　i 　　　　　　　.
　　　　　 　　 　　　 　|　 i:: 　　　　　　　　 :::::　 i　　　　 |　,;|　　　　+
　　　　　　　 　 　　　　|　　ヽ.　　　　　　　　::::::: , _〉　　 　.|　,|　.
　　　　　 　+　 　 　　 |　 　ﾉ::　　　　　　　　　　　　　　　 |　|, 　　　　　.
　　　　　 　　　 　 　 　 |　　人::::..　　 　　 　 ___,,,,,,,,...:;-'　　|　 |　　+
..　* 　　　　　 　 　　　 |;:'"　`､ヽ　　　　　 '"''=.:;;:;ノ゛　　/　 |　　　　　　　　+
　　　　　　　　 　 　　　　　　|　ヽ:: ＼　 　 　　　::::::　　 ./　　|　　　　　　　.
　　　　　　　　 　　　　　　　 ::;|::.　 `ヽ､_　　　　　　 /'|ヽ./"
　　　　+ 　　 　　,/. 　　::::::::::::;;:::人:. 　　　 `'''----―''　.|:　ヽ　　　　*
　　　　　　　　　/;:;:;:;;:;;;;;;;;;;;;／　　　`ｰ､　　　　　　　　 　;-'"　 ＼ー-､
　　.　　　　　　 　　,.-'"　　＼ 　　　　　 ＼　　　　　　;:-''"　　　 .| 　　`-:;;,,

朝鮮人の部下に成りたいとは思わんね

　　　　　　　　　　+　　　　　　　　　　　　　　　　　　　　　　　　　　　.
　　* 　　　　　　　　　　 　　　+
　　　　　　.　　　　　 　　　　　 　　
　　　　　　　　　　　　　　　　/　_,,,...　 ヽ;:　　／""ヽ　　　 ヽ 　　　　　　　　.
　　　+ 　　　　 　　　　　　|　;'"　　"＼ l　/;:;;:::-'''"ヽ,　　　i 　　　*
　　　　　　.　　　　　　　 | /::::::::-'''''"~　　　　　　　 ヽ, 　 .|,
　　.　　　　 　　　 　　　|　 |;:" 　　　　　 　　　　　　　 ヽ　　 !　　.　　　　　　+
　　　　　　　 　 　　　　| /　　　　　　　　　　　　　　　 |　　|
　　　　　　* 　 　　　 | 人　　　　　　　　　　　,,,,;;::''''' i,　　| 　　　　.
　　　　　　　　 　　　　|　　';　　,,,,;;::::::::::;;;　　　.: 　 ,,,,,,　ヽ　ヽ　
　　　　　　　　 　　　　|　　|　　"　　,,,,,,,,,　.:: 　　 ;''“”`　 | 　| 　* 　「フッ　use strict 使わないとライブドアとか入れない。」
　　　+ 　　　 　　　　　|　 |:　　　;::''“”“~`　::::. 　　 　　　 |.　i 　　　　　　　.
　　　　　 　　 　　　 　 | i:: 　　　　　　　　 :::::　 i　　　　 |　,;|　　　　+
　　　　　　　 　 　　　　|　　ヽ.　　　　　　　　::::::: , _〉　　 　.|　,|　.
　　　　　 　+　 　 　　 |　ﾉ::　　　　　　　　　　　　　　　 |　|, 　　　　　.
　　　　　 　　　 　 　 　 |　　人::::..　　 　　 　 ___,,,,,,,,...:;-'　　|　 |　　+
..　* 　　　　　 　 　　　 |;:'"　`､ヽ　　　　　 '"''=.:;;:;ノ゛　　/　 |　　　　　　　　+
　　　　　　　　 　 　　　　　　|　ヽ:: ＼　 　 　　　::::::　　 ./　　|　　　　　　　.
　　　　　　　　 　　　　　　　 ::;|::.　 `ヽ､_　　　　　　 /'|ヽ./"
　　　　+ 　　 　　,/. 　　::::::::::::;;:::人:. 　　　 `'''----―''　.|:　ヽ　　　　*
　　　　　　　　　/;:;:;:;;:;;;;;;;;;;;;／　　　`ｰ､　　　　　　　　 　;-'"　 ＼ー-､
　　.　　　　　　 　　,.-'"　　＼ 　　　　　 ＼　　　　　　;:-''"　　　 .| 　　`-:;;,,

>>325
君はミスドでアルバイトしてなさい！！！！！！

Perlの事なら何でも聞きたまえ

ミスターイケベ（上司）に毎日コードが雑など怒鳴られてます
CTOの座を狙っています

この前はホリエと一緒に中２病発症して　バイクのって総合格闘技見てきました
３０代デビューです

口癖は　「〜とか」　です

ネットなのにマジレスしちゃうクセがあります

コネを作りすぎて

むやみに変な発言いえません

マジレスしちゃいます

http://twitter.com/nipotan
光の速さでフォロー仕返すよ！！！

webでよく使われるspacer.gifをperlで判断することは可能でしょうか？
画像の処理をしていてspacer.gifなファイルは除外したいので。

ファイル内容が少なすぎるとかでチェックすれば
馬鹿だろ？脳味噌たりてる？
ファイルのサイズとかとかとかとかとかとかとかとかとかとかとかとかとかとか

80byte 未満の GIF
ファイルを開いてみて 1x1 のサイズ

は処理の対象外
何をどう迷うのか分からない

>>333
ということで、問題はperlではなくgifのフォーマットにシフトした。
gifのスレに行くといいよ。

>>336
ほったらかしかよｗｗ
いくらなんでも、画像の種類を判定するようなモジュールはCPANにあるだろｗ

そんな機械的な作業よか難しいのは、文脈的にみてその画像がスペーサーかどうか判定することじゃね？
ひねくれた人間はjpgやpngでスペーサーつくるかも知れないし。
画像の種類と名まえと大きさとサイズだけ見てスペーサーと判定できりゃいいけどな

image::infoとかコマンドつかえばいいじゃん

>>337
＞にみてその画像がスペーサーかどうか判定
その判定基準はすでに提示されているからいいんじゃね？

判定をもれる件についてはあとでも対処すればいいわけだし
そこは本質では無いと思う

エロ画像の収集なんだろうから、
10x10ピクセル以下の画像を捨てれば済む話。

　　　〜∞
　　　　　　　　　　彡川川川三三三ﾐ〜
　　　　　　ﾌﾟｰﾝ 　川｜川＼　　／｜〜
　　　　　　　　　　‖｜‖　・　　・｜〜
　　　　　　　　　　川川‖　　　　3　　ヽ〜　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　　川川　　　∴）〆（∴）〜 ＜　　Perl難しくて挫折したんだよね
　　　　　　　　　　川川　　　　　　〜　/〜　｜　　宮川君にまかせちゃったんだ　ﾌﾞﾋｯ！
　　　　　　　　　 川川‖　　　　〜　/‖〜 　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　　　　　　　川川川川　 　(⌒)川‖〜 ｳﾞｨｼｯ！
　　　　　　　 ／/::::::::|-､ ,-/::::::ﾉ ~.ﾚ-r┐
　　　　　　 /　/:::::::::::|　　/:::::ノ__　|　.|　ﾄ､
　　　　　　 | /:::::::::::::::|　〈￣ 　　｀-Lλ_ﾚ′

perl ベスト　プラクティスの280、２８１ページでわからないことがあります。
以下のコードに対する注釈で
「この正規表現は、monkeyとマッチするが、その場合にマッチするはずの変則的な複数形はmoneyである」
となっている理由がわかりません。
どこが原因で、moneyがマッチしてしまうのでしょうか？

#変則的な複数形のテーブル
my %irregular_plural_of = (
'child' => 'children',
'brother' => 'brethren',
'money' => 'monies',
'mongoose' => 'mongooses',
'ox' => 'oxen',
'cow' => 'kine',
'soliloquy' => 'solioquies',
'prima donna' => 'prime donne',
'octopus' => 'octopodes',
'tooth' => 'teeth',
'toothfish' => 'toothfish',
);

次に続きます

#変則的な複数形のパターンマッチ
my $has_irregular_plural = qr{
child | brother | mongoose
| ox | cow | monkey
| soliloquy | prima donnna | octopus
| tooth(?:fish)?
}xms;

#複数形の組み立て
while (my $word = <>) {
chomp $word;
if ($word =~ m/\A ($has_irregular_plural) \z/xms) {
print $iregular_plural_of{$word}, "\n";
}
else{
print form_regular_plural_of{$word}, "\n";
}
}

日本語の訳が変なだけじゃねーの（英文読んでないけど）。
「マッチパターンとテーブルを別々に用意したら（コピペしたら）、
タイポが紛れ込むから止めときな」
って例でmoney(monkey=typo)を使ってるだけ。

当たり前だがmoneyは、その例での
m{\A ($has_irregular_plural) \z}xms
にはマッチしない。

>>342
＞「この正規表現は、monkeyとマッチするが、その場合にマッチするはずの変則的な複数形はmoneyである」
これは「このコードを書いた人間がマッチすることを期待しているのはmoneyであるはずだが、実際にはミスタイプによりmonkeyがマッチしてしまう」ってことじゃないの？
同じ単語をハッシュを作るときと正規表現パターンを作る時とで2回ずつ書くのは無駄だし、
たとえばmoneyと書くべきところを片方だけmonkeyと書いてしまうような間違いをする確率を増やしてしまうので、こういう書き方はやめましょう、って話だと思うんだが。

コピペじゃねえ。各自別々にタイプしたら、だな。

なるほど、納得しました。
ありがとうございました。

1x1 かどうかの判断は Image::Size でできる。

PHPで作成されたメールフォームでなんら問題なく使用しています。（mb_send_mail）

今度、Perlでのメールフォームを作成してみたのですが、メールが送信できません。
sendmail のパスは　/usr/lib/sendmail で間違ってはいないのですが、
PHPのmail関数（mb_send_mail）と、同じ処理をしたのです。
何かチェックするところはありますか？

PHPのmail関数って便利ですが..

>>349
さぼんな平地

？？

>>349
どこでどんなエラーが出てるかチェックするといいよ。
この件に限らず、エラーチェックは必ずする癖をつけるといい。

/usr/lib/sendmail は、確かにあるのですが、
usr/sbin/sendmail の方にもありましたので、そちらにしましたら動作しました。
アクセス権の問題のようです。
お騒がせしました　ペコm(_ _;m)三(m;_ _)mペコ

Perlで、すでにprintした文字列を消すにはどうしたらいいですか？

>>354
バックスペースを出力します。

改行する前にその行を消したいなら ￥ｒ
出力した画面全体を消したいなら・・・system('cls') とかｗ

Curses.pm

バックスペースとかいみわかんないんだけどwwwwwwwww

白痴は黙ってろよ

>>355-357
`clear`でうまくいきました
ありがとうございます。
ところで改行は\bでは消えないんでしょうか・・・？

>>360
なんの改行さしてんの？　意味分からないよw
だったら改行いれなければいいじゃんw

$tmp = 0;
for($i=0;$i<=10;$i++){
printf("%g %d\n", $tmp, $tmp*10);
$tmp+=0.1;
}

これを実行すると
0　 0
0.1 1
0.2 2
0.3 3
0.4 4
0.5 5
0.6 6
0.7 7
0.8 7
0.9 9
1　 9
となってしまうのですが、なぜ0.8の10倍が7になってしまうのでしょうか？

環境はThis is perl, v5.10.1 built for MSWin32-x64-multi-threadです

>>362
ttp://blog.goo.ne.jp/_hal/e/5ad229ee154e16208368e05c3df837c2

$" = "|";
my @pattern = ("color", "red");
my $str1 = "background color red";
my $str2 = "color hoge";

if ($str =~ /@pattern/){
print "$str\n";
}

$str2 だけに、マッチさせたいんだけど、
patternの前方一致をマッチ

my @pattern = ("^color", "^red");
こうしたり、
/^@pattern/
こしたけど駄目だった。
どうすりゃいいの？

ん、あげ。

foreach my $tmp_pattern (@pattern){
　　if($str2 =~ /^$tmp_pattern/){
　　　　〜処理〜
　　　　last; # ← 処理を続けたいならコメントアウト
　　}
}


grep とかで書き直せると思うけど、今は無理せず分かりやすく書くことを心がけたほうがいいと思う。

$str =~ /join("|",@pattern)/e

sub is_prefix_match { $_[0] =~ /^\Q$_\E/ && return 1 for @_[1..$#_]; 0 }

for my $str ($str1, $str2) {
　　if (is_prefix_match($str, @pattern)) {
　　　　print "$str\n";
　　

みなさんありがとう御座います。

>>369
こんなのを、さらっと書ける人になりたい。
\Qなんて使ったことないし・・・。
動作は思いどおりなんだけど、自分で読めないんで、
制御に追加があると困るので、勉強して理解出来てからにします。

>>368
エラーでした。


>>367
そうですね。
感覚的に「この処理って正規表現だと簡潔にかけるんじゃねーの」
みたいな感じだったので・・・。ご指摘の様に自分にとって適当かなと
思いました。

条件次第ではスマートマッチで済む話だけど、あまりお勧めはしない。

my @pattern = (qr/^foo/, qr/bar/, qr/baz\z/);
my @str = qw(quuxfoo bquaurx qubarux bazquux quuxbaz);
$_ ~~ @pattern && print "$_\n" for @str;

Perlらしくなら。
foreach my $str ($str1, $str2){
grep !index($str, $_), @pattern and print "$str\n";
}

自分で使うならこっち。
foreach my $str ($str1, $str2){
foreach my $ptn (@pattern){
index($str, $ptn) and next;
print "$str\n";
last;
}
}

Perlでの多次元配列とは、配列のリファレンスの配列なのでしょうか？
Perlでの多次元連想配列とはハッシュのリファレンスのハッシュなのでしょうか？
Perlでのオブジェクトとはblessで名前が付けられたハッシュのリファレンスなのでしょうか？

Yes
Yes
ハッシュ以外のリファレンスでもよい

http://d.hatena.ne.jp/treeboa/
ここのMagical YuYu 1.0を動かしたいのですが動きません。
Cantなんとかって出てきます
どうしたら動きますか?

まずCantなんとかをちゃんとコピペするところからだな。

はじめのエラーは
Can't locate IO/All/LWP.pm in @INC (@INC contains: 長いので省略) at tomoya/yuyu.pl line 6.
BEGIN failed--compilation aborted at tomoya/yuyu.pl line 6.
CPANでインストールしたら動きました。
ですが今度は
Unmatched right curly bracket at tomoya/yuyu.pl line 383, at end of line
syntax error at tomoya/yuyu.pl line 383, near "}"
Execution of tomoya/yuyu.pl aborted due to compilation errors.
と出てきてしまいました

>>377
よくわからんけど俺がそこから拾ってきてperl -wcした限りでは
構文エラーは出なかったので、コピペをミスったんじゃねーの?

LWPが入ってなかったり？

ImageMagicが生成する/tmp/magick-XXxxxって巨大なファイルは何者？
ImageMagicは後片付けしてくれないの？

ワーク用とかじゃなくて？

異常終了してたり、終了処理をちゃんとしてなかったり

>>346
ありがとうございます。二進数の小数では0.8をきっぱりと書くことができないのが原因なんですね。
printf("%d", 0.8*10);で7が出力されるのはどうも納得できないというかなんとかならなかったのかと思いますが。。

0.1を、プログラム上では整数の1として扱えば良いと思うよ。
小数として必要なときにだけ、10で割る。

浮動小数点が弱い頃のゲーム機で使われてた手法やね

計算前に値を１０００倍
色々計算
結果を割る１０００
これで欲しい値が


もちろんそんな単純じゃないとは思うけどｗ

g単価: 123.456円
使用量/個: 7.89g/個
個数: 1234個
月別原価係数: 1.001
（中略）
原価: 銭単位まで出す

原価 = 123.456 * 7.89 * 1234 * 1.001 * 中略 / 100

大昔にこんなのを全部整数化して最後にまとめて割る方式で組んでたら
整数乗算時点でオーバーフローした思い出

とあるプログラム（perl)に、下記のような記述がありました。
print "<a href=\"$link?mode=all&number=$FORM{'number'}\">表示</a>";

$FORM{'number'}の内容をそのまま表示してますが、問題ないものなのでしょうか？

中身をちゃんと確認して、不正な値のチェックをしてから使ってるなら大丈夫


ただ、その一文だけじゃなにも分からないよｗ

HTML::Elementで、タグをエスケープしたテキストコンテンツを入れようと、
$h->push_content("＆ｌｔ；"); #実際は半角です。
とすると、内部では「＆ａｍｐ；ｌｔ；」ってエスケープ処理されてしまうのですが、
エスケープ処理させないようには出来ないでしょうか？

期待通りの動きのように見えるけど・・？

もし　"&lt;" じゃなく、"<" を入れたいのなら、
　$h->push_content("<");
とすればいいのでは？
push_content()がそういう仕様なんだから・・・

>>389
<を入れたら&lt;が入ることね？

>>390
そう。

Perlもうダメだろ・・・
プログラミング教えてくれっていう甥にはsed,awkやらせてる

それをここで言う必要はあるのかな

CSVから一度<IN>に読み込み、それを$data=<IN>にしてchompして行ごとの抽出をしてるのですが
この$dataに格納されている行ごとのデータをランダムにするにはどうしたら良いですか？

>>392
sedの正規表現はうんこなので、sed使うときはむしろperl使ってるわ

>>394
１．CSVを配列に入れる
２．配列の添え字でランダム性を確保する

slurpもあるよ！

>>396
直接スカラー変数に入れて改行コード別に区切るよりも、配列変数として扱ったほうが良いって事ですね？
ちょっと試してみます。

テストしてないけど

open(IN, '<', 'test.txt');

my $pos = int(rand(-s IN));
seek(IN, $pos, 0);
my $dataline;
while (defined ($char = getc(IN)){
　　seek(IN, -1, 1); # getc で進んだファイル位置を戻す

　　if(tell(IN) = 0 || $char =~ /\x0D|\x0A/){
　　　　$dataline = <IN>;
　　　　last;
　　}

　　seek(IN, -1, 1); # ファイル位置をマイナス方向へ進ませる
}

close(IN);

１行が数千文字に達する場合はものすごく遅くなるかも。

>>397
そんなに行ないならこんなんどう？

@data = <IN>;
chomp @data;

my $i = @data;
while($i--){
my $j = int(rand($i + 1));
@data[$i, $j] = @data[$j, $i];
}

WWW::Mechanizeを使ってブラウジングしてます。
一度終了しても次にブラウジングするときは前回の続きから行いたいです。
ブラウジングを終了するときにWWW::Mechanizeの情報を保存し、
ブラウジングを開始するときにWWW::Mechanizeの情報を読み込むことはできないでしょうか？

->content で得た内容をファイルに保存して、
次回の閲覧時はそのファイルを表示するところから始めればいい

Mech の機能にはなく、自分で実装する必要あり。
ただそこまで難しくは無いかと思う。

>>398-399
ありがとうございます。
両方を参考にしてみましたが、>>399の方法が一番簡単っぽかったです。
あくまで配列としてロードしたあと、乱数を発生させて成功しました。
1行はせいぜい半角500文字程度なので、速度もとりあえず問題なさそうです。

SSIで実際動かしてるのですが、今度は複数のSSIがあるページで
今回作った物をhtml上、一番最後に置かないと実行出来ないというトラブルに遭遇しました。
こちらはスレ違いなので、試行錯誤して調整してみます…。

アドレスそのものからリファレンスを得ることはできたりしませんか？しないだろうなー

$hash_addr = sprintf {access => 'success'};
# この $hash_addr から success という文字列を得ることができるでしょうか

そういうことができるかどーかは知らんけど、
これだと無名ハッシュリファレンスのREFCNTが0になって即消滅しちゃうんじゃないの？

>>404
ガベージコレクタが動くタイミングはまちまちってどっかで聞いたから即は消えないと思う
あと、リファレンスカウンタを増やすことはできるはずだからその問題は解決可能かと

別にこれが出来たからどうこうってわけじゃないけど、
なんでもできるPerlならこんなこともできるのかなーと気になっただけでした

>>401
実装してみました。
しかしワンタイムトークンを使っている場合に問題がありました。
具体的にはヤフオクの取引ナビです。
メッセージのURIにcrumb=xxxxxというワンタイムトークンが指定されて、
このメッセージのURIにアクセスするとcrumb=xxxxxが違うようで400BadRequestが返って来てしまいます。
そこでcookieもファイルに保存するようにしましたが、結果は同じでした。
cookie以外でも情報を保持しているものってありますか？

>>406
なんかのパラメタが足りないのかもしれないしなんともいえないね。
一度終了しなければ続きのアクセスができるのなら、できるときと
だめなときで通信内容を比べてみるとかそういうところから追い
かけてみたら?

ヤフオクの取引ナビはメッセージを表示 URL は、メッセージ一覧から行かないとだめかも
というのは、普通にブラウザで見てても、どんなタイミングかわからないけど
履歴から直接メッセージの表示しようとしたらはじかれる事が多々あるので。

たぶん Yahoo のシステムがどんな動きするのかを調べた方が早いかもです。

>>407-408
レスありがとうございます。
解決しました。恥ずかしいことに「次回からIDの入力を省略」のチェックを入れずにログイン処理していました。
チェックを入れてログイン処理したところ、ブラウジングを途中で終わらせてもちゃんと続きから開始してメッセージを見れました。
お騒がせしました。

文字列を1文字単位で配列にするにはどうやればいいんですか
$str = "hogefuga";
@ar = split(//,$str);
これではうまくいきませぬ

セミコロンが抜けてただけで、うまくいってました。失礼しました

ActivePerlからSQLserver2005に接続したいのですが、おススメサイトを紹介してください。

Linux/SolarisのPerlからOracleに接続するのはわかるのだけど、Windowsはよくわかりません。

と思ってたら、、、、見つけました。

ttp://tuka.s12.xrea.com/index.xcg?p=Perl#p15

Rubyから来ました。Perlのオブジェクト指向を勉強中です。

Mooseというのがありますが、これからPerlでクラスを書く場合
こちらで書くべきなのでしょうか？個人的に型を指定できるのがキモいので
あんまり使いたくないのです。

>>414
別に分かってやるなら好きにすればいいんじゃねーの?

>>415
さすがPerlですね。でも主流がどっちなのか気になります。。。

CatalystやPerl6を見る限りではMooseが主流に「なっていく」だろうけど好きにすればいいと思う。

activeperlでtkの代わりにtkxが付いてたので、
tkを入れたいけど、何かのセキュリティでppmが使えない@職場
家でダウンロードしておいて、USBメモリでインストール用の何かを持ちこめる?

>>418
システム管理者にかけあうのが一番早い

逆に言うと、ネットに繋がってない環境でモジュールを入れるのは無理ということか
意外な落とし穴だな

程度が同じだと頭悪い話でも違和感なく完結してしまうのだな

日本語でおｋ

ppmのリポジトリにローカルドライブを指定する方法がネットのどっかで解説されてる。

>>420
はい？できますよ？

不可能ではないにしても、裏ワザ的な方法で、
メニューから辿っていって誰でもできるようなものではない

前はZip版を自由に落とせたけど、今はビジネスエディションのIDとパスワードを
要求されるようになってる。ローカルにリポジトリ立てるしか無いかも。

裏ワザｗ

面倒そうだな
tkxに慣れるか

perl/tkのcanvasで、クリッピング(描画される領域の制限)を行うにはどうしたらいいのですか？

パスワードノ暗号化、解読のプログラムで、
下記の　＄１って何が入っているのでしょうか？　
$crptkey = ３になる条件が理解できないので困ってます。

----------------
#
# パスワード暗号化
#
sub cry_ {
$time = time;
($p1, $p2) = unpack("C2", $time);
$wk = $time / (60*60*24*7) + $p1 + $p2 - 8;
@saltset = ('a'..'z','A'..'Z','0'..'9','.','/');
$nsalt = $saltset[$wk % 64] . $saltset[$time % 64];
$epasswd = crypt($FORM{'delkey'}, $nsalt);
}
#
# パスワード解読
#
sub cryma_ {
if ($de =~ /^\$1\$/) { $crptkey = 3; } 　#<---- $1　って何？？
else { $crptkey = 0; }
$ok = "n";
if (crypt($FORM{'delkey'}, substr($de,$crptkey,2)) eq $de) {
$ok = "y";
}
}

一部だけ見せられてもわかるわけない
どうみたってグローバル変数多用してるし

この骨董品級のコードに対する突っ込みはさておいて、
$1に何が入ってるとか関係なくて$deの先頭に「$1$」という文字が入ってるかどうかをチェックしてるだけじゃないの

$deが$1$で始まる文字列なら3

最初はグローバル変数か？と思ったのですが、その気配は無かったです。

＄１などは正規表現でマッチした変数で混乱しました。

単純に「$deが$1$で始まる文字列なら３」　で納得しました。ありがとうございます

http://www.linux.or.jp/JM/html/LDP_man-pages/man3/crypt.3.html
> もし salt の文字列が "$id$" で始まっていて、"$" で終わっている文字列が続いている場合:
> 　　$id$salt$encrypted
> DES を使う代わりに、 id で使用する暗号化手法を識別し、これがパスワード文字列の
> 残りの部分を解釈する方法を決定する。

らしいですよ

ヒント：エスケープ

>>430
２ｃｈ互換掲示板の一番最初につまづいているようですねえ。
0chを選ばない理由はなんでしょうか？

あとついでにいうと、>>431は無能

>>438
myやlocalを知らない人ですか？

ここ最近、自分さえ良ければ OK 的なスクリプトばかり書いてたら
sub すら作ってないことに気がついたｗ

このままだと 関数？ なにそれ 状態になる

リファレンス渡すことに慣れたからlocalとかどうでもいい

>>439
この質問に答えるのに局所化云々は不要だろ。

> 一部だけ見せられてもわかるわけない
該当する一行だけで余裕で分かりますが。

あと、ついでにいうと、>>438は余計

>>437 plus

(+Φ　Φ)…†　Sheet!!

PerlでJPEG画像のExifを全て削除したいのですが、どうすればできますか？

>>445
Image::ExifToolというのが定番みたい。
スレ違いだけど時期的にα55でも買った？

Image::ExifTool - search.cpan.org
http://search.cpan.org/~exiftool/Image-ExifTool-8.25/lib/Image/ExifTool.pod
Image::ExifToolでGPS情報を除去する | ちょめちょめ通信
http://ch0me2.blogspot.com/2010/08/imageexiftoolgps.html

Exifデータを全部削除するならImage::MagickのStripでも出来たと思う。

PerlでImacrosというマクロを使いたくて下のサンプルを組んでみたが
Win32::OLE->new('imacros')のところで、dieのエラーに引っかかってしまう
普通に動かすには何か環境設定が必要なんですかね？
http://wiki.imacros.net/Perl

あ、ちなみにImacrosのアドオン（firefox）はインストール済みで
単体での動作も確認済みです

Webプラミングが今回始めてです

WWW::Mechanizeを使ってブラウジングしてます。
xxx->click();したときにどんな風にPOSTデータを送っているのか調べたいです
FireFoxのPOSTデータもどんなデータを送っているのか調べて比較したいです
どんな方法が正確に簡単に比較できますかね？ツールとか使うことになるんでしょうか
よろしくお願いします

Win32::OLEがインストールされていないじゃねーの
インスタンスが生成されていないってことだろ

>>450
パケットキャプチャすればいいのではないかしら

ffならLive HTTP headers

LiveHTTPHeadersってPOSTの中身見れたっけ？HttpFoxなら確実に大丈夫だけど。
Mechのほうはソース読め。

Content-Type: multipart/form-dataも含めて見れた、バイナリデータは表示されなかったけど

requestを直接とれるようにmechを弄ればよさそう？

>>451
Win32::OLEは当然インストールされてます

>>450
ざっくりやるならProxomitronでいいんじゃないの。
単純なのだったら、ローカルにHTTPサーバ立ててキャプチャしてみるとか。

>>457
ならインスタンスが生成されない理由を探れよ

>>459
探れないのでここで聞いてまする

そりゃそうだ

どうもありがとうございます
LiveHTTPHeadersを使ってみてみます
問題はWWW::Mechanizeのほうですね
ソース読むっきゃないんですかね・・・これは大変そうだ・・

あるサイトでWWW::Mechanizeのほうを規制されてしまったんですよね
ffでやる分には普通に出来るけどWWW::Mechanizeで動かしたいので
何でWWW::Mechanizeを使っていると判断しているのかを調べたかったので
それともHTTP_USER_AGENTあたりで微妙な違いで判断してるのかな・・

はぁ、最近、回答を無視されることが多くてつらいわ。
しばらく2chやめるかね。

ああ、Windowsじゃなかったら、すまんな。

パケットキャプチャでいいのになぜパケットキャプチャをしないのか

すみません。ProxomitronとかローカルにHTTPサーバ立ててとかだと
さらにそこでの質問が増えそうだったので。
たまたま入っていたLiveHTTPHeadersの手軽さを選択しました

パケットキャプチャがいまいち分かりません
Perlだけでなくその辺の知識も初心者なので・・・
調べてきます

ヤッパリだめかー
超難しい
挫折しそう

$word = Win32::OLE->new('Word.Application') or die "Win32:OLE\n";

の1行でテストしてみた。こっちはdieには引っかからないようだ
'imacros'っていうのがやはりおかしいのかな。ダメだわからねぇ

冗長モードってどういう意味ですかね

Perlに関係のある質問？

>>472
http://perldoc.jp/docs/modules/Win32-GuiTest-1.3/GuiTest.pod
ここ読んで意味がわからなかったもので

どう見てもスレチですねはい。

perlってめちゃくちゃ難しいな

Perlはそうでもないけどperlならそうかもしれない。

意味わからん

>>477
これはひどい

>>476
日本語でおｋ

パールはそうでもないけどパールならそうかもしれない。

これの意味が分からない人もいるのかｗ。

>>479
http://perldoc.perl.org/perlfaq1.html#What%27s-the-difference-between-%22perl%22-and-%22Perl%22?
http://perldoc.jp/docs/perl/5.10.1/perlfaq1.pod

>480は意味が分からなくて良いんだよな？

いや、わかるひとはいないでしょ

WWW::Mechanizeで$mech->click()などでクリックは可能だけど
キーバインドを送ることは不可能かな？どこ見てもそういったことはやっていないみたいだけど

>>482
日本語でおｋ

perlxstut, perlxs, h2xs, perlguts, perlapi
の違いはなんですか？

>>487
h2xs は perl の付属ツールでその他はドキュメント。
それぞれのドキュメントは説明されている内容が違う。

perlXStut - Tutorial for writing XSUBs
http://perldoc.perl.org/perlxstut.html
http://perldoc.jp/docs/perl/5.10.0/perlxstut.pod
> このチュートリアルは読者にPerlのエクステンションを作るのに必要なステップを教えるものです。

perlxs - XS language reference manual
http://perldoc.perl.org/perlxs.html
http://perldoc.jp/docs/perl/5.10.0/perlxs.pod

h2xs - convert .h C header files to Perl extensions
http://perldoc.perl.org/h2xs.html

perlguts - Introduction to the Perl API
http://perldoc.perl.org/perlguts.html
http://perldoc.jp/docs/perl/5.10.0/perlguts.pod
> このドキュメントでは Perl API の使い方、および Perl コアの基本的な動作に関する
> いくばくかの情報を提供しようとしています。

perlapi - autogenerated documentation for the perl public API
http://perldoc.perl.org/perlapi.html
http://perldoc.jp/docs/perl/5.10.0/perlapi.pod
> このファイルは embed.pl で生成された perl の公式な API のドキュメントです;
> 特にエクステンションの作者が使うかもしれない関数、マクロ、フラグ、変数の一覧です。

>>479
"perlだけがPerlを解釈することができる"
でググるといいよ

nipotan応援歌

書けよー！書けよー！書け書けよー！　書けよ書けよーモジュール！

お前が書かなきゃ誰が書く！！かっとばせー！nipotan!ゴーゴーレッツゴーnipotan！燃えろ燃えろ！

光　輝く！大空高く！　燃える男のチャンスに強いnipotan!

あなたの目標は何ですか！？宮川超える事そうですか！
宮川以上のスーパースーパースーパースーパースーパーコーティング（ ｲｪｲｪｲｪｲ！！

Perlにて2chなどに書き込むIP、自分のグローバルIPアドレスを取得する方法で
一番スマートなのはどういったコードを書けばいいのかな

>>491
nslookupやらを公開しているサイトにアクセスして
結果から盗むってのが手っ取り早いかな

Perlにて現在起動中のfirefoxのヘッダー情報を取得することって可能ですかね
可能ならどう取得すればいいのか教えてもらえればありがたいです

>>493
%ENVをぐるぐる回れば見れるよ！

と思ったけどヘッダーかぁ
リクエストヘッダーはサーバに食われちゃうから
成功法じゃあ見る方法ってないんじゃね？

>>491
UPnPを使うのが一番スマートじゃないか

>>493
FirefoxにはLive http headerというアドオンがあったはずだけれど、これでいいかな？

ログファイルやエラーログファイルへの出力でお勧めのパッケージってありますか

ない

>>497
Syslogつかえ

>>492
ありがとう。やっぱりその方法が手軽かな

>>495
UPｎPですか。調べてみます
ありがとう

>>497
IO::Fileモジュール

>>494
>>496
どうもです。うーむ難しそうですね
もっと調べてみます

pythonのnumpyに相当する数値計算、行列計算パッケージはperlにはありますか

>>499　>>502
どうもありがとう
自分で作るっきゃないんすね
レベル指定で色々出力したりしようと思ったけど

>>505
だあらSys::Syslogつかえっつってんだろひとのｈなしきいてんのかぉよ

>>464,506
涙ふけよ

>>505
使ったこと無いけど、 log4perl

>>506
ありがと。
SyslogじゃなくてSys::Syslogかあ。
Syslogで必死にぐぐってみたけど変なのしか出てこなくて
再度ぐぐってみる

>>508
ありがと。ぐぐってみる

窓環境でSys::Syslogって意味あるの

>>497
Log::Handler使ってる

use strict;
my %hash;
$hash{'234'}=["山田太郎\n", "ほげほげ\nあいうえお\n"];
$hash{'236'}=["鈴木花子\n", "ふがふが\nかきくけこ\n"];
print @{$hash{'234'}};
print @{$hash{'235'}};
print @{$hash{'236'}};

このコードを実行すると　print @{$hash{'235'}}; の所で Can't use an undefined value as an ARRAY reference とエラーが出て終了する。
先頭のマークを変えて%{$hash{'235'}}や${$hash{'235'}}としても同様のメッセージが出る。
しかしprint ${$hash{'235'}}[0}; や ${$hash{'235'}}{'hoge'}とすると何もエラーがでず何も出力されず、次の処理に移る。
なぜこの場合はエラーが出ないのでしょうか？

>>512
print しようとしてるものが undef だから。
use warnings すればおしらせが出る。

>>513
未定義なのは@{$hash{'235'}} も ${$hash{'235'}}[0} も同じですよね？
それなのに片方ではエラーが出て、片方では出ないのは何故なのかと思いました。

Perlを勉強中なのですが、
$math += $_ * ($count--%2?3:1) foreach( @strArray);
これの読み方がよくわかりません。

解説していただけませんか？

肝はここかな。
＞$count--%2?3:1
3項演算子を使っている。
この場合、$countを2で割った余りが1なら3を返す。あまりが0なら1を返す。
$count--とあるので、処理が終わった後$countは1減る。

foreach(@strArray) {
    if($count%2==1){
        $math += $_*3;
    } else {
        $math += $_*1;
    }
    $count--;
}

>>511
ありがとう

いろいろ調べてみた

Sys::SyslogはWin環境だと微妙だと判断
log4perlは便利だけど日本語資料が乏しく結構覚えるのが大変そう
Log::Handlerは結構シンプルだね

今のところlog4perlで難しかったらLog::Handlerでいこうかな

>>516
ありがとうございます。
http://masaya.w32.jp/?p=248
これを見てるのですが、なぜ$countが12なのかもわかりません。

>>514
undef自体をデリファレンスしようとすれば当然エラーになるが
リファレンス階層では存在しない値は自動生成されるのでエラーにならない

とかだった気がする

>>518
わざわざそのページの作者さんがwikiのURL張ってくれてんじゃん
13桁だからチェックデジットの計算が12回

log4perlは日本語対応してないのかな
Webから取得したのを丸ごと出力しておきたいんだけど
日本語が入っているから文字化けしてる

wikiってゆうな。クズ。

>>519
レスありがとうございます。
＞undef自体をデリファレンスしようとすれば当然エラーになるが
納得できます

＞リファレンス階層では存在しない値は自動生成されるのでエラーにならない
リファレンス階層とはどういう事でしょうか？
${$hash{'235'}}[0]は@{$hash{'235'}}という配列の要素でそれはundefをデリファレンスした配列なのに、、

|　　print ${$hash{'235'}}[0];しても　エラーでないのは
|　　なんでだろ〜♪
＼＿＿＿＿　 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　　　　　 V　　　　 |
　　　　　　　 　 　　 　 |　　なんでだろ〜♪
　　　　　　　　　　　　　＼＿＿＿＿＿　 ＿＿＿＿＿
　　　　　　　　　　　　　　　　　　　　　　V
　　　　　　　_,ヾゝｰ'"'"'"ｰ､,;　　　　,.:-‐―‐-.､_
　　　　　　,ﾗ　　　､_　　　　ヽ,､　／　　　　　　　＼
　　　　　 ｲ　 r-'ｰﾞ　"ー‐､,　 ﾐ/　　　　　　　　　　ヽ
　　　　　 i!　 ,!　　　　　　　i! ミi　　　,ﾊ　　　　　　　 i
　　　　　 ,j　i /ニ=､　 ,r==､i ,,ﾊ ,ﾉヽi! ﾞ'ﾚ＞ヾ-､　,!r'
　　　　　 i V　<(･)>i　i!(･)>ﾞ!,i　 !!ｲ(･)） <.(･)>ﾞ　i /!i
　　　　　 ﾞ!ji!　　　., j .i_　　 /j 　 i　　｡ ｡,　 　 　 ﾄ-'
　　　　　　,ｨi:.　 ;" ｰ-‐' 　 ﾄ'　　 .! 　 ,.=､ 　 　 /￣￣ﾞｰ-､＿
　　　　__ノ !ﾊ　 　 : 0 ;　 ,/　_,.-‐''＼ ﾞ＝''　 ,／
　　／　　　＼＼　 ￣ ,／／　　　　　ﾞｰ-‐‐"
／　　　　　　 ＼.ﾞー-ｲ ,/

log4perlでWindowsのコマンドプロンプトで標準出力させると日本語のutf8が文字化けします
mainのほうでは、binmode STDIN, ":encoding(cp932)"; で標準出力をs-sjisにして出力しているので
自分で出力する分には文字化けしないんだけど、log4perlのモジュールを介して出力させると
binmode が効いてないっぽい。何か方法はないですかね。文字コード変換は面倒だからbinmodeで
なんとかならないですかね

作ったサブルーチンは undef を返すんだけど、

my $result = testfun($data);

みたいに undef を変数に入れても問題無いですよね？

普通に使ってきたけど、「そういや undef って未定義だよな・・・」 って思ったら正しいやり方なのか不安になってきた。

未定義値の認識を誤ってなければ大丈夫です。

>>512
http://perldoc.perl.org/perlref.html#Using-References の 3.
http://perldoc.jp/docs/perl/5.10.0/perlref.pod
http://perldoc.perl.org/perldsc.html
http://perldoc.jp/docs/perl/5.10.0/perldsc.pod

-> (矢印演算子)の左辺にはリファレンス(かパッケージ名)が期待されていて、
左辺が「未定義」かつ「代入可能な何か」なら、右辺と辻褄のあうリファレンスが
自動生成・代入される仕組みになっている。

${$hash{'235'}}[0] は $hash{'235'}->[0] と等価で、上記の仕様に従いまず
$hash{'235'} = []; が暗黙の内に行われる。然る後 $hash{'235'}->[0]、即ち
undef が print される。よってこの文の後、$hash{'235'} には空の配列
リファレンスが代入された状態になっている。

翻って print @{$hash{'235'}}; における @{$hash{'235'}} は print という「リストを
受け取る単項演算子」のオペランドであって上記機能の対象とならず、既に
配列リファレンスであるという前提の元にデリファレンスされるのでエラーとなる。

>>528
おお、なるほど、分かりやすい。

｜ $array[$x]->{"foo"}->[0] = "January";
｜これが、先の左辺値コンテキストで用いるとリファレンスが存在するようになるというケースの一つです。
｜この文以前には、$array[$x] は未定義かもしれません。その場合自動的にハッシュリファレンスと定義
｜されて、{"foo"} が検索できるようになります。同じように $array[$x]->{"foo"} が配列リファレンスで定義
｜されるので、 [0] をそこで探すことができます。このプロセスは 自動有効化 (autovivification) と呼ばれます。

こういう明文化された仕様があったんですね。
(ほげほげ)->[0]の場合、自動でリファレンスを作ってくれると。
丁寧なレスありがとうございました。

ｻﾌﾞﾙｰﾁﾝ内で下記のように処理3を行うかどうかを
第三引数で渡したか渡してないかで判断して処理しようと思うんだけど
こんな方法でも特に問題になることはないですかね？ちょっと不安で

&abc('test1','test2');
&abc('test1','test2','test3');

sub abc{
my ($test1, $test2, $test3) = @_;

if(defined($test1)) {
処理１
}
if(defined($test2)) {
　処理２
}
if(defined($test3)) {
　処理３
}

abc(1,2,undef);
scalar @_ == 2 ? 処理2 : 処理3

>>530
サブルーチンを呼び出す側で第三引数を渡したつもりでも
undefな変数を渡していたら処理されないような。

>>531　>>532
531のように引数の数でチェックしたほうがよさそうですね
思わぬバグになるところでした。聞いて良かったありがとう

それと

&abc('test1','test2');

よりも、

abc(1,2,undef);

のように明示的にundefしたほうがよさそうですね
単純に忘れたのか明示的に外したのかが上だと分からないし
勉強になりましたありがとう

すいません。>>534は、勘違いでした。
undefでも引数の数は3になるのか・・
やっぱり

&abc('test1','test2');

scalar @_ == 2 ? 処理2 : 処理3

のようなチェックのほうがいいか

>>281
Low 2058 (Q9650+2GB+Ge9600GT)
夏仕様(VGAクロック半減)で Low1020

下記のようなC言語の関数へのポインタ配列処理はPerlでも可能ですかね？
Perlだとどう書くとスマートなのかな。解説しているサイトでもいいので
もし知っていたらスマートな書き方を教えてください。よろしくお願いします



int main(int argc, char** argv)
{
int (*pfunc[2])() = {plus, minus};
printf ("3 + 5 = %d\n", (*pfunc[0])(3, 5));
printf ("3 - 5 = %d\n", (*pfunc[1])(3, 5));
return(0);
}


int plus(unsigned int a, unsigned int b)
{
return((int)(a + b));
}

int minus(unsigned int a, unsigned int b)
{
return((int)(a - b));
}

@func = (plus, minus);
print $func[0](1,2);
print $func[1](1,2);

sub plus {
($a, $b) = @_;
return $a+$b;
}
sub minus {
($a, $b) = @_;
return $a-$b;
}

>>538
Perlのほうが、やっぱり記述が短いですね
参考になりました。
ありがとうございました。

>>538
()付けろよ

>>538を試しに実行してみたらエラーが出た・・

Bareword "plus" not allowed while "strict subs" in use at f.pl line 10.
Bareword "minus" not allowed while "strict subs" in use at f.pl line 10.
Execution of f.pl aborted due to compilation errors.

どこに()をつければいいんだろう

付けるのは \& だろ

>>542
ありがとう

my @func = (\&plus, \&minus);
print $func[0](1,2);
print $func[1](1,2);

sub plus {
($a, $b) = @_;
return $a+$b;
}
sub minus {
($a, $b) = @_;
return $a-$b;
}

実行結果
3-1

で、うまく動きました。間に-が入るのが気になるけど

あ、いいんだ
-1だからか。これでうまく行きましたね

みなさんどうもありがとう

my $level = 'AT';

if($level == 'EAT') {
　　　　print "ok\n";
}


上のところ。なぜかif文が通ってしまいます
なぜですかね。書き方が間違っているのでしょうか

545です

自己レスです。
文字列は==ではなくeqみたいですね
Active　perl, v5.10.1　を使ってます
原因がわかるまで凄い苦労した・・・

スレ汚し失礼しました

知っててもたまにはまる

比較するつもりで代入してて常にtrueだったりもする。

つ use warnings;

>>525
Appenderはどれ使ってるの? ScrernとFileならutf8オプションあるだろ。

Fileならさらにbinmode指定するオプションで凝ったこともできる。

>>550
ありがとうございます
Scrernです。コマンドプロンプロトがShift_JIS なのでShift_JIS で出力せたいです
utf8オプションなんてあるんですか？ファイルのほうは別にutf8でいいです
何かしらエディッタなら対応してますから。メモ帳でも
ただコマンドプロンプロトの変わりはそうはないのでつらいですね。
諦めて画面にはPRINT文で出すことにしました

>>551
ScreenならSTDOUTかSTDERRをbinmodeで設定しておきゃいいんじゃないの?
utf8オプションも結局それやってるだけだし。

>>552
binmode STDIN, ":encoding(cp932)";

っていうのを呼び元のところで設定しているけどうまくいかない・・・

標準出力はこっちかな
binmode STDOUT, ":encoding(cp932)";

自分でPRINTする分には出るんだけどね

use strict;
って、パッケージ宣言ごとに書かないとだめですか。
今、ひとつのファイルに複数のパッケージを書いているのですが、
ファイルの先頭で use strict; すれば、そのファイル全体で有効だと
思いこんでいたのですが、なんか違うような気がしてきました。

>>555
そうです。基本的なことですから押さえておきましょう。

ニヨニヨ。

ActivePerlをインストールしたら、よりモダンなOOPが出来る Moose なるパッケージを見つけました。
ドキュメントや入門ページを見るとナルホドなかなか良いなとも思ったのですが、
Perlで仕事をしている方々の評判はどんな感じなんでしょうか。
自分一人ならいいけど他のPGが読めなくなるから使わないとか、、
それとも今時のPerl使いはこれくらいは知っていて当然なのでしょうか？

Image::Magickでnewしたときにファイルを読み込むことはできないでしょうか？

my $image2 = new Image::Magick;
$image2->Read("foo.gif");
$image1->Composite(image => $image2, compose => 'Over');

を

$image1->Composite(image => Image::Magick->new()->Read("foo.gif"), compose => 'Over');

のようにしたいのです。

無理なものは無理だ

http://perl.no-tubo.net/category/paypal/
↑
これのやり方がわかりません
そもそもコードはどうやって表示させるのでしょうか?
初心者すぎですが、どなたか教えて下さい<m(__)m>

::　の意味もわからないです

>>559
Readの戻り値がImage::Magickオブジェクトじゃないからしょうがないね。
お望みの動作をするMyReadでも勝手に定義すれば?

>>561
::の意味もわからない奴に教えるのは大変すぎるので
頑張ってperlの勉強してください。

>>555
use strictの有効範囲はレキシカルスコープだからファイルの最後まで
効くんじゃねーの? use varsと混同してない?

use strict;

package Package1;
use vars '$x';
our $y;
$x = 1;
$y = 2;

package Package2;
$x = 3; # これはエラーになる
$y = 4;

>>556,564
どっちが正しいんでしょうか。

自分で試したところ、

use strict;
package Package1;
my $x = 1;

package Package2;
print $x, "¥n";
print $y, "¥n"; # use stric ありならエラー

となったので、564氏が正しいように思いますが、どうなんでしょうか。

http://d.hatena.ne.jp/minesouta/20080227/p1
これ便利そうじゃね？使っている人いる？

>>565
実験してみた

Perlにて
1000件ぐらいのデータから1件だけをマッチさせて抜き出す処理を考えています

データ的には
日本語20,30文字と数字3桁の２つ
日本語で検索を賭けて抜き出します

こういった処理に適しているお勧めのパッケージってありますかね
CSVファイルにしてText::CSV::Simpleあたりのモジュールで読み込んでやろうかなとも考えているのですが

>>565
失礼
use strict;
{ package Test1;
sub test(){
$x = 1;
print "no strict\n";
}
}

Test::test();
> Global symbol "$x" requires explicit package name at test1.pl line 9.
Execution of test1.pl aborted due to compilation errors.

ついでに同一パッケージで効くかどうか調べてみた
{ package Test;
use strict;
}

{ package Test;
sub test(){
$x = 1;
print "no strict\n";
}
}

Test::test();
> no strict

>>568
強いて言うなら DBI::SQLite とか？

そんくらいならモジュール使わんでも適当に書けるんじゃね？

>>570
どうもありがとう。DBI::SQLiteだとDB関連ですかね。
このデータは随時追加したり頻繁に変更したりしたいのでCSVにして
エクセルにて色々弄ろうかとも考えているんですよね
DBはちょっと自分には敷居が高いなあー

やっぱりモジュール使わんでも適当に書いたほうがいいですかね

>>571
多分リレーショナルな部分は使わんだろうけど、いい機会だと思ってSQL勉強しときなさい
一度覚えたら他の言語に移っても使えるからな

ちなみに厳密に言うとCSVファイルもDBだぞ

>>568
Tokyo CabinetかKyoto Cabinetで

rubyではObjectクラスにto_s()というメソッドがあって、文字列への変換が
必要な時には自動的に呼ばれます。
たとえば
class Hello
　def to_s
　　return "hello"
　end
end
obj = Hello.new()
print obj #=> obj.to_s() メソッドが自動的に呼ばれる

これと同じような機能は、Perlにあるでしょうか。
package Hello;
があって、
my $obj = Hello->new();
my $s = 'value=' . $obj;
としたときに、$obj->to_s() とか何かが自動的に呼ばれるようにしたいです。

>>572
ありがとう。もうちょっと調べてみる

>>573
ありがとう。ぐぐってみます。

>>574

use strict;
package Hello;
use overload q{""} => \&to_s, fallback => 1;

sub new { bless {}, shift }
sub to_s { "hello" }

package main;
my $obj = Hello->new();
my $s = 'value=' . $obj;
print "$s\n";

%result = ( "urls" => \@urls, … );
$ref_result = \%result;
$ref_resultから@urlsを取り出す方法を教えてください

@{$ref_result->{urls}}

my @tmp = split(/,/, $s);
my $a = ¥@tmp;
これを一発でかくにはどうしたらいいの？おしえてえらいひと

my $aref = [split(/,/, $s)];

$a と $b は sort が（ｒｙ

Perlで、GCを自分で起動・停止することはできますか。
参照カウント方式で起動もくそもないように思いますが、
もしあればおしえてください。
なお「Perl GC」でググってみましたが、それらしいのは
みつかりませんでした。

>>581
この辺で分からなければ無いんじゃない。
http://perldoc.perl.org/perl.html#Internals-and-C-Language-Interface
http://search.cpan.org/modlist/Development_Support
http://search.cpan.org/search?m=all&q=Devel&n=100

perl本体のハック目的でもない限り、そんな事気にしながらじゃLL使う意味無いしな。

>>580
ありがとう

use strict; を書くと、変数宣言していない変数を指摘してくれますが、
これと同じことを行ってくれるパーサはありますでしょうか。
use strict; だとスクリプトを実行しないといけないので、それだと
副作用があって危険なので、実行せずに構文解析だけでできるのが希望です。

perl -cwT

ｱｸﾃｨﾌﾞ perl, v5.10.1で
SJISファイルをそのまま読み込んだ場合で
内部のUTF8とマッチング処理をするときは
どっちをどうやってコード変換すれば一番いいんですかね？

自分は読み込んだ方をコーディングしてるファイルの文字コードに変換してる

>>585
さんくす
できれば外部コマンドとして起動するのではなく、ライブラリとして使いたいです。
無理でしょうか。

WEB上にあがってるPerlのことについて書かれている日本語のサイトって
Perl 5.8ばっかりだね。ふるいのばかり。今5.8使っている人いるのかな
細々とはいるだろうけど

perl5.10.0 で追加された機能をつかわないのであれば、perl5.8.x を使いつづけてもなんら問題がないし、99.9%のライブラリはperl5.8系をサポートしているから積極的に移行する必要はない。

Jcode-2.07のインストールについて教えてください。

Shift_JISからJISに変換する際、Encodeでは未定義文字が正しく変換されないので
Jcode-0.88を使用していたのですが、今度2.07にバージョンアップすることになりました。

これまでのアルゴリズムを利用するには、同梱されているJcode::_Classicを使えばよい
ということまでは分ったのですが、いざJcode-2.07をインストールしてみても
肝心のJcode::_Classicや、内部で使用するJcode::H2Zがインストールされません。

正確にいうと、Jcode-2.07.tar.gzを展開したJcodeディレクトリには入っているのですが、
make installまで行ってもlibディレクトリにコピーされず、
perl -MJcode::_Classic -e '' で Can't locate エラーになってしまいます。

Jcode/*.pmはどうやってインストールしたらよいのでしょうか？
もし手動でコピーするしかないのだとしたら、コピー先はJcode.pm本体と同じ
libディレクトリでよいでしょうか？

以上、よろしくお願い致します。

>>588
使用状況がいまいち想定できないんだけど、どういう使い方したいの？
Perlでどう解釈されてるか見たいという要望にはB::Deparseオススメしとく

>>590
ありがと。そうなんだ

wgetでhtmlのURLを指定するともちろん取得できます。
ところが、cgiを使ったURLを取得すると、cgiが作成したhtmlは取得できません。

方法としては
wget -E　と Eオプションをつけることで解決するのでしょうか？(これを試しても取得できませんでしたが)

cgiが作成したhtmlをクロールするにはどうすればいいのでしょうか？

perl無関係

誰もperlに関係あるなんていってませんが？

？
　？
　　？

CGI についての質問は板違いです。WEB プログラミング板でどうぞ。
CGI と Perl の区別がつかない人も WEB プログラミング板に行ってください。
(WEB プログラミング板: http://pc11.2ch.net/php/)

このスレでは(CGI 以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。

"The duct tape of the Internet" こと、Perl についての質問箱です。
"There's more than one way to do it" ということで、
Perl の奥深さについて皆で語り合い、追求してまいりましょう。

http://www.perl.org/get.html
● 2010/07/31 現在の最新版: 5.12.0

▼ 前スレ
Perlについての質問箱 43箱目
http://pc12.2ch.net/test/read.cgi/tech/1266565626/
リンク集は >>2-3
Perl 日本語処理の基礎の基礎 >>4
過去スレは >>5-7 あたり

>>587
ありがとう

perlのsedモードをperlスクリプトの中から使いたいときは
どうしたらいい？

ファイルをオープンしてテキスト書いてクローズする
ってのを1行でかっこよく書きたいんだけどどうしたらいい？
open( my $fh,"hoge" ) and print $fh ・・・
とか書くのめんどうくさい

File::Slurp::write_file

>>591
Encode で正しく変換されないというよりも
shiftjis と cp932 をごっちゃに思ってた
なんてオチだったりして？

Encode::Guess はデータの文字コードの判断に失敗した時は
デフォルト値で誤魔化さずオブジェクトの代わりにスカラーで候補を返すから
何が何でも変換したいなら
判断に失敗した場合の決め打ちを自分で書けば良いのでは？

>>600
system("echo $bakatext > bakafile");

あっごめん >>601 だった

>>600
sedモードというのが何を指して言っているのか分からないが、
cmd.exe のような環境で走らせている場合も含め、
shebang に付けられたオプションを perl 自身が解釈してくれる。

http://perldoc.perl.org/perlrun.html
http://perldoc.jp/docs/perl/5.10.0/perlrun.pod

> シェルから以下のように起動すると:
>
>　　$ perl -p -i.orig -e "s/foo/bar/; ... "
>
> プログラムで以下のようにするのと同じで:
>
>　　#!/usr/bin/perl -pi.orig
>　　s/foo/bar/;

外部ファイルからバイナリでそのまま何もせずに読んだ場合（パッケージなので仕方なく）
内部コードとのキーとマッチング処理を行うときに
Encode::_utf8_onとしないと外部ファイルからのデータはutf8として比較してくれないのですかね？
Perl5.10で、use utf8;指定しています。（binmode STDIN, ":encoding(cp932)";も）

>>607ちなみに外部ファイルは日本語でutf8で
内部も日本語でutf8で比較しています

>>603
>shiftjis と cp932 をごっちゃに思ってたなんてオチだったりして？
違います。
EncodeはいちいちUnicodeを経由して変換を行いますが、
恐らくマッピング上の問題で、Shift_JISの未定義領域をJISの未定義領域へ
正しく変換できないのです。
そのため、コード位置を計算で求める従来のアルゴリズムが必要なのです。

>判断に失敗した場合の決め打ちを自分で書けば良いのでは？
Jcodeにこだわっているのは、上記のアルゴリズムで実装されたJcode-0.88に
強く依存したコードがあちこちに存在するためです。
Jcode::_Classicが使えるなら、use部分＋αの細工だけで済みますので。

>>607>>608
は解決しました。取り下げます。
どうもスレ汚し失礼しました。

>>604
やっぱそれしかないん？
インジェクションがおっかないからやなんだよなそれ

systemにはリストで渡せよ

perlで最大公約数を計算するプログラムを組みたいのですが、さっぱりわかりません
2つの引数からサブルーチンを返すプログラムを作成しそれを使うそうなのですが教えていただけないでしょうか

>>613
わざわざ作らなくてもMath::BigIntを使えば?

そんなモジュールあるんだ
613じゃないけど

>>614
練習を兼ねて使ってはいけないみたいです・・・

2つの引数からサブルーチンを返すってどういうことだろう
何も考えずにかいたのがこんなん
sub gcd{
my ($a,$b)=@_;
if($a==0){$b}elsif($a<=$b){gcd($a,$b-$a)}else{gcd($b,$a-$b)};
}
こんなのを指すんかな？
sub gcd2{
my ($a,$b)=@_;
sub aux{
my ($c,$d)=@_;
if($c<=0){$d}else{aux($d-$c,$c);}
}
if($a>=$b){aux($b,$a);}else{aux($a,$b);}
}
速度を求めるなら再帰は使わない方がいいけど
perl久しぶりにさわったから、色々変かもしれない
return書いてないけど文法的に大丈夫か自信ないｗ

2数の最大公約数を計算する方法がわかってないのか、
わかってるけどPerlでそれを実現する方法がわからないのか。
……前者だったら救いようがないぞ

>>617
すいません・・・
2つの整数を引数として最大公約数を返すサブルーチンの作成しそれを使うプログラムでした

宿題は自分でやれ

sub gcd{
　my ($foo,$baa)=@_;
　return $baa　?　gcd($baa,$foo%$baa)　:　$foo
}
掲示板の都合上全角空白だけど動かすなら半角にしなければエラー吐く

http://sv2ch.baila6.jp/chk_proxy3.cgi
こういうEUC？コートでかかれているサイトをゲットしてきて
ソース内部のUTF8コードで書かれているものでキー検索するときは
どういった感じでコード変換かけてやればいいですかね？

LWP::UserAgent->new->get("http://sv2ch.baila6.jp/chk_proxy3.cgi")->decoded_content(charset => "euc-jp");

>>623
どうもありがとう。時間があるのときにそれで試してみます

ファイルから行を読み込んで、文字列比較をしています。

ファイルの文字列はurlのようにエスケープ文字を含んでいて、
比較対象もエスケープ文字を含んでいます。

完全一致の==で、ifしていますが、上手くいきません。

比較する２つの変数（文字列）を、\マークでエスケープしても
うまく動いていないようなのですか、どうすればいいでしょうか？

ご助言、参考サイトの紹介等お願いします。

eq

書き間違えました、eqです、

でも上手くいってません。

うまくいかない具体例を出してくれないことにはなんとも
ありがちなのはファイルから読み込んだほうの改行落としてないとか

失礼しました、ザックリこんな感じです。

my $f_files="";
my $hikaku_moji="http://www.xxxx.com/index.html";

open( FILE ,"< $filename") ;
while( $f_lines=<FILE>){

＃ファイル文字列側 改行削除
$f_lines =~ s/\r//g;
$f_lines = ~s/\n//g;

#ファイル文字列のエスケープ文字に\マークを付けている。
# 同じパターンで、"や'などもエスケープ
$f_lines =~ s/\//\\\//g ;

#比較側の$hikaku_mojiもここで同じ処理をしている。

if( $f_lines eq $hikaku_moji ){
print "同じです\n";
}else{
print "違います\n";
}
}
close( FILE );


エスケープ対象文字に漏れはありません。
文字列に円マークを入れていくのは変でしょうか？

chomp使えよ……
上手くいかないのはエスケープしてるからだろ

＞文字列に円マークを入れていくのは変でしょうか？
変。

＞#比較側の$hikaku_mojiもここで同じ処理をしている。
これwhileの中でやってたら何回も回すうちに http:\\\\\\\\\\/\\\\\\\\\\/ みたいになるんじゃねーの

そうですか・・　ちょっと見直します。

有難う御座いました。

そもそも比較するだけなのになぜエスケープする必要があるのか。
不必要に複雑にしてるとしか思えない。

完全一致なのだからエスケープする必要は無い

********1**********2***********3*********4********

上記の文字列から数字だけを取り出して1個ずつ配列に格納するには
どうかくのがベストなのでしょうか。お願いします

べ、別にベストじゃないんだからねッ

DB<9> $mojiretsu = "********1**********2***********3*********4********";

DB<10> @hairetsu = grep(/[0-9]/, split(/\*/, $mojiretsu));

>>636
どうもありがとうございます。
なるほどsplitとかを使うのか。
参考になりました。

my @n = '********1**********2***********3*********4********' =~ /[0-9]+/g;

>>638
どうもありがとうございます。
そんな方法初めて知った。勉強になりました

>>638がスマートかと思いまーす

/( )/gでマッチさせて配列に、はスクレイピングしてると頻繁に使う

/( )/gだと$1に1が
$2に2が
っていう感じでマズはいるんだよね

>>612
ほほーう！

特定の日時から5分前、10分前、15分前・・・と時刻を得るにはどうしたらいいでしょうか？

$before_5minute = localtime(time - 300);
$before_10minute = localtime(time - 600);
$before_15minute = localtime(time - 900);

Date::Calc::Add_Delta_DHMS

>>644
perldoc DateTimeで詳しくみてないけど、

use strict;
use warnings;
use DateTime;

my $d = DateTime::Duration->new(minutes => 5);
my $now = DateTime->now(time_zone => 'Asia/Tokyo');

warn $now;
warn $now - $d;
warn $now - (2 * $d);
warn $now - (3 * $d);

こんな感じでいけた

>>647
DateTimeつかうならこれで十分。

use DateTime;
my $now = DateTime->now(time_zone => 'Asia/Tokyo');
print $now->clone->subtract(minutes => $_), "\n" for 5,10,15;

>>648
おぉ。そんな風にいけるのか。ありがとう

こっちみんなYappo

>>648
ありがとうございます。コードがスマートになりました。

Perlってどのバージョン位までサポートすることを考えたほうがいいんですかね？

5.10を動かしてるところもあれば、5.8をつかってるところもあるんですけど。
5.6も考えたほうがいいんですか？

>>652
Encode や今と同仕様の UTF-8 フラグを使えるのが 5.8.1 から。
モジュールの事を考えずに済むのなら、恐らく大半の人は 5.005_03 でも困らない筈。

flockは万能じゃないなど、いくつかの記事を見たので
flockについてしらべてみたのですが、どういう問題があるのかなどわかりませんでした。

どのような問題があるのでしょうか？

記事に書いてあったんじゃないの?

>>654
すみません。
私が読んだ記事には万能でないということしか書いておらず、
理由を探しております。
理由として探せたのはNFS上では使えないというものくらいでした。
(Windows9xで使えないというのもありましたが、最近では関係ないと思っております。

5.007003みたいなバージョンが出てくるんですが、
このバージョンの書き方って、どう読めばいいんですか？

ごーてんぜろぜろななぜろぜろさん？

5.007003＝5.7.3
ぱーるふぁいぶせぶんすりー

>>659
正解

localtimeを取る時に、月とか年のためにいらない変数を一杯使いますが、
日付だけ取ることはできませんか？￥

(undef, undef, undef, undef, $mon, $year) = localtime;

配列の要素を直接指定できることがわかりました
>>662よりみじかくかけました

>>661

perl 初心者がカキコ

my ($day) = (localtime(time))[3];

とかでいいのかな？

あ、遅かったか。

で、もうちょっと考えてみて
もし自分で書くなら DateTime モジュール入れて

use DateTime;
my $tn = DateTime->now( time_zone => 'Asia/Tokyo' );
say $tn->day;

こんな感じにするかもしれない。
# 月とか扱いやすいしね

my $yyyy = (split ' ', localtime)[4];
my $wdy = (split ' ', localtime)[0]; # Wed etc.
my $mon = (localtime =~ /[^ ]+/g)[1]; # Sep etc.
my $hh_mm_ss = (localtime =~ /[^ ]+/g)[3];

それだけの目的ならTime::Pieceのがいいんじゃない？DateTimeよか軽いし。
use Time::Piece;
print localtime->mday; #=> 29

>>664
($day)の括弧はこの場合は余計。

Windowsで名前付きパイプって作れる？
linux なら POSIX::mkfifo で作れたけど、CamelBoxではムリポだった

>>667
Time::Piece は 5.8.x 系までは標準モジュールでなかったので、
「それだけの目的」の為に可搬性を落とす必要はないという考え方もある。

pythonから「やっぱだめだ」と感じてperlに移ってきた俺のような奴はめずらしいのだろうか

俺はRubyを勉強しているけどむずい

RubyもPythonもオブジェクト指向がPerlみたいに気持ち悪くないからとっつきやすいと思うけどな

オブジェクト指向部分は使わないからperlが使いやすい
Pythonはちょろっとさわって、2x系と3系の違いが結構微妙だったので使うのをやめた
もっとこなれたらさわるかもしれない

perlは新しいモジュール覚える気がしない
もう限界と感じるようになった

自分でモジュールを作る方に回るのか

Perlなんて大嫌いだ！ 便利だから使うけどな！
って人も結構多いよね。

日本語処理に困ったら国産ruby

俺はC言語からPerl組みだな
まともにPerlを勉強してないけど
ある程度C言語の知識があると書けるね

>>677
あー。確かにPerlは日本語とWindows環境で苦労してるわ
何度悩んで数日無駄にしたことか

さすがにC言語の知識だけだと短くかけない

C言語はいらないけど、Perlは正規表現も必要だね。sedやviで正規表現は研いていた

Perlは豊富なモジュールが。だけど日本製が少なく
ドキメントも情報も英語が多いのとモジュールだと枝葉にいってしまうので
知っている人が少ない。日本語処理もおかしくなるときがあるので
逆にモジュールを使ってしまって失敗したケースもあるな。

改行コードが
1行目0D
2行目0D
3行目0D 0A
以降. 0D 0A
...
というちょっと困ったサイトがあります。これは特に問題ではなかったのですが、
このサイトをLWPのrequestを使って保存し、エディタで開いたところ
改行の後ろに空行が入る状態になってしまいました。
バイナリを見てみると

1行目0D 0A
2行目0D 0A
3行目0D 0D 0A
以降. 0D 0D 0A
...
となってしまっていました。置換が入っておかしな事になってしまったようでした。
いらぬ置換が入る前に自分で置換すれば良いですが、私としては元のままの状態で保存したいです。
$ua->mirror()を使ったところ改行コードの状態はそのまま保持されたのですが、
取得したデータをスクレイピングするので、mirrorを使うと、データを取得してファイルに保存してそしてそれを開くことになり、
これは如何なものかと思いました。$ua->request()を使った場合でも改行状態をそのまま保存する方法はないでしょうか？


684 ：デフォルトの名無しさん [sage] ：2010/09/30(木) 22:11:12
>>683
データ保存時にopen(FH, ">:raw", "filename.html");


685 ：683 [sage] ：2010/09/30(木) 22:11:20
>>684
おお、>:rawを指定して保存すると0Aが0D 0Aに置換されなくなるんですね。
無事そのままの状態で保存することができました。即レスありがとうございました。

なんかお前大変なことになってないか？

何言ってんだこいつ

便乗（なのか？ｗ）質問
binmode と >:raw はイコール？
とすれば一々binmodeするのやめたいのだが・・・

質問その1
rubyのinclude?に相当する関数または演算子はありますか。
['a', 'b', 'c'].include?('b') #=> true
['a', 'b', 'c'].include?('x') #=> false


質問その2
use Hogehoge; をすると必ず Hogehoge.pm を読みにいくようですが、
Hogehoge.pmを読みにいかないようにできますか。
動機は、ひとつのファイルに複数のパッケージを定義したときに、
そのうちのひとつをuseしようとすると、存在しないファイルを読みにいって
しまうからです。
たとえばHoge.pmの中にHoge::AとHoge::Bというパッケージを定義したとして、
use Hoge; は問題なくできますが、use Hoge::A; を実行すると Hoge/A.pm を
探しにいってエラーとなってしまいます。
%INCを触ればいいのかと思いましたが、そうでもないようで行き詰まりました。
どなたかアドバイスお願いします。

Hogehoge.pmを読ませずにどーやってHoge::A部分を読ませるつもりだ？ばーか
そういう新興宗教言語が欲しければ自分で作りなさい。

>>687
1. !!(grep { $_ eq 'b' } ('a'..'c')

2. use Hoge; Hoge::A->any_method(); # => ok

>>689
ありがとうございます。
>1. !!(grep { $_ eq 'b' } ('a'..'c')

grepだとリストを全件見るんですよね。
そうではなくて、見つかった時点で即座に真を返すような関数はありませんでしょうか。

>
>2. use Hoge; Hoge::A->any_method(); # => ok

これは希望する動作ではないです。
今は Hoge.pm の中に Hoge::A も Hoge::B も定義されているんですが
将来的にファイルを分割した場合でも使い方を変えないですませたいです。
（あるいは逆に現在分割しているパッケージを1ファイルに集約した場合も。）
つまりファイルを分割してようがしてなかろうが、
use Hoge; use Hoge::A; または use Hoge; use Hoge::B;
のように使えたらうれしいんですけど、Perlでは難しいでしょうか。

>>690
作ればおｋ
sub include($@){
my($char, @array) = @_;
foreach(@array){
return 1 if $char eq $_;
}
return 0;
}

新しく空のパッケージを作成しておく
-- Hoge/A.pm --
package Hoge::A;
1;
またはモジュールロード用のパッケージを作成しておき、処理の最初に必ず読み込むようにする

STDINとかでキーボードから入力を受けとるときに、
入力部分にあらかじめ文字列を表示（入力）させておくことはできますか？
はじめから「hoge」と入力されてて、それに続けて入力できるような

Curses

>>690
use List::Util 'first';
if ( defined first { $_ eq 'b' } 'a'..'c' ) { ... }

>>687
use strict;
package Foo;
$INC{'Foo.pm'} = '/fake/path/to/Foo.pm'; print __PACKAGE__, " loaded.\n";
sub qux { "$_[0]::qux\n" }
package Bar::Baz;
$INC{'Bar/Baz.pm'} = '/fake/path/to/Bar/Baz.pm'; print __PACKAGE__, " loaded.\n";
sub qux { "$_[0]::qux\n" }
package Quux;
$INC{'Quux.pm'} = '/fake/path/to/Quux.pm'; print __PACKAGE__, " loaded.\n";
sub qux { "$_[0]::qux\n" }
1;

のような同一の中身で Foo.pm、Bar/Baz.pm、Quux.pm を作れば

#!/usr/bin/perl -w
use strict;
use Quux;
use Bar::Baz;
use Foo;
print Foo->qux, Bar::Baz->qux, Quux->qux, map "$_:[$INC{$_}]\n", sort keys %INC;

のように重複したりバラバラの順序で use してもエラーにならないし、スクリプト
からの見かけ上は use Foo; のみで Foo->qux が使える (実際は Foo.pm 内の
不要なパッケージも全て有効になっている)。ただ当然の帰結として、Quux を
分離したければ Foo.pm と Bar/Baz.pm から Quux を削除しておかないと、
use Foo; use Quux; のような順序で use しているスクリプトは Foo.pm 内の
Quux を使ってしまうといった下らない罠に自らはまる事になる。

>>693
どうやればよいですか

use strict;
use warnings;


print "Input Data (Default: TEST) > TEST\r";
print "Input Data (Default: TEST) > ";
my $input = <STDIN>;
chomp $input;

$input = 'TEST' if !$input;

print $input;


欠点は４文字より少ない入力をするときにデータはちゃんと受け取れるが、
入力中が、例えば 「12ST」 のようになってしまう。

ありがとうございます。その発想はなかったです

その「TEST」の後ろから続けて入力できて、またバックスペースで「TEST」のところまで消したりできるようにしたいんです
「TEST」に続いて「hoge」と入力したら「TESThoge」が受けとれるようにしたいです

>>694
List::Utilという便利パッケージがあるんですね。ありがとうございます。
ただinclude?相当の関数ぐらい標準であってもよさそうなもんですが、以外とそうでもないんですね。

>>695
まさにこれが知りたかった情報でした。ありがとうございます。
自分で%INCをいじってたときにはうまくいかなかったのですが、
このスクリプトはうまく動作することを確認しました。
自分のは何がまずかったのだろうか。

あと、perlではパッケージごとに別ファイルにするのが推奨なのでしょうか。
自分で%INCいじってると、そうとしか思えません。
クラスは細かくわけたいけど、ファイルまでわけるのはちょっと。

別の言語なんだから標準関数が違うのは当たり前

関数呼び出しのとき、カッコは省略したほうがいいのでしょうか。
最近読んだソースがみなカッコを省略する傾向にあったので、
Perlではそういう流儀なのかなと思って質問してみました。
なんかPerl標準のコーディング規約があればおしえてください。

()はつけてもつけなくても構わない
好み

演算子の優先度をちゃんと覚えてるなら省略でいい

>>699
> パッケージごとに別ファイルにするのが推奨なのでしょうか。
ケースバイケース。
ただ指標として、実現手段が異様に複雑だと感じたなら設計を見直すべき。
あとは手元の環境にインストールされている沢山のモジュールをお手本に。

>>701
http://perldoc.perl.org/perlstyle.html
http://perldoc.jp/docs/perl/5.10.0/perlstyle.pod

>>704
>ケースバイケース。
それをいっちゃうと身もふたもないような。
>ただ指標として、実現手段が異様に複雑だと感じたなら設計を見直すべき。
実現手段が複雑というのはどういう意味でしょうか。
今はパッケージごとにファイルを分割するべきかどうかを質問しているのですが、
その話の流れの中で「実現手段の複雑さ」とか「設計を見直す」とか言われても、何を意図しているのかよくわかりません。
>あとは手元の環境にインストールされている沢山のモジュールをお手本に。
いやだから、そのたくさんのモジュールたちはどういう基準でファイルを分割しているのかが知りたいんですが。
>ケースバイケース。
>ただ指標として、実現手段が異様に複雑だと感じたなら設計を見直すべき。
>あとは手元の環境にインストールされている沢山のモジュールをお手本に。

パッケージ名しか知らない人がファイルを探しだす手段をどうするかだな

Perlを覚えようと思うのですが、私のPCはwinXP-SP3の32bit機で、
現在ダウンロード可能な64bit用のソフトを下記サイトのように
転用しようと考えています。

http://builder.japan.zdnet.com/sp/snow-leopard-09/story/0,3800100196,20412692,00.htm

上記サイトで出ているコマンド（下記）
$ defaults write com.apple.versioner.perl Prefer-32-Bit -bool yes

を実行することで解決しようと考えておりますが、
このコマンドを実行するにはどうしたらよいのでしょうか、
ご存じの方ご教示ください。

mac用のこまんどをwinで実行しても無意味

>>698
ReadLine

>>705
> それをいっちゃうと身もふたもないような。
曖昧模糊とした質問にはそう答えるしかないな。万能解は無いさ。
君の作ったパッケージ群がどういった基準で分けられていて、それぞれがどういう関係に
あって、何処からどれを使いたいかを俺は知らないからね。

> どういう基準でファイルを分割しているのかが知りたいんですが。
それぞれの作者が自分のやりたい事を Perl で実装する上で理に適ってると考えた
分け方をしてると思う。茶化してるわけじゃないよ。目的によって最適な手段は変わるから、
手段だけ切り離して必ずこうすべきとは言えないんだ。そして目的と手段を組み合わせた
実例が目の前のモジュールだから、自分のやりたい事と似たケースを探せばいい。
実装レベルでなく設計レベルの話ならその手の専門書でも読んでね。

> 実現手段が複雑というのはどういう意味でしょうか。
Perl は use Foo; で Foo.pm を読む仕組みになっているから、Foo::func() を使いたかったら
Foo.pm に package Foo; を書いて use Foo; するのが Perl 的にシンプル。 >>695 のように
複雑で面倒な事が必要になるのは、「ファイルは1つにまとめたいけど個別に use したい」
という要求に原因がある。パッケージごとにファイルを分けるべきかどうかや >>695 のような
アプローチを採るべきかどうかは、この要求がどのくらい切実かによって変わるんだよ。
まずい設計に引っ張られてまずい実装になっているなら設計を見直すべきだし、
実装レベルの工夫によってトータルで楽ができるならそうしたらいい。

>>705
インターフェースかそうでないかでパッケージ分ければ？

俺はあとあとの変更が面倒だから全部最初から分けてるけど

データを s/\x0D\x0A|\x0D|\x0A/\x0D\x0A/g と置換してからencoding出力しても0D 0Aが0D 0D 0Aになってしまうので調べてみました。


# どれも正常
open(HOGE, ">:raw", encode('CP932', "改行チェック0A.txt"));
print HOGE "あいうえお\x0Aかきくけこ\x0A"; # -> 0A
close HOGE;

open(HOGE, ">:raw", encode('CP932', "改行チェック0D.txt"));
print HOGE "あいうえお\x0Dかきくけこ\x0D"; # -> 0D
close HOGE;

open(HOGE, ">:raw", encode('CP932', "改行チェック0D0A.txt"));
print HOGE "あいうえお\x0D\x0Aかきくけこ\x0D\x0A"; # -> 0D 0A
close HOGE;


# 1,2番目は正常なファイル 3番目は異常なファイル
open(HOGE, ">:encoding(cp932)", encode('CP932', "改行チェック0A.txt"));
print HOGE "あいうえお\x0Aかきくけこ\x0A"; # -> 0D 0A
close HOGE;

open(HOGE, ">:encoding(cp932)", encode('CP932', "改行チェック0D.txt"));
print HOGE "あいうえお\x0Dかきくけこ\x0D"; # -> 0D
close HOGE;

open(HOGE, ">:encoding(cp932)", encode('CP932', "改行チェック0D0A.txt"));
print HOGE "あいうえお\x0D\x0Aかきくけこ\x0D\x0A"; # -> 0D 0D 0A
close HOGE;


>:encoding()を使って出力した場合、単純に0Aが0D 0Aに置換されていました。perl内部において改行コードは0Aで統一されているという事のようですね。 s/\x0D\x0A|\x0D/\x0A/g とすることにしました。

\r\n でいいじゃないか

テキストモードで\x0aに統一されるのは、
Ｃのライブラリに依存してる気もするけど、
実際どうなんだろ。

>>709
どうやればよいですか

UTF-8の改行コードLFでコード書けば日本語の問題も起きないし楽
未だにECUやSJISで書いてる奴ってなんなの？

基本的にはUTF8だけどたまにShift_JISで書かざるを得ない時もある

open(HOGE, ">:raw:encoding(cp932)", encode('CP932', "改行チェック0D0A.txt")) or die $!;
print HOGE "あいうえお\x0D\x0Aかきくけこ\x0D\x0A"; # -> 0D 0D 0A
close HOGE;

>>716
EUC-JP にしとけば大丈夫！　って思ってた時期がありました
今も EUC-JP なのはその名残
新しく書き起こすのは UTF-8 にしてるけど、以前に作ったやつは今も稼動中なので、
そのサイト内で作る場合は EUC-JP なんだよね


改行コードは OS は \r\n なのでそれにあわしてる

改行コードはテキストモードの\nを使えばOSに合うようになってるし、
HTTPのようにCRLFに固定させたいなら、バイナリモードで扱えばいい。

スクリプト自体は基本的にEUCだな
出力のエンコーディングや改行コードは状況に合わせる

eucで書いてeucに変換して作業すれば基本的に何でもできる
世の中にはsjisとeucだけあればいい

CP932を無視できるとは剛の者だな。仕事してんの？

JIS 系は無視とは書いてないけどｗ

CP51932も忘れないであげてください。

何をもって「JIS系」と称してるのか知らないが、shift-jis はJIS『日本工業規格』でも無ければJISC『日本工業標準調査会』規格でも無い。
MicroSoftが勝手にでっちあげた文字コードを、日本ＩＢＭやらＮＥＣやらの当時の乞食どもがさらにいじくり回して分けワカメ状態にして、その上さらに本家ＭＳが泥沼状態に輪を掛けた、私企業謹製カオス文字コードだ。

ちなみに昔のNECのPC-9801シリーズでは、小細工すれば別々の漢字の左半分と右半分を合成して１文字枠に表示できたし、１つの漢字の文字面を左右逆転する事もできた。
今なら何も不思議では無いかもしれないが、当時はＲＯＭに搭載されている固定フォントしか表示出来なかった時代だ。
shift-jisの「shift」とは、元々はこの意味（半角単位でイメージ登録しているROMフォントの表示位置をずらす）だ。

JIS X 0208の符号化方式とJIS X 0213の符号化方式(Shift_JIS-2004)、
MS-KanjiとCP932
この二つは分けて考えるべきだと思うんだ。
出所がMS-DOSだったとしても。

ttp://www.amazon.co.jp/dp/477414164X/
ちょうどこれを読み終わったところ
面白かったし為になった
eucにしとけば大丈夫とか思ってる奴は読んどけ

つ デファクトスタンダード

SJIS
JIS
CP932

携帯からこう書くのが面倒だったので省いただけｗ
誰も工業規格とか言ってましぇんよぅ

出力がShift_JISだと、ついスクリプトもShift_JISで書いてしまうことが。
悪い癖だ。

>>728
なんか良さそうだね。
俺も読んでみるわ。

最近のWebサイトは大体文字コードがUTF-8だから
スクリプトもUTF-8で書いて処理、出力もUTF-8
CGIはeucなんて書いてるサイトもあるが、昔の話だと個人的には思ってる。

まだまだsjisのサイトとか残ってるから、絶対にUTF-8とは言えんが。

自分のPC内で処理させるだけなら、自分の好きな文字コード使えばいいだろ。
仕事でPerl使ってると、また別の話。

use strict;
use utf8;
use Encode;
use Encode::JP::H2Z;

my $str_z = "Hello Ｗｏｒｌｄ.全角カタカナデス。 12345　６７８９０";
my $str_h = "Hello Ｗｏｒｌｄ.全角ｶﾀｶﾅﾃﾞｽ｡ 12345　６７８９０";

binmode STDIN, ":encoding(cp932)";
binmode STDOUT, ":encoding(cp932)";
binmode STDERR, ":encoding(cp932)";

# 全角カナ→半角カナ
Encode::_utf8_off($str_z);
Encode::from_to($str_z, "utf-8", "euc-jp");
Encode::JP::H2Z::z2h(\$str_z);
Encode::from_to($str_z, "euc-jp", "utf-8");
Encode::_utf8_on($str_z);
print $str_z, "\n"; # => Hello Ｗｏｒｌｄ.全角ｶﾀｶﾅﾃﾞｽ｡ 12345　６７８９０

# 半角カナ→全角カナ
Encode::_utf8_off($str_h);
Encode::from_to($str_h, "utf-8", "euc-jp");
Encode::JP::H2Z::h2z(\$str_h);
Encode::from_to($str_h, "euc-jp", "utf-8");
Encode::_utf8_on($str_h);
print $str_h, "\n"; # => Hello Ｗｏｒｌｄ.全角カタカナデス。 12345　６７８９０


めんどくせぇぇぇぇ・・・

use strict;
use Lingua::JA::Regular::Unicode;
use utf8;
binmode STDOUT, ":encoding(cp932)";
my $str_z = "Hello Ｗｏｒｌｄ.全角カタカナデス。 12345　６７８９０";
my $str_h = "Hello Ｗｏｒｌｄ.全角ｶﾀｶﾅﾃﾞｽ｡ 12345　６７８９０";
print katakana_z2h($str_z), "\n";
print katakana_h2z($str_h), "\n";

>>734はアホってこと？

>>734
ttp://d.hatena.ne.jp/dayflower/20060530/1148951624

コードもDBも出力もutf-8の場合use utf8のありがたみがあまり感じられない

Lingua::JA::Regular::Unicodeってのはデフォでは入ってないんだね。初めて外部のモノ入れてみた。
http://search.cpan.org/~tokuhirom/Lingua-JA-Regular-Unicode-0.04/lib/Lingua/JA/Regular/Unicode.pm
からLingua-JA-Regular-Unicode-0.04.tar.gzをダウソして、解凍して、Makefile.plを動かしてみると
｜サポートされていない16ビットアプリケーション
｜64ビットバージョンでの Windows での非互換性のため、プログラムまたは機能
｜である"\??\C:\Perl64\bin\Nmake15.exe"を開始または実行できません。ソ
でインスコ失敗。
http://www.fxfrog.com/?p=194　ここ見て64bit版のnmakeを入れてから上の手順をやってみると、
it looks like goodのようなメッセージが出たので成功したように見えた。しかし実際にスクリプト内で
use Lingua::略をしてみると見つからないとのエラーが出た。インスコはうまくいってなかった。
今度はcpan Lingua::JA::Regular::Unicodeとしてみるとダラ〜っと色んな表示が出て勝手に色々
やってくれてうまく行った。

ActivePerlならppmでも入るよ。

ppmも試してみたのですが、Lingua::JA::Regular::Unicodeはヒットしませんでした。
と思って今もう一度試してみたら登録名がLingua-JA-Regular-Unicodeになっていた。

>>734
Encode.pmのeuc縛りとutf8フラグのコンボが見事に炸裂しとるな

@hoge = qw(-1 1 2 3 4 5 6 7 8 9);
@huga = qw(3 6 7 7 7 7 9);
@mixed = arrayMix(\@main, \@sub);
print @mixed;

sub arrayMix(){
    my @ary1 = (sort {$b<=>$a} @{$_[0]}); #(1)
    my @ary2 = (sort {$b<=>$a} @{$_[1]});
    my @q = ();
    my $x = shift @ary1;
    my $y = shift @ary2;
    while(1){
        if($x>=$y){
            push(@q,$x);
            $x = shift @ary1;
            next if $x ne "";
            push(@q,@ary2);
            last;
        }else{
            push(@q,$y);
            $y = shift @ary2;
            next if $y ne "";
            push(@q,@ary1);
            last;
        }
    }
    return @q;
}

2つの昇順の配列を1つの配列にする関数をあれこれと書きなおしつつやっと完成させた。
ついでに並びがバラバラの配列にも対応させようと、(1)の部分にソート処理を付け加えている時に気づいたんだが、
この関数、my @mixed = (sort {$b<=>$a} (@hoge,@huga)); の一行で・・・

今だに携帯向けサイトの大半はshift-JISらしいな。

出力時だけSJISにエンコードすればいいのにね

>>745
〜とか狂うだろ。iconvは頭悪いからな。

windows環境で標準入力が文字化けしてしまいます。
STDOUTをutf-8にすると何故かうまく表示できるのですが、それ以外が化けてしまいます。
これはどういうことなのでしょうか？

use utf8;
binmode STDIN, ":encoding(cp932)";
binmode STDOUT, ":encoding(cp932)";
binmode STDERR, ":encoding(cp932)";
print @ARGV, "\n";
print "ほげほげ\n";

>test.pl　あいう
"\x{0082}" does not map to cp932 at test.pl line 5.
"\x{00a0}" does not map to cp932 at test.pl line 5.
"\x{0082}" does not map to cp932 at test.pl line 5.
"\x{0082}" does not map to cp932 at test.pl line 5.
"\x{00a4}" does not map to cp932 at test.pl line 5.
\x{0082}\x{00a0}\x{0082}¢\x{0082}\x{00a4}
ほげほげ

STDINを変えても変化なし、しかしSTDOUTを":utf-8"に変えると
>test.pl あいう
あいう
Wide character in print at test.pl line 6.
縺ｻ縺偵⊇縺・

STDINを変えても結果が全く変わらないのはおかしいと思い
引数@ARGVは標準出力じゃないのではないかと思いました。
ぐぐってみるとSTDINと@ARGVは別物で@ARGVの文字コードを指定することは出来ないようでした。
binmode STDINのように簡単に変更することは出来ないんですね。やや面倒くさい。
@ARGV = map{decode('cp932', $_)} @ARGV;としたらうまくいきました。

STDOUTを":utf-8"とするとうまく表示できた理由は、
cp932の引数がutf-8としてエンコードされていたからutf-8としてデコードすると元のcp932に戻る、という過程による物のようでした。

>>748
下の二行は間違い

間違っていますか。そうですよね。
もしcp932の引数がutf-8として無理やりデコードされているなら
mapでは{decode('cp932', encode('utf-8', $_))}としないといけないはずですから。
実際の所そのコードは化けてしまい何故かdecode('cp932', $_)で正常動作したので疑問に思っていました。
(それと>>748ではエンコードとデコードの言葉遣いが逆でした。）

色々と試してみました。
まずrawで出力すると正常に表示されました。
binmode STDOUT, ":raw";
print $ARGV[0],"\n"; # つまり$ARGV[0]はcp932

次にcp932で出力すると化けました。これはcp932をさらにcp932にエンコードしているので当然。
binmode STDOUT, ":encoding(cp932)";
print $ARGV[0],"\n";

次にutf-8で出力すると何故か化けない。これが不思議。
cp932がutf-8として無理やりデコードされているから、utf-8にエンコードして出力するとするとcp932に戻ると思った。
binmode STDOUT, ":utf-8";
print $ARGV[0],"\n";

しかし、不思議なことにこうするとなぜか化ける。
binmode STDOUT, ":raw";
printf "%s\n", decode('utf-8', $ARGV[0]);

もしやと思いこうしてみた。
binmode STDOUT, ":encoding(utf-8)";
print $ARGV[0],"\n";

ビンゴ、同様に化けた。
":utf-8"はutfフラグが立っている場合のみエンコードして、立っていない場合はそのまま出力するんですね。
なぜutf-8の場合だけ":encoding(utf-8)"ではなく":utf-8"と省略して書けるんだろうと思っていましたが、意味が違ったんですね。スッキリしました。

perlもUTF推奨なの？
kakasiとか使ってる古いモジュールがEUC限定だったりはしないの？

>>750
use Encode;

my $str = "\x82\xa0\x82\xa2\x82\xa4"; # (CP932) あいう

binmode STDOUT, ':utf8';
print $str, "\n";
binmode STDOUT, ':encoding(utf-8)';
print $str, "\n";
exit;

結果
ﾂつ�ﾂつ｢ﾂつ､
ﾂつ�ﾂつ｢ﾂつ､

手元では化けるけど、何が違ってるんだろうか。

>>752
集団でなにかを差し出しているようだ

>>752
my $str = "\x82\xa0\x82\xa2\x82\xa4"; # (CP932) あいう
binmode STDOUT, ':utf8';
print $str, "\n";
binmode STDOUT, ':encoding(utf-8)';
print $str, "\n";
だと
｜ﾂつ�ﾂつ｢ﾂつ､
｜ﾂつ�ﾂつ｢ﾂつ､

になるけど
binmode STDOUT, ':utf8';
print $ARGV[0], "\n";
binmode STDOUT, ':encoding(utf-8)';
print $ARGV[0], "\n";
だと
｜あいう
｜ﾂつﾂつ｢ﾂつ､

になった
どういう事だろう

utf に限っては encoding(utf-8) ってやっちゃいけない
ってどこかに書いてあったよ

なので 「なんでだろう？」 じゃなくて 「そうゆうもんなんだ」 って思うようにしてる

質問させてください
IPアドレスが書かれたtxtから100個ずつ読み込み
このエントロピー計算に当てはめ計算結果を出していく
http://ourfilehost.net/up/file1/img/up1922.bmp
以下のプログラムを作ったのですがどうしても上手くいきません・・・
txtには300個のIPが以下のように書かれています
http://ourfilehost.net/up/file1/img/up1923.txt

デバックしてみたところ、問題点は
最初にtxtからIPを100個読み込むif文がうまく行っていないようです
最初のifで1個目から100個目のIPを読み、計算後カウンターを0にして
101〜200まで読み・・・の動作を行うつもりで作ったのですが
どうしても一巡目の100までしか読みません。（プログラムが終了してしまう）

もう一つの問題点は１〜100までの数値で計算結果は1つであるはずなのに
1〜100間の計算でなぜか7個も答えが出てしまう
ここで使用されている計算は100個中に出現するIPを集計して公式に当てはめます
「192〜１」のIPは100個中25個の場合25/100と100個内にある全ての種類を集計します

(25/100、20/100、5/100、18/100、32/100)結果としてはこのような感じです

なので計算結果は300個なら3つしか出ないのですが
計算をする部分でおかしくなっているようです(公式はあっています)

かなり悩んだのですがどうしても答えが出ないので
どうかご教授御願いします

#! c:/perl/bin/perl

open(FILE,"testIP.txt"); #ファイル読み込み
open(out,">>testccc.cvs");
use strict;
use warnings;
use utf8;

my $count;
my $t;
my $key;
my $nu;
my $ref_freq;
my %ref_freq;
my @x;
my @syu;
my $v;
my $b;
my $count = 0; #全体IPカウント
my $numcount =0; #抽出するIP用のカウンター
my $b = 0;

while ($t = <FILE>){ #IPファイル展開
#IP集計
if($t){

++$ref_freq{$t};
$numcount +=0;
print"++$ref_freq{$t} \n\n"; #チェック用
print"$allcount \n\n"; #値チェック用

if($numcount==100){ #IP100個で集計で計算開始
print"100ko syuukei simasita! \n\n"; #チェック用

foreach my $syu (keys %ref_freq) { #IPの種類分ループ
@x[$b] = $ref_freq{$syu};
$count += @x[$b];
my $y=$count;
my $num =0;
my @pi = map $_ / $y, @x;
my $i;

for($i=0;$i<=$#pi;$i++){
print"keisann kaisi desu! \n\n"; #チェック用
print"beha $syu \n\n"; #値チェック用
print"pi-ai @pi \n\n"; #値チェック用
print"ekkusuha @x[$b] \n\n"; #値チェック用
print"bunbo $count \n\n"; #値チェック用
print"@pi\n\n";
$num += -($pi[$i]*log($pi[$i]) / log(2));
}

改行の関係で非常に読みにくいので
plを最後にうｐします

print(out"$num\n");
print "$num \n"; #値チェック用
}
#####値の初期化########
@x=0;
&shu=0;
$ref_freq=0;
%ref_freq=0;
$count=0;
$numcount=0;
}
}

}

ファイルはこちらになります
http://ourfilehost.net/up/file1/upload.php?id=1925
よろしく御願いします

面倒だから全部は読んでないけど、
$numcount +=0;
折角のカウンタ $numcount をカウントアップしてねーじゃん。

このケースなら $. が利用出来るから、
while ($t = <FILE>){
　前処理
　if ( $. % 100 == 0 ){
　　処理
　}
　後処理
}
の方がスマート。

>>760
アドバイスありがとうございます
$numcount +=0; は
うpするときに間違えてました
実際は$numcount +=1;で
実行結果は>>756様になります

$. なんか使っちゃ駄目だ

$b はインクリメントも何もやってないが、 @x[$b] の意味は？
つか、$b は sort が（略

&shu = 0 # って何だよ？ lvalue サブルーチンでも使ってるのか？
つか &shu をどこで使ってんだよ、本当は。
$ref_freq = 0; # って一個も使ってないぞ。
%ref_freq=0; # ハッシュの初期化になってねーよ。%ref_freq = ();

ってこんな風にかたっぱしからチェックしろと言うのか？

>>756
ttp://codepad.org/FjFApjZZ
こんなのどうだ
ソースがあまりにもあんまりだから全面改定

ダウンロードして perl -wc en.pl したところで気が済んだ。

>>763
返信ありがとうございます
ネット上から調べて書いているので
見よう見まねで不透明な部分も非常に多いです

foreach my $syu (keys %ref_freq) { #IPの種類分ループ
@x[$b] = $ref_freq{$syu};
$count += @x[$b];
$bには$syuの値が入ってると思っていましたが
実際にプログラムを書いてる最中に
インクリメントしていないのと気がついたので
削ったのですが、削ると計算結果がおかしくなり
でも途中で入ってる数値をprintで確認しても0のまま・・・
keyでハッシュ(連想配列)の中身を取り出す際に必要な物かと
勝手に想像していました。

>>763
は、
「こんなナメた質問をするんじゃねーよ。答える気にもならんよ。」
って暗に書いたつもりだ。言い訳のレスが欲しいわけじゃない。

俺にレスる時間があれば、>>764氏のソースをきっちり読み込めば？
（当方は未読だから本当に求めるものが出るか知らんが、）

test

>>764
模範解答ありがとうございます
エントロピーの計算は少々違う物でしたが
データ流れは私が求めている物でした
コレを見ながら勉強させていただきます

>>764には一か所ミスがあるよ！
答えはトリップ！
正解者にはperl一年分をプレゼント！！

ruby一年分なら考えたのに

＞ calcEntropy ( $#dummy , %ipf ) ;
ちゃんと読んでないけどこれたぶん 0+@dummy とか書くべきとこだよね
あと$ips[0]が読み飛ばされてたりするけど、
そもそも最初からファイル全部読み込んでおいていいんだったらカウントして100行ごとに云々とかせんでも
my $start = 0;
while (my @ip100ko = grep { defined } @ips[$start..$start+99]) {
処理
$start += 100;
}
で終いだよね

>>772
正解！！
#[$i-1]

例えばIPが352個あるときは100,100,100,52の組にすることを想定

my $ua = LWP::UserAgent->new;
$ua->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; ja; rv:1.9.2.10) Gecko/20100914 Firefox/3.6.10');
$ua->timeout(60);
my $cookie_jar = HTTP::Cookies->new(file => 'cookie.txt', autosave => 1);
$ua->cookie_jar($cookie_jar);

my $mov_req = HTTP::Request->new(GET => $movie_url);

open(MOVFH, '>', $localflvfile);
binmode MOVFH;
my $mov_res = $ua->request($mov_req, ':content_cb' => \&ProgressDownload);
close(MOVFH);


sub ProgressDownload{
my ($chunk, $res, $proto) = @_;
print 'test';
}


LWP のダウンロードの進捗状況を表示してみようと、上記のようにやっているのですがコールバックが呼ばれません。
ダウンロードしようとしてる動画 URL は合っています。 (改造前ではダウンロード出来ています)

なんでコールバック関数が呼ばれないんでしょか・・・

$ua->get($url, ':content_cb' => \&ProgressDownload);


これだと呼ばれるのですが、個人的には request で処理したいのに・・・

すんません。 解決しましたｗ


$ua->request($mov_req, ':content_cb' => \&ProgressDownload);

じゃなくて

$ua->request($mov_req, \&ProgressDownload);

っていうだけだった・・・

perlのミスなんてほんのささいなことさ

WWW::Mechanizeオブジェクトの変数を、ファイル化→別プログラムでファイル読み込み→変数再現、ということをやりたくて
Storableを使ってWWW::Mechanizeオブジェクトのクーロンを作ってみたのですが、$mech_clone->contentでエラーとなってしまいました。
どうしたら動作するように出来るでしょうか？

# cat a.pl
use WWW::Mechanize;
use Storable;

$Storable::Deparse = 1;
$Storable::Eval = 1;

my $mech = WWW::Mechanize->new();
my $serialized = Storable::freeze \$mech;
my $mech_clone = ${ Storable::thaw($serialized) };

$mech_clone->get("http://google.co.jp");
print $mech_clone->content();

# perl a.pl
Error GETing http://google.co.jp: Can't call method "add_cookie_header" on an undefined value at a.pl line 11

分数でコマンドライン引数を受けてそれを数値化するにはどうしたら良い？
$ARGV[1]に　(1+1/2)/2　とかが入る。

$argv1 = $ARGV[1];
if($var > $argv1){
処理；
}

>>779
$argv1 = eval($ARGV[1]);

$ARGV[1] =~ m#^[\d()*+/-]+$# or die "こえーのです。\n";

自分専用ならいきなり eval で済ませそうだけど。

@data =(
    [qw(data1 data2 data3)],
    [qw(hugahuga ほげ apa)],
    [qw(3 のののの jljljkla)],
    [qw(30987029847 ラリーウォール jljljkla)],
);

foreach(@data){
    @tmp = @$_;
    print "$tmp[0]\t$tmp[1]\t$tmp[2]\n";
}

>test.pl
｜data1　 data2　 data3
｜hugahuga　　　　ほげ　　apa
｜3　　　 のののの　　　　jljljkla
｜30987029847　　ラリーウォール　jljljkla

タブで区切ってもずれてしまうことがあるのですが
こういうものをずれないように出力する方法はありませんか？
printf("%s\t%s\t%s\n", map{substr($_,0,6)} @tmp);では
｜data1　　data2　 data3
｜hugahu　ほげ　　apa
｜3　　　 　 のののの　　　　jljljk
｜309870　ラリーウォー　　jljljk

のような感じになってしまいました。

>>782
http://perldoc.jp/docs/perl/5.12.1/perlfunc.pod#item__minimum__width
http://perldoc.jp/docs/perl/5.10.0/perlform.pod

>>783
こんなモノがあったんですね。知りませんでした。
どういう事が出来るのか色々と試してみたいと思います。
レスありがとうございました。

HTML::AAとはなんだったのか

正規表現が利用可能なファイル名変更perlスクリプト下さい！

>>786
perl -e '$re = shift; for (@ARGV) { $old = $_; eval $re; rename $old, $_ }' 's/foo/bar/' foo*

>>787
ちゅっちゅ！

>>778を誰かお願いします・・・。

取得した HTML
クッキー

この２つを保存しておきゃえぇんとちゃうのん？

>>789
クロージャに対応してないからうまくいかない。
対応してるData::Dump::Streamer等を使え

質問です。
以下のコードで$tmpという一時変数を使わずに同じ処理を行うにはどうすればよいでしょうか？

my @lst = ({hoge=>1, foo=>2}, {hoge=>3, foo=>4});
my $tmp = shift @lst;
print $$tmp{hoge};

パスワードを sha256 で ランダムの salt付きでハッシュ化して保存するにはどうしたらいいのでしょうか？

print +(shift @lst)->{hoge};

>>794
ありがとうございます。
あなたのおかげで理解が深まりました。
${shift @lst}{hoge}
としてもできるようですね。

だいぶ前に図書館で読んだ本で"コメントが多すぎると実行速度がおちる"と書いてあったのですが、
それは本当なのでしょうか。
もしそれが本当ならばどれほど影響するものなのでしょうか。

>>796
perl はスクリプトを中間形式にコンパイルしてから実行するので、コメントの量と処理速度は関係ない。
ただ同じ内容のスクリプトでも、ファイルサイズや、コード部とコメント部の入れ替わり回数に極端な
差があるなら、ディスクの読み込み速度やCPUパワーが体感差に現れるかも知れない。
それらがどのくらいの差になるかは当然実行環境依存。

>>797
気にする程でもない、ってことでいいですか？

本体が数行しかないのにコメントが１GBぐらいついてるとか、
猛烈にコメントつけた文字列のevalをループの中でぶん回すといった
ほとんどありえないことをしない限り気にしなくていいと思います。

% cat hoge.pl
use Benchmark qw(timethese);
use constant BASE =>
'$x = 100;';
use constant COMMENTED =>
("# hoge hoge \n" x 10000) . '$x = 100;';

timethese(undef,
{
base => sub { eval BASE; },
commented => sub { eval COMMENTED; },
}
);

% perl hoge.pl
Benchmark: running base, commented for at least 3 CPU seconds...
base: 4 wallclock secs ( 3.19 usr + 0.00 sys = 3.19 CPU) @ 53085.27/s (n=169342)
commented: 3 wallclock secs ( 3.00 usr + 0.00 sys = 3.00 CPU) @ 940.33/s (n=2821)

下記のtest.plを動かすと何も出力されないのですが、
パイプをオープンした場合には文字コードを指定することが出来ないのでしょうか？

<test.pl>
use utf8;
binmode STDOUT, ":encoding(cp932)";
open(TEST, "<:encoding(cp932)", "perl test2.pl|");
#open(TEST, "perl test2.pl|");
print while(<TEST>);
close TEST;

<test2.pl>
use utf8;
binmode STDOUT, ":encoding(cp932)";
print "hoge\n";
print "huga\n";
print "あいうえお\n";

test2.pl STDOUT = utf8
test1.pl STDOUT = CP932 TEST = utf8

test1.pl
binmode STDOUT, ":encoding(cp932)";
open(TEST, "perl test2.pl|") or die $!;
binmode TEST, ":utf8";
print while(<TEST>);
close TEST;

test2.pl
use utf8;
binmode STDOUT, ":utf8";
print "hoge\n";
print "huga\n";
print "あいうえお\n";

>>793
Crypt::SaltedHash
http://search.cpan.org/~esskar/Crypt-SaltedHash-0.06/lib/Crypt/SaltedHash.pm

>>796
インタプリタがコメントを読み飛ばすのに微量なCPUパワーを使うからじゃないの？

コンパイルして使う言語は、コンパイル時にコメント削ぎ落とすけど
インタプリタ型はソースを直接読むじゃない

これは滅茶苦茶スペースやタブとか改行とか入れる場合も該当するでしょう

痛くも痒くも無い程度には低下する筈

そんなナノセカンドのパフォーマンスの低下も許せないなら
実行ファイル作るべき

interpret 開始前に注釈は除かれますお

>>804
ではその除く作業に微量なCPUパワーを消費するのでしょう

Perlはコンパイルしてから実行するんだが何言ってんのこの子

釣りかどうか迷う書込みが

>>806
コンパイラでもインタプリタでもなんでも、
コンパイルとかするときにはどうしてもコメント取らなきゃいけないじゃん
でもそのためのCPUの仕事なんて微々たるもんだとおもうよ

コメントの末尾が5Cになってると次の行も無視されるけどな

コメントが仮に１Ｇ付いてるなら、その１Ｇファイルを読破しなきゃ
どこを取り除けばいいのかコンパイラは分かりませんがな

テキストフォームの一文字目に禁止文字を設定するにはどうしたらいいですか？
(金額入力場所で文頭に0をつけさせたくない)

speedycgi使おうぜ

>>811
unless($data =~ /^[1-9][0-9]*/){
# 例外処理

ハッシュでkeyの値が
hoge{'1.2'}
hoge{'1.3'}
hoge{'1.7'}
hoge{'0.5'}
hoge{'2.1'}

みたいなパラメタがあるとき
key値が1〜2の間の値のものをまとめて処理する、ということをしたいです
（上の場合だと、1.2 1.3 1.7のもの　hoge{'1.*'}みたいなことを）
このときどういうアクセスの仕方があるでしょうか？

>>814
1例として、

for my $key ( grep { 1 < $_ && $_ < 2 } keys %hoge ) {
print $hoge{$key}, "\n";
}

配列に値が入っていて、それをコンマ区切りで出力したい
最後だけコンマを付けないスマートなやり方は?

join ',', @array

引数について

３つの帰り値と引数を持つ関数を作ったら、1つ目の引き数が受け取れませんでした。

my($a, $b, $c) = kansuu( "aaa", "bbb", "ccc");

sub kansuu{
my $p1=$_[0];
my $p2=$_[1];
my $p3=$_[2];

}
$p1には"bbb"、$p2に"ccc"で、$p3には値が入りません。

これは何が悪いのでしょうか。
Perlの仕様を調べてみても分りませんでした。

値の返し方では

>>796
CGIブームの頃に低レベルな著者が書いたperl解説本が世にあふれた。
ラクダ、ラマ、などの一部を除いてperl解説本は読んではいけない。

値の返し方は　return( $rc1, $rc2, $rc3 );　で返してます。

じゃあ何も間違ってない筈だけど、
書いたのと>>818が違ってるとしか

有難う御座います。

とりあえず保留にして、配列渡しか何か別な方法で回避してみます。

>>823
回避もなにも、>>818が一番素直な方法
これでできないなら、何かが決定的におかしい
回避方法を探るよりも、別にあるだろう原因を探った方がいい

>>815
なるほど。確かにそのやり方はありますね。
grepとか使えない環境なので、perlのロジックのみでいければ助かります。

grepってperlの組み込み関数なんですけど

そういえば…
ローカルにインストールしたperlには無い＝unix環境じゃないと使えない
と思い込んでしまっていました

大変失礼しました

玄人っぽい言葉と用語を並べる>>814が
何も知らないズブの素人だと露見した瞬間であった……

まったくもって、恥ずかしい限りで
少し頭冷してきますよ

>>818 には書いてないけど、どっかに shift があるんじゃね

>>818
$[ が-1になってるとかw

$[ = -1;

my($a, $b, $c) = kansuu( "aaa", "bbb", "ccc");

sub kansuu{
my $p1=$_[0];
my $p2=$_[1];
my $p3=$_[2];

print "p1=$p1¥n";
print "p2=$p2¥n";
print "p3=$p3¥n";
}

　 　 ＿　□□　　　 ＿　　　　　 ＿＿＿､､､
　 ／／＿ 　　[][]／／ 　 ,,-―''':::::::::::::::ヽヾヽ':::::/､　　誰　　弄　　 こ
／／ 　＼＼　 ／／　 ／::::::::::::::::::::::::::::::i l | l i:::::::ミ　　だ　　 っ　　 の
￣　　　　 ￣　 ￣／ /:::::::::,,,-‐,／i/`'''￣￣￣ ｀i::;|　　あ　　た　　 変
―`―--^--､＿_ 　 /:::::::::=ｿ　　 /　ヽ､ ／　　　,,|/　　 っ　　の　　 数
/f ）,fヽ,-､ 　 　 ﾉ 　|　三　i　<ニ`-, ノ　/､-ﾆニ' 」'）　！！　は　　 を
　 i'/　/^~i f-iノ 　　|三　彡　t￣ ｡` ｿ ﾊ_ﾞ'､￣｡,ﾌ | ）　　　　　　　　
,,,　　　　 l'ノ　j　 　 ﾉ::i⌒ヽ;;|　 ￣￣　/ _ヽ､￣ 　ﾞi　）
　 ` '' -　　／　　　 ﾉ::|　ヽミ 　　`＿,(＿　　i＼_　 `i ヽ､　∧ ∧ ∧ ∧
　　　　　／／／　　|:::|　( ミ 　 /　＿＿ニ'＿＿｀i　|　　Ｙ　 Ｙ　Ｙ　Ｙ　Ｙ
　　　,-"　 　 　　 　,|:::ヽ　 ミ 　　/-───―-`l 　|　　／／　 　　 |
　　 |　　／／　　 　l::::::::l＼　　　 ||||||||||||||||||||||/　 |　　　　　／／ |
　　/　　　　 ＿＿__.|:::::::| 　　 ､ 　`ー-―――┴　/　　　 ＿＿,,..-'|
　/ﾞｰ､,-―'''ＸＸＸＸ `''l::,/|　　　　ｰ- ､＿＿￣＿,,-"､＿,-''XXXXX |
/XX/ XXXXXXXXXX|　|　　　　　　　　　＿,　　/ﾉXXXXXXXXXX|

はじめまして

GD::GraphがJcode使っててむかつくので

なんかグラフ表示させるやつ教えてください
javascriptでもいいですか？教えてください
クソコテですが　まじめに教えてください

おまえは帰れ

CGIだったら別だけど、
グラフを得るのが最終目的だったら、Rとか使った方が綺麗

javascriptでやるから

がんばってください

さようなら　(・∀・)ｶｴﾚ!!

my $y,$m,$d;
$y = 2010;
$m = 10;
$d = 01;
$r = $y . $m . $d;
print $r;

こうやると、
2010101
と表示されてしまうのですが、ゼロが消えないようにするにはどうすればいいですか？
20101001となるようにしたいです。
よろしくお願いします。

試してないけど$d = "01"

printfを使うのだ

>>839
my($y, $m, $d);
$y = 2010;
$m = 10;
$d = 1;
$r = sprintf('%04d%02d%02d', $y, $m, $d);
print $r;

0が先頭つけると8進数として評価されるから気をつけろ
print 010 #=> 8

フォーマット部分がシングルクオートだとなんか不思議な感じに見える

おまえら馬鹿か

my ($y,$m,$d) = ('2010','10','01');
print "$y$m$d";

＞0が先頭つけると

日本語でおｋ

>>845
0を数値の先頭につけると8進数として評価されるから気をつけろ

8進数は誰が使うんだろう

TMTOWTDIの問題なのに、なぜ>>844は罵倒せざるを得なかったのか。

>>847
PDP-11なんかで8進数がよく使われていたらしくてその残滓じゃないか

chmodの第1引数とか…

HTMLに埋め込みでテキストを表示させたいんだけど

$file = "test.cgi";

open(FILE, "$file");
@logs = <FILE>;
close(FILE);
@logs = reverse(@logs);
chomp(@logs);
($data,$text)=split(/<>/,@logs[0]);
$text = "$data:$text<br>";

print "Content-type: text/html; charset=Shift_JIS\n\n";
print "document.write(\"$text\");\n";

これでテキストだけだと表示されるんだけど、
画像とかリンクはさむとなんにもでないんですよ

>>851
日記ならチラシの裏にでも書いてろｋｓ

>>849
工作じゃねえよ
ネットに嘘の情報が蔓延らないように監視してんだろうが

ヒント：エスケープ

scriptタグもなしにdocument.writeが処理されてしまうのか

現在のコンソールのロケール？エンコード？を取得する方法を教えてください。
Windows（cp932）でもLINUX（UTF-8）でも動作するようにしたいんです。
>>4 の方法だと Windowsでしか動かせませんよね。
> binmode STDOUT => ":encoding(cp932)";
の「cp932」の部分を書き換えないと。

イメージとしてはこんな風にしたいんです。
> $encoding = エンコードを取得する何らかの方法;
> binmode STDOUT => ":encoding($encoding)";
本番では中国や台湾やフランス、ロシアなどで動かす予定があります。
いちいち手作業で書き換えてられません。