08/06/06 17:56:23
>>362
Cライクにやりたいなら
use constant NAME => 'hoge';
ただし Perlでベアワードはメンドくさい。
"my name is NAME"
とやっても展開されないから
"my name is ".NAME
とするしかない。
*NAME = \'hone';
これを使えば
"my name is $NAME"
で展開できる。
*C_STR = \'xxxx'; # 文字列定数。参照は $C_STR
*C_NUM = \100; # 数値定数。参照は $C_NUM
*C_ARRY = [1,2,3]; # 配列定数。参照は @C_ARRY
*C_ASSOC = {k1 => v1,k2 => v2}; # ハッシュ定数。参照は %C_ASSOC
370:デフォルトの名無しさん
08/06/06 18:04:39
>>368
まぁ、珍の字はニュアンスぴったりだと思うよ。
Perlの仕様を漢字一字で表せといったら、珍・奇・醜・糞あたりが有力だろうし。
371:デフォルトの名無しさん
08/06/06 18:44:43
forは数値カウンタのときやCライクな使い方のとき。
配列から読み取るってときはforeachにしてるな。こっちはPHPぽい方で
372:デフォルトの名無しさん
08/06/06 18:45:22
>>370
あれ？なんでわざわざこのスレに？
373:デフォルトの名無しさん
08/06/06 18:50:29
・上にあがってるから
・Perlを盲目的に全肯定するキチガイだけが住人ではないから
374:デフォルトの名無しさん
08/06/06 19:03:32
誰も全肯定なんてしとらんがな・・・
375:デフォルトの名無しさん
08/06/06 19:41:58
それを言ったら、誰も負け惜しみなんて言ってないよな。
376:デフォルトの名無しさん
08/06/06 20:34:35
>>373
ゲテモノだってのは認識しとる。
377:デフォルトの名無しさん
08/06/06 21:41:28
>>352
レスありがとうございます。
substを使ってうまくいきました。
ありがとうございました。
378:デフォルトの名無しさん
08/06/06 22:15:29 BE:477576296-DIA(100004)
まず匿名の臆病者は自分の (好きな|メインの) Lightweight Language を言えよ
379:デフォルトの名無しさん
08/06/06 22:52:56
BER圧縮された数値(オフセット値、ID)のビット列に対し、
二分探索法を行なっている実装例ってありませんかね?
380:デフォルトの名無しさん
08/06/07 01:02:59
そういうのはCでやった方が
381:デフォルトの名無しさん
08/06/07 14:17:18
>>378
できるよ。
以上。
↓次どうぞ
382:デフォルトの名無しさん
08/06/08 00:21:35
↑おつかれさまでした
383:デフォルトの名無しさん
08/06/08 19:02:55
他のファイルに変数を設定したファイルを用意し、
そのファイルを読み込み設定された変数を利用したいのですが、
どのようにすれば実現できますか？
384:デフォルトの名無しさん
08/06/08 19:05:01
そのようにすれば
385:デフォルトの名無しさん
08/06/08 19:13:01
そういうふうにプログラムすりゃいいでしょ
386:383
08/06/08 19:14:47
すみません。
サンプルコードなど頂けませんでしょうか？
387:デフォルトの名無しさん
08/06/08 19:16:05
do "configs";
388:デフォルトの名無しさん
08/06/08 19:17:30
D'OH !
389:383
08/06/08 19:19:09
reqireでできました。
阿呆しか答えてくれないので、聞く手間をかけずに調べれば良かったですね。
390:デフォルトの名無しさん
08/06/08 19:26:32
reqireなんてあったか？
391:383
08/06/08 19:26:33
>>389は私ではありません。
requireも試してみたのですが、変数の値が継承されないようで
うまくできませんでした。
>>387
ありがとうございます。
試してみたのですが、requireと同じように変数の値が継承されません。
doと言うものを調べたのですが、while文のdoしかなかなか見付からず
使い方が悪いのかも知れません。
すみませんが詳しく教えて頂けるとありがたいです。
392:デフォルトの名無しさん
08/06/08 19:28:41
まず自分で調べる手間をかけずにいきなり聞くという方法で何か学ぼうとするのもなんだかなあ…。
何かを知ろう学ぼうとするなら知る学ぶ為の正しい手段を取るべきだと思うけどなあ…。
393:デフォルトの名無しさん
08/06/08 19:42:06
>>391
perlfunc嫁
394:デフォルトの名無しさん
08/06/08 19:49:07
何ができないと言っているのかがわからない
395:デフォルトの名無しさん
08/06/08 19:59:13
1行ずつ読み込んでdoじゃだめなわけ？
396:デフォルトの名無しさん
08/06/08 20:18:32
doはファイル名を引数に取るわけだが
397:デフォルトの名無しさん
08/06/08 22:03:27
open FILE, "unko.pl";
read FILE, my $unko, -s FILE;
close FILE;
eval $unko;
398:デフォルトの名無しさん
08/06/08 22:04:06
それならdoでいいだろ。
399:デフォルトの名無しさん
08/06/08 22:32:17
関係ないけど do-dai っていい曲だよね
400:デフォルトの名無しさん
08/06/09 01:10:43
WinXP、perl5.8.8、でPerl/Tkからボタンを押した時にthreadsを使ってバックグラウンド処理をしようと考えています。
バックグラウンド処理そのものは最後まで実行されますが、終了同期を取ろうとjoinを呼び出した時に、クラッシュして更に、Free from wrong pool during global…
となります。
これを回避出来た猛者はいますか？
401:有吉 ◆01z1p9gzeo
08/06/09 01:43:25
子プロセスから親プロセスのTkウィジェットにアクセスするとactiveperlが落ちてしまいます。
$top = MainWindow->new();
$frame1=$top->Frame(-height=>25)->pack(-side=>top,-fill=>'x',-expand=>'no');
$listbox1 = $frame1->Scrolled('Listbox',-scrollbars=>'osoe')->pack(-fill=>'both',-expand=>'yes');
$listbox1_ref = \$listbox1;
if ($pid = fork()) { MainLoop; }
else { &refresh($listbox1_ref); }
sub refresh {
my $listbox1_ref = shift;
$$listbox1_ref->delete(0,'end');
opendir(DIR,'mail/');
@file = sort readdir(DIR);
@file = grep(!/^\.\.|^\./,@file);
foreach(@file) {
my $time = localtime((stat "mail/$_")[9]);
$$listbox1_ref->insert('end',$time);
}
}
ログには
Free to wrong pool 1ec5020 not 274dc8 at C:/Perl/site/lib/Tk.pm line 250.
と出て終わってるようです。refreshの処理中に落ちてるみたいです。
ググったところ、同じ症状の方もいるようですがこの場合の解決策が見つかりませんでした。
子プロセスから親プロセスのウィジェットにはアクセスできないのでしょうか？ご教授ください。OSはWinXP SP2です。
402:デフォルトの名無しさん
08/06/09 01:44:44
改行が多すぎると怒られたので
色々はしょったら読みづらくなりました。
大変申し訳ないです。。
403:デフォルトの名無しさん
08/06/09 11:00:13
>>398
キミ、シロウトだね。
404:￣￣￣￣￣Ｖ￣￣￣￣￣￣￣
08/06/09 11:09:09
,. -ｰ冖'⌒'ｰ-､
,ノ ＼
/ ,r‐へへく⌒'￢､ ヽ
{ノ へ.._、 ,,／~` 〉 ｝ ,r=-､
／ク￣`y'¨Y´￣ヽ―}j=く /,ミ=/
ノ /ル'>-〈＿ｭ`ー‐' ﾘ,ｲ} 〃 /
/ _勺 ﾐ;；∵r;==､､∴'∵; シ 〃 /
,/ └' ノ ＼ こ¨｀ ノ{ー--､〃__/
人＿_/ー┬ 个-､＿_,,.. ‐'´ 〃`ァーｧー＼
. / |／ |::::::|､ 〃 /:::::/ ヽ
/ ｜ |::::::|＼､_________／' /:::::/〃
405:383
08/06/09 11:24:22
すみません。私の書き込みが悪いとおもうので、再度書き込ませていただきます。
-- define.pl ------
my $hoge = "hoge";
-- body.pl ------
do "define.pl";
print $hoge;
というファイルがあったとしても、body.plでdefine.plの変数が使えません。
どのようにすれば、他のファイルの変数を使えるようになりますか？
406:デフォルトの名無しさん
08/06/09 11:33:56
myしてやがる……
407:デフォルトの名無しさん
08/06/09 11:39:48
>>405
なんというオチ
408:デフォルトの名無しさん
08/06/09 12:31:41
いぢわるしねいで、ちゃんと教えてやれよ。
my じゃなく、 our で宣言しろって事だよ。
409:383
08/06/09 13:03:46
そんなのがあったのですね・・。
簡単に本を読んだのですが、myとlocalがあってmyを普通使う。localはあまり使わない。
という説明でした・・。
リャマ本というのを簡単に確認したのですが。ourって載ってます？
見つけられなかったのですが。
410:383
08/06/09 13:04:12
お礼を言い忘れました。
お手数をおかけしてすみませんでした。
ありがとうございました。
411:デフォルトの名無しさん
08/06/09 13:22:51
最初から405かいときゃ無駄なレスしなくていいのに
ｊこれだから小出しするやつはうぜぇ
412:デフォルトの名無しさん
08/06/09 13:38:55
>>409
アルパカ本に載ってる。
413:273
08/06/09 13:41:12
>>273
自己レス
いろいろと遠回りしたけど、ReadKey.pm入れ直しで
スンナリ解決しました。
ハァ・・・、なんですぐにやらなかったのか。
自己嫌悪だわ。
何時間費やしとんねん！
414:デフォルトの名無しさん
08/06/09 13:43:11
>>410
こんな感じ↓
URLﾘﾝｸ(blog.livedoor.jp)
415:デフォルトの名無しさん
08/06/09 13:46:16
思うんだけど，この業界の人って，自分で調べたことに対して疑問を抱いた！みたいな
感じでブログとかに書いておくと，すげえ補足を書いてくれたりするよね。
俺はそういうところが好きだ。
416:デフォルトの名無しさん
08/06/09 13:48:00
質問です。Perlでクラスを使ってみたいのですが
どのように書けばいいのでしょうか？
知らない用語ばかり出てきて、さっぱり答えにたどり着きません。。
例としてPHP版で書きます。これと同等の機能をPerlで書いてください。
お願いします。
class Hoge {
private $var1 = 'A';
function var1() {
return $this->var1;
}
function getValue() {
return 1;
}
}
class Hage extends Hoge {
function getValue() {
return 2;
}
}
$hogehoge = new Hoge();
print $hogehoge->getValue();
$hagehage = new Hage();
print $hagehage->getValue();
417:デフォルトの名無しさん
08/06/09 14:10:53
#!/usr/bin/perl
use strict;
use warnings;
{ package Hoge;
sub new {
my $class = shift;
my $self = {var1 => "A"};
bless $self, $class;
return $self;
}
sub var1 {
my $self = shift;
return $self->{var1};
}
sub getValue {
my $self = shift;
return 1;
}
}
{ package Hage;
use base qw(Hoge);
sub getValue {
my $self = shift;
return 2;
}
}
my $hogehoge = Hoge->new();
print $hogehoge->getValue(), "\n";
my $hagehage = Hage->new();
print $hagehage->getValue(), "\n";
418:デフォルトの名無しさん
08/06/09 14:41:00
>>416
一度perltootをキチンと読んでみては？
和訳↓
URLﾘﾝｸ(perldoc.jp)
419:デフォルトの名無しさん
08/06/09 15:35:06
./にローカルインストールしたモジュールを使うことができません。
使おうとしているものはCurses.pm
URLﾘﾝｸ(search.cpan.org)
です。もしよろしければご教授ください。
$ ls
Curses.pm* test.pl*
$ cat test.pl
#!perl
unshift @INC, ".";
use Curses;
exit;
$ perl -w test.pl
Can't locate loadable object for module Curses in @INC (@INC contains: 略 .) at test.pl line 4
Compilation failed in require at test.pl line 4.
BEGIN failed--compilation aborted at test.pl line 4.
$
420:デフォルトの名無しさん
08/06/09 15:48:35
use lib '.';
421:デフォルトの名無しさん
08/06/09 15:54:07
ba5.txtには以下になってます。
4131048
4131053
x
x
4850328
x
x
x
x
3870357
3870369
x
x
4131038
4131045
x
x
x
この場合にxの行を一番最後の行の数値に置き換えたい場合
perlだとどのようにすればいいんでしょうか。
シェルでやろうとしたんですけどシェルだとちょっと難しいみたいなので
perlでやりたいと思ってます。誰かいいスクリプトを教えて下さい。
宜しくお願いします。
422:デフォルトの名無しさん
08/06/09 16:07:39
>>420
use lib '.'やuse lib qw(.)を試してはいるんですが、>>419と同じエラーが出てしまいます。
また、use Curses;をuse ::Curses;として実行すると、>>419のCompilation failed in require at test.pl line 4.が消え、
Can't locate loadable object for module CursesもCan't locate /Curses.pmと表記が変わります。
423:デフォルトの名無しさん
08/06/09 16:51:43
>>419
本当にCurcesモジュールをインストールしたのか?
Curses.pmをコピーしただけじゃないのか?
424:デフォルトの名無しさん
08/06/09 16:52:54
>>417
ありがとうございます。
継承するときは、
use base qw(Hoge);
なんて書くんですね。
sub newってなんなんでしょう？
なんでそんな関数が必要なのですか？
425:デフォルトの名無しさん
08/06/09 16:55:17
>>423
>コピーしただけ
はい。アクセス権の関係でインストールが出来ないので、
test.plと同じディレクトリにCurses.pmを配置し利用したいと思っています。
426:デフォルトの名無しさん
08/06/09 16:59:36
>>425
だから、Cursesモジュールは、C言語で書かれたバイナリがメインで、
Curses.pmはそのインターフェイスでしかない。
ちゃんとコンパイルしてインストールしないとだめ。
エラーメッセージにある "loadable object" っていうのがそれ。
アクセス権の関係ってどういうこと? インストール過程で、
インストール先を指定できるぞ。
コンパイラも使えないのか?
427:デフォルトの名無しさん
08/06/09 17:00:37
>>424
コンストラクタ
不精しないできちんとperltootを読め。
>>418
428:デフォルトの名無しさん
08/06/09 17:03:00
>>421
聊かエスパーぎみにレス。↓こういう事がしたいのか？
$ perl -pe '$_=$t if/^x/; $t=$_' ba5.txt
4131048
4131053
4131053
4131053
4850328
4850328
4850328
4850328
4850328
3870357
3870369
3870369
3870369
4131038
4131045
4131045
4131045
4131045
429:421
08/06/09 17:16:09
>>428さん
そのとおりです!
ありがとうございます!
430:デフォルトの名無しさん
08/06/09 17:17:17
>>426
ありがとうございます。何か大きな勘違いをしていたようです。
Cの方でcurses/ncursesを使っていたので、システム上にcurses環境があると救いようの無いいい加減な誤認があり、
また、@INCサーチパス上にCurses.pmを置くことが出来ないのでアクセス権という的外れも甚だしい話をしてしまいました。
現在make中です。今のところエラーは吐いていません。
wget URLﾘﾝｸ(search.cpan.org)
tar xvf Curses-1.23.tgz
cd Curses-1.23
#Makefileの生成
perl Makefile.PL GEN PANELS MENUS FORMS
#コンパイル
make
431:デフォルトの名無しさん
08/06/09 17:28:19
>>427
コンストラクタなんですか？
普通、コンストラクタは必要がある場合を除いて
書かないと思うのですが？
書かないとまずいですか？
432:デフォルトの名無しさん
08/06/09 18:16:16
釣れますか？
433:デフォルトの名無しさん
08/06/09 18:24:44
>>427
初心者には perltoot を読むのを薦めるよりも
perlboot を読むのを薦めた方が良いと思うよ
なんとなく読む気が無さそうな気配ではあるけども
5.8 なら以前どこかで perlboot の邦訳も見掛けたた気がするけど
434:デフォルトの名無しさん
08/06/09 19:43:23
>>428
すげー。そういう意味だったのか。
そこまで読めなかったよ。
435:デフォルトの名無しさん
08/06/10 01:30:01
5.005の頃、よくXS書いてたんだけど
その後、Perlはワンライナーでしか使わなくなってしまった。
その頃のXSの知識ってまだ使えるのかな。
436:デフォルトの名無しさん
08/06/10 03:06:37
URLﾘﾝｸ(oshiete1.goo.ne.jp)
437:デフォルトの名無しさん
08/06/10 04:02:57
おや、なんだかどこかで見たような……。
438:デフォルトの名無しさん
08/06/10 11:24:14
マルチ死ねよｗｗｗｗｗｗｗｗｗｗ
439:デフォルトの名無しさん
08/06/10 12:02:49
HTML::FillInForm を使用しているのですが、出力されるhtmlから
DOCTYPE 宣言が消えてしまいます。
対処法がありましたら教えて下さい。
440:439
08/06/10 13:58:23
ここ（↓）を参考にして自己解決しました。
URLﾘﾝｸ(www.geocities.co.jp)
use HTML::FillInForm;
use base qw(HTML::FillInForm);
sub comment {
my($self, $text) = @_;
$self->{output} .= "<!--$text-->";
}
sub declation {
my($self, $text) = @_;
$self->{output} .= "<!$text>";
}
441:439
08/06/10 14:05:33
>>440
× sub declation {
○ sub declaration {
442:デフォルトの名無しさん
08/06/11 15:39:31
ロード済みのサブルーチンと同じpackageかつ同じ名前のサブルーチンを含む外部plファイルを
requireすると、後の内容で上書きされてしまいますが、元のサブルーチンを壊さないですむ
方法はないでしょうか。
443:デフォルトの名無しさん
08/06/11 18:07:18
皆さん、エスパーでよろ。
意図した挙動にならず、どこが問題かのきっかけも掴めずにかなり時間をかけてしまったが、
ようやくやりたいこと出来た。が、どうにも腑に落ちない。
DB(mysql)からデータとってきて、Scraperに渡して・・・と、こんな感じで組んでいたんだけど、
レコード数は3とします。
パターン１------------------------------------
$rows = $sth->rows;
print "hajimari";
while(my $ref=$sth->fetchrow_hashref()){
$scraper->scrape($ref->{url});
print "roop dayo";
}
print "owari";
このような感じでやっていたんだが、ループが1回しか回らない！？なんで？
てなことで、webで情報あさったり、モジュールのソース眺めてもわからんし。
444:デフォルトの名無しさん
08/06/11 18:07:56
パターン２------------------------------------
$rows = $sth->rows;
print "hajimari";
while(my $ref=$sth->fetchrow_hashref()){
print "roop dayo";
}
print "owari";
と、Scraperになげなかったら、ちゃんと3回ループするんだよね。
でScraperでこけてんのかと思いきや、これも特に見当たんない。
問題なさそうだ・・・。
445:デフォルトの名無しさん
08/06/11 18:08:25
パターン３------------------------------------
$rows = $sth->rows;
print "hajimari";
$i = 0;
while(my $ref=$sth->fetchrow_hashref()){
$url[$z] = $ref->{url};
$i++;
}
for($z = 0;$z < $rows;$z++){
$scraper->scrape($url[$z]);
}
print "owari";
ちょいと思うところがあり、一旦配列にほりこんでみる・・・。
キター!!!3回まわったじゃんか！
ふむ、思うところというのは、Scraperでこけないでループ1週目は
ちゃんとループしているということ。
で、結局ちゃんとした原因が解ってないんだけど、メモリ制限とか
あるのかな？
アドバイス下さい。
（もしかしたら、CGIまわりの問題？）
OS：FreeBSD
Perl：5.8.3
446:デフォルトの名無しさん
08/06/11 18:44:14
デバッグしろよ
447:デフォルトの名無しさん
08/06/11 18:47:02
またきたのか
448:デフォルトの名無しさん
08/06/11 18:48:59
Dump吐いてみたら？
449:デフォルトの名無しさん
08/06/11 18:52:18
内部状態をインスペクトしたら
450:デフォルトの名無しさん
08/06/11 18:56:50
printf だ！ printf を挟め！
451:デフォルトの名無しさん
08/06/11 18:59:07
if(!$hoge->{'hoged'}){
$hoge->{'hoged'} = [];
}
push(@{$hoge->{'hoged'}}, $hoging);
これをスマートに書く方法ありませんか？
ちなみに$hogingは2箇所以上に書くなら一時変数必要です。
452:デフォルトの名無しさん
08/06/11 19:04:06
少し説明がヘタだとは思いますが以下の処理をしたいです。お願いします。
★処理の方法
行の先頭が [ の場合には、行の先頭が 20 の行の先頭にそれを加える
行の先頭が 空白の場合には一旦処理を終えて再度行の先頭の [ を読む
行の先頭に < がきた場合にはその処理を終えて再度行の先頭の [ を読む
結合した場合、その文字列の最後に必ず区切り文字としてタブを挟む
●処理前のabc.txt
<100100>
[1044]あいうえお
20321 1137 4850328 60
20321 1137 4850328 60
20321 1137 4850328 60
【合計1044】
[1047]かきくけこ
20319 1090 3870357
20319 1101 3870369
【合計1047】
[1051]さしすせそ
20328 1206 4131038 52
20328 1206 4131045 52
20328 1206 4131045 52
【合計1047】
【累計】
<100200>
[1057]たちつてと
20328 1206 4131045 52
20328 1206 4131045 52
453:デフォルトの名無しさん
08/06/11 19:04:54
●処理後のabc.txt
<100100>
[1044]あいうえお 20321 1137 4850328 60
[1044]あいうえお 20321 1137 4850328 60
[1044]あいうえお 20321 1137 4850328 60
【合計1044】
[1047]かきくけこ 20319 1090 3870357
[1047]かきくけこ 20319 1101 3870369
【合計1047】
[1051]さしすせそ 20328 1206 4131038 52
[1051]さしすせそ 20328 1206 4131045 52
[1051]さしすせそ 20328 1206 4131045 52
【合計1047】
【累計】
<100200>
[1057]たちつてと 20328 1206 4131045 52
[1057]たちつてと 20328 1206 4131045 52
どうかよろしくお願いします。
454:デフォルトの名無しさん
08/06/11 19:15:23
>>452
宿題を肩代わりするスレじゃないんだけど。
少しはperl文を書いてから出なおせ。
455:デフォルトの名無しさん
08/06/11 19:33:31
たしかに最近どうみても入門者向けの課題を回答させようとする連中が多いような？
456:デフォルトの名無しさん
08/06/11 19:39:49
>>451
push(@{$hoge->{'hoged'}}, $hoging);
457:デフォルトの名無しさん
08/06/11 19:55:00
宿題を人に頼む奴は大学やめればいい
学部生いわく。
458:443
08/06/11 19:59:01
>>446-450
おしかりありがとう御座います。
デバックの仕方を勉強します。
Data::Dumper
で一目瞭然でした。
猛省します。
原因はなんだったのかって？恥ずかしすぎて・・・。
言いたくないんですけど。
ループ内で。。。、DBハンドルが・・・。
ごめんなさいごめんなさいごめんなさい
猛省します。
大事なことなので2回言いました。
459:デフォルトの名無しさん
08/06/11 20:17:52
>>456
ありがとう。解決した。
460:454
08/06/12 01:05:52
>>454
すみません。bashで書いていたんですけどbashだとうまくいきそうにないので
perlでお願いしてみました。すみません。bashのコードとしては以下のような感じです。
無茶苦茶なコードですみません。
#!/bin/bash
for iii in `cat abc.txt`
jjj=`sed -n '2p'`
do
if test [ $jjj = "^20" ]
then
paste "$jjj" "\t" "$iii" > ccc.txt
else
fi
done
bashでは無理っぽいのでスクリプトも途中までの処理しかしてないです。
perlで処理すればと思ってお願いにきました。perlはあまりよくわからないのでお願いします
461:452
08/06/12 01:08:15
寝ぼけてて名前間違えました。すみません。
462:デフォルトの名無しさん
08/06/12 01:36:40
正直いうと、>>452に書いてある処理の一覧が全然論理的じゃないので俺には理解できない。
つまり、「一旦処理を終えて」と「その処理を終えて」がどう違うのかとか、
そもそも「その処理」や「その文字列」とは何なのかとか、
行の先頭が空白なのに行の先頭の[を読めとはどういうことなのかとか分からない。
463:デフォルトの名無しさん
08/06/12 02:15:05
処理前と処理後を見ればやりたいことはわかるが、
この程度、forと正規表現使えばどうにでもできるだろ
あと、処理の方法はひどすぎる
自分でもう一回読んでみろ
464:デフォルトの名無しさん
08/06/12 06:43:04
>>460
俺は、「perl文を書いてから出なおせ」と書いた。bashなんか求めてねえ
お前さんがperlで書く気0なのに答えてやる義理なんざねえよ
「perlの知識0です。エスパーしてください。」
って質問には>>428で答えてしまって反省してんだよ
>>436のリンク先でも読んでちったー自分で考えろ
465:デフォルトの名無しさん
08/06/12 09:42:25
>>442
require するときに退避しといて戻せばいいんじゃない?
{
local *hoge::f;
require ...
}
これだと$hoge::fも影響受けるのがやりすぎだというなら、
{
local *hoge::f = sub{};
require ...
}
466:デフォルトの名無しさん
08/06/12 11:03:25
>>442
オブジェクト指向に設計すれば問題なす
467:デフォルトの名無しさん
08/06/12 11:08:45
オブジェクト指向までやらなくてもせめてモジュールにして
Exporter使う方が楽だろうと思う。
読みたいファイルが他人が作ったもので中身も見たくない
のならしょうがないけどな。
468:デフォルトの名無しさん
08/06/12 11:20:59
5.10にしたらsvkが動かなったんだけどsvk使ってる人はどうしてんの？
469:デフォルトの名無しさん
08/06/13 01:15:19
require や do でベタの perl を呼ぶ時に引数与えたい場合どうするのが普通なんでしょか？
% ./hanage.pl -help
を do とかを通してやりたい時、というです。
@ARGV=("-help"); # とかしておいて、
do "hanage.pl"; # とすると、実現できているようですけど、これが普通でしょか？
また、ほかに方法があれば。
470:デフォルトの名無しさん
08/06/13 02:07:04
それで動いてるならいいじゃないの？何が不満なの？
471:469
08/06/13 02:46:35
ひとつは、自信がないから。
ひとつは、ほかのやり方を知りたいから。"There's more than one way to do it"
目から鱗、鼻から悪魔、みたいな記述が perl ならまだある筈だと。
自分の例だと面白くも何ともないのでねぇ。
472:デフォルトの名無しさん
08/06/13 06:34:01
{
local @ARGV=("-help");
do "hanage.pl";
}
とかでいいだろ。べつに@ARGVじゃなくてもいいけど。
473:デフォルトの名無しさん
08/06/13 06:55:17
…do EXPR は、goto文並みにobsoleteな感じがするんだが、皆さん使うの？
require EXPR ですら、perl4的でどうしても避けられない場合にのみ嫌々使うんだけど
474:デフォルトの名無しさん
08/06/13 08:10:51
すみません。ものすごい基本的なこともか知れませんが質問させて下さい。
@listに複数行に,で区切られた5つのデータがあるとします。
my $cnt = 0;
foreach( @list){
@list2[$cnt] = split( /,/, $_);
$cnt++;
}
というのを考えたのですが、
Use of implicit split to @_ is deprecated
どのようにすればいいのでしょうか？
475:デフォルトの名無しさん
08/06/13 08:21:53
>>474
@list2[$cnt] = @_ = split( /,/, $_);
476:デフォルトの名無しさん
08/06/13 08:22:41
475は無し。何も考えずに書き込んだ。
477:デフォルトの名無しさん
08/06/13 08:54:07
>>474
@{list2->[$cnt]}
478:デフォルトの名無しさん
08/06/13 08:58:33
>>474
@{$list2[$cnt]}
479:デフォルトの名無しさん
08/06/13 09:27:49
>>473
#--- config.file ---
my $dir = '/path/to/base/dir';
{
foo => 1,
bar => [ 2..5 ],
baz => "$dir/extra.file",
};
#---
なんて設定ファイルを作って
$conf = do '/path/to/config.file';
で読むという手抜き実装はよくする。
設定ファイルを Perl で書けるのが柔軟で楽。
480:デフォルトの名無しさん
08/06/13 12:06:38
>>473
useだとコンパイル時に読み込まれちゃうから
動的に読み込むファイル決める場合は
"use $file;"するかdo "$file"するくらいしかないじゃん
前者よりはdoのほうが素直じゃね？
481:デフォルトの名無しさん
08/06/13 12:21:25
>>480
動的に use したいだけなら require の方がもっと素直だね。
482:デフォルトの名無しさん
08/06/13 12:34:19
>>479,>>480
レスthx.
config file だったらYAMLとかそっち使っちゃってるw
480の方は状況があまり想像出来ん。Storable知る前だったら
Data::Dumperの出力云々で使ったかもしれんが…。
俺に機会が無いだけなのねw
483:デフォルトの名無しさん
08/06/13 12:38:20
あ。ちなみにData::Dumperの動的処理の時も（しぶしぶ）require使ってた。
481氏の意見と同じ感覚。
484:デフォルトの名無しさん
08/06/13 13:34:15
CSVファイルがありこれをソートしたいのですが、
3番目の要素でソートしたりできませんか？
485:デフォルトの名無しさん
08/06/13 13:38:49
>>484
perlを使うよりsortコマンドのほうが早そうだけど？
486:デフォルトの名無しさん
08/06/13 13:41:01
CSVの扱いはPerl向きじゃない気がする。
487:デフォルトの名無しさん
08/06/13 13:42:39
>>486 CSV 何で処理してる？
488:デフォルトの名無しさん
08/06/13 14:09:47
>>482 delegateパターン実装とか
489:デフォルトの名無しさん
08/06/13 14:27:27
エクセルでやれば？ｗ
490:デフォルトの名無しさん
08/06/13 14:29:25
Pythonだとこんな感じ
import sys, csv
from itertools import imap
from operator import itemgetter
writer = csv.writer(sys.stdout)
for row in sorted(csv.reader(sys.stdin), key=itemgetter(2)):
writer.writerow(row)
491:デフォルトの名無しさん
08/06/13 14:31:09
ああimapとかimportする必要ねえな
無視して
492:デフォルトの名無しさん
08/06/13 14:31:49
なんでもデリミタをコロンにしてたらUNIX病だと怒られた
493:デフォルトの名無しさん
08/06/13 15:02:19
あれ？PerlにもCVS用のモジュールがあったような？
494:デフォルトの名無しさん
08/06/13 15:10:11
そしてSJISでハマるに一票。pythonも同じと思うが。
495:デフォルトの名無しさん
08/06/13 15:31:56
基本すぎてわらけるかもしれないけど、教えてください。
関数の引数の扱いがよくわかりません。
たとえば、
sub test{
# $_[0] == "test";
# $_[1] == "test2";
}
&test( "test", "test2");
となるとおもうのですが、
@test = ( "test", "test2");
&test( "test", @test);
としたばあい、引数はどうなるのでしょうか？
色々と試してみたのですが、
&test( @test);
としたばあいは、
@_ == @test;
だということはわかったのですが・・。
(もし違っていたら指摘していただけるとありがたいです。
496:デフォルトの名無しさん
08/06/13 15:35:18
>>495 やって美奈代
497:デフォルトの名無しさん
08/06/13 17:04:22
perl -F',' -lane 'push @dat, [ @F, $_] ;}{ print $_->[-1] for sort {$a->[2] <=> $b->[2]} @dat; ' FILE
sort -k3 -t, -n < FILE
498:デフォルトの名無しさん
08/06/13 18:04:30
require がうまくできません。
上記の質問を参考に、
test.cgi ---
require './hoge.pl';
とかいて、
hoge.pl ---
our $test = "hogee";
1;
とかいているのですが、
perl test.cgi
すると、$testは読めていないようです。
ながに悪いでしょうか？
499:デフォルトの名無しさん
08/06/13 18:29:00
>>495
マニュアルを見ずに仕様を突き止めるゲームでも開催されてるの?
500:デフォルトの名無しさん
08/06/13 18:36:22
>>498
「$testは読めていないようです。」の「ようです」に隠された何か。
501:デフォルトの名無しさん
08/06/13 18:40:32
>>492
そうなのか。不治の病にかかってしまった。
502:デフォルトの名無しさん
08/06/13 21:09:26
myにすればいいんだよ
503:デフォルトの名無しさん
08/06/14 00:01:01
>>474
splitをスカラコンテクストで使ってはいけない。
504:デフォルトの名無しさん
08/06/14 08:59:12
$input = <>;
というコードをwindows上で実行し入力待ちの状態でウィンドウ右上の×印を
押すと「すぐに終了」のダイアログが出てきてしまいます。
入力待ちの状態では$SIG{'QUIT'}をキャッチすることが出来ません。
Term::ReadLine等も試しましたが挙動は同じでした。
入力待ちの状態でも正常終了するようにすることは出来ないでしょうか。
505:デフォルトの名無しさん
08/06/14 18:33:05
Ctrl + C ??
506:デフォルトの名無しさん
08/06/15 00:06:19
>>504
自前でwindow開かないと無理と思われ。
507:デフォルトの名無しさん
08/06/15 15:27:14
多次元配列があるのですが、2次元目のある要素を元に１次元目をソートさせることはできませんか？
508:デフォルトの名無しさん
08/06/15 15:50:42
>>507
出来るよ。
509:デフォルトの名無しさん
08/06/15 16:06:21
すみません。
簡単なサンプルでいいんでコードを書いて頂けませんか？
510:デフォルトの名無しさん
08/06/15 16:17:38
>>509
ググれば例などいくらでも出てくるんだが？
perl -MData::Dumper -le 'print Dumper sort { $a->[1] <=> $b->[1] } ( [2,3],[3,2] ) ;'
$VAR1 = [ 3, 2 ];
$VAR2 = [ 2, 3 ];
511:デフォルトの名無しさん
08/06/16 08:14:00
Perlでファイルの中の指定した文字列(正規表現".*hoge$"等)にマッチする行を
削除したいのですが、どうすれば良いでしょうか?
512:デフォルトの名無しさん
08/06/16 09:38:40
>>511
URLﾘﾝｸ(perldoc.jp)
を、「ファイルのある行を削除する」で検索。
513:デフォルトの名無しさん
08/06/16 09:39:22
>>511
#!C:/perl/bin/perl
open(IN,"example.log");
while(<IN>){
if($_ =~ /hoge/){ $line .= "\n"; }
else{ $line .= "$_\n"; }
}
close(IN);
open(OUT,">exmple.cgi");
print OUT $line;
close(OUT);
print"Content-type:text/html\n\n";
print "消去完了";
みたいな感じですか？
Perlコーディング初心者質問スレ Part 57
ｽﾚﾘﾝｸ(php板)l50
514:デフォルトの名無しさん
08/06/16 10:18:02
111
222
333
444
555
666
というようなファイルがあったとして(数字は仮定です)3行目の行の
先頭にtabを2つ入れたい場合、どのようにすればいいのでしょうか。
515:デフォルトの名無しさん
08/06/16 10:24:45
くだすれ池
516:デフォルトの名無しさん
08/06/16 10:28:50
>>514
……
行数を数えながら一行ずつ読み込むループにして
if 3行目 then
先頭にtabを2つ入れる
読み込んだ行を出力する
という中身を回せばいいよ。
517:デフォルトの名無しさん
08/06/16 10:33:18
>>514
質問先は「くだすれPerl（超初心者用）2」
ｽﾚﾘﾝｸ(php板)l50
が良いらしいです。
518:デフォルトの名無しさん
08/06/16 10:50:21
>>511
>>513
すいません、間違ってました。
ｽﾚﾘﾝｸ(tech板:511番)
519:デフォルトの名無しさん
08/06/16 15:50:09
変数の中の文字列の頭のスペースを取り除きたいのですが、
どのようなほうほうがありますか？
520:デフォルトの名無しさん
08/06/16 15:55:16
>519
正規表現使う典型ケースです
521:デフォルトの名無しさん
08/06/16 16:00:36
>>519
URLﾘﾝｸ(perldoc.jp)
を、「文字列の先頭や末尾にある空白を剥ぎ取るには?」で検索。
522:デフォルトの名無しさん
08/06/16 16:01:41
>>519
ｽﾚﾘﾝｸ(php板:292番)
523:デフォルトの名無しさん
08/06/16 16:08:16
>>519
>>522
連投すいません。修正です。
ｽﾚﾘﾝｸ(php板:293番)
初歩質問はこちらが良いらしいです。
ｽﾚﾘﾝｸ(php板)l50
524:デフォルトの名無しさん
08/06/18 01:11:06
質問です。
HTML数値エンティティを文字に変換する際にはどうすればよいでしょうか。
下記の通りに実行したのですがうまくいきません
(�-ÿしか対応していない？)
#!/usr/bin/perl
use HTML::Entities::Numbered;
$str='あいうえお';
print hex2name($str); #「あいうえお」を期待するが変換前と同じ$strが出力される
525:524
08/06/18 01:12:01
$str='＆＃x3042;＆＃x3044;＆＃x3046;＆＃x3048;＆＃x304A;';
ですorz
526:デフォルトの名無しさん
08/06/18 04:57:49
>>524
> print hex2name($str); #「あいうえお」を期待するが変換前と同じ$strが出力される
いや、期待するなよ。
527:デフォルトの名無しさん
08/06/18 06:29:13
そのあたりに踏み入ったことはないのだが、マニュアルを見る限り
HTML::Entities::decode
を使うのではないか?
528:デフォルトの名無しさん
08/06/18 12:04:39
すんごい初歩的な質問で申し訳ないのですが、
Perlやってる友達がお前こんなのもできないだろと自慢してくるので、明日までにこれをやらないとまたバカにされるのですが、
プログラム自体やったことがなく意味不明すぎてよくわかりません。。誰かもしよかったら教えてください。
キーボードから整数値$aの値を入力してEnterを押し、
続けて$bの値を入力してEnterを押すと、
$aを 3 倍した値と、$bを 8 倍した値の和 を計算して$cに代入し，
$cの値を画面に出力するプログラム
結果は
print "$cn";
の形で出力する
この結果の出力以外の画面出力はしないこと.
529:デフォルトの名無しさん
08/06/18 12:10:09
>>528
その友達に教えてもらいなさい
530:デフォルトの名無しさん
08/06/18 12:14:12
>529
というか、その友達から出された問題なんです。
531:デフォルトの名無しさん
08/06/18 12:23:42
宿題だろ・・・
532:デフォルトの名無しさん
08/06/18 12:37:23
それが出来たところで他の事聞かれてあぼんだな
533:デフォルトの名無しさん
08/06/18 12:40:17
「1/10の確率」
を表現するのに、これ↓はありなのか？
return 0 if rand(1000) > 100;
534:デフォルトの名無しさん
08/06/18 12:51:55
あり得ないという根拠は？
535:デフォルトの名無しさん
08/06/18 12:52:56
>>533
randが正規乱数だと仮定するならありだろ。
536:デフォルトの名無しさん
08/06/18 13:05:29
正規乱数だと仮定するならなしだろ
randが一様乱数を吐くのならありかもしれんが
537:デフォルトの名無しさん
08/06/18 13:50:36
>>528
お前こんなのもできないのか
538:デフォルトの名無しさん
08/06/18 14:25:04
綺麗な記述を勉強したいです。
どっかで配布されてる非常に綺麗で整理された記述を教えてください。
あまりにいっぱい配布されすぎててチェックできません。
539:デフォルトの名無しさん
08/06/18 14:39:00
>>538
man perlstyle
つーか、好きにしろ
540:デフォルトの名無しさん
08/06/18 16:10:12
>>538
perl medicとかは偏ってはいるけど
ポリシーとしてはまあ参考になるかもしれん
買うまでの事は無い本なので図書館で探せ
541:524
08/06/18 21:54:54
>>527
HTML::Entities::decode で無事に出来ました
今後はマニュアルをしっかり読みますm(_ _)m
ありがとうございました
542:デフォルトの名無しさん
08/06/18 22:32:54
>>538
ここはPerlのスレですよ？
543:デフォルトの名無しさん
08/06/18 22:37:24
>538
Plagger読んどけ
544:デフォルトの名無しさん
08/06/18 23:17:04
こっそり書いてみる。意味は教えないよ
perl -e 'print <STDIN>*3+<STDIN>*8,"\n"'
545:デフォルトの名無しさん
08/06/18 23:37:40
$cに代入してないじゃん
546:デフォルトの名無しさん
08/06/18 23:54:10
>>528
544とは別人だけど。
perl -e '$c=<>*8+<>*3;print"$c\n";'
また、次の問題を出されるだろうから、がんばって。