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

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

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

CGIの質問は答えがPerlと全然関係ない話に帰着する場合が多かったりするので
WEBプログラミング板に行って聞いたほうが得ですよ。
このスレでは(CGI以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。

過去ログは>>2-4あたり

過去ログ

Perlについての質問箱
http://pc.2ch.net/tech/kako/1017/10177/1017736187.html
Perlについての質問箱 2箱目
http://pc3.2ch.net/tech/kako/1033/10336/1033688230.html
Perlについての質問箱 3箱目
http://pc2.2ch.net/tech/kako/1041/10412/1041205885.html
Perlについての質問箱 4箱目
http://pc2.2ch.net/tech/kako/1048/10485/1048519394.html
Perlについての質問箱 5箱目
http://pc2.2ch.net/tech/kako/1053/10530/1053053082.html
Perlについての質問箱 6箱目
http://pc2.2ch.net/test/read.cgi/tech/1060689008/

[プログラミング自体の経験が無い奴はまずココを読め]

Perlプログラミング講座: http://www5a.biglobe.ne.jp/~n_rieko/perl/

[本]
リャマ: http://www.oreilly.co.jp/BOOK/lperl3/
駱駝: http://www.oreilly.co.jp/BOOK/pperl3v1/
Effective Perl: http://www.ascii.co.jp/books/detail/4-7561/4-7561-3057-7.html
クックブック: http://www.oreilly.co.jp/BOOK/pcook/

[オンラインマニュアル]
・Perldoc.com: http://www.perldoc.com/
・perldoc.jp: http://www.perldoc.jp/
・perl5.005_03 のドキュメント: http://www.kt.rim.or.jp/%7ekbk/perl5.005/

[モジュール]
・CPAN.com: http://search.cpan.org/
・河馬屋二千年堂: http://member.nifty.ne.jp/hippo2000/

[テクニック]
・Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm
・Perlのページ: http://homepage1.nifty.com/nomenclator/perl/

>>1
乙

http://www.nmt.ne.jp/~misao/cgi/kokorogy/kokorogy1_cgi.txt
このプログラムにほかのプログラムでテキスト出力した計算結果を読み込むプログラムを教えてください。
open (FILE,'data.txt');
$DATA=<FILE>;
とした場合
data.txtの中に、「1〜10」の数字が改行されながら入っている場合は、最初の一つ目のデータ「1」だけが、$DATA に代入されてしまいました。

個人のデータごとに違う値を読み込み出力させるには、どのようにしたらよいのでしょうか？

>>5
$DATAを@DATAにすれば?

Ruby の p みたいにオブジェクト(リファレンス)の中身を手軽に表示できる関数はありませんか？

>>1
マジ乙

Perl6はこれから流行りますか？

ｼﾗﾈｰ

PerlもPerl6あたりで言語として落ち着くんだろうな。

>>7 Data:Dumperは？

>>7
use Data::Dumper;
print Dumper($ref);

下のコードみたいにTkとNet::Pingをいっしょに使うと
perl.exeがアプリケーションエラーで落ちるんですが、
これは仕様か私の環境だけでしょうか？
環境はWin2000, ActivePerlです。

use Tk;
use Net::Ping;

$text = '';

$top = MainWindow->new();
$top->Label(-textvariable => \$text)->pack();

$text = 'OK' if (Net::Ping::pingecho('localhost'));

MainLoop();

use strictやってれば-wはつけなくていいですか？

>>15
http://perldoc.com/perl5.8.0/lib/strict.html
http://perldoc.com/perl5.8.0/pod/perllexwarn.html

>>12>>13
ｻﾝｸｽです

apache のログの検索ワード(UTF-8)をEUCに変換しようとしています。
Vine Linux 2.5 (perl-5.6.1 + Jcode-0.75)では成功するんですが、
Redhat9 (perl-5.8.0 + Jcode-0.83.tar.gz)では文字化けします。
こんな感じです↓
while (<IN>){
$_ =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
Jcode::convert(\$_,euc);
print $_;
}
perlのバージョンが違うからですか？
日本語対応が違うからでしょうか？

>>18
変換処理は Jcode がやってるんだから perl のヴァージョンは関係ない。
Vine 側では locale が EUC-JP のターミナル、Redhat 側では locale が
EUC-JP 以外のターミナルでそれぞれ表示し「化けてる」なんて馬鹿な事
を言っているのでなければ、

・Jcode.pm のヴァージョンを揃えて試す
・食わせているログが本当に同じか確かめる
・変換元が UTF-8 である事が確定しているならそれを明示
　Jcode::convert(\$_, 'euc', 'utf8');

>>19
ありがとうございます。
もう一度確かめてみると、LANG=ja_JP.eucJP の環境変数を
セットしていないユーザがスクリプトを実行すると、
うまく変換できていなかったようです。
(コンソールではなくてファイルに保存したものを後で確認)
なぜでしょう？

>>20
Jcode MLに逝けよ

Jcode ML を覗いてきました。

RedHat 9 の Default の locale が en_US.utf8 なので、
差し障るみたいですね。
# なぜだか分かりませんが。

なお、RH9にはEncodeがはじめから入っているので、
それを使えば吉とのこと。

つまりもうちょっとシステム周りも勉強しなさいってこった

配列の配列ってリファレンス使うしかないの？
もうちっとお手軽な方法はないんでしょうか？

>>24
リファレンスによる方法のどういう点がお手軽でないかを説明してくれ。

>>24
見た目も使い勝手もC言語に近いと思うが。
どんなところが不満なの？

全然近くないだろ。

>>25
質問に質問で返すな

いやなんでもない

ファイルを読み込んで、値の小さいもの順にソートし、画面に出力させるプログラムを教えてください。
テキストには、ｎ個のデータと名前があります。それを値が、小さいもの順に表示し、値の隣に名前も表示できるようにお願いします。
********テキストファイルの中身（data.txt)*********
17.56　　Itirou
12.367　Jirou
1.5697　Saburou
56.23　Shirou
0.35　Gorou
******************　
*******画面に出力すると
順位　数値　　氏名
1：　0.35　　Gorou
2：　1.5697　Saburou
3：　12.367　Jirou
4：　17.56　 Itirou
5：　56.23 Shirou
**********************
と表示させたいのです。
また、順位、数値、氏名をTable文で囲って表示したいのです。
よろしくお願いします

my $array = [
['a','b','c',],
['d','e','f',],
['g','h','i',],
];
print $array->[2][2]; #簡単！

>>30
print join ' ', ++$i, ':', @{$_}, "\n"
　　for sort { $a->[0] <=> $b->[0] } map [ /([.0-9]+)\s*(\S+)/ ], <>;

>>30
system("sort -n data.txt|cat -n");
system("sort -n data.txt|cat -n|plain2html");

>> 30 ほれ。
perl -ne 'BEGIN{print "順位 数値 氏名\n"} chomp;m/([\d\.]+).*?(\w+)/;$h{$2}=$1; END{foreach(sort {$h{$a} > $h{$b}} keys %h){$c++;print "$c: $h{$_} $_\n";}}' data.txt

- $a} > $
+ $a} <=> $

>>30
初心者風に分かりやすく書くと
$i = 1;
@sortfile = sort @file;
foreach(@sortfile){

print '$i : $_\n';
$i++;
}

Windows使っている人は案外少ないのかなぁ〜
他で聞いてきます、ありがとございました。

>>37
perl.exeに問題がある。
有料のを金だして買いなされ。

>>31

my @array = (
['a','b','c',],
['d','e','f',],
['g','h','i',],
);
print $array[2][2]; #こっちの方が良くないか？

printとprintfの違いを教えてください。

>>40
http://perldoc.com/perl5.8.0/pod/func/print.html
http://perldoc.com/perl5.8.0/pod/func/printf.html
http://perldoc.com/perl5.8.0/pod/func/sprintf.html

>41
ありがとう。熟読してみます。

ｐｒｉｎｔｆとsprintfはC言語の入門書の方がよほどわかりやすく書かれてる。
なんでPERLの本はどれもprintfについてちゃんと解説してくれないんだろ？

>>7
>>13
use Tk::ObjScanner;
Tk::ObjScanner::scan_object $ref;

を使てみた。これ凄くイイ!

無名配列や無名ハッシュをフォルダー、スカラ値をファイルに見立てて
ツリー表示。
scan_objectはDataDumperから呼び出すと自分でMainWindow->new
してくれる。

WeakRefパッケージがインストールされてる必要あるから気を付けて。
DataDumperの存在だけでも幸せな感じなのに、不向きと言われる複雑な
データ構造の検証に効果期待できそう。

>>43
printで十分なことが多いから

>>43
「Effective Perl」にPerlの*printf系の詳しい説明があった気がするが。
ま、*printfの機能自体C言語からの借り物だし。

sprintfでフォーマットかけながらスカラ値にするのは便利だけどね。

>>14
私も会社で補助ツールにActivePerlでつ。がんがれ。

>>38
気になりまつ...ポインタとかないでつか?

塚

bindとlistenはネットワークプログラミングの入門書の方がよほどわかりやすく書かれてる。
なんでPERLの本はどれもbindについてちゃんと解説してくれないんだろ？

>>49
普通、サーバープログラムじゃないと使わないから

>>37=14
「他で聞いてみます」と言われてからやるのもなんだけど。
Windows XP Professional + Active Perl 5.8.0 build 806 でも落ちるね。
とりあえず、Net::Ping::pingecho() を Mainwindow の生成前に持ってくると落ちないようだ。

>scan_objectはDataDumperから呼び出すと自分でMainWindow->new
すまん、Perlデバッガの間違いですた。

気軽にデバッグができるのがPerlの魅力。最近Ruby本よんで浮気心も湧い
たんだけど、このモジュールを見付けて思い直せたかも。

すごいくだらない質問ですみません。

今、ActivePerlをWindows XP HomeEdition使ってるのですが、たとえば

print "hello\n";

とやっても hello がコマンドプロンプトで見えないくらい早くコマンドプロンプトが消えてしまいます。
C:\ perl test.pl
とか入力した際にコマンドプロンプトがそのまま残って

C:\ perl test.pl
hello
C:\

みたいにしてくれる方法は無いのでしょうか？
Perl初心者で勉強を始めたばかりなのですが、出力結果が見れないので困っています。ご教授よろしくおねがいします。

すみません、いまやって見たら普通に出来ました。
違う質問なんですが、

open(F,"<test.txt") || die "cannnot open test.txt:$!\n";
while(<F>){
print;
}
close(F);

これを実行すると、
cannnot open test.txt:No such file or directory
と言われてしまいます。

同じ所にtest.txtはあるのですが何ででしょう？

>>54
open F, '<' . './test.txt' or die "cannnot open test.txt:$!\n";
これでどうだ。

>>55
レスありがとうございます！
超初歩的なミスだったみたいです。

これからも馬鹿な質問するかも知れませんがよろしくおねがいします！

いやです

ﾏｼﾞﾚｽｷﾀｰ
まぁ、ある程度は自分で頑張って・・・

aaa

で、どういう初歩的なミスだったの？

配列　@array = {a,a,b,d,c,6};

とかで、重複する文字列を消す方法はありますか？

>>61
man perlfaq4

解決しましした。
すまん。

くだらない質問なんですが、$_を一時的な変数として使うのは
使い方間違ってますか？

別に間違っちゃいない。よくやるよ。
ただ、知らないうちに破壊しちゃってた、なんてことに気をつけれ。

>>65
そうですね。ありがとうございました。

間違っちゃいないが注意して使えよ。

sub hoge{
$_ = $_[0]; # !!
#$_をいじくる
return $_;
}

というふうに関数内部で$_の中身を破壊するのは止めとけ。
で、local($_)とかわざわざするくらいならmy変数使え。
俺は正規表現関係で $foo =~ /.../ をいくつも書くのが面倒な時だけ"$_への明示的な代入"をしてる。

$i = @url;
for ($i2 = 0; $i2 < $i; $i2++){
$ua = new LWP::UserAgent;
$ua->agent("LWP::GETHEAD");
$request = new HTTP::Request HEAD => $url[$i2];
$response = $ua->request($request);
print $url[$i2],"Last-Modified:\t", $response->header("Last-Modified"),"\n";
}
配列@urlにURIをぶちこんで、
更新日時を取得して表示するプログラムをつくったんですが、
表示してる途中に止まるんです、処理が重いのでしょうか？
何か解決方法は？

>>68
ドコで何秒くらい止まるのか不明。
タイムアウトを短くするとか。
レスポンスコードもチェックした方がいいかも。
リファラが必要な場合もある（普通は必要ないけど）。
質問とは無関係だけど、ループはforeach使うとよりスマートになるかな。

localとmyの区別が出来ない>>67は死んでください

別に区別できてないとは思わんけどね。
myで済むものを「わざわざ」localにするなってだけの話でしょ。

>>71
local($_); が my $_;
で済むの？

>>72
local($_); とは書いてあるが、my $_; とは書いてない。エラーになるんだし。
「my変数」ってことは my $hoge; ってことでしょ。

perlから外部プログラムを起動するにはどうすればいいんでしょうか。
C言語のsystem()のようなのを使いたいんですが。

>>74
http://perldoc.com/perl5.8.0/pod/func/system.html
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlfaq8.html

perldoc -f system

ああ、なんだ、systemってそのままあったのか・・・。
どうもありがとうございました。

関係ないが、Perlの「=>」表記って最高に可読性があるね。

%hoge=(
'aaa' => 1,
'bbb' => 2,
'ccc' => 3,
);

初心者がPerlについて質問です。
XPのﾊﾟｿｺﾝにActivePerlをインストールした後
コマンドプロンプトで「perl-v」を実行したら
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
C:\>perl-v
'perl-v' は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチ ファイルとして認識されていません。
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
と、でました。
これはPerlが導入できてないということでしょうか？
原因は何でしょう？
アドバイスもしくは誘導をお願いいたします。

perl -v
　　 ~

解決しました。ハローワールド。
>>80さん、ありがとうです。
自分のプログラマーとしての才能のなさにびっくりしました。

でも目の前にある新しい世界にどきどきしてます。

>>80
お前には向いてないからやめた方がいいぞ

ここ最近スレの伸びが早いなぁ

なぁ、Windowsの話題は別スレが良いんじゃないか？

ゲンナリしてるﾔｼの数
↓

>>79
ネタかと思った。

>>84
ActivePerlの話題はWindows板に行けとでも？
それともActivePerlスレ立てるのかい？

ところでみなさんPerlでswitch使う?

漏れは
SWITCH:{
if(COND1){
//処理1
last SWITCH;
}
if(COND2){
//処理2
last SWITCH;
}
}

とやってるのだが

if( COND1 )
{
処理1
}
elsif( COND2 )
{
処理2
}
else
{
処理3
}

そのまんまだなぁ。たしかif-elsif-else文は内部で最適化
かかるとかなんとかでswitch処理はあまりひねったことしてない。

だらだら長い分岐の場合はハッシュに無名サブいれてキーにヒット
したら無名サブコールさせる。スコープの問題とか出そうなので
ケースバイケースでやったりする。

my %subs = (
COND1 => sub{ 処理1 },
COND2 => sub{ 処理2 },
);
for(keys %subs){ $subs{$_}->() if($cond eq $_) };

...気味悪いよな、やっぱり。

>>87
Switch.pmはどうよ？
Perl5.8.0では標準で付いてるみたいだけど。

http://search.cpan.org/~dconway/Switch-2.09/Switch.pm

あぁッ、タブは詰まっちゃうのか。for文で回さないなら
もっとシンプルになるけど、初心者にはもう読めまいな。

my %subs = (
COND1 => sub{ 処理1 },
COND2 => sub{ 処理2 },
);

$subs{$cond}->();

初心者は無理だが初級者はこれぐらい分からないとな

for でまわされる方がかえってわかりにくい。

>>89
Switch.pmはソースフィルタだからコンパイルが遅くなる上に、
結局の所if-elsif-elseに対するラッパーだから実行速度も遅いという欠点がある

ちなみにSwitch.pm(に限らず他のソースフィルタモジュール)がどういうふうにソースをいじるかは
perl -MO=Deparse script.pl
とすればある程度知ることができる

>>93
まーそうだろうね。かなりムチャしてるっぽいし＞Switch.pm
Perl6からはgiven〜whenとなって実装されるらしいので
それまではif〜elsif〜elseで我慢しろと。

$msg = <STDIN>;
if ($msg eq "exit") {
exit();
} else {
print "Syntax Error.";
}
exitと打ち込んだら終了それ以外ならエラーメッセージを出力。
という風にしたかったのですが、どのような文字を打ち込んでもelse{}の方が実行されてしまいます。

書き方自体が間違っているのでしょうか？

Perlには変数や関数の名前付けのガイドラインのようなものはありますか？

>>95 はい。

>>95
よくはまる罠
exitと入力してEnter押したら、exitの後ろに改行がついている

なるほど　１行丸ごと取ってくるので改行まで入ってしまうんですね。
"exit\n"で正しく終了してくれました。
97-98さんありがとうございます。

>>99
chomp使ったほうが良いと思われ

>>96
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlstyle.html

100>>　なるほど〜
$msg =~ s/\n//g;
と書くよりchompで切った方が読みやすいですね。
勉強になりました。

>>101
THX!

再度質問させて下さい。
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlstyle.html
を見ているのですが、

・その行内でマッチする最後の括弧の後にスペースを入れる。

これがどうゆうことを示しているのか分かりません。
どなたか簡単な例で説明できる方はいらっしゃいませんか？

if ($foo) {
とか
open(FOO, $foo) || die "$!";
の ) の後にスペースを入れるということでは？
でも
print "\n" if ($foo);
の ) の後には普通スペース入れないよね…

セミコロンは
・No space before the semicolon.
が適用されるんで問題ないっしょ。つーか
こんなもんラリーが「こうしたらいいよ」って言ってるだけなんだし
好きにすればいい。

初歩的な事ですが聞きたいので教えてください。
今　a.txtには

a b
c d
e f
g h

といったようなデータが入っていて、これらを配列に読み込ませたいのですがどうすればいいのでしょう？
手動でやると

@hairetu=("a","b","c","d","e"...........,);

と言った事がやりたいのですが・・・・。

push, split を調べれ

最近新しいノートパソコンを買うことになったので
家に余っている【ThinkPad A20m】を3台（一台は汚れていますが・・
MDコンポ１台を無料で譲ります。欲しい方居ましたら貰ってやって下さい

http://www.ka3.koalanet.ne.jp/~magic32/muryou.html

↑ｲﾗﾈ

良く分からないのでこの部分は見なかったことにします。

なにが分からないのか分からん

>>108
ありがとうございます！

@list = ("abcaabbccaaabbbcccabcccccabcccabcccc");

foreach $value (@list){
if ($list =~ /c{2,4}/){
s/c/X/;
print "$value";
}
}

リストの特定の文字列cをXに置き換えたいんですけど・・・。
ｲﾏｲﾁ分かりません。この初心者にどなたか慈悲を。。。

>>114
http://www5a.biglobe.ne.jp/~n_rieko/perl/1.htm
ここから全ページ順番に最後まで読んで & 試してから
まだ分からなかったらもう一度おいで。

if ($request{'processType'} eq 'add') {# 追加の場合はエラーチェック
# 存在チェック SQL の配列
my @compareSqlList;
# 存在チェックする項目名の配列
my @compareItemList;

if ((defined $request{項目名})&&($request{項目名} ne '')) {
my $sql = "SELECT "."\n"
." *"."\n"
." FROM テーブル"."\n"
." WHERE 項目名 = '$request{'項目名'}'"."\n"
;
push (@compareSqlList, $sql);
push (@compareItemList, "項目名");

$error = checkValues::isCompareError_2(\@compareSqlList, \@compareItemList, $err_msg);
}
}
処理は走ってるんだけど
$err_msgに格納してあるエラーメッセージが表示されないんだわ。何でかわかる？

>>114
演習問題を他人にやらすんじゃぁねぇーよ

>115
そこは有名なサイト？なので頻繁に見ています。
なんか根本から違うような気がしないでもないのですが
自分では気が付かないというか・・・。難しいです。
ヒントでも良いので取り敢えず何か教えてください。

ﾔﾚﾔﾚ

>>114
$list = "abcaabbccaaabbbcccabcccccabcccabcccc";

$list =~s/c/X/g;

これじゃダメ？
っていうかデータ構造はリストじゃなきゃだめなの？

>>114
foreach が何をするものか理解してる？
そこをきちんと理解すれば、foreach の次の行が間違ってるのが分かるはず。

あと s/// の使い方も間違ってる。
いじりたい文字列の入ってる変数が $_ 以外のときは、陽に変数を指定する必要あり。

>>120 を参考によ〜く調べてみるべし。

foreach（条件）ですよね・・・。
そこが間違ってるのは気づきましたが、
結局良く分かりません。置き換わりません・・・。

>>122
論点の整理ね

1.
@list = ("abcaabbccaaabbbcccabcccccabcccabcccc");
->@list というデータ構造はどういう意味か

2.
foreach $value (@list){
if ($list =~ /c{2,4}/){
-> $list =~/c{2,4}/ の $list という変数は何を指しているか

3.
s/c/X/;
-> s/c/X/; で置換される対象の変数は何か？

これらの意味が分からないと問題が解決しないと思われ
}
}

>>114
> リストの特定の文字列cをXに置き換えたいんですけど・・・。
> ｲﾏｲﾁ分かりません。この初心者にどなたか慈悲を。。。
演習問題ならやってみよっと。

@list = ("abcaabbccaaabbbcccabcccccabcccabcccc"); # 配列らしいけれども 1 要素しかないよね？

foreach $value (@list){ print $value if $value =~ s/\Gc{2,4}/X/g; }

注意点は、
・最長マッチさせること
・マッチ対象を重複させないこと
なのかな？

採点ｷﾎﾞﾝﾇ

>>124
>>114 は X の数を c の数に対応させたいのではないだろうか？
abcabccabccc -> abcabXXabXXX のように。

>>124
grep の方が良いのかもとか思ったりした。。。
print(join '', grep s/\Gc{2,4}/X/g, @list);
いんや map かも？（優柔不断）

何となく出来ました（´ω｀）
有り難う御座いました。

0x0003を0x0300
0x1234を0x3412
にするにはどうすればいいのですか？

>>128
http://search.cpan.org/search?query=endian

>>128
($n<<8)&0xFFFF)|$n>>8
じゃダメかしら？

IPアドレスを、ドット区切りからドット区切りなしの１０進数に変換する式を本で読んだのですが必要ないと思って捨ててしましました。
知ってる方いらっしゃいましたら、教えて頂けませんか？

>>131
inet_aton?

>>131
こゆこと？

$dec=($dec<<8)+$_ for split(/\./,"64.71.145.43");
printf "%08x = %d\n",$dec,$dec;

教えてください。
HTMLからBODYの部分だけをとるには、
どうすればいいのでしょう？教えてください。

>>134
出来ました！お騒がせしました。

>>133
ありがとうございます。えっと、ちょっと違いますです。
IPアドレスの32bitを、そのまま１０進表記にした数字を
ドット区切りから求めたいのです。。。

>>136
あっちにも書いたけど

my $ip = '192.168.0.1';
my $dec = vec pack('C4', split /\./, $ip), 0, 32; # 3232235521

@name = ($FORM{'year'},$FORM{'month'},$FORM{'day'},$FORM{'hour'},$FORM{'minute'});

open (IN, ">> @name.txt");
print IN @data;
close(IN);

2003 01 01 01 01.txtとなってしまいます。200301010101.txtにするにはどうしたら
いいのでしょうか？

>>138
undef $";

>>139でもいいけど、joinかな。

お返事ありがとうございます。
perlはじめてまだ２日目なので、それをどこに挿入すれば良いかわかりませんので
おしえてくれませんでしょうか。

あと、
間違って　$FORM{'year'},"\n",$FORM{'month'},というファイルを保存してしまったところ
削除ができなくなってしまいました。どうすれば良いでしょうか？

rm -f "2003 01 01 01 01.txt"

>>142
お返事ありがとうございます。
2003 ? 01.txtというファイルが保存されており
rm -f "2003 ? 01.txt" とコマンドを入力したのですが、削除できませんでした。
これはもうあきらめるしかないのでしょうか。。

>>140
JOINで検索した資料を参考にしたところできるようになりました。139さんもありがとうございました。

>>143
ls -Al | cat -e してみる。（コントロールコードとファイル名の終端を'$'で表示）
該当するファイルを表示されたとおりに入力して削除してみりる。
rm -rf 2003^M01.txt かな。

>>145
だめでした・・・。

>>146

#!/usr/bin/perl
unlink "2003\n01.txt"

Perlで作ったファイルなら
Perlで消してはどうでしょう

unlink "2003 \n 01.txt"; かな

rm 2003*.txt とかでいいんでね？

みなさんのご協力により無事消すことができました。
ありがとうございました。

foreach(1..60){
if ($_ 〜〜〜

において、$_が１〜９の場合０１〜０９と先頭に０を付けるようにしたいのだが、
perl独自の方法で解決する事はできるのでしょうか？

それとも、別個にプログラムを作成しなくてはならないのでしょうか？

(s)printf "%02d" とか

> したいのだが、
> のでしょうか？

PERLで特定のフォルダ内のファイルをリスト化しHTMLで出力する場合、
どのようにリストを取得すれば良いのでしょうか？

>>154
readdir

>>155
THX

ここに居る人たちは本当に詳しいなぁ。なんでこんなに詳しいんだ？？

>>156
安心しろ。あんたが無知なだけだ。

>>157
ワロタ。全くもって同意。
そもそも readdir もあんまり perl の話じゃないしな。

>>137
ありがとうございます。ところが数値が-1062731775になってしまします。
(print "$dec";しただけです。)
多分signedとして出力してるのではないかと思うのですが、unsignedにするにはどうすればいいでしょうか？

>>159
それどっかのHPに書いてあったよ。忘れたけど。

ところで、Webプロキシのperlどっかにおっこってないでしょうか。

教えてください。

@hairetu には　(a,b,c,c,t,a,t,b,・・・・・・・)
とたくさんデータが入っていて、

aは全部で何個
bは全部で何個と言う風に計算したいんですけど、さっぱり分かりません。

どなたか教えていただけ無いでしょうか？

>>161プログラミングの才能ないね

>>161

$a = grep {$_ eq a} @hairetu;
$b = grep {$_ eq b} @hairetu;
　　　:

>>159
$dec = sprintf "%u",$dec;
でどでそ？

>>161
a-z の数を調べるのだろうか・・・
$alphabet{$_}++ foreach @hairetsu;
で %alphabet に数値が入りそうな。。。

>>159
#--- test.p ---
my %ip;
for (@ARGV) {
　　$ip{'d'} = vec pack('C4', split /\./), 0, 32;
　　$ip{'lu'} = sprintf '%lu', $ip{'d'};
　　$ip{'lx'} = sprintf '%lx', $ip{'d'};
　　($ip{'b'} = $_) =~ s/(\d+)\.?/unpack 'B8', pack 'C', $1/eg;
　　print "$_: $ip{$_}\n" for qw(d lu lx b);
}
__END__
> perl test.p 255.255.255.255
d: 4294967295
lu: 4294967295
lx: ffffffff
b: 11111111111111111111111111111111

http://perldoc.com/perl5.8.0/pod/func/vec.html
http://perldoc.com/perl5.8.0/pod/func/pack.html
http://perldoc.com/perl5.8.0/pod/func/unpack.html
http://perldoc.com/perl5.8.0/pod/func/sprintf.html

そうなんです、全く才能無いんですけどやらないといけなくて・・・・

>>163
>>164
a-zの数を調べるのじゃなくて、配列には　(次郎、太郎、三郎、次郎、・・・・
の様に何が入っているかは事前に分からないんです。

>>166
だから >>164 でいいんじゃねぇのか？

>>166
才能がないならブー垂れないで、もがけよ。
他人が手助けしてくれているのに
条件を後出しするって何様の積もり？

#>>166
use strict;
my @hairetu = qw(a b b c a b);
my %count_hash;
map {$count_hash{$_}++} @hairetu;
while(my ($key, $value) = each %count_hash)
{ print "$key: $value\n"; }

なんか、mapのボイド・コンテキストでの使用はトリッキーでどうも好かんね。

>>170
map {$count_hash{$_}++} @hairetu;
より
for (@hairetu) {$count_hash{$_}++}
のほうがお好きですか。

うん。それか１６４の後半の書き方が好きだね。
mapは基本的にはリストからリストの写像って感じでつかうね。

sub timeOut {
my ($r_time, $compare_time) = @_;
if ($compare_time ne "") {
return (time - $r_time > $compare_time);
} else {
return (time - $$r_time{'time'} > $$r_time{'timeout'});
}
}

このサブルーチンは何をしているのでしょうか？

>>173
> sub timeOut {

小学生にも笑われるぞ

>>173
undef か 1 を返しています。

でいいのかな？(w
変数の扱いを見ると本体は、かーなーりー混乱しそうなソースのようですけれども（哀）

>>174
私が作ったのではないので聞いているのですよ

>>175
ありがとうです〜

>>176
自分が作ってないやつは全部聞くのか？
そもそも、こんな短かいのが読めないやつが「自分で作」れるとは到底思えんのだが。

>>174
笑うところどこ？

# Javaみたいなスタイルだから？

>>178
timeOutと{の間のスペースでしょう。

>>179
うーむ。深いですね。
ありがとん。

timeOut って書いてあるからタイムアウト処理なんだろ

>>167
>>168
>>169
ありがとうございます！
やって見ます！

>>137 >>164
レスが遅くなって失礼しました。希望通りの結果を得られました。ありがとうございました。

こんな感じに外部の画像ﾌｧｲﾙを自分のﾍﾟｰｼﾞで加工ってできるの？
ttp://images.google.co.jp/images?hl=ja&lr=&ie=UTF-8&oe=UTF-8&q=a
image magickで外部ﾌｧｲﾙって加工できないの？

>>169
ありがとうございましたm(__)m
これで出来ました。本当に助かりました。

>>184
Web の話は WebProg 板へ。
http://pc2.2ch.net/test/read.cgi/php/1066318233/

exit;
を入れるとエラーが出てしまいます。
考えられる原因は何でしょうか？

>>187 貴方の存在

>>187
「Perl が動きません。考えられる原因は何でしょうか？」
の問に完璧に答えられたら教えてあげるYO!

Tkを使ってる会社ある？普通はJavaかな？

予想

CGIとして動かしていて、エラーというのはPerlが出すエラーではなく、HTTPサーバが出すエラーである。
ヘッダーを出力せずにexitしたからエラーとなった。

正規表現で　(/A.*?B/) と書くとAとBの間に改行文字があった場合マッチしない
ようなのですが改行文字があってもマッチするようにするにはどう書いたらいいんでしょう？

>>192
sオプション

>>193
むむ、確かに。助かりました。

ところでObjective Perl 実践してる人います？
漏れはどうもあの泥臭い文法が好きになれないんだが

>>195
データ構造が複雑になる時には。

@data = (["January", 28], ["February", 15], ["March", 18], ["April", 20]);
という2次元配列があったとして、各配列の2番目の要素(28や15)で
ソートして2次元配列を生成するにはどうしたらよいのでしょう？

sort {$a->[1]<=>$b->[1]} @data;
じゃダメかしら？

>>197
どうしたらよいか自分で考えたのかおまいは

>>197>>198
Perl の sort は安定なソートをしてくれると思うけど、神経質な人は
> sort{ ($a->[1] <=> $b->[1]) or &CmpMonth($a->[0], $b->[0]) } @data;
ってやって、
> sub CmpMonth($$) {
> my( $MonA, $MonB ) = @_;
> %Mon = (
> 'January' => 1,
> 'February' => 2,
> ...
> 'December' => 12
> );
> $NumA = $Mon{$MonA};
> $NumB = $Mon{$MonB};
> return ($NumA <=> $NumB);
> }
ってしておくといいかも。
Bug があると恥ずかしいのでsageで。

>>200
それなら
sort day_month @data;
sub day_month {　#以下略
}
の方がスッキリすると思うが

>>199
コード示せないのに偉そうなこと言ってんじゃね〜よ
ボンクラ君！

>>202
煽るよりもまずすべきことがあるでしょう。

>>202
ｵﾅﾆｰならしましたが、なにか？

$tmp="こんにちは。今日はいい天気ですね。";
$tmp=~/(.*)。/;
print $1;


教えてください。上のは自分で"。"で区切るようにしたつもりで
こんにちは
と表示したかったのですが、全文出てきてしまいます。

どうすれば。で分ける事が出来るのでしょう？

>>205
この場合最短マッチすれば桶

単に区切るなら、split が吉鴨

>206
split使った方がよさそうですね。
ありがとうございました。

他のスレで聞いてもまともな答えが返ってこなかったのでここで聞きます。

シリアルポートを下記でオープンして
open(COM1, "+>COM1") or die "Can't open COM1: $!";
read($Port,$response,1);
ってやると永久に待っているのですが、１０secで
タイムアウトなんて出来ないんですか？

perldoc select

>>209
あっちでもそんなこと言っていた奴がいたが、それじゃわかんねーっつーの!!

>>208
http://perldoc.com/perl5.8.0/pod/func/select.html

どう考えても、perlを使用するメリットが感じられない。
デバッグ大変やろ？
小手先のテクニックではなく、トータルの開発効率で考えろよ。と
perl馬鹿どもに言いたい。

ほとんど、モジュール使うようにしているからそうでもない。

>>212
自分で書いてるんだったら、記述が悪い。
持ってきたんだったら、ソースが屑なだけ。

結局、自分はいいソースをみたことがないということで勉強不足やといいたいわけな。

>>210
これで分からないならプログラミングなんてやめたほうがいいな

>>212
日本語が良く分からんのだが、

> 小手先のテクニックではなく、トータルの開発効率で考えろよ

perl を使ってるやつは小手先のテクニックを考えてるから perl を使ってるのか？

質問です。十進数を二進数に変換する関数を作っています。
しかし、現在のコードでは255より大きい引数を取れません。
引数に、任意の整数を取れるように改良する方法を教えてください。
コードは以下の通りです。

sub tenToTwo { unpack("B8", pack("C", $source)); }
print tenToTwo(4);

お願いします。

>>217
10進数->8進数->2進数でやれ
10進数->8進数： sprintf
8進数の各桁->2進数の下３桁

>>217
<q cite="http://perldoc.com/perl5.8.0/pod/func/pack.html">
sub bintodec {
　　unpack("N", pack("B32", substr("0" x 32 . shift, -32)));
}
</q>

sub dectobin {
　　my $bin = unpack 'B32', pack 'N', shift;
　　$bin =~ s/^0+//;
　　return $bin;
}

ある値がいくつ含まれているか数えたいのですが、効率のいい方法（負荷の軽い方法）はあるでしょうか？
具体的にはこんな感じです。すごく無駄っぽいので、なにかいい方法を探してます。

$n =($value =~ s/\r/\r/);

>>220
$n =($value =~ m/\r/g);

tr

文字数カウントするだけなら tr/// 使うでしょ。普通

>>219
ありがとうございます！

MacOSXでperlを使う際に、日本語を処理させるにはどのようにすれば良いでしょうか？

>>225
use encoding;

グローバル変数を使わずに、クロージャで関数に値を閉じ込めながら
処理していく、そういったやり方のサンプルコードはありませんか？

>>227
http://www.google.co.jp/search?q=perl+closure

んー、やっぱりカウンターもどきの物ばっかりですな。
クラスにおけるデザインパターンのようなプログラムデザインに
影響を及ぼすような何かは、LISP使いにならないと学べないのかな。
「関数を返す関数」の鮮やかな使い方が見たい。。。

7箱目に今日気付いた。2週間越しか。。

誰も答えてない奴を一つ。
>>151
foreach("01".."60"){

マジカルインクリメントでもいい。

>>229
黒豹本ではクロージャの活用例として、
GUI のコールバックプロシージャと、
乱数・偶数ストリームの生成器が挙げられている。

ま、目的無しに手段は学べんってこった。

>>229
Scheme勉強兼SICP嫁目鱗必至

>>220です。
>>221-223ありがとうございます。
自分的にはm//の方がいいかと思うのですが、やっぱりtr///の方がいいでしょうか？
また、蛇足ですが、今までtrはほとんど使ってこなかったのですが、s///とtr///の違いは何でしょうか？
あまり違いが分からないのですが、後学のために教えて下さいませ。

>>233
教えてｸﾚｸﾚ君？
自分でその違いを見つけてみるのも楽しいと思うけれども。。。

教えてｸﾚｸﾚ君ですいません。
あんまりperlに楽しみを求めていませんので・・・道具として使っているというか・・・
perlを愛している人には申し訳ないのですが・・・

ロジックは愛してるかもしれません。
それを考えるのは好きなのでこの仕事をしてるのかもしれません。
ただ、目的のためにはCでもPerlでもいいわけでして・・・
メンテナンスがいいことと、文字列処理がしやすいのでperlを使ってます。
駄文すいませんでした。

>>233
どういう基準に対して「いい」のかに依ると思うが。
http://perldoc.com/perl5.8.0/pod/perlop.html#Regexp-Quote-Like-Operators
http://perldoc.com/perl5.8.0/lib/Benchmark.html

クリティカルな用途なら道具の特性を深く知っておくべきだし、
雑務のお手伝いさんなら意図通り動いてりゃそれでいいんじゃないか?

>>237
おっしゃる通りです

>>230
>>152 の立場は…？

ただ単なる道具としてPerlを使ってようが教えてｸﾚｸﾚじゃどうせ道具としても使いこなせんだろー

道具として使っているのなら尚更・・・という職人気質みたいなこというと嫌われますよねこの昨今（哀）

>>240
ん？何を勘違いしてるんだろう？
ここでもそうだけど、メーリングリストとかの自称Perl使いは、構文に凝りすぎだと思います。

>>241
知る必要があることと無いことがあると思うんですよ。道具に関して。
例えば、車を使うのにエンジンの組み立て方を知る必要があるでしょうか？
コンピュータ制御されたエンジンのアルゴリズムを知らないと、車を運転する資格がないのでしょうか？
ある程度の線引きがあると思うんですよ。ここまで知ってれば十分っていう。
掲示板で教えてくれる親切な人は、その線引きがおかしい人がいるんじゃないかと。。。

>>242
道具として使うなら、せめて「ProgrammingPerl」くらいは持ってるべき。
あるいは、マニュアル(perldoc)くらい嫁と子一時間（以下略

perldoc -f s -> perldoc perlop と進めば、最低でもs///とtr///くらいの
基礎的知識は容易に得られる。
前者は正規表現置換演算子。後者は一括文字置換演算子。

trは正規表現より遥かに高速で、tr/AB/BA/という芸当が出来るのが特徴。
sは常勝不敗で最強無敵。理論上は何でもできるが、何でもやらせられるほど
高速ではない。書き方によって大きく差が出るPerlの中に潜む別言語。

>>242
構文に凝ろうが凝るまいが本人の自由だろ。
コーディングに凝るのはPerl使いだけに限らないし。

道具に関して知る必要があることとないことの線引きなんてないね。
それも本人の自由だから。
ここまで知ってれば十分なんて思ってるような香具師はプログラミングに
限らず何やっても大成しないよ。

>>242
Perlの構文ならその車の使い方に相当するんじゃないの？
エンジンの組み立て方はPerl(のインタプリタ)の作りに相当するものだよね？

>>242
基本的には同意。
とはいえ、Perl モジュールの内部構造とか、Perl での OO の実現方法とかなら、その
車の例えに合致してると思うけど、s///, tr/// レベルは Perl 組み込みの演算子で、
しかも利点として挙げられてる文字列処理なわけで。
人に聞くよりも自分で調べたり試してみたほうが身につくとは思うんだけどな。

で、端的にいうと、tr は文字ごとの置き換え、s は文字列の置き換えで正規表現が利用可能。
と、「人に聞く」形にして嫌がらせしてみるテスト(w

>>239
あ、「誰も答えてない奴」ってのは「誰も答えてない質問」ではなく「誰も答えてない回答」って意味です。すまん。

>>242
その凝りすぎの表現がperlだと普通かもしれない罠。

要するにアレだ、AT車乗りはトランスミッションなんて知らなくても運転できるじゃんと言うが
PerlはMT車なのよ

つか何に例えようが
所詮Perlではtr、sは自分で調べろよって次元の話なんで

こんなことウダウダ言ってる間にドキュメントに一通り目を通せるだろ。

馬鹿の逆切れみっともないでFA

>>249
C:MT
Perl:AT
だろ

Perl:Mach Go Go Go

>>253
私もそう思います。Cはメモリ特に関連で仕様をきちんと理解していないとクリティカルなエラーを起こしますが
その辺は適当に済ませられるPerlは優れているというか便利だと思います。
Cはあまり日曜大工に向きませんが、Perlは日曜大工向きだと思います。

慇懃無礼

すみません。そういう意味ではなかったんですが。

>>255
>>255
>>255>>255>>255
>>255>>255

perl/tkでのX環境での日本語入力について情報どこかにありますでしょうか？

例えば、kinput2の場合、リソースに
perl*inputMethod: kinput2
とかしておくだけではダメなんですね。

http://www.shitamachi.net/ranking/cgi05/ranklink/ranklink.cgi?id=05mercur

system()でシステムコマンドを実行する際にユーザを変更して実行(或いはユーザを指定して実行)したいのですが、
perlでこのような事は可能でしょうか?

---
OS FreeBSD4.9RE
Perl ver5

>>261
system('su username -c "whoami"');
あたりまえだが要root。

setenv LC_ALL ja_JP.EUC
setenv LANG ja_JP.EUC
setenv XMODIFIERS '@im=kinput2'

と環境変数を設定しておけば、

#!/usr/bin/perl
use Tk;
MainWindow->new()->Text()->pack();
MainLoop();

で、テキストウィジェットが開いて日本語入力＆編集できるようになりました。
perl/tkは日本語も使えて便利でいいですね。

>>262さん
教えて頂いた方法で上手くいきました。
ありがとうございました。m(_ _)m

$old_fh=select(STDOUT);
$| = 1;
select($old_fh);

これが何をしているのかまったく分かりません。
２年ほど悩んでいるのですが教えてください。

http://tohoho.wakusei.ne.jp/lng/199907/99070164.htm

>>265
まず現在のファイルハンドルを退避し標準出力をデフォルトに設定している。
次にデフォルトのファイルハンドルに関連する特殊変数$|に代入することで、標準出力を自動的にフラッシュするように設定している。
最後に退避したファイルハンドルを再設定している。

これがあなたのお役に立てば良いのですが　;-)

>>266>>267
ありがとうございます。
なるほど。原理は良く分かりました。

select( (select(STDOUT), $|=1 )[0])

Lispの甘く危険な香りが・・・(;´Д｀)

use IO; しとけば
autoflush STDIO 1;

if($foo == 1+2+4) は勝手に if($foo == 7) と解釈してくれるみたいですが、
if($bar eq uc('foobar')) は if($bar eq 'FOOBAR') と解釈してくれるのでしょうか？

>>271
演算子には優先順位というものがあってだね、
その順番に従って計算されていくのだよ。

http://perldoc.com/perl5.8.0/pod/perlop.html
uc は named unary operator (名前付き単項演算子) 扱いな。

>272
わからないのは
ttp://perldoc.com/perl5.8.0/pod/perlop.html#Constant-Folding
が uc 等にも効くかという事です。

>>273
#--- test.p ---
use strict;
my $foo = 7;
my $bar = 'BAR';
if ($foo == 1 + 2 + 4) { print 'foo!' }
if ($bar eq uc 'bar') { print 'bar!' }
__END__

> perl -MO=Deparse test.p
use strict 'refs';
my $foo = 7;
my $bar = 'BAR';
if ($foo == 7) {
　　print 'foo!';
}
if ($bar eq 'BAR') {
　　print 'bar!';
}
test.p syntax OK

>>269
その書き方、ちょっとビクーリしました

>>275
らくだ本を読んだことないのか？

らくだ本でなくても普通のムック本にのってるだろ、それ>>269

>>274
B::Deparse は構文解析をしているだけのようにしか見えないですが、
それは perl がコンパイルした物と同じになるのでしょうか？

>>278
そう判断した根拠やどこまで調べたかを示して頂けませんかね。
答える側の勉強にもなりますし。
http://perldoc.com/perl5.8.0/pod/perlcompile.html#The-Decompiling-Back-End
http://www.perldoc.com/perl5.8.0/lib/B/Deparse.html

これ以上の事が知りたかったら、perl のソースコード追うなり
識者の集まる ML で尋ねた方が早いと思いますよ。
http://www.freeml.com/info/[email protected]

5.8.2とjperl5.005とで同じスクリプトを使えるようにしたくて、

if ($] > 5.008) {
use encoding "sjis";
use open ":encoding(sjis)";
binmode STDERR, ":encoding(sjis)";
}
とやってもうまくいきません。

ifブロック内にuseが入れられないとするなら、
同じようなことをやる方法ってないのでしょうか?
(あ、ShiftJIS使うなってのはナシで)

>>280
無理

無謀です
やめましょう

>>281
まぁ超力ずく解決でイイなら、5.8.2とjperl5.005じゃ@INCが
違うだろうから、jperl5.005の@INCの先頭のディレクトリに
nopなダミーencoding.pmとopen.pmを書いて入れとく、

とか考えたけど、binmode STDERR, ":encoding(sjis)";
は解決不能っぽいですな。ｗ

>>280
> use encoding "sjis";
は、BEGIN { require encoding; import encoding "sjis";}と等価。
BEGINで分かるようにuseは必ずコンパイル時に評価される。
実行時にuseと同じことしたいならrequire+importにする。

if ($] > 5.008) {
require encoding; import encoding "sjis";
require open; import open ":encoding(sjis)";
binmode STDERR, ":encoding(sjis)";
}
ってのは、どうよ。実際にうまく動くかどうかは分からないが
試してみそ。

>>283
実行時にプラグマを読んでも無駄

BEGIN{
if ($] > 5.008) {
require encoding; import encoding "sjis";
require open; import open ":encoding(sjis)";
binmode STDERR, ":encoding(sjis)";
}
}

ん〜

$strs = "0123456789acdefghijkl";
とある
これのx番目の文字だけを書き換えたい
で、
print strchg($str,5,"st");
とやれば

0123st6789acdefghijkl
としたい
便利な関数とか無い？

>>285
splice

メンゴ
substr

Perlって不便ね

漏れもC厨だけど、今日からPerl勉強し始めてるんでageちゃう。

>>285
http://perldoc.com/perl5.8.0/pod/func/substr.html

sub strchg {
　　my($expr, $offset, $replacement) = @_;
　　substr $expr, $offset, 1, $replacement;
　　return $expr;
}

>>290
ありがと♪

substrにそんな使い方があるとは知らなかった
てっきりExcelのmidと同じだと・・・

print substr($msg,2,4);

substrはperl4の昔から左辺値になるんだけど..........
知らない香具師大杉

言われりゃ思い出すんだが、コード書いてるときはすっかり忘れてる　＜　左辺値
.. のフリップフロップとかも

精進が足りないのぅ

適当なファイルで、保存後コマンドラインから実行して3分後から倍速モードになる
#!/usr/bin/perl
$tick = time();
sleep(180);
while (1) {
@date = localtime($tick);
$fmt = sprintf("%02d%02d%02d%02d.%02d", @date[4] + 1, @date[3], @date[2], @date[1], @date[0]);
`date $fmt`;
print "$fmt\n";
$tick += 2;
sleep(1);
}


OSの時計が倍になるらしいんですが意味わかりまつぇん

教えてくだちぃ

$tick += 2; sleep(1);

1秒ごとに時計を2秒進めてるから倍速になったように見えるだけでしょ。

perl/tkで、文字列入力ウインドウを作って、
ユーザが文字列入力できてEnter/Returnが押されたら
入力中の文字列をperlの変数に入れて特定の関数を呼ぶ、
っていうのはどうすればできるでしょうか？

>>296
http://www.google.co.jp/search?q=perl+Tk&lr=lang_ja
http://www.geocities.co.jp/SiliconValley-Oakland/1680/perl_tk/perltk05.html#chapter14

>>297
素早い反応どうもありがとうございます。

$object->bind( "<Return>", [CallBack] );

と、単にバインドすればよいわけですね。

pure perl な SAX2 パーサってありまつか？

Perl/TkよりもカッコイイGUI開発環境ってPerl.NETかなー
とか思って色々調べてるんだけど、日本語情報皆無でつね・・・

>>300
おめでとう！
君がPerl.NET関連情報翻訳の第一人者だ！

>>300
おめでとう！
君がPerl.NET関連情報翻訳の第一人者だ！

Perlコミュニティは初心者に対して病的に親切だと聞きました。
もしかしてマジですか？

さあ。俺に言えるのは、言語が病的なことだけです。

すみませんどなたか教えて下さい。

Perl から system関数を使用して 外部(自作)のコマンドを呼び出して
戻り値を取得したいのですが、戻り値の値の範囲は 0〜255 までなのでしょうか？
詳しい方教えて下さい。

環境:WindowsXP ActivePerl v5.8.1

呼び出し元
sysetm( "foo.exe" );
printf "ReturnCode->[%d]\n", $? >> 8;

呼び出し先 foo.c
int main( void ) {
return 1077; <-- この値を呼び出した Perl プログラムで取得したいのです。
}

よろしくおねがいします。

戻り値を標準出力に出力させて
Perl側がsystemの代わりに逆クォートを使い
外部プログラムの標準出力を文字列として受け取るのではダメなのか？

返信ありがとうございます。
それで解決できそうです。

とりあえず、戻り値として返そうとすると、値は 255 までしか
返せないんでしょうか？

よろしくお願いします。

>>307
OSに依る。
http://perldoc.com/perl5.8.0/pod/func/system.html
http://perldoc.com/perl5.8.0/pod/perlvar.html

http://perldoc.com/ と http://www.google.co.jp/ ブックマークしとけ。

環境はWindowsXPです。
return 1077; はPerl側では取得できない様ですね。。。
>306 で教えて頂いた方法で解決しようｔ思います。
ありがとうございました。

下記のような外部ファイルがあり、ある文字の含まれる行をカウントしたいのですが、
「ある文字」というのが スクリプトであらかじめ設定できないないので困っています。
-----外部ファイルの例----------------------------------------
(適当な文字列、. も含まれる).（★ここを数えたい★） （後ろは任意の文字列）
power.hogehoge-man Yah!
2cher.mona- （・∀・）ｱﾋｬ
fusianasan.hogehoge-man 2Getttttttttttttttttttttt
tarako.umaibou.mentai I love 2ch which is NHK
------------------------------------------------------------
このとき、hogehoge-manの数とmona-の数、mentaiの数を数えたいのですが、
数える対象を指定する方法がわからんです。

たんに m/$word/とすると、何度もhogehoge-manを数えてしまって効率が悪いです。
どうか 教えてくだされ。

>>310
数えたいのは
/^(\S+)\.(\S+) .+$/
の $2 の部分ってことでいいわけ?
じゃ、ここを切り出して、
$testpattern = $2;
$testpattern =~ m/$word/
でどうよ?

あなたの質問を誤解していたらごめんなさいね。
クククのクーソ

>>311もう少し親切に

@patterns = ('hogehoge-man', 'mona-', 'mentai');
$cnt = 0;

while(<>) {
　/^(\S+)\.(\S+) .+$/;
　$testpattern = $2;
　foreach $pat (@patterns) {
　　$cnt += ($testpattern =~ m/$pat/);
　}
}

クククのクーソ。。。

>>310 ハッシュを使えば良いんじゃないかな。マッチした文字列をキーにして

$count{$1}++

という具合に。

ActivePerl 5.6.1 環境で、外部プログラムを実行し
その外部プログラムの実行時間を親側で監視することって
できるんでしょうか、Unix環境のalarmのような
ActivePerlではalarmは実装されてないので

>>314
UNIXのalarmってそんなものだったっけ？
指定時間後に自プロセスにSIGALRMを送るように設定するものだったと思うけど。

「パソコン」というShiftJISの文字列をjcode.plでEUCに変換すると
「パャRン」のように文字化けします。
これは「ソ」という文字の2バイト目にエスケープと同じ文字コードが
存在するためです。
そこで「ソ」が含まれる文字は「ソ\」に置き換えしたいのですが
どうもうまく動きません。

$str =~ s/ソ/ソ\/;

これじゃダメなんでしょうか('A`)

>>315
言葉足らずですみません
外部プログラムがある一定時間動きっぱなしのときに
KILLシグナル送って強制的に終了させたいと思ってるんです

>>316
jcode.pm とか encode モジュールとかは?
クククのクーソ。。。

>>317
Perl5.8.0ならUNIXと同じalarmが実装されているみたいだよ。

↓のプログラムを実行したら、5秒後にcaughtと表示して終了すればいいんだよね？

sub alrmhandler
{
print "caught\n";
exit(0);
}

$SIG{ALRM}='alrmhandler';
alarm(5);
while(1){;}

>>316
jcode.pl に渡す以前で \ の解釈が行われてないか?

use strict;
require 'jcode.pl';
chomp(my $str = <<'EOF');
パソコン
EOF
jcode::convert(\$str, 'euc', 'sjis');
print join ' ', map unpack('H2', $_), split //, $str; # a5 d1 a5 bd a5 b3 a5 f3

http://homepage1.nifty.com/nomenclator/perl/shiftjis.htm

>>316
$str =~ s/ソ/ソ\\/;

っていうかencode使え

>>320
そうそう、このとおりでつ
実際にはforkのあと子プロセスをexecして、そのプログラムが
一定時間帰ってこなかったときに kill('KILL', $pid);
で子プロセス強制終了したかったんです
Windows環境ではあきらめてたんだけど、バージョンうｐで
alarm実装されてたのか、とにかくありがとうございます

>>321
変数に格納された時点で￥の解釈が行われてました('A`)

文字列置換プログラムでIDを入力したらそいつのメールアドレスが表示されるみたいなプログラムって
できるんですか？例えば tamaru と入力したら [email protected] みたいな

$input = tamaru;
$output = $input . '@domo.ne.jp';
クククのク〜ソ。。。

>>325
IDをキー、"キー + @xxx.ne.jp " をバリューにするような
ハッシュを作っておけば

print $hash{'tamaru'}; とかすればいいんじゃない

>>315 >>317
alarmとかで、ミリセカンド単位で何ms後(例:100ms)になにかしたい場合は、

use Tk;
MainWindow->new()->after(100, \&callback_func);
MainLoop();
sub callback_func { print "hoge\n"; }

これだけで大丈夫ですよ。
afterの代わりにrepeatとすれば定期的に呼び出してくれます。

そんなものをperlで書く意図がわからない
C/C++つかえや、(,,ﾟДﾟ)ｺﾞﾙｧ

>>328
おお、これもいいですね

結局は alarm() で子プロセス kill は ActivePerl5.8/WinXP
ではうまくいかなかった(cygwinではOK)んで
Win32::Process を使って実現しますた

>>329
Windowからのイベント待ちしながら、文字列処理しながらできるのが、
Perl/Tkのいいところじゃないですかー。C/C++は比較対象にすらならない。

$mojiに文字列（html)が入っていて、その中からhttpアドレスだけを全て抜き出したいんですが、どうすればいいですか？
ttp://www.din.or.jp/~ohzaki/perl.htm
見たんですけど、うまくいきませんでした。

どなたか知恵をください。

>>332
まずはh抜きはやめることだ。

>>332
何がうまくいかんのかさっぱりわからん。
そのページに思いっきり答えが載っているというのに。

＞　# 文書 $text から http URL を抽出して @http に格納する
＞　@http = $text =~ /s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]+/g;

巨大な文字列を引数や戻り値として関数間でやりとりするときは
リファレンスにすると効果ありますか？っていうかC,C++屋なので、
Perl使いがリファレンスを全然使わないのが不思議でならないのですが。

>>334
ttpで始まるURLを抜き出せません

8年ぐらい前の記憶では、確かに効果はありました。　計測してみれば…。

Perlの言語的/実装的に見て、リファレンスを使ったところでそれ程の効果が
ないのか、それともPerlerが単にドキュソなのかハッキリして欲しいね。
引数に関しては、あれは暗黙のリファレンス、それもconstの、ってことでいいよね？
だけど、みんなmy変数にいったん「コピー」してから使ってる。ﾊｧ？って
感じでしょ。値の参照だけなら$_[0]でいいじゃん。戻り値の扱いについては
まだちょっと分らず。

>>335
初心者か。
参照使えよ。

>>339
ﾊｧ？リファレンスとは参照のことではないのですか？
&func(\@values);
...
sub func{
foreach (@{$_[0]}) {
こんなに簡単に出来ることをどうしてやらないのか。

>>335,338 一般化して言うんじゃないよ。どんなコード読んでんだ。
>>339 お前は英語を勉強しろ。

>>340
あんた痛いよ。
参照は誰でも普通に使ってる。
ちなみに参照とはリファレンスのことだよ。
こんな事書かなくても分かると思うけど。

自己レス。
>それもconstの、ってことでいいよね？
これは間違い。constじゃなかった。
$ perl -e '$a=0;&{sub{$_[0]=1;}}($a);print "$a\n";'
1

結局どうやればいいんでしょうか・・・
>>335>>338みたいな馬鹿は無視して私の質問に答えてほしいのですが。

>>332
ホレ

http://(?:(?:(?:[a-zA-Z0-9]|[a-zA-Z0-9][-a-zA-Z0-9]*[a-zA-Z0-9])\.
)*(?:[a-zA-Z]|[a-zA-Z][-a-zA-Z0-9]*[a-zA-Z0-9])\.?|[0-9]+\.[0-9]+\
.[0-9]+\.[0-9]+)(?::[0-9]*)?(?:/(?:[-_.!~*'()a-zA-Z0-9:@&=+$,]|%[0
-9A-Fa-f][0-9A-Fa-f])*(?:;(?:[-_.!~*'()a-zA-Z0-9:@&=+$,]|%[0-9A-Fa
-f][0-9A-Fa-f])*)*(?:/(?:[-_.!~*'()a-zA-Z0-9:@&=+$,]|%[0-9A-Fa-f][
0-9A-Fa-f])*(?:;(?:[-_.!~*'()a-zA-Z0-9:@&=+$,]|%[0-9A-Fa-f][0-9A-F
a-f])*)*)*(?:\?(?:[-_.!~*'()a-zA-Z0-9;/?:@&=+$,]|%[0-9A-Fa-f][0-9A
-Fa-f])*)?)?

perlメモから

>>336
「ttpで始まるURL」などというものは存在しません。

あなたの要求は初めから間違っています。「URLで無い文字列」も
同時に抜き出したいなら、自分で正規表現を改造する努力をしてください。
たった一文字変えるだけです。

あるいは、あなたが正確な質問をするなら、誰かが答えてくれるかもしれません。

340のケースにしても、
@valuesの全ての値をいったんリスト値とみなして、
個々の値、それぞれにリファレンスを作成して関数呼び出し。
呼び出された側では、作成されたリファレンスの集まりを
@_という変数でPerlのやってくれる自動デリファレンス機能で
アクセスする。
なんて面倒な処理をさせたくない。リスト値を渡すとしても、
その全てを呼び出される関数内において使うとは限らない。
\@valuesと、参照で渡しておけば必要なものを最低限の
コストでアクセスできる。と思うわけですよ。

>>340
func(\@values);
...
sub func{
　my $arg_listref = shift;
　foreach (@$arg_listref) {

いくらサンプルとはいえ、あなたには優雅さが欠けていますよ。
せめてこれくらい優雅に書き上げてもらいたいものです。

CやC++なら、コンパイラの挙動など知らなくても、
アセンブラソースを見れば、言語的なものがどういった具合に
扱われてるのか一目瞭然だけど、Perlerの人はどうするの？
まさかperlのソースを読むとか？
楽駄本は4章までをかなり読んだけど、内部の細かいところは
ソース見てくれって感じで扱ってないよね。まあセンスのある人なら
インタプリタの挙動ぐらい、弄ってるだけで分るんだろうけど。

>>349
言いたい事が良く分からんのだが、perl -d でイイんじゃねーの。

>>349
言わんとするところは分かるが、方向が間違ってる

・Perlのソースを読まなくても、プログラムの挙動は理解出来る。
　たとえば、length()って書けば、文字列の長さを返せばいいんであって、
　中の人が strlen(3C)を使ってようが、何を使ってようが関係ない。

・言語を勉強する時に、アセンブラソースを見て理解するようでは頭が固すぎ。
　as is で理解しよう。

とはいえ、中の実装が気になることも稀にある。デバグ時とか性能改善
図りたいときとか。でもソース読むより、strace で調べるくらい

>>351
3Cって何？

>>352
man pages のセクション

strlen(3)のことか。

>>340
明示的にそんな書き方しなくても、関数へのパラメタは
参照渡しなので安心すれ。

@a = (1,2,3,4,5);
print join(",",@a),"\n";
test(@a);
print join(",",@a),"\n";

sub test { $_*=2 for (@_) }

>>354
そうとも言えるし、違うとも言える。
俺も正確なことは知らんが Solaris とかの man pages では
C library は 3C とかになってる。
あと X 関係は 3X11 とか。

>>355
もう少しスマートに書きましょう。

>>355
微妙に違う。
個々のパラメータはそれぞれ参照になっているが、配列パラメータは新たなリストが作られる。
例えば…
@a = qw(1 2 3 4 5);
sub test{
push @_, 6;　# $_[0]は$a[0]の参照だが、@_は@aの参照ではない。よってこれは無意味な操作
}
test(@a);
print "@a\n"; #-> 1 2 3 4 5

よって、巨大な文字列を扱う場合は特にリファレンスで渡しても効率はよくならないが、
巨大な配列を渡す際にはリファレンスで渡した方が効率はよくなる。

>>358
戻り値についてはどうなんでしょうか？
関数内においてmyで作成された変数のリファレンスを返すものと、
変数そのものを返すものの違いです。Perlは全ての変数を同一の
ヒープ領域に確保する(と思われる)ので、やっぱりreturnにおいても
暗黙のリファレンスが使われているのかな。

Perlにおいては
関数の引数や戻り値において使われている暗黙の参照＝C++のリファレンス的
'\'において取得し*{}でデリファレンスするようなもの＝C,C++のポインタ的
という考えで間違っていますかね。識者の人、おながいします。

XML::Parser::* と XML::SAX::* ってどう違うの？

ソース嫁

>例えば…
>@a = qw(1 2 3 4 5);
>sub test{
>push @_, 6;　# $_[0]は$a[0]の参照だが、@_は@aの参照ではない。よってこれは無意味な操作
これはそうですね。仮にtestを呼び出すときに、test(@a,@a,@a);
とした場合など(いい例ではないですが)が分り易いですね。@_ != @aの例として。
関数呼び出しの時点で、概念上いったん平たく全ての値を並べて、それに対する
個々のリファレンス(Cでのポインタ)の配列を作成して、
それのアドレスをパースしたツリーに埋め込むという感じなのかな？
$_[]という構文要素は引数として渡されたリスト値の個々の値を指し示すものとして、
@_という構文要素は一時的に作られた(概念上の)配列の全体を示すというものとして、
とらえる感じでいいのかな？

>>362
そうですね。。。ソースを読むのが一番正しいことには違いないです

perlのソースを読める人がこんなところで、ｱﾌｫな質問はしないと思うんだが・・・

>>364
私はアフォです。それは別にいいですが、360については
間違っていますか？間違っているならどうまちがっていますか？

Perlの仕様を熟知していないのであればコピーする方が無難。

f1(['a'..'c']);

sub f1 {
split //, 'xyz';
&f2;
foreach (@{$_[0]}) {
print "$_\n";
}
}

sub f2 {
foreach (@_) {
print "$_\n";
}
}

>>359
戻り値に付いては基本的には値で返しているように見える。
ただしサブルーチンのアトリビュートにlvalueを指定すると参照を返すことになる。
もちろん、C++で参照を返す関数と同様、戻り値を変数に代入するとコピーが発生するわけだが。

my $f = "f";
my $g = "g";
sub f { $f } #1
sub g :lvalue { $g } #2
my $fref = \f();
$$fref =~ s/f/F/;
print f(), "\n", $$fref, "\n";
my $gref = \g();
$$gref =~ s/g/G/;
print g(), "\n", $$gref, "\n";

>>360
大体そんな感じ。戻り値に付いては上記参照。

>>362
細かな所は少しは読んでるけど、全体像をつかむのは辛すぎる…。俺には無理。

>>365
ソース読む前にperldoc嫁。

つーか、細かいこと気にするより書きたいように書いてる方がよっぽど効率がいいんじゃね？
本当に「実行」効率を考えなきゃならんのなら、そもそもスクリプト言語を使うなという話になる。
漏れは、スクリプト言語の利点は手軽さにあると思ってるから、書きやすさ、単純さを優先しがち。

要するに、リファレンス使うのが面倒くさいから必要がない限りは使わないというのが漏れの考え。

>>369
ﾌﾟ

plを使うためにActive PerlをC:\Perlにインストールしたのですが、
コマンドプロンプト上から「ppm>enter」でppmプロンプトを呼び出そうとしても
「No Perl script found in input」と出てきて呼び出す事ができずに困っています。
原因を調べてみたのですがC:\Perl\binにpathを通せばいいらしいと言う事が分かっただけで・・・・

C:\Perl\binにPathを通すにはどうしたらいいのでしょうか？
初心者質問で申し訳ないです。

perlのリソキ(オライリー)
ヤフオク>コンピュータ>本>言語>その他

さっきから３３２と言っている人が自分ではないのですが・・・・。

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

>>371
お使いのOSが2000/XPなら、コントロールパネル->システム->
詳細設定タブ->環境変数と書かれたボタンで環境変数にアク
セスできます。95/98(たぶんMeも)なら環境変数はc:\autoexec.bat
で設定されているのでテキストエディタで開いてpathに;c:\Perl\binを
書き足してください。
ただし、ふつう正常にActivePerlがインストールされた場合Path
は自動的に設定されます。インストールが正常に行われたかどうか
一度チェックしてみたほうがいいと思います。たとえば、コマンド
プロンプトからPerl -v[enter]でPerlのバージョン表記は出るでしょうか。

関数の引数、戻り値の扱いがどうなっているかは、
Devel::Peek::Dumpで見ると分かりやすいよ。

use Devel::Peek;
sub a { Dump(\@_); }
sub b { my $x = 'b'; Dump($x); $x; }
sub c : lvalue { my $x = 'c'; Dump($x); $x; }
sub d {
my @a = qw(a b);
print "[\@a]\n"; Dump(\@a);
print "\n[a(\@a)]\n"; a(@a);
print "\n[a(\\\@a)]\n"; a(\@a);
print "\n[b()]\n"; my $x = \b();
print "\n[\$x]\n"; Dump($x);
print "\n[c()]\n"; my $y = \c();
print "\n[\$y]\n"; Dump($y);
}
d();

教えてください。

$temp1, $temp2, $temp3 ・・・・・・

と自動的にしたいときに

for($i=1;$i<10;$i++){
$temp$i=・・・・・・

とかじゃだめなんですけど、どうすればいいんですか？

>>376
コードを自動的に書き出すスクリプトを実行して、結果を貼り付けろ。

>>376
use strict;

my @temp = ('abc', 'def', 'ghi');
foreach my $temp (@temp) { print "$temp\n" }

my %temp = (a => 'abc', d => 'def', g => 'ghi');
foreach my $key ('a', 'd', 'g') { print "$temp{$key}\n" }

no strict 'refs';
use vars '$temp1', '$temp2', '$temp3';
$temp1 = 'abc';
$temp2 = 'def';
$temp3 = 'ghi';
foreach my $num (1, 2, 3) { print ${'temp' . $num}, "\n" }

>>376
素直に配列使えばいいんじゃ… とか言っちゃダメですか？

こういうことがしたいんと違うん？

for($i=1;$i<10;$i++){
${"temp$i"} = $i;
}
print $temp1, $temp2, $temp3;

>>376
for($i=1;$i<10;$i++){
eval("\$temp$i=・・・・・・");

stat '/path' は stat(2) を行う。
lstat '/path' は lstat(2)
stat FH は fstat(2)
ここまでは問題ないのですが、
lstat FH は何をするのかわかりません。

まじ感謝っす！
みなさんドモ！

>>382
fstat

３桁区切りの値
1,000／-1,000,000
を
1000／-1000000
等の数値にしたいのですが、
スマートに書く方法を教えてください。

>>385
s/,//g;
じゃだめ?
クククのクーソ。。。

ありがとうございます。
確かにスマートでした。
クソでスマソー

Y氏 好循環　　I氏 悪循環　　（日本）
　（健康体）　　（喘息）

1.（神が喘息であるかないかを決める）
　　Y　　　　　　　　I
2.喘息でない人　　喘息の人は
は体力がある　　　体力がない
Y I
3.　　　　　　　　行動力、
　　　　　　　　　五感（嗅覚）が鈍り感性が変化
　　　　　　　　　する
　　Y　　　　　　　　I
4.神は異常な感性の人間は本来人に迷惑をかけるか

ら外に出てはいけないと思っている。
Y I
5.変化なし　　　　アトピーになる
Y I
6.正常な感性　　　外に出なくなりさらに異常な感

　　　　　　　　　性になる
Y I
7.正常な人間 　　 異常な人間（レッテル）

Y I
8. 死
　　Y　　　　　　　　I
9.　　　　　　来世
Y I
10.神は異常な人間は人に迷惑をかけるので行動を抑

制する必要がある
Y I
11.神は異常な人間は人に迷惑をかけるので行動を抑

制する必要があると思っている。
Y I
12.神が喘息であるかないかを決める
　　Y　　　　　　　　I
13.喘息でない　　　喘息である
　　Y　　　　　　　　I
　　　　　1.に戻る

神は事態の収拾に必死、頑張れよー。

アトピー性皮膚炎の治し方

行動力=ガッツ=体力

アトピー性皮膚炎の患者は、
感覚の鈍い人間が多い。
それはなぜか。
幼少期喘息になるから、
体力がつかないため、
五感が弱るからである。
解決方法は、
五感を強くしてやればいい。
体力をつけることですぐに五感が正常になり、
行動力も湧くのである。
五感が正常になり、体力もつけば、
アトピー性皮膚炎も不思議と消えることが多い。

jperl を使っているのですが length 関数で漢字一文字を1バイトとして
計算させるには、どうしたらいいですか?

>>366
&関数名　と関数呼び出しするときは無条件で空リストつけますよね。普通は。
@_がダイナミックスコープで嬉しいことってあるんでしょうかね。自分には分りません。

>>391
不可能！
もっとも、あんたがlength関数が漢字を考慮する様に
jperlパッチを書き換えれば話は別だが

>>391
大抵の文字コードでは、漢字は 2 byte 以上で符号化されているので
1 byte と答える関数は計算方法がおかしい。

…という話ではなく、漢字一文字を 1 文字として返したいのなら、
>>3 の各サイトを参考に length をオーバーライド。

>>392
それが誰にとっての普通かは知らんが、頻繁に呼び出される場合は
&func; の方が引数リストのコピー or 生成が行われない分効率良くなる。

WinNT 3.51でperl使える？

次のソースが、
v5.8.2 built for cygwin-thread-multi-64int　だと駄目で、
v5.8.1 built for MSWin32-x86-multi-thread　だとOKなのですが、
なぜでしょう。前者だと連想配列にアクセスしても空になる。

&init_words;
print "Your Name? ";
$name=<STDIN>;
chop($name);
print "Your word is $words{$name}\n";

sub init_words {
　 open(WORDSLIST, "wordslist");
　 while($name=<WORDSLIST>) {
　 chop($name);
　 $word=<WORDSLIST>;
　 chop($word);
　 $words{$name}=$word;
　 }
　 close(WORDSLIST);
}

>>396
先頭行に%words=();を入れりゃ動くと思うよ、どっちでも。
しかし、スパゲッティなスクリプトだな。

>>397
「%words=();」を入れただけでは駄目です。
ファイルを外出しにしたいのです。
というか、これLearning Perlという本に載っていたサンプルなんですけど。
さらに
foreach $key (keys %words) {
print "at $key we have $words{$key}\n";
}
とやると、at $keyの部分が丸々消え、なのに、$words{$key}
のところはちゃんと表示されます。

>>398
いらつくなよ

wordslist の改行が \x0D\x0A なら、そうなりそうな気がする。

Win32::Process で実行した外部プロセスの
標準出力ってどうやって得ればいいんだろうね
もしくはsystem, execで得た実行結果の標準出力も

chop($name);
で切ったのは、\x0D\x0Aの一文字だけ。

\x0D\x0A
二文字に見えるぅ

わしには８もじにみえるんじゃが

>>384
ありがとうございます。
fstat ですか。
fstat をしたい時にどちらを使おうか悩んでしまいそうだ。

>>396
&init_words;の次の行に
@words_keys = keys %words;
$n_keys = scalar @words_keys;
print "the number of keys is $n_keys\n";
print "@words_keys\n";
を入れて%wordsの中にブツが入ってるか調べたらどうよ。
中身を表示させるのはDebugの基本だぜ。

配列に存在するかどうかを調べる方法ってないの？

use List::Util qw/first/;

my @primary_colors = qw/red yellow blue/;

defined(first { $_ eq 'red' }, @primary_colors); # true
defined(first { $_ eq 'purple' }, @primary_colors); # false

とかは思い付いたんだが、なんだかダサい。カコイイの教えて、エロい人。

>>407 grep じゃ？

>>408
要素数が多い時は遅い罠
順序等が重要じゃないならばハッシュにしてしまうのも手ではある

>>408
perlfaq4 は grep は使ってくれるな、とおっしゃってる。

左ローテートはどのようにやるんでつか？

スクリプトの出力を、そのスクリプトのファイル自身に
格納しておきたいんですがどうやればできますか？
ファイルの末尾に__DATA__と書いておく方法では、
DATAハンドラは書き込みように開けない、といったようなエラーになりました。

一時ファイルに書き出しておいてから
元のファイル名へrenameしてできました。

>>411
@array = @array[1 .. $#array, 0] if @array > 1;
とかのこと？

push( @array, shift(@array) );

>>412
perl script >> script

Perl のオフィシャルサイトは http://www.perl.com/ ですか？

http://www.perl.org/ ？

>>418
そっちみたいですね。
サンクス、

Perlのコーディング規約例でよいものはないですか？
ぐぐっても他の言語の事ばかり出てきて、Perlに関するものがひっかからない...

>>420
Google Search: "Perlのスタイル"
http://www.google.com/search?q=%22Perl%82%CC%83X%83%5E%83C%83%8B%22&lr=lang_ja

質問です
chdir て日本語のディレクトリには移動できないんですか？
できるとしたらどうやればいいんですか

>>420
http://perldoc.jp/docs/perl/5.8.0/perlstyle.pod
http://www.kt.rim.or.jp/~kbk/perl5.005/perlstyle.html

俺の場合、これだけだと不足なのでJavaと.NETのコーディング規約も
参考にしてる。

JavaTM 言語 コーディング規約
http://www.tcct.zaq.ne.jp/ayato/programming/java/codeconv_jp/index.html

Visual Studio コーディング技法
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/vsent7/html/vxconcodingtechniques.asp

質問ですが、



$codepath = argv[0];<----------------たとえば"C:\test\prog/game/"

$codepath =~ s/\\/\//g;

print $codepath;

この結果で、求めているのは当然C:/test/prog/game/なんですが、
私の環境では、このとおりに表示されるのですが、
ある他人の環境では、C:testprog/game/となるのは、
なにか環境変数などの違いがあるのでしょうか？

一応ともに、win2000&cygwin&bashです。
LANGは設定していなく、MAKE_MODE = UNIXです。

# $/=undef
$a=\`look pearl`;
print $$a;
#=>pearly

v5.6.0の結果です。
コマンド置換のリファレンス先の内容が$/によって変わるみたい。
この、振る舞いは、ちょっと、あやしい気がする。

初心者の教えて君ですみません。

変数$pointの値を
printで文字列と混ぜて出力する場合
どう記述すればいいのでしょうか？

例えば$point=10;の場合で
　あなたの得点は10点です。
というふうに出したいのですが･･

>>427
print "あなたの得点は${point}点です。";

>>425
my $original = $ARGV[0];
(my $replaced = $original) =~ tr|\\|/|;
print "[$original]=>[$replaced]\n";

>>426
#--- cmd.p ---
print join "\n", qw(list or scalar);

#--- test.p ---
local $/ = $ARGV[0] ? "\n" : undef;
my @str = `perl cmd.p`;
print map "[$_]", @str;

cmd.p の出力は改行が含まれているので、test.p で $/ の値がデフォルト
("\n") ならコマンド入力演算子が ("list\n","or\n","scalar") を返す。
$/ が undef なら "list\nor\nscalar" というスカラー値を返す。

#--- test2.p ---
my @ref = \('list','or','scalar');
my $ref = \('list','or','scalar');
print map "$_:[${$_}]\n", @ref, $ref;

リストリテラルに対するリファレンスは (\'list',\'or',\'scalar') の略記の
ように解釈される。リストをスカラー変数に代入した場合は最後の
要素が代入される。

よって、何らあやしくない。正常。

perl5.8 以降の safe signal が原因だと思うのですが、
例えば以下のようなコードを実行した場合

$SIG{'ALRM'} = sub { waitpid(-1,1); };
alarm(1);
$_ = select(undef,undef,undef,10);
print "error=$!\n";


perl5.6.2 だと、期待した通り error=Interrupted system call となるのですが、
perl5.8.2 だとシグナルハンドラ内の $! がそのまま返ってきているようで、
結果が error=No child processes になってしまいます。

これは仕様? バグ?
仕様だとしたら、システムコールの再実行条件が特定できねーYO

>>430
この辺に何か載ってない?

perldelta
perl56delta perl561delta
perl570delta perl571delta perl572delta perl573delta
perl58delta perl581delta

>>429
そのとおりやってみましたが、結果は一緒で、
[\\]が[/]にならず、ただ[\\]が消えただけです。

おれの環境下ではできているのですが、どうしてもある他人の環境下では[/]にうまく変換されません。

>>431
ありがとう。流しては読んでたんだけど、perlのキモチになって
もっかいよく読んだらわかった。

unsafe signalでは
・select開始
・sigalarmが起こる
・シグナルハンドラ実行
・select終了(Interrupted system call)

だったのがsafe signalだと
・select開始
・sigalarmが起こる。覚えとく。
・select終了(Interrupted system call)
・シグナルハンドラ実行

となっていたのでした。

$SIG{'ALRM'} = sub { waitpid(-1,1); };
alarm(1);
$_ = select(undef,undef,undef,10);
print "error=$!\n";

上のコードで言うと、selectとprintの間で
ハンドラが呼ばれているんだから $! が壊されて当然というわけか…

$SIG{'ALRM'} = sub { local($!); waitpid(-1,1); };

とすることで期待通りに動くようにしました。さんきう！

>>432
非常に不安なんだが

$codepath =~ s/\\/\//g;

の前に print $codepath; するとちゃんと入力した文字列が表示されてるのか？
入力するときのクウォートの仕方が違う、とかじゃないよね？

厨な質問でスマンが、誰か俺の質問にも答えてくれyo！
それとも放置プレイですか

>>435
WinXP/ActivePerlで確認

require 'jcode.pl';

chdir(&jcode::sjis("C:/Documents and Settings/おまいのユーザ名/デスクトップ/新しいフォルダ"));
system("dir");

chdir("C:/Documents and Settings/");
system("dir");

これでどうだ？

お聞きしたいです。FILE2から特定のデータを持ってきて、FILE3の2番目の配列と完全マッチングをさせて
そのときの行Noを取りたいのですが、うまくいきません。。。
if文の書き方が悪いのでしょうか？
どうかよろしくお願い致します。
open(FILE2,"trace-no.txt");
open(FILE3,"java.txt");
$no = 1;
while($line = <FILE3>){
if ($line =~ /^T/){
@number =split(/ /,$line);
chop ($number[1]);
chop ($number[1]);
#print $number[1];
#print "\n";
#for($i=0; $i<@trace; $i++){
while($traceno = <FILE2>){
chomp($traceno);
print $traceno;

if($number[1] =~ /$traceno/){
push @number1,$number[1];
push @gyou,$no;
print $traceno;
print "\n";
last;

そうか。eucでスクリプトを書いたならsjisに変換しないと
いけなかったわけですか。というかよく俺がwin使っててeucで
スクリプトを書いてるとわかったね。
名探偵ホームズですか？ >>436
とにかく、ありがとう！　出来ました。愛してるよ！

>>437
if も while も閉じ括弧が見当たらんのだが…。
http://www5a.biglobe.ne.jp/~n_rieko/perl/6.htm

>>439
すいません。途中で切れてしまいました。
open(FILE2,"trace-no.txt");
open(FILE3,"java.txt");
$no = 1;
while($line = <FILE3>){
if ($line =~ /^T/){
@number =split(/ /,$line);
chop ($number[1]);
chop ($number[1]);
#print $number[1];
#print "\n";
#for($i=0; $i<@trace; $i++){
while($traceno = <FILE2>){
chomp($traceno);
print $traceno;
if($number[1] =~ /$traceno/){
push @number1,$number[1];
push @gyou,$no;
print $traceno;
print "\n";
last;
}#if-number[1]
}#for-$traceno
}#if-$line
++$no;
close(FILE2);
close(FILE3);

>>440
まだ足りないから ++$no; の後ろに while の閉じ括弧があるとして、
そのスクリプトだと FILE3 の1行目を調べた時点で FILE2 は最後まで
読んでしまうけど、それがお望みの動作なの？
http://www5a.biglobe.ne.jp/~n_rieko/perl/7.htm

よくわからないけどこんな感じかねぇ？

open FILE2,"2.txt";
open FILE3,"3.txt";#ファイル3：スペースで区切ってある
while(<FILE2>){
chomp;
push @trace,$_;

}
while (<FILE3>){
chomp;
@array = split/ /;
++$i;#行番号
for($n=0;$n<$#trace+1;$n++){
if ($array[1] =~ m/^$trace[$n]$/){
print $i," ",$array[1],"\n";
}
}
}
close FILE2;
close FILE3;

>>437
日本語が良く分からん。
trace-no.txt と java.txt の一部を晒して、どういう出力を期待してるのか
書いた方がいいと思うぞ。

s/foo/bar/
よりも
s{foo}{bar}
の方がカッコイイと思うのは俺だけですか？

>>444
1文字多いから打つのだるい

>>444
回数指定に困るんだよな、見やすいけど。
s, foo, bar, x かなぁ、いつも。

perl for windowsで、現在存在している他のアプリケーションの
ウィンドウをタイトルで検索したり、ウィンドウに対してキーイベント等を送ったり
する方法はありますか？

TRACE 18216:
org.apache.jasper.runtime.HttpJspBase.service(HttpJspBase.java:119)
javax.servlet.http.HttpServlet.service(HttpServlet.java:853)
org.apache.jasper.servlet.JspServlet$JspCountedServlet.service(JspServlet.java:130)
TRACE 17957:
org.apache.jasper.runtime.HttpJspBase.service(HttpJspBase.java:119)
javax.servlet.http.HttpServlet.service(HttpServlet.java:853)
java.txtはこんな感じです。
で、ここのTRACEの次の数字をtrace-no.txtの中からマッチングさせてその行が取りたい。
17957なら５行目って感じで。
あと、trace-no.txtは
0
16409
6148
2114
2113
32980
32997
6147
6146
6146
6145
32992
16465
32991
な感じです。

>>448

> 17957なら５行目って感じで。
訳分からん。プリゼン能力０だな

my %trace_no;

open FH, "<trace-no.txt" or die $!;
while (<FH>) {
chomp;
$trace_no{$_} = 1;
}
close FH;

# test
#print "[$_] [$trace_no{$_}]\n" for sort keys %trace_no;

open FH, "<java.txt" or die $!;
while (<FH>) {
if (/^TRACE\s+(\d+)/ && $trace_no{$1}) {
print "$.\n";
}
}
close FH;

こんなんかな？

open FHJ, "java.txt" or die;
open FHT, "trace-no.txt" or die;
while ($_ = <FHJ>) { /^TRACE\s+(\d+):$/ and $lines{$1} = $.; }
while ($_ = <FHT>) { chomp; print $_, " -> ", ($lines{$_} || "not found"), "\n"; }

447おしえてください。

>>452
教えてもらって当然と思ってないかおまいは

とりあえずWin32モジュールあたり調べてみろ

親切だな(ｗ

>>450
>>451
ありがとうございます。
ハッシュをうまく使うといいんですね。
参考になりますた。

すいません、ちょっとお聞きしたいのですが、
@array1 =(1,6,11,3);
@array2 =(4,9,14,6);
このように配列が定義されているとき、
hoge.datファイルを読み込ませて$array2-$array1の行を出力させるにはどのような
処理をさせるとよいのでしょうか？

open IN,"hoge.dat" or die;
while(<IN>){
for($i=0; $i<$array1; $i++){
if (($array1[$i] < $j) && ($array2[$i] > $j)){
print "$_;
}
}
j++;}
close IN;
こうだとうまくいかないです。何かいい方法はないでしょうか？
よろしくお願いいたします。

$array1 やら $array2 はどこで定義されているんですか？

とりあえず全部詠む必要ないきもするけど
open my $fh, '<doc.txt' or die $!;
my @files = <$fh>;
close $fh;
for my $i(0..$#array1){
print join '', @files[ $array1[ $i ]..$array2[ $i ] ];
}

>>457
すいません、配列$array1ではなく@array1でした。
配列の定義は下のようにしています。
#!/usr/bin/perl
@array1 =("1","6","11","3");
@array2 =("4","9","14","6");
>>458
そのようにすると、最初の@array1[0]と@array1[1]との数値になってしまいます。
2hoge2
3hoge3
4hoge4
5hoge5

7hoge7
8hoge8
9hoge9
10hoge10

12hoge12
13hoge13
14hoge14
15hoge15

4hoge4
5hoge5
6hoge6
7hoge7

open IN,"in.txt";
@files = <IN>;
close IN;
unshift(@files, "0行目\n");
for $i(0..$#array1){
print $files[$array2[$i]-$array1[$i]];
}

>>456
hoge.datに何が書いててどう使うのかさっぱりﾜｶﾗﾝ
転載してるコードが文法ミスってる
＞こうだとうまくいかないです。
走らせてみたってことでしょ？どんなエラー出たのか書いてみたら？

>>461
hoge.datにはApacheのエラーログの内容です。
127.0.0.1 - - [06/Aug/2002:15:02:20 +0900] "GET /~alchu/welcome5.htm
127.0.0.1 - - [06/Aug/2002:15:02:33 +0900] "GET /~alchu/welcome3.htm
127.0.0.1 - - [06/Aug/2002:15:02:38 +0900] "GET /~alchu/welcome2.htm
127.0.0.1 - - [06/Aug/2002:15:40:02 +0900] "GET /doc/ HTTP/1.1" 200
です。ここから特定のIPアドレスの行を取るところまではいきました。
ですが、あまりにファイルの容量が大きいため、全文検索はやめたいと思い、
悩んでいます。
>>460はエラーはでませんでした。
表示結果は上記の用になりました。
やはり、下記のように全文検索を行うしかないのでしょうか？
#!/usr/bin/perl
@array1 =("1","6","11","3");
@array2 =("4","9","14","6");
for($i=0; $i<@array1; $i++){
open IN,"hoge.dat" or die;
$j=0;
while($_= <IN>){
if (($array1[$i] <= $j) && ($array2[$i] > $j)){
print $_;
}
$j++;
}
print "-------------------\n";
close IN;
}

>>462
どういう出力を期待してる？
>>456 の「$array2-$array1の行」の意味がワカラン。
1行目から4行目、6行目から9行目… を出力させたいってこと？

>>462
my %num;
for (my $i = 0; $i < @array1; $i++) {
　　my @num = $array1[$i]..$array2[$i];
　　@num{@num} = (1) x @num;
}
open IN, '<' . $file or die $!;
$num{$.} and print "$.: $_" while <IN>;

もしくは

my(%num, @pickup);
for (my $i = 0; $i < @array1; $i++) {
　　my @num = $array1[$i]..$array2[$i];
　　@num{@num} = (1) x @num;
　　push @pickup, [ @num ];
}
open IN, '<' . $file or die $!;
my @line = ('dummy');
$num{$.} and push @line, $_ while <IN>;
print map "$_: $line[$_]", @{$_} for @pickup;

perl/tkのtext widgetで、
表示されてる内容の中のURL部分をクリックしたら、
そのURLをもとにブラウザを起動したいと思います。

そこで、そのURLの文字列をゲットする関数について、
どうすれば作れるか知りたいんです。お願いします。

「Perlについての質問箱」シリーズもかなり息の長いスレになってきますた。
ここで勝手連的にこのスレのサポートページを作ろうと思っています。
いま考えているのは、
1. このシリーズの過去ログアーカイブ
2. スレッド専用ソースコードうｐろだ
3. 過去ログのダイジェスト (Q&Aにまとめたもの)
4. リンク集
こんなところかな。
きながにまっててください。

>>466
がんがれー

>>466
おお、超期待。既出質問の誘導先は決まったな。
気長には待てないのでゆっくり急いでください。

>>466
最初から完成したものを作ろうと思わずに、
とりあえず作って徐々に完成させていけばいいと思うよ。

>>466
こういうのあると助かるよなー
実際仕事で助言頂きたくてこのスレ見ることあるし
ガンガレ

>>470
仕事は自分でガンガレ

先輩方教えて下さい
文字列abcdefを左に2ビットシフトさせてcdefabと表示させるには
どうしたらよいですか？
$a = $a << 2;
これじゃ駄目ですか？

それはビットシフトではない。
$a =~ s/^(.{2})(.*)$/$2$1/;

>>472
$str =~ s/^(..)(.*)\z/$2$1/; # >>473 とほぼ同じ

$str .= substr $str, 0, 2, '';

>>473-474
ありがとうございます．ちょっと作業してみますね．

できたです！！上の通りやったら出来たです！
本当にありがとうございました！
$_ #この変数？って基本ですか？

ご教示お願いします。
以下のperlでprintString1という関数を実行した場合、ファイルの最初の1行を
読み込んだ後、2行目以降を読み込まないのはどうしてでしょうか？
代わりにprintString2を実行すると3行表示されるのですが。。

open($handle,"input1.txt");
for(my($i)=0;$i<3;$i++){
printString1($handle);
#printString2($handle);
}
print "fin\n";

sub printString1{
my($handle)=shift(@_);
my($str)=<$handle>;
print $str;
}

sub printString2{
my($handle)=shift(@_);
$str=<$handle>;
print $str;
}

>>477
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perldata.html#Context
http://www5a.biglobe.ne.jp/~n_rieko/perl/7.htm

わかったのでちゃんと報告します。
Win32::GuiTestが目的のものです。
べんり。

>>466
テンプレサイトですか
先に言っておく、「乙」と。

あぷろだは こういうのがあるけどナ
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/lounge/index.html

正規表現じゃない単なる文字列の置換をしたいのですが
そのような関数ってありますか？

質問箱に質問です
[1-4]asd[1-5]の部分だけをシフトさせたい時は，下のプログラムをどのように書き換えたらよろしいですか？
下のプログラムだとasdf jklの部分からシフトしてしまいます
if(/asdf jkl [1-4]asd[1-5]/)
$_ =~ s/^(.{2})(.*)$/$2$1/;
print "ID is $_\n";

>>481
http://perldoc.com/perl5.8.0/pod/func/substr.html
http://perldoc.com/perl5.8.0/pod/func/tr.html

>>482
http://www5a.biglobe.ne.jp/~n_rieko/perl/8.htm
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlre.html
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlfaq6.html

自分で作りました・・・

sub replace
{
my($str, $a, $b) = @_;
my($offset, $length, $pos, $inc);
$length = length($a);
$pos = 0;
$inc = length($b);
while (1)
{
$offset = index($str, $a, $pos);
if ($offset == -1) { last; }
substr($str, $offset, $length, $b);
$pos += $inc;
}
return $str;
}

s/hoge/fuga じゃイカンのかと小一時間問い詰めたい

どっちが早いんだろう

Benchmark 取るがよろし

split して join ってのもあるが、split の第1引数が正規表現パターンだからダメか・・・

my $db = tie (%h, "DB_File", "test.db", O_RDWR|O_CREAT, 0644, $DB_BTREE) || die "error\n";
とやるとエラーになります。
カッコでくくらないと大丈夫なんだけど…これは環境によるものなんでしょうか？

カッコ外しても大丈夫じゃなかった…%hに何入れてもtest.dbが空のまんまだった…

>>484
Benchmark 取ってみますた

use Benchmark;
$str = "hogehoge";
timethese(1000000, {'test1' => '®exp($str, "hoge", "fuga");', test2 => '&replace($str, "hoge", "fuga");'});
sub regexp{
my($str, $a, $b) = @_;
$str =~s/$a/$b/g;
return $str;
}

#sub replaceは>>484のやつ

Benchmark: timing 1000000 iterations of test1, test2...
test1: 4 wallclock secs ( 4.53 usr + -0.01 sys = 4.52 CPU) @ 221385.88/s (n=1000000)
test2: 7 wallclock secs ( 6.17 usr + 0.02 sys = 6.19 CPU) @ 161603.10/s (n=1000000)

Benchmark 最近覚えたもんだからサブルーチンの比較対象が違うかもしれないが
もし違ってたらご指摘おながいします

>>489-490
http://perldoc.com/perl5.8.0/pod/perlop.html
|| は , より優先順位が上。tie は list operator 。

>>485
例えば、'.'から'_'に置換する場合、
'.'は'\.'にしてやらないといけませんよね。
ただそれだけです。
てゆーか、Perlにreplace相当の関数が標準でないことが不思議です。

>>493
perlfaq6 を読みなさい

先輩方教えてください
if(/ABCD [0-3][0-3][0-3]/){
s/$&//; #←ここで文字列全体（$&）ではなくて数字の部分だけを指定するには，/$&/ /;ここに何を入れたら
よかですか？

>>495
>>482-483

open(STDOUT, "| tee ${sname}.html") || &errorpage("teeのバグ");
open(STDOUT, "| tee ${bname}.html") || &errorpage("teeのバグ");

print "Content-type:text/html\n\n";
・
・
（&errorpage()はまんまエラーページ表示のやつで、$sname・$bnameは名前の文字列っす）
でＣＧＩプログラムエラーが起きてしまいます・・・
問題箇所は間違いなくココなんすけど。
教えてくださいッ！

うっわ、思いっきり板違いですやん・・・
マジすみませんでした

>>497
&errorpage($!);

>>496
ありがとうございます
そこ見て取り掛かってるんですけど，どうしてもできません．
数字のみって指定は\dとかいてあるけど，これを指定したら文字列として扱われてしまうし・・・
ヒントだけでも頂けませんか

>>500
> 数字のみって指定は\dとかいてあるけど，これを指定したら文字列として扱われてしまうし・・・
ハァ？

>>501
>>495

$_ = 'ABCD 231';
print "$_ => ";
if(s/(?<=ABCD )([0-3]{3})/$1/){
#痴漢が行われた時の処理
print "$_\n";
} else {
#痴漢なし
}

>>503
痴漢が行われたときの処理は現行犯逮捕でしょ

今日は 寒いねぇ。冬本番って感じだな

初心者ですいません。
とあるプログラムを起動しようとしたら
Can't locate Win32/API.pm in @INC …
と言うエラーメッセージが出たのですが何が原因なんでしょうか？

翻訳してみたのですが解決方法が解らないのでご教授願いたいと思います。

>>506
Perlというのはまあ、「らいぶらり」とか「モジュール」という名のサブルーチン群を読みながら実行するわけだが、
そのサブルーチン群というのは @INC のディレクトリに格納されている (はず) なわけだ。
君が実行したいプログラムは "Win32/API.pm" というモジュールを読みたがっているようだが、
君のシステムにそれがインストールされていない、とPerlが逆ギレを起こしたんだね。

それから、質問の仕方について。
1. どういう環境ですか (Win/UNIX/Mac)
2. どういうバージョンのPerlですか (perl -v した結果。場合によっては Perl -V だけど、いきなりこれをやると迷惑)
3. どういうプログラムを動かそうとしたのですか (または、どこのサイトから拾ってきたプログラムか)
こういう基本的なことを書いてくれないと返事できなくて激怒する住人がいるので気を付けて下さい。
それから、学校の宿題は友達に聞いてくれ。

>>507
ム板にしては優しい香具師だな

my qw(aaa bbb ccc);
こういう書き方ってできないんでしょうか？

>>507
的確なレス有難うございました。
507さんの回答から検索範囲が狭まってなんとか解決できました。

次質問するような事があれば、基本的な事が判る様な書き込みにしたいと思います。
スレ汚し失礼しました＾＾；

>>509は
my qw($aaa $bbb $ccc); の間違い。ｽﾏｿ

511だけど、とんでもない勘違いしてました。吊ってきまｓ

use DB_File;
use Fcntl;
my %db_imp;
tie (%db_imp, "DB_File", "imp.db", O_RDWR|O_CREAT, '0644', $DB_BTREE)
|| die "Can not open\n";

これだけのコードですけど、dieがかかってしまいます…
imp.dbは生成されるんですけど、
パーミッションが--w----r-Tでサイズ0になってます。

自己解決しました。
パーミッション指定部をシングルクォートでくくるのがまずかったようだけど…どうしてだろ

regexについての質問です。

文字列の中に括弧でくくられたものが「（xxxx(xxxx(xxx)xxx))」などとあった場合、
括弧でくくられた中身をとりだすにはどうしたらよいでしょうか？
具体的には、一番外側の括弧でくくられた文字列を取り出したいと思っています。

>>514
0644 は 8進数リテラル
'0644' は文字列 → 10進数として解釈 → 8進数換算で 01204

>>515
my($part) = $str =~ /^[^(]*\((.*)\)/;

ご質問させて下さい。
ある文字列があり、その文字列の大きさは決まってません。
その文字列を(例えば)2バイト毎に分割したい場合はどうすれば良いのでしょうか。

$str = '0123456789'; # このような文字列を、、

@strs = qw(01 23 45 67 89); #このように分解したいのです。

@strs = unpack("(a2)*", $str);

>>517 こんなのとか？
$str = '0123456789';
@data = $str =~ m/.{2}/g;

>>518
迅速な回答有難うございます。
unpackのテンプレートはそのように使えたのですね、大変勉強になりました。

別解:
@strs = ($str =~ /../g);
奇数文字の場合、最後の一文字も入れたければ
@strs = ($str =~ /..?/g);

あう、リロードする前に出しちゃった。
スマソ

There's more than one way to do itか

　　　　　　　☆ ﾁﾝ　　　　　ﾏﾁｸﾀﾋﾞﾚﾀ〜
　　　　　　　　　　　　　　　　　　　　　　　　　ﾏﾁｸﾀﾋﾞﾚﾀ〜
　　　 　 　 ☆　ﾁﾝ　　〃　 ∧＿∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　 　 　 　 　　ヽ　＿＿_＼（＼・∀・）　＜　　サポートページまだ〜♪
　　 　 　 　 　 　 ＼＿／⊂　⊂＿ )　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿
　　 　 　 　 　　 ／￣￣￣￣￣￣／|
　　　　　　　　|￣￣￣￣￣￣￣ |
　　　　　　　　|　Perlの質問箱 　|／

もう少し待っててくらはい。すみません。

gzipを扱うにはどうすればいいですか？

>>525
好きなのをどうぞ。
ttp://search.cpan.org/search?query=gzip&mode=all

>>526
いやPerlじゃなくてPHPで使いたいんだけど・・・・

氏ね

>>527
ム板にはPHP関連のスレはないよ。
Webプログラミング板とか逝ってみ。

【PHP】質問スレッド　Part12
http://pc2.2ch.net/test/read.cgi/php/1070639208/

・・・と思ったら一つだけあったな。
荒れてるけどなー（ｗ

http://pc2.2ch.net/test/read.cgi/tech/1057324268/l50

●●△▽◎◆□▽●●◆○△

左右対称に反転させて表示させるって分からないよ。。。（´ω｀）
引数がどうだら？って何が何だか。。。泣きたいyo

print join("", reverse(split(/ */, $x))), "\n";

print join("", reverse(split(/ */, $x))), "\n";
これはどこでどうやって使うのでしょうか？

print join("●●△▽◎◆□▽●●◆○△", reverse(split(/ */, $x))), "\n";
？？？（´д｀）ヾ？？？

>>533
>>3

>>531=533
もっと基礎からやれ。

$x = "●●△▽◎◆□▽●●◆○△";

>>532>>535
あ�\、�ｻ�ｻΒ□、?@Βあ�ｻ�ｻ
こう表示されました。

>>536
本買うなり入門サイト読むなりしろ。
http://www.rfs.jp/sitebuilder/perl/
http://www5a.biglobe.ne.jp/~n_rieko/perl/

my $str = '●●△▽◎◆□▽●●◆○△';
print length($str), "\n"; # 13 文字だが 26 byte
my @chr = unpack('(A2)*', $str); # 2 byte ずつにバラす方法 from >>518
print join('/', @chr), "\n"; # ちゃんと分かれている
@chr = reverse @chr; # 順序を反転
print join('/', @chr), "\n"; # 反転した
$str = join('', @chr); # 間に文字を挟まずに繋げる
print $str; # 繋がった

INFILE（ファイル名a）の内容が
I am 1poooo1234.
I am 1qoooo1254.
I am 1poooo1256 and 1poooo7896.
メインの方をwhile文から書くと，
while<INFILE>{
chomp;
if(s/([1-2]{1})(po)(ooo)([0-9]{4})/$3$4$1$2/g){
print OUTFILE"$_\n"; #OUTFILEはファイル名b
}
}
このプログラムだと，INFILEの1行目と3行目は変更されて（ooo12341po）などと表示されるのですが，
2行目は表示されません．if文で一致していないから表示されないのでしょうか？
どのように変更すれば2行目（I am 1qoooo1254.）も表示されるのでしょうか．
ご教授お願いします．

>>538
君は p と q が同じに見えるのか？

>>539
えーっと，pとqは違いますよ．
2行目は変更しないで表示させたいという事です．
上の例でやると2行目そのものが表示されないのです．

>>540
パターンに合わない文字列はそのまま表示させたいならif文にしなければいい

while(<INFILE>){
chomp;
s/([1-2]{1})(po)(ooo)([0-9]{4})/$3$4$1$2/g);
print OUTFILE"$_\n"; #OUTFILEはファイル名b
}

s/hoge/fuga/g は置換するだけじゃなくて、置換した回数も返してる。
>>538のようにifの条件式のなかで置換させると置換が行われないパターンは偽(0)になって、
真の時の処理のprint文がすっとばされてる。

失礼 ) がひとつ多かった
誤： s/([1-2]{1})(po)(ooo)([0-9]{4})/$3$4$1$2/g);
正： s/([1-2]{1})(po)(ooo)([0-9]{4})/$3$4$1$2/g;

>>541-542
なるほど！
if文の中で置換してしまうと一致しないパターンは飛ばされてしまうんですね．
とても勉強になりました．本当にありがとうございました．
感謝です

>>531

use 5.008;
use encoding 'euc-jp';

my $x = '●●△▽◎◆□▽●●◆○△';
my $y = reverse($x);
print "$x\n$y\n";

perl5.6.0のperlfuncのsplitの説明には
perl -le '@a=split(??,"abc");print @_'
#=>abc
となると書かれているように思うがならないんですけど。

>>545 splitが@_を変更すると？

Cの関数内static変数と同じことはPerlでどうやればいいですかね。
closureを使う方法でもいいですが、そうすると関数リファレンスを
代入した変数をグローバル変数として持たないといけないような気がします。
何かいい方法はないでしょうか？

>>547
our

>>548
これです。探していたのは。どうもありがとうございます。

>>545 文書のバグだったらしい

http://216.239.59.104/search?q=cache:5E0fqzw1OUcJ:groups.yahoo.com/group/perl5-porters/message/68517

>>547
perldoc perlfaq7 の How do I create a static variable を
目を皿のようにして読め。

あ、でもourって5.6から追加された機能なんですね。
みなさん、5.00Xはそろそろ切り捨てですか？

小数点以下を切り上げるにはどうしたらいいのでしょうか？？？

>>553
$x = (int $x == $x) ? $x : int($x) + 1;

LWP(libwww-perl)をインストールしてる最中に下記のようなエラーが
出てしまいました。原因がサッパリわからないんですが、どなたか
ご存じないでしょうか。長文でスイマセン。

# perl Makefile.PL && make
# make test
base/common-req........ok
中略

robot/ua-get...........HTTP Server terminated
FAILED tests 1-3, 5, 7
Failed 5/8 tests, 37.50% okay
robot/ua...............HTTP Server terminated
FAILED tests 1-3, 5, 7
Failed 5/7 tests, 28.57% okay
local/http-get.........Can't call method "is_redirect" on an undefined value at local/http-get.t line 216, chunk 1.
HTTP Server terminated dubious Test returned status 57 (wstat 14592, 0x3900) DIED. FAILED tests 1-19 Failed 19/19 tests, 0.00% okay
local/http.............Can't call method "is_redirect" on an undefined value at local/http.t line 189, chunk 1.
HTTP Server terminated dubious Test returned status 57 (wstat 14592, 0x3900) DIED. FAILED tests 1-18 Failed 18/18 tests, 0.00% okay
local/protosub.........ok
中略
all skipped: no reason given
Failed 4/39 test scripts, 89.74% okay. 47/415 subtests failed, 88.67% okay.
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
local/http-get.t 57 14592 19 30 157.89% 1-19
local/http.t 57 14592 18 28 155.56% 1-18
robot/ua-get.t 8 5 62.50% 1-3 5 7
robot/ua.t 7 5 71.43% 1-3 5 7
1 test skipped.
*** Error code 35

ファイルを読み込んで、それの内容を変更して
別の名前で保存するってどうやれば良いんでしょうか？

open,read,write

open(F, "a.txt") || die "メッセージ";
while (<F>) {
print;
}
でread、write、にすれば一連の流れで出来るんですか？

open(F, "a.txt") || die "メッセージ";
while (<F>) {
print;
}
でread、write、にすれば一連の流れで出来るんですか？

なんで or ではなく || をつかう人が多いのだろう?

>>560
目立つから

ああ出来ない！ファイルを読み込んで内容を変更して書き出しが出来ない！

orと||は優先順位が違うッス

-f "読み込みもとファイル名" or die "ないです";
local *Source_data;
open Source_data, "読み込み元ファイル名" or die "$!";
my $Source = join '', <Source_data>; # いっぺんに読み込むのでメモリ容量に注意。
close Source_data;
# $Source を書き換え。
open Destination_data, ">書き出し先ファイル名" or die "$!";
print Destination_data, $Source;
close Destination_data;
みたいな？

結局駄目ぽΣ(ﾟДﾟ)ｶﾞｰﾝ

Perlのプログラムそのものを字句解析・構文解析したいのですが
良い方法ないでしょうか？

>>566
perlに読ませる

>>556
1. ファイルオープンして読みこみ
2. 内容を変更
3. 書きだし先ファイルオープン
4. 3.へと書き出す
5. ファイルクローズして終了

writeはちがうだろ。

open(IN,$in) or die; #元ファイル
open(OUT,>,$out) or die; #出力先ファイル
while(<IN>){ #例として
.......
.......
print OUT $_;
}
close IN;
close OUT;

<Event status="happened" startTime="01:23:45" eventType="song">
　<s:Song title="Unfinished sympathy">
　　<s:Artist name="MASSIVE ATTACK">
　　　<m:Media runTime="307.68"/>
　　</s:Artist>
　</s:Song>
</Event>

これが10個連続しているxmlのプレイリストを、

01:23 : MASSIVE ATTACK - Unfinished sympathy [5:07]
　　・ 　 　　 　・ 　 　 　 　 　 　 　 　 　・ 　 　 　 　 　 　 　・
　　・ 　 　　 　・ 　 　 　 　 　 　 　 　 　・ 　 　 　 　 　 　 　・

と整形して表示するスクリプトを作りたいのですが、
上手くハッシュにして抜き出すには何を使うのがベストですか？
(clipコマンドって複数にマッチしたら最初のしか抜き出さないのかなぁ・・)

お手軽にXML::Simpleはどうでしょ。

use XML::Simple;

my $songlist=XMLin('./songs.xml');

foreach $song (@{$songlist->{'Event'}}){
print $song->{'s:Song'}->{'s:Artist'}->{'name'}." - ";
print $song->{'s:Song'}->{'title'}."\n";
}

こんな感じで
MASSIVE ATTACK - Unfinished sympathy
MASSIVE ATTACK - Protection
みたいに表示されます。

Perlを勉強し始めたばかりのものです。
とあるページで定数の宣言に

*MAX_BUF = \1024
print $MAX_BUF, "\n";

という記述があったのですが、どうしてこれが定数になるのでしょうか？

>>572
http://www.kt.rim.or.jp/~kbk/perl5.doc/perlmod.html#Symbol_Tables

>>573
できました。
XML::SimpleとXML::Parserとexpatをインスコするんですね。

use XML::Simple;
$content = `curl -L ¥"http://www.radiofg.com/rcs/XMLSongs.xml¥"`;
my $songlist=XMLin($content);
print "[ Radio FG Playlist ]¥n¥n";
foreach $song (@{$songlist->{'Event'}}){
print substr($song->{'startTime'},0,5)." : "; # 秒数は省略
print $song->{'s:Song'}->{'s:Artist'}->{'name'}." - "; # アーティスト名
print $song->{'s:Song'}->{'title'}; # 曲名
$length = $song->{'s:Song'}->{'s:Artist'}->{'m:Media'}->{'runTime'}; #演奏時間を変換
print " [".int($length/60).":".int($length%60)."]¥n";
}

素人OSX使いなので勉強になりました。ホント感謝です。

http://live.radiofg.comのソースを使ってました。
(一桁秒数が未修正ですが‥)
ttp://mac.oheya.jp/etc/img-box/img20031213004626.jpg

おー、なんだかかっこいいですね。
秒数はprintfを使って
printf "[%2d:%.2d]", $length/60, $length%60;
なんてやるとお手軽に桁がそろえられますよ。

>>574
本当にあんたは572なのか？

最近Windows環境でPerlスクリプトを書く機会が多いんだが
「Ｗｉｎ３２　Ｐｅｒｌアドミニストレータハンドブック―ＰｅｒｌによるＷｉｎｄｏｗｓシステム管理の自動化」
この書籍は果たして買いでしょうか、迷ってます

質問なのですが、同じ内容の中身が複数ある配列を検索して
検索にヒットしたもののうち１つだけを削除するのに何か上手いやり方ないでしょうか？
たとえば、
@array = ("あああ","あああ","いいい","ううう")
とある場合、あああで検索かけてあああを一個だけ消したいのですが・・・

perlであと何年ゴハン食べれますか？

>>579
別にPerlを使えるから飯食えるわけじゃない。
Perlを使って何が作れるの？っていうことが問題だ。

>>578
ハッシュじゃだめなの？
たとえば

%data = ('あああ' => 2, 'いいい' => 1, 'ううう' => 1);

みたいにキーは文字列、値は重複カウント数をとるようなデータを
作っておいて該当するキーが見つかったら重複カウントをデクリメントする
みたいな

>>578
my @array = qw(a b c d a b c d a b c d);
my $search_word = 'a';

# 頭から消す
for my $i (0..$#array) {
　　$array[$i] eq $search_word or next;
　　splice @array, $i, 1;
　　last;
}
print "@array\n";

# 尻から消す
for my $i (reverse 0..$#array) { (同上) }

Terminating　on　signal　SIGBREAK(21)
ってエラーがでてしまうんですが、たちけて

>>578
>>582
http://www.din.or.jp/~ohzaki/perl.htm#ArrayUnique

>>584
要素をユニークにすることが>>578 のやりたいことだとは限らない。

1. 特定要素で検索することに意味があるのか？
2. 一つだけ残す、ではなくて一つだけ「削除」であることに意味があるのか？
3. 検索にヒットした要素が一つだけである場合削除するのか？

参考になるのは間違いないとは思うけどね。

>>582さんのspliceってやつを使ったらできました！ありがとうございます！
しかし参考にしてる本にはどこにもspliceなんて載ってなかった・・・
丸１日つぶれちゃってかなり鬱です。

マジかよ。spliceなんて push, pop, shift, unshift と並んで
配列処理の基本関数だろ。JavaScriptにも同名のメソッドがあるのに。
そんな本は乞食の燃料用に捨ててしまえ。

W3Cの作る仕様を読まずにHTMLの本を書くことと、
Perlの言語仕様もろくに知らずにPerlプログラミングの
入門書を書くこと、どっちが有害かな？

HTMLだろ、騙されるヤツの数が違いすぎる

掲示板作ったんですが、最初から〜十個までは表示できるのですが
１１個〜２０個という方法が思いつきません。
1から20まで読んで1〜10は廃棄、という方法のほかに何かあるものなのですか？

それと削除機能もですけど、削除されたところを除外して、他のログを上書きという
方法のほかに何かあるでしょうか

>>590
・レコードを固定長にしてシーク。
・削除マークをつける。

>>590
板違いっぽい。
WEBプログラミング板
http://pc2.2ch.net/php/

Perlでiniファイルや、confファイルを読み込みたいのですが、
Javaでいうところのリソースバンドルのような動作するツールはないでしょうか？
よろしくお願いします

>>593
http://search.cpan.org/search?query=locale&mode=all

>>593
http://search.cpan.org/search?query=Conf&mode=all
http://search.cpan.org/search?query=INI&mode=all

>>579
Perlそのものでメシ食ってる人は知らない。
(そこら辺 C や COBOL, Java と違う)
ただ、Perl を知らないと10日かかる仕事を1秒で終えた人ならたくさん知っている。

>>596

依頼人「10日くらい前からなんですが、デスクトップになんか変なアイコンができちゃったんです」
Perlを知っている人「これはねえ、こうやってゴミ箱に動かせば消せるんですよ」
解決に一秒。驚異の早業師”Perlを知っている人”恐るべし。

>>598
Perl使ってる人を馬鹿にしてるんだろうけど、Perl関係ないじゃん。

>>596
そういうケースの9割以上はshで片付けられるかな。
Perlの方が楽だけど。

PerlでCGIばっかりやってると、プログラミング能力落ちるよな。
CGIなんて所詮ただのバッチ処理だから。ベタに書くのが
一番速かったりするし。

>>600
sed,awk使ってもいいならshでも余裕だね
俺は面倒だから全部Perlでやるようになった
おかげでawkすっかり忘れた

>>575
あ、そんなんありましたね。どうも。
独学なもんで基本が‥‥わざわざサブルーチン作ってました。

>>576
モロ間違えました。

>>603
ってまた間違えたり。無線LANケーブルで首吊ってきます。

ありがとうございました。板違い申し訳ないです…。帰ります…。

>>596
どきっとしますた（汗）
おかげで余計な仕事までさせられています（泪）

parrotを使ってみてるひとここにいますか？

PERL:DBI　について詳しい方がいらっしゃいましたら
教えていただきたいのですが。

データベースハンドルを二つ以上、発行して、異なるデータベース
の情報にアクセスすることは可能なのでしょうか？

ちなみに自分が作ったPGを起動すると、一つのDBの情報はもってこれるの
ですが、片方のDBについては、以下のエラーにより、取得できません。
PGでは、データベースハンドルを2個取得して、SQL文を個々の
セッションで発行するようにしています。

[エラー]
Can't call method "prepare" without a package or object reference at mts_kanyuu.pl line 49.
Issuing rollback() for database handle being DESTROY'd without explicit disconnect().

CGIにしても、最近はほぼ100%,LinuxかFreeBSDが使われてて
そういうい場合はPerlもあたらしめのことが多いから、
5.00Xはもう考えなくてもいいのかな。5年ぐらい前までは
WebサーバにHP-UXにPerl4なんて組み合わせもあったんだけどなあ。
もう昔話だね。

>>609
うろ覚えだが、FreeBSD 5.x 系って perl 4.x に戻したんじゃなかった？

>>610
FreeBSD 4.x は Perl 5.005_03 が標準で含まれているが、make world 時の
負担を減らす等の理由で、FreeBSD 5.x からは Perl 自体が標準では
入らなくなった。

ports/packages には 5.005 も 5.6.x も 5.8.x も用意されているので、
4.x だろうが 5.x だろうが必要なヴァージョンをインストールできる
(4.x に 5.8.x を入れたら、/usr/bin/perl が 5.005_03 、/usr/local/bin/perl
が 5.8.x になる) 。

>>601
業務系はほとんど同じだと思うけど。
CGIと業務系はレベル的には変わらないね。
どちらもただのデータ入出力のやり取りだからね。
ま、ゲームも同じような物だけど。
難しいプログラムなんて基本的にはない。
所詮プログラマーなんてそんな物。
面倒なプログラムはあるけど。

随分と自信家だこと

ハーイ、シツモーン! (/*・・)o

globでファイルの拡張子を指定してファイル名取得ってできますよね。
my @list = glob("*.txt");

同じ要領で指定した拡張子以外のファイル名って取得できます？
例えば、Ａフォルダ内のtxtファイル以外のファイル名を取得。

どんぞよろしく。

grep { -f && !/.*\.txt$/ } glob "*"

そのまんま使ったらうまくできました。
ありがとうございました。
どうしてこれで取得できるのか調べねばφ(・・。)ゞ

今までずっとペリと読んでいて今更パールなんて読めません。
一体どうすればいいんでしょうか・・・

真珠と嫁。
国産のオブジェクト指向スクリプト言語は紅玉だ。

>>616
Schwartz変換と同じ。
知らなければ調べるよろし

>>616
my @list = glob("*");
my @not_txt;
foreach (@list){
 if(-f){
  if(!/*\.txt$/){
   push @not_txt, $_;
  }
 }
}

これで我慢しとけ

>>615>>616
調べるためのヒント

1. grep { ブロック } リスト っていう関数があるはず。調べてみましょう。
2. -f ファイルテスト演算子というのものがあります。調べてみましょう。
3. /*\.txt$/ これを ! で否定しているわけですね。
4. && アンドです。両方とも成り立つときに真です。

>>618
　　　_、_
　（　,_ﾉ` ） 　 　　　n
￣　　 　 ＼　 　 （ E）ｻﾝｸｽ!!
ﾌ 　　　 /ヽ ヽ_／／

真珠か、いー響きだ。

文字列を保存したファイルを開いて
その文字列をランダムで表示させるプログラムってどうやるのでしょうか？

>>623
何がわからないのかはっきりさせろ。
１．ファイルの開き方が分からない
２．ランダム値の作り方が分からない
３．表示の仕方がわからない

ファイルを開いてからが分かりません。
どうやってファイルの中の文字をランダムで表示させるのか・・・。

ご教授願います。
http://www.police.pref.osaka.jp/topics/17.html
こんな情勢によって、18未満の登録を受け付けないようにしたいのですが、
西暦と月日から計算して、年齢を割り出すCGIの為、上手く18未満へのエラ
ーを返す事が出来ません。

スクリプトは、
sub age {
my($b_year, $b_month, $b_mday) = @_;
local $_;
if ($b_year < 1000) { $b_year += 1900; }#ver4以前のデータを補正
local $_ = $year - $b_year;
if ($mon < $b_month) { $_--; }
else {
if ($mon == $b_month && $mday < $b_mday) { $_--; }
}
return $_;
}
とサブルーチンを組んであり、呼び出しは
print age($bY, $bM, $bD) . "歳"; のような感じです。

if (age($bY, $bM, $bD) => 18) { $errStr .= "18歳未満の方はご利用出来ません<br>"; }
のようにエラーを返したいのですが、「age($bY, $bM, $bD)」の仕組みがわかりません

ご教授願います。（#ver4以前のデータを補正は必要ないと思われます）

>>625
１と３は分かってて、２が分からないってことでいいんだよな？
randを調べてみそ。

>>608
どのレベルの話をしてるかわからんが、
以下のようなコードで想定通りの動作を得られた。
根本的な勘違いをしてないか?

use DBI;
$s = DBI->connect("dbi:Sybase:SYBASE", 'login', 'passwd');
$p = DBI->connect("dbi:Pg:中略", 'login', 'passwd');

print $p->selectrow_array("SELECT COUNT(*) FROM table1"), ": Pg\n";
print $s->selectrow_array("SELECT COUNT(*) FROM table2"), ": Syb\n";

1つめのエラーは、もらったはずのDBハンドルに 0 とか undef が入ってるんだろ?
2つめのは氏欄
人に説明しやすいソース出せ

Perlスレで PG とかいわれて、DBD::Pg のことかとｵﾓﾀﾖ

>>614
老婆心ながらアドバイス
シェルで使うような正規表現でglobbingしたいのでない限り
opendir readdir 使った方が軽いし融通も効く…と思うぞ

opendir($D, '.') || die;
@dir = sort grep(/pattern/, readdir($D));

perldoc File::Glob File::Find を見ておくのもよいかもしれん

>>626
何を助教授されたいか知らんが
この age ってサブルーチンは、引数の他にも
グローバル変数 $year $mon $mday が必要だろ?
それはセットされてるか?

# このサーバは日本国内にあるのが前提
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
$year += 1900;
$mon++;

もし localtime などを使用して現在日時が得られているのなら、
与えられる引数(サブルーチン内の $b_year とか)は、
localtime のものと互換性があるか?
year は +1900 のゲタをかまさないといけないし
month は +1 のゲタをかまさないといけないワケだが

で、これがいちばん重要なんだが
・サブルーチン age を修正したいのか?
・与えられた生年月日から年齢を得る方法(あるいは18未満判定)を知りたいのか
どちらだ?

>>626
試行錯誤して動かせるレベルなので。。。

sub GetAge {
my($bY, $bM, $bD) = @_;
unless($bY && $$bM && $bD) {return '';}
if($bY =~ /[^0-9]/) {return '';}
if($bM =~ /[^0-9]/) {return '';}
if($bD =~ /[^0-9]/) {return '';}
if($bY < 1900 || $bY > 2023) {return '';}
if($bM < 1 || $bM > 12) {return '';}
if($bD < 1 || $bD > 31) {return '';}

my($s, $m, $h, $D, $M, $Y) = localtime(time);
my $age = $Y + 1900 - $bY;
if($M+1 < $bM || ($M+1 == $bM && $D < $bD) ) {
$age --;
}
return $age;
}
ここら辺なのだろうか？

「・与えられた生年月日から年齢を得えて18未満判定)をしたいのです」
んです、どうこをどう説明したらいいんでしう．．．

おそらく初歩質問。でも自分にとってはかなり問題。
質問させてください。

$list="111aaa222bbb333ggg＜ここでいったん切る＞9999vvvvgggg5555sss"
って変数があっってそっから＜ここでいったん切る＞を目印に文字列を分割したい場合にどうすればよいのでしょうか？
$mae="111aaa222bbb333ggg"
$shirushi="＜ここでいったん切る＞"
$ushiro="9999vvvvgggg5555sss"
こんな感じで３パターンの変数を作りたいです。

よろしくおねがいします。

分割の目印になる文字列が一定ならsplitがお手軽だと思うけど

$shirushi="＜ここでいったん切る＞";
$list="111aaa222bbb333ggg＜ここでいったん切る＞9999vvvvgggg5555sss";

($mae,$ushiro) = split($shirushi,$list);

print $mae."\n";
print $ushiro."\n";

Perl のソースコードを HTML 形式にフォーマットするモジュールありますか?
やりたいのは Perl のソースコードを食べさせる
Vim や Emacs みたいに =pod .. =cut や # 以降を淡色表示にしたり、
変数や定数、予約語や久美子み関数を違う色にタグ付けした HTML のコードを吐き出すの。

このすれのサポートページのコンテンツにと思っていたのだが、結構大変そう。
構文解析とか必要だろうし、なかったら Flex と Bison つかってでもやるしかない。

>>634
Emacsに読み込ませてface2htmlすれば？

>>634 Perlモジュールじゃないけど enscript ってプログラムがあるよ

>>635
VimユーザなのでVimにも相等の機能がないか調べたらありました。
:$VIMRUNTIME/syntax/2html.vim
でHTMLなコードを吐き出してくれるようです。
>>636
Vim/Emacs もいいけど、
こっちの方が呼び出しとか結果をとりこむのが簡単そうなので
こっちにします。

感謝ハムニダ >>635>>636

333 名前： nobodyさん [age] 投稿日： 03/12/17 19:45 ID:???
http://www2.rocketbbs.com/200/pikkee7.html

話が食い違ってる厨房が二匹
printについて熱く議論してるし（ﾌﾟｹﾞﾗ

宿題なのです。
教えてチャンでごめんなさい。
このプログラムがどういう風に実行されてるか解読して来いといわれました。
お暇な方、いらっしゃいましたらお願いします。
sub search_p {
my @key;
$in{word} =~ s/(　)+/ /g;
$in{word} =~ s/\s+/ /g;
$in{word} =~ s/^\s//g;
if (!$in{new_reg} && !$in{word}) { &error("検索項目を入力して下さい。"); }
if ($in{word}) { @key = split / /,$in{word}; }

&header;
&search_win;
print "<br><br>\n";
print "<hr color=\"$body_text\" size=1 noshade>\n";
my ($path, $past, @hit);

foreach $path($log_path, $past_log_path) {
if (!$in{chk_p} && ($path eq $past_log_path)) { last; }
open(READ,$path) or &error('Log open error');
while (<READ>) {
if (@hit >= $hit_max) { last; }
if ($in{new_reg}) {
my (undef,undef,undef,undef,undef,$time) = split /\t/;
if ($now_time <= $time + ($new_limit * 60 * 60)) {
my $w = $past . $_;
push @hit, $w;

}
next;
}
if ($in{chk_m}) {
if (!/^\d+\t\d+\t0\t/) {
next;
}
}
my ($i, $ok, $ng);
foreach $i(@key) {
if (index($_, $i) < 0){
$ng = 1;
}else{
$ok = 1;
}
}
if ($in{select} eq "and"){
if ($ng){next;}
}else{
if (!$ok){next;}
}
my $w = $past . $_;
push @hit, $w;
}

close (READ);
$past = "past";
}
my $cnt = @hit;
if ($cnt == $hit_max) {
$cnt = "<b>検索結果が $hit_max 件を超えたので中断されました。</b>";
} elsif (!$cnt) {
$cnt = "何も見つかりませんでした。";
} else {
$cnt .= " 件";
}
print <<EOF;

<table border=0 cellpadding=2 cellspacing=0 width="100%">
<tr><td colspan=3>
$cnt
<hr color="$body_text" size=1 noshade>
</td></tr>
EOF
foreach (@hit) {
my ($get,$past_word);
if (index($_, $past) == 0){
$past_word = '<font color="blue">[PAST]</font>';
$get .= "&past=1";
s/^$past//;
}
my ($no,$mno,$pno,$tred,$titl,$time,$name,$email,$url,$cmnt,$ipadr,$pwd) = split /\t/;
my $date = &get_date($time);
if ($email) { $name="<a href=\"mailto:$email\">$name</a>"; }
($cmnt) = split /<br>/, $cmnt; $cmnt .= "...";
$get .= "&$dm";

print <<EOF;

スレ汚しすみません。

>>639-643

プログラマ歴5年の俺様が解析するに、これは
「検索項目を入力させて、検索結果を表示するプログラム」
だな。うん

インターネットの匿名掲示板２ちゃんねるにて、殺人を予告するスレッドが立ちました。
以前にもこの人物は同様の行為をくりかえしており悪質、偏執的でかなり危険な状態にあります。

予告がされたURLはこちら↓
http://comic3.2ch.net/test/read.cgi/voice/1071634666/

「年内に」と時刻を指定していることで、かなりひっぱくした状況にあると思います。予告されている対象は、声優の田村ゆかりさんであり、
彼女は年末にライブを行う予定があることから、脅迫罪とともにライブに対する威力業務妨害罪の適用も可能かと思います。

宿題は自分でやろうな

>627
ランダム関数を使うのは分かってるのですが
どうやったら他のファイルの文字列を（ランダムで）表示させるのかが分かりません。

>>648
出来ない事を一度にやろうとするな
他のファイルを読み込む→配列に突っ込む→配列の要素をランダムで選ぶ→それを表示させる

>>638
(´,_ゝ`)ﾌﾟｯ

>649
他のファイル@array（・・・・・・・・）から
どうやって文字をランダムに表示させるんですか？
open(F, txt) || die "表示不可";
のあとが分かりません。

>>651
配列に突っ込むがわからないということでつか？

別のファイルを読み込んだ後はどうするのか・・・分かりません

open(F, "kuji.txt") || die "can't open\n";

srand;
$num= rand(@array);
print "選ばれた文字は$numです\n";

close (F);

これじゃ駄目なんですよ。当たり前なんでしょうが・・・
分かりません。(((ﾟДﾟ;)))) ｼｸｼｸｼｸｼｸ

>>639-643
プログラマ歴15年の俺が推測するに、
こういう風に実行されてるはずだ。

Perl 起動
↓
スクリプト読み込み
↓
構文解析
↓
コンパイル
↓
実行

>>654
「配列の要素をランダムで選ぶ」が分からないんでしょ？
もうちょっと質問する努力をしてくれ

print $array[rand(scalar @array)];

>>655
ごめんごめん 「配列に突っ込む」も分からないのか
つーか何にもわかってねーじゃねーかｺﾞﾙｧ

my @array = <F>;

甘やかし過ぎかな？

そうなんですよ。Perl致し方なくやってるもんで全然分からずに・・・
なんとかあやふやなモノが出来ました。有り難う御座いました。

win上での実行法で質問なんですー
核心部分を言うとperlスクリプトのファイルをダブルクリックで実行した時にDOS窓が開いて一瞬で閉じるのを防ぐ方法は無いでしょうか
$val=<STDIN>やら引数無しsleepでも止まりませんでした・・・

具体的にはスクリプトファイルへのショートカットをSendToフォルダに置いて、任意ファイルを「送る」からプログラムに投げたいのです
んでその後パラメータを入力するって動作をさせたいのです

>>659
1) 「最小化して実行」
2) wperl.exe を使ってみる

質問なのですが、
ひまわりっていう日本語プログラム言語のページに書かれていたんですけど、
>PerlやRubyのようにバイトコードに変換してから実行すれば
>速度面は改善されるだろう。
えっとperlてバイトコードに変換してから実行してたんですか？

Windows2000でActivePerl5.8つかってるんですが、
perlのbinフォルダにある、perl.exeとperl5.8.0.exeの違いって何ですか？

>>662
ファイル名のみが違う。中身は(たぶん)一緒。
いずれも、実行部本体である perl58.dll を呼び出している。

で、なぜ名前が違うものが用意されてるかというと
Perlバージョンに依存したものを実行する必要があるときのため。

>>663
了解。さんくす

てかCRCとったら同一でした・・・・
すません。

md5も一緒でした

unixだとハードリンクしてるだけなんだがな。

print "abc";
sleep(1);
print "def";
sleep(5);
print "ghi";

こう書いたら6秒止まってからabcdefghiと出ます。
abc(1秒止まって)def(5秒止まって)ghiと表示するにはどうすればいいでしょうか？
なぜ上記ではダメなのかも教えていただけるとありがたいです。

>>668
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlfaq5.html#How_do_I_flush_unbuffer_an_outpu

$| = 1;
print "abc";
...

$arr = [
　['', qw(a b c)],
　[qw(A 1-1 1-2 1-3)],
　[qw(B 2-1 2-2 2-3)],
　[qw(C 3-1 3-2 3-3)]
];

↑のような配列を
↓のように変更したいのです。

$arr = [
　['', qw(A B C)],
　[qw(a 1-1 2-1 3-1)],
　[qw(b 1-2 2-2 3-2)],
　[qw(c 1-3 2-3 3-3)]
];

一応考えてみたのですが、もっと良い方法がある、とかありましたら教えて頂けますでしょうか。

my $reverse_arr = [];
my $n = '';
for ($n = 0; $n <= $#{ $arr }; $n++) {
　push, @{ $reverse_arr }, [ map { $arr->[$_]->[$n] } 0 .. $#{ $arr } ];
}
$arr = $reverse_arr;

>>670
foreach my $array_ref (@$arr) {
　foreach (@$array_ref) {
　　tr/a-zA-Z/A-Za-z/; # 小文字を大文字、大文字を小文字に変換
　　s/^(\d+)\-(\d+)$/$2-$1/; # ハイフン区切りの数字の前後入れ替え
　}
}

# 結果の確認
print "@$_\n" for @$arr;

これでいいのかな？やりたいことと違うならもう少し詳しく説明よろ

>>671
申し訳ない。例が悪かったです。

$arr = [
　['', qw(a b c d e)],
　[qw(A あ い う え お)],
　[qw(B か き く け こ)],
　[qw(C さ し す せ そ)]
];

↓

$arr = [
　['', qw(A B C)],
　[qw(a あ か さ)],
　[qw(b い き し)],
　[qw(c う く す)],
　[qw(d え け せ)],
　[qw(e お こ そ)]
];

正式名称知りませんが、表の軸の入れ替え？をしたいのです。
一応自分の書いたコードでも動作しているのですが、他にスマートな方法があればお伺いしたいな、と。

行列の行と列を入れ替えるってことですね。
素直に書くとこんな感じ？素直な分、>>670さんのより多分早いと思う。

for (my $i=0; $i < scalar @{$arr}; ++$i){
　　for (my $j=$i; $j < scalar @{$arr->[0]}; ++$j){
　　　　($arr->[$j][$i], $arr->[$i][$j])=($arr->[$i][$j], $arr->[$j][$i]);
　　}
}

あ、だめだ>>673はn行n列の行列じゃないとうまく動かないや。

>>661
http://www.perldoc.com/perl5.8.0/pod/perlhack.html#Elements-of-the-interpreter
http://www.perldoc.com/perl5.8.0/lib/B/Bytecode.html
http://www.perldoc.com/perl5.8.0/lib/ByteLoader.html

>>672
670のでいいんじゃ？
列を行にしてるんだよね
逆に行から列もできるけど行数x列数だけpushしまくりになるからめっちゃ遅いだろうな・・・

変換対応のテーブルを事前に作っておくか自動で作って置いて、変換の際はそそくさと済ませちゃうとか。
sin 計算が煩雑なのであらかじめ sin テーブルを作るみたいなノリで。＠わりと古い脳内回路です(^-^;)

行列モジュール使っちゃダメか？

>>677
脳内杉
この案件だとそそくさも何もないだろｗ

質問です。
perl.exeとwperl.exeの違いは具体的に何なのでしょうか？
Windowsだと.plファイルを関連付けするとDOS窓が起動しなくなるけど、
Linuxなんかでは違う動作なのでしょうか？

>>680
Subsystem=3(コンソール)
Subsystem=2(GUI)
の違い。具体的な違いについてはパス。

コンソールアプリでバイナリをつくると、デスクトップから
実行した際に、(コンソールを放棄しても)コンソールが現れてしまうし
GUIでバイナリ作ると、今度はコマンドラインから起動しても
start XXXX.exe と同じく実行ファイルが終了を待たずに detach されてしまう。
コンソール/GUI共用バイナリはとても作りづらいので、
用途によって perl.exe wperl.exe を使い分けるちうわけだ。
Perl/Tk なサンプルコードを書いて、コマンドプロンプトから
perl wperl それぞれで起動してみるとわかるんじゃないかな?

ちなみに Unix 系のバイナリでは、wperl に相当するバイナリは存在しないのが普通。

１６進数が文字列として処理されてしまうのですがいい方法ないですか？

-----処理----------
$a="10:0x10";

@b=split(/:/,$a);

print "$b[0]\n";
print "$b[1]\n";

-------結果-------
10
0x10 <--- ここを１６にしたいのだが．．．．

>>682
hex

>683

申し訳ないが、hexを使う場合、以下のように１６進の判定が必要になります。
if($b[1]=~/^0x/){
$b[1]=hex($b[1]);　# または、$b[1]=sprintf("%x",substr(b[1],2);
}
print "$b[1]\n";

例が悪かったのですが、１０進、１６進どちらの形式が入力されているかが、あらかじめ分からない場合、上記のような判定分なしの解決策はないでしょうか。

>>682
先だって16進→10進変換行っておけ

$a =~ s/0x([0-9A-F]+)/hex($1)/egi;

(安全のためには、split で切り出してから変換した方がいいのだが
手を抜きたい場合は上記でおk)

ちょっと質問させてください。
あるファイルをバイナリとして読み込んで、
それに対応した画像を表示させようと思っています。
例えば「01 23 45 67 89 AB」という内容のファイルで
0〜F.gifのファイルで対応させています。
１バイトで画像二つ分になります。
大体うまくいくのですが、おそらく「00」があると
「0」として認識している感じです。
いろいろ対応をしたんですがことごとく失敗してます。
対処法を教えていただけませんか？

以下に現在の方法を簡単に書きます
@data に1バイト分の数値データの配列が入っています。
（当然0から255までの数値のみ）

foreach $a (@data){
$a = sprintf("%x", $a);
}

で、16進法に変換します

for ($i=$start1 ; $i<= $end1 ; ++$i){
$dat = $dat . $data[$i];
}

文字列変数$datに指定範囲のデータを入れて
0〜Fのを画像タグに置換しています。

%02x

>>687ｻﾝ
ｻﾝｸｽ!!!

$a = sprintf("%x", $a);
を意味を理解せず使ってたので…
精進いたします。

>>686
本題には関係ないが、

$a (と $b) は使わない方が良い
$dat = $dat . $data[$i]; は $dat .= $data[$i]; とも書ける

>>689
ちゃんと理由も説明してやれよ

>689ｻﾝ
$a $bはここに書くために変えました。
元は他の変数名です。

$dat .= $data[$i];
こんなのあったのはなんとなく知ってましたが、
このプログラムをちゃちゃーっと書いていたので、
調べるのもなんなんで、安易にああしました。
こっちのほうがきれいですよね。

ご丁寧にありがとです。

$data[$i]をsprintf("%x", $a)にしたほうが
全然効率的だとしばらくして気が付いた…（苦笑

$aを使わないほうがいいのは暗黙的にある関数に使われていて
干渉するから…とかですか？

ぐぐってみたけども'$a'がなかなかうまく引っかからないのね…

>691
sprintf("%x", $a)じゃなくてsprintf("%02x", $data[$i])だった…

かなり旧型のWin98機でActivePerl5.8.1を使っているのですが、
モジュールをインストールする際に必要な C コンパイラで、手軽というか
容量が少なくてすむものはないでしょうか。
Borland C++ や Cygwin は、このマシンにはきつくて。

>>692
http://www.hyuki.com/yukiwiki/wiki.cgi?Perl%A4%CEsort%B4%D8%BF%F4

Googleで「一般的な単語なので云々」って言われたら「+」を使うといいですよ。
http://www.google.co.jp/intl/ja/help.html

>>691
my $file = "\x00\x00\x00\x32\x5F\x0D\x0A\x23\x00\x00";
my $dat = substr join('', unpack 'H2' x length $file, $file), $start, $end - $start + 1;

>>693
LSI-C 86 試食版
でググるといいかも。。。
クククのクーソ。。。

perlをつかって２ちゃんねるに書き込みする事はできますか？

>>697
http://member.nifty.ne.jp/hippo2000/perltips/LWP.html
http://www.monazilla.org/

>>697
どういうスクリプトで書いていたか (Perl? sh? Ruby?) は分からないけど、
適当なプログラムを組んで自動的に２ちゃんねるにかくことはできるわよ。。。

http://pc.2ch.net/test/read.cgi/linux/1059012918/
で hourly kernel.org.ticker という人のレスは一時間おきに自動的に投稿されているの。。。

クククのクーソ。。。

質問させてください。
簡単なチャットを作ったのですがどうしてもうまく動きません。
同じディレクトリにchat1.cgiとchat1.datとcgi-lib.plを置いています。
表示はできるのですが送信を押すとInternal Server Errorになります。
使用環境は自宅サーバーでApach1.3.29とActivePerl5.6です。
どなたかわかる人いましたらご教授おねがいします。

エスパー募集中です。未経験者歓迎。

ソースはこちらです
http://www.geocities.jp/opooo5547/chat1.cgi.txt

/var/log/apache/ の下に error.log とかない?
そこにヒントがあるかも知れないわね。。。
鯖が動いているプラットフォームは Windows かしら?
だとしたら↑のディレクトリじゃないけど、
Apache が吐き出すエラーログをよく見るのよ。。。

クククのクーソ。。。

>>700>>702
18行目。
×spritf
○sprintf
クククのクーソ。。。

>>704
うわああああああああ！！
大感謝！！
うごきました！！！

>>705
何やってんだ。最低でもコンパイルエラー取り除いてから実行しろよ。

>>706
>>700にも書いていたと思うけど、 perl -cw chat1.cgi やっても見つからないわよ。。。
クククのクーソ。。。

>>707
そりゃif文の中チェックしてないからだろ

へぇ、そうなんだ
初耳

>>708
if文は関係無い。
未定義の関数を呼び出す文があっても
-wc はエラーを出さないよ。

$ perl -wce "a();"
-e syntax OK

>>704-710
(´-`).｡ｏＯ( 組込関数の冗長な括弧を書かなければ防げたね… )

上級者の方に質問ですが、
perlのコンパイル時に実行禁止の関数を設定できるオプションがあるようなのですが
いくら探しても出てきません。
例えばexecやsystem,symlink関数を使わせないようにするには
どうすればいいでしょうか？

クンクンこんなとこにまで出てくんなよ！















…と思ったら葬式か。まあ、葬式だけは許してつかわす

>712
$ perl -M-ops=exec,system,symlink -e "system 'ls'"
'system' trapped by operation mask at -e line 1.

http://www.perldoc.com/perl5.8.0/lib/ops.html
http://www.perldoc.com/perl5.8.0/lib/Opcode.html

>>698
それではできない。以上。

>>681
お礼が遅くなってすみません。
半分くらい理解、あとは自分で調べます。
ありがとうございました！

gccのPerlとActivePerlって共存可能ですか？
あと違いはありますか？
ついでに皆さんのOSとインタプリタを教えてください。


print "Start ...";
# 重い処理
print "Done.\n";
と書くとprintされるものが\nまで溜め込まれるようで
「重い処理」が終わった後に表示されてしまい、意図したものと異なってしまいます。

print "Start ...\n";
# 重い処理
print "Done.\n";
と書くと思ったように表示されますが、 Start と Done を一行に表示させたい場合、
どうしたらいいですか？

あ、後ろの質問の解決方法がわかりました。

$| （use English;していれば $OUTPUT_AUTOFLUSHも可） に
0以外の値をセットすると、printとかwriteを実行するたびに
出力するんですね。

まだ試していませんが、これで多分 解決！

>>717
わたしは Cygwin の Perl が半分、もう半分は職場から自他草場に繋げて Linux の Perl ね。
バージョンは 5.8 系を。
クククのクーソ。。。

>>717
WinXP + ActivePerl + cygwin(Perl除く)ですが何か

>>717
cygwin 内で閉じてるときは cygwin perl
スタンドアロンのときは ActivePerl
使い分けてるな。W2k.

cygwin perl と ActivePerl の違いはクサる程ある。

>>717例えばNT 系で chmod は鬼門だわ。。。
ククーン。。。

>>717
オレの環境ではActivePerl522ベースのjperlと
ActivePerl808が共存してるからできるんじゃないの。
一方を、例えばgccのperl.exeをgperlとかに変更すれば
いいとおもわれ。

文字列を四文字づつのリストに分解したいです。

例："abcdefghijklmnop" ⇒ ("abcd", "efgh", "ijkl", "mnop")

一行くらいでスパッとやるイディオムをｷﾎﾞﾝﾇ

>>724
>>517-521

>>725
�dｸｽ

日本で一番レベルが高いPerlコミュニティーってどこ？

>>727
巨大掲示板群「２ちゃんねる」のプログラム板「Perlについての質問箱」とか
WebProg板のPerl関連スレッドとかかしら。。。
クククのクーソ。。。

>>728
バッカじゃねぇーの

いつまで葬式やってんだよ

>>696
え、LSI-C 86 試食版でモジュールのコンパイルってできるのですか
どうもです試してみます

教えてください。

openで指定するファイル名に、ワイルドカードを使用することは可能でしょうか？
別システムから上がってくるログファイルの内容を読み込んでチェックしたいのですが、
目的のファイル名が前半部分しか特定できません（後半はランダムな文字列が上がってきます）。
ですので、例えば
samplexxxxx.logというファイルの'sample'部分だけを指定し、samplexxxxx.logをオープンしたいのです。
イメージとしては、ワイルドカード使用のような方法があればと思います。

open (InFile1, "sample*.log")

のような指定は可能でしょうか。また、なにか他に方法はないでしょうか……。
勉強不足だなーとは思うのですが、よろしくお願いします。

>>732
my @file = glob 'sample*.log';
for my $file (@file) {
　　open InFile1, '<' . $file or die $!;
　　...

>>732
open(FH, '/bin/cat /path/to/sample*.log |');

>>733,>>734

すばやいご回答ありがとうございます！
早速試してみます。

ありがとうございましたー（礼）。

>>732
本当にそういう処理をしないといけないのかしら。。。
samplefoo.log と samplebar.log って二つのファイルがディレクトリ内にあったら、
どちらがオープンされるのか分からないわよ。。。
ただ単に「○●という処理がしたい」という前に、本当にそういう処理が必要なのか
考えてみたらどうかしら。。。
クククのクーソ。。。

一括処理したい時は普通にある

>>736
なにも前提条件ないので、処理の順番とかそういうものに
一切目をつぶった回答をしてみた。これで困るなら
質問者>>732からさらなる質問があろうと思ったので。

もっと手抜きするなら for (`/bin/cat /path/to/sample*.log`)

ちなみに俺は opendir 派。

UNIXに依存したコードってｶｺﾜﾙｲ。

perlってパースした後のデータを、ファイルに書き出すような機能ってあるの？
またそれを読み込んだりして、コンパイルのオーバーヘッドを回避したり。

>>740
> perlってパースした後のデータを、ファイルに書き出すような機能ってあるの？
何の事言ってるか知らんが、serialize の事なら相当の機能はある。

> コンパイルのオーバーヘッドを回避したり。
(´Д`)？

>>741
上に書いた「データ」というのはプログラムのことです。
http://perldoc.jp/docs/modules/Storable-2.05/Storable.pod
ここに書いてあるようなもののことではありません。
*.plというプログラムをパースしたあとのデータという意味です。
mod_perlのないサーバーでCGIを軽く実行させるために
何かいい方法はないかと探してました。

>>742
http://perldoc.jp/docs/modules/CGI-SpeedyCGI-2.21/SpeedyCGI.pod
http://perldoc.com/perl5.8.0/pod/perlcompile.html
http://perldoc.com/perl5.8.0/pod/func/dump.html

perl2exe

ActivePerlでImage::Magick 5.26を使ってbmpをjpgに変換するスクリプトを作ってます
Setメソッドでqualityパラメータを渡せば圧縮品質を決めれるらしいのですが
qualityの値を指定してもしなくても、生成されるJPEGファイルのサイズが同じで指定が効いてないようです
こりゃ仕様？バグ？未実装？
何か知ってる人いたら助けてくらさいー

初学者です。
違う書き方がいくらでもできてしまうPerlに萎え萎え。
推奨コード、非推奨コードみたいなのをまとめたドキュメントってどっかに転がってないものでしょうか。
ひととおりの書き方を覚えて、その中から好きな書き方を選ぶのってなんだか手間だよ。

>>746
PerlやめてJavaでもやれば？
初学者ってことは仕事でやってんじゃないんだろ？
萎えるようなもんわざわざやることはない。

>>746
散々既出だけど、先ずはperldoc perlstyle。日本語訳はこれ。
ttp://perldoc.jp/docs/perl/5.8.0/perlstyle.pod
それからEffective Perlに一通り目を通すと
書き方が収斂されていくと思うまつ。

でもPerlってそんなに自由過ぎるかな？
pythonはよく知らないんだけど、そっち系から入ってくると
萎え萎えなのかな。

書いてくウチにだんだん収斂しテクに一票
いっぺん中〜大規模なもの書いてみれば
スタイル身に付くよ

人のコードは参考にならないことが多い(むしろ害になることも)

CGIにはろくなコードはないので、絶対に参考にしちゃだめです。
むしろSchemeから学ぶことが多いです。

$val = 'foo' if not $val;

$val ||= 'foo';

$val = $val ? $val : 'foo';

$val !~ /.+/s and $val = 'foo';

perlﾏﾝｾｰｗ

>>751
どれが一番速いんですか？

if (! $var) {
$var = 'foo';
}

が一番イイと思う

ブロックに出入りするより短絡論理演算が速い現実

くだらないが素直にベンチ執ってみる
#!/usr/bin/perl
use strict;
use Benchmark;
timethese(1000000,{
1=>q{
my $val='';
$val = 'foo' if not $val;
},
2=>q{
my $val='';
$val ||= 'foo';
},
3=>q{
my $val='';
$val = $val ? $val : 'foo';
},
4=>q{
my $val='';
$val !~ /.+/s and $val = 'foo';
}
})
Benchmark: timing 1000000 iterations of 1, 2, 3, 4...
1: 0 wallclock secs ( 1.09 usr + 0.00 sys = 1.09 CPU) @ 916590.28/s (n=1000000)
2: 1 wallclock secs ( 0.85 usr + 0.00 sys = 0.85 CPU) @ 1175088.13/s (n=1000000)
3: 0 wallclock secs ( 1.02 usr + 0.00 sys = 1.02 CPU) @ 978473.58/s (n=1000000)
4: 1 wallclock secs ( 1.08 usr + 0.00 sys = 1.08 CPU) @ 924214.42/s (n=1000000)
＠Pen3　ActivePerl5.6.1ですた

うーむ。俺の好みの順番と一致してるのには驚いた。

>>755
5 => q{
my $val = '';
if (! $val) {
$val = 'foo';
}
}

2.4.23 i686 GNU/Linux, Perl 5.8.2 で同じくベンチ。
環境によって結構変わるみたいですな。

1: 2 wallclock secs ( 2.02 usr + 0.00 sys = 2.02 CPU) @ 1485148.51/s (n=3000000)
2: 3 wallclock secs ( 1.96 usr + 0.00 sys = 1.96 CPU) @ 1530612.24/s (n=3000000)
3: 2 wallclock secs ( 1.93 usr + 0.00 sys = 1.93 CPU) @ 1554404.15/s (n=3000000)
4: 3 wallclock secs ( 2.25 usr + 0.00 sys = 2.25 CPU) @ 1333333.33/s (n=3000000)
5: 2 wallclock secs ( 2.04 usr + 0.00 sys = 2.04 CPU) @ 1470588.24/s (n=3000000)

3と4のコードはあくまで>>746に対する遊びなんで本気になさらず・・・

初心者ですが質問させてください
たとえば
モナ１歳東京
ギコ２歳大阪
シィ３歳アメリカ
これがdata.datの中に入ってまして
これを出力させたいのですが

#!/usr/local/bin/perl

$filename = "data3.txt";

open(FILE, $filename);
$v = <FILE>;
close (FILE);

@allbody = split(/\n/,$v);

for ($i = 0; $i < @allbody; $i++){
print "$allbody[$i]";
}

exit;

これでうまく出力できません
改行ごとに１つの文字にしてそれをタブで区切って出力したいのですが、どなたかご教授お願いします
初心者ですみません

モナ(タブが入ります)１歳(タブが入ります)東京

$filename = "data3.txt";←間違い
$filename = "data.dat";です

>>759-761
お前の説明では、何を訊きたいのかさっぱりわからん。

$filename = "data.dat";

-f $filename or error('No such data file.');
local *FILE;
open FILE, '<' . $filename or error('Cannot open data file.');
@allbody = <FILE>;
close FILE;

print "$allbody[$_]"
    for 0..$#allbody
;

＞　改行ごとに１つの文字にしてそれをタブで区切って出力したい

これがよくわからんなぁ。

元データのタブ　→　削除
元データの改行　→　タブ

つーことなんかねぇ。
ブラウザに出力するなら print "Content-type: うんたらかんたら\n\n";　も足りんし。

>763
ありがとうございます！
でもなぜ
#!/usr/local/bin/perl

$filename = "data.dat";

open(FILE, $filename);
$v = <FILE>;
close (FILE);

@allbody = split(/\n/,$v);

for ($i = 0; $i < @allbody; $i++){
print "$allbody[$i]";
}

exit;
これではだめなのでしょうか…

/\n/

あえて元のスクリプトを活かすんだったら undef $/; かねぇ。
とりあえず、$v = <FILE>; で一行しか読んでないだろ。

ただ、やりたいことは、

$filename = "data.dat";
open(FILE, "<$filename") || die "$filename: $!";
while (<FILE>) {
chomp;
print;
}

(動作未確認) で済みそうなんだが。

>766>767
ありがとうございます！
ちょっと難しいので勉強して出直してきます！

>>747
ちょっとしたファイル操作で一発プログラムを書くのに便利そうなので勉強してます。
萎え萎えって書いたけど、Perlの泥臭ささはひとつの憧れでもあります。
工事現場で汗まみれになって働いてる男たちのある種のかっこよさと似ていますね。

>>748
ありがとうございました。
既出だったとはすいませんでした。
教えていただいたURLたいへん参考になりました。
EffectivePerlもそのうち買ってみます。

>>749
やっぱり書いていくうちに自然におぼえていくってのがセオリーなんですね。
人のコード読むためには必要なのかなあといろんな書き方覚えているところですが、
自分でどんどん組んでいったほうが意外と早道なのかもですね。

>>750
CGIのコードが糞ってのは驚きです。
いちばんPerlが普及している分野なのに！
schemeってそんなにいいんですか？
schemeのコードがそのままPerlでも動くんだったら勉強してみようかな・・・。

>>751-758
いろんな書き方の勉強になりました。

>>769
CGIはPerlを学ぶ参考にならんよ。

CGIは、モジュール読み込みのオーバーヘッドを嫌悪し、
関数呼び出しのオーバーヘッドを嫌って書かれる。
既に存在するモジュールを使わずに車輪の再発明を繰り返し、
コピペし、インライン展開し、UNIX依存のコードを書いて。
0.01秒の実行速度向上のために、スクリプトをプリプロセッサに通し、
本体を__END__以下に移し、分割し、dumpし、コンパイルする。

少なくともそこにPerl本来の美しさは無いよ。

Effective Perl嫁

初心者ですがまた質問させてください！
皆さんの協力で何とかここまでたどり着けたのですがこれを名前順や年齢順にソートするにはどうやったらいいのでしょうか
#!/usr/local/bin/perl
$filename = "data.dat";
print <<"EOM";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY bgcolor="000000" text="ffffff">
<CENTER>
<TABLE border="2">
EOM
open(FILE, $filename);
@allbody = <FILE>;
close (FILE);
foreach $line (@allbody){
($name, $nenrei, $jyusho) = split(/\t/, $line);
print "<TR><TD>$name</TD><TD>$nenrei</TD><TD>$jyusho</TD></TR>";
}
print <<"EOM";
</TABLE>
</BODY>
</HTML>
EOM
exit;
ご教授おねがいしますm(_ _)m #掲示板の都合上改行は避けています

>>772
シュワルツ変換でググれ
あとラクダ本持ってるんならどこかに書いてある

どこかにsortを入れて簡単にちょちょいとできないものでしょうか

$filename = "sort data.dat|";

にすれ。
年齢順なら "sort +1 data.dat|" な。

>>769
> 工事現場で汗まみれになって働いてる男たちのある種のかっこよさと似ていますね
似てね〜

> CGIのコードが糞ってのは驚きです
あぁ、こっちなら似てるかもね。

>>770
それもあるかもしれないけど、CGI の場合、
1. いろんな人がイイカゲンな (中途半端な) 知識で「CGI のつくりかた」みたいなのを書いていて、
2. 初心者がそれを鵜呑みにしちゃって、汚ない (Perl を理解せずに書いた) コードが氾濫、
3. そして、Perl を理解したつもりになって 1. に戻る
ってのもあると思う。
いや、もちろんちゃんと書かれたものや、綺麗なコードもありますよ (たぶん)。
非常に稀だけど。

ゴメン

>>776
>> CGIのコードが糞ってのは驚きです
> あぁ、こっちなら似てるかもね。

「ある種のかっこよさ」 は CGI にもありません。当然。

>>775
年齢順なら -n も必要じゃないか？

>>774
ttp://www.kt.rim.or.jp/~kbk/perl5.doc/perlfaq4.html

>>776

諸悪の根源は
KENTとかレスキューとかか・・・

>>770の言うようにCGIはべた書きの方が速い。
真のPerlerは、そのべた書きのプログラムを
しこしこ手で書くのではなくて、べた書きのプログラムを
「生成する」プログラムを書く。2,3のCGIなら
手で書いた方が作業効率いいけど。

Perlのコードの綺麗さに関してはそれほど天井高くないよーな気が

>>779
レスキューはトップページ見るだけでコードがどんなか伺い知れますねｗ

>工事現場で汗まみれになって働いてる男たちのある種のかっこよさと似ていますね。
激しくﾜﾛﾀ(ｗ

>>779
KENT ってのは知らなかったので今ちらっとコード見てみたんだけど、
ガクガクブルブルですた…
ひぃいいいいー

レスキューの方のコードはかなり昔に見たけど、おかげで最初から自分で書く決心がつきました (w

自動生成されたhtmlを手本にhtmlを手書きするようなもんだな

見よう見まねで書かれたHTMLを見て、それで勉強するようなものかも

経験的に
Perlを知ってるﾔｼのCGI>>>>>>>>>>>>>>CGIしかしらんﾔｼのｳﾝｺPerlｺｰﾄﾞ

今はUnixでもWindowsでもPerlナシじゃ生きてけない体だがな
さいきんmod_perlﾏﾝｾｰ

で、手本になるPerlのコードはどこに転がってんの？

>>786
CPANから、良さげなコードを探す

ハズレクジを引かないようにな