Perlについての質問箱 ..
231:デフォルトの名無しさん
08/10/17 21:30:11
モジュールのバージョンをまとめて上げたら
MechanizeでBASIC認証がなぜか出来なくなった…
UserAgentオーバーライドしてもcredentialsでもだめ
URLﾘﾝｸ(id:pass@hoge.com)とかやると繋がるけど…
何が悪いんだろう…
同じような人が居たらヒントでもいいんで教えてもらえると有難いです。。
232:デフォルトの名無しさん
08/10/17 21:36:23
>>231
デバッグフラグ立てて動作トレース
233:デフォルトの名無しさん
08/10/17 21:48:51
>>232
ありがとうございます。
やってみます。m(_ _)m
234:231
08/10/18 00:02:44
Basic.pmで初期化されていない値云々というメッセージがでるので
LWP/Authen/Basic.pmのauth_headerにある「$user, $pass」に
試しに値を入れてみたら問題なく繋がった
LWPでauthorization_basicを試してみたら此方も問題なく成功
Mechanizeでもauthorization_basicを呼び出すようにしたら此方も成功
吊ってきます…
235:デフォルトの名無しさん
08/10/18 11:04:50
Linux 上で MS word の *.doc ファイルを読み出したいんですが、何かいい方法はありますか。
Spreadsheet::ParseExcel みたいなのがないかと CPAN を探したのですが、見当たりません。
236:デフォルトの名無しさん
08/10/18 11:39:28
『LinuxでWord文書をテキストファイルに変換するには』
URLﾘﾝｸ(www.atmarkit.co.jp)
Antiword is a free MS Word reader
URLﾘﾝｸ(www.winfield.demon.nl)
OpenOffice.org
URLﾘﾝｸ(ja.openoffice.org)
237:デフォルトの名無しさん
08/10/19 06:50:02
>>236
有難うございます。やはり、perl から呼べるものはないようですね。
文書全体の読み出しだけでなく、「XXページにXXX があったら、XX+n ページに対応するXXXXがあるかチェックする」といった処理もできれば、
と思っていたのですが。それにしても Spreadsheet::ParseExcel は偉大だ…
238:デフォルトの名無しさん
08/10/19 07:26:47
ハッシュが詰まった配列から、一つずつ取り出して各々に処理をしたいんですがforeachじゃ出来ませんでした。
何か良い方法ありますか？
239:デフォルトの名無しさん
08/10/19 12:05:47
while each
240:デフォルトの名無しさん
08/10/19 12:11:04
foreachで出来るだろ？
241:デフォルトの名無しさん
08/10/19 12:27:00
>>238
そういう意味じゃないんです…
>>240
foreach %hoge (@fuga)としたら、syntax error at Z:\script\test.pl line 9, near "foreach %hogeって言われました
242:デフォルトの名無しさん
08/10/19 12:36:10
foreach $hash_ref (@foo) {
$hash_ref->{bar}
}
243:デフォルトの名無しさん
08/10/19 12:40:57
それは…リファレンスですか？
試してみたら通りました。回答ありがとうございました
244:デフォルトの名無しさん
08/10/19 12:43:16
そもそも「ハッシュが詰まった配列」と君が呼んでいるものの正体が
「ハッシュのリファレンスが詰まった配列」だから。
foreachで一つ一つ取り出す時も、当然それをリファレンスとして扱わなきゃダメ。
245:デフォルトの名無しさん
08/10/19 12:50:50
……難しいorz
適当に入門サイト眺めただけだとやっぱり駄目ですね、今度らくだ本買ってじっくり読むことにします
246:質問
08/10/19 16:56:31
ファイルに書き込まれている特定の文字列(ABC数字）を抽出するにあたってよい方法はありますか？
・取得したい文字列の例は、ABC+数字で構成される たとえばABC11やABC2543など
・ファイルによっては行数が異なる。
・各行に取得したい文字列は０個以上ある。
・各行で、取得したい文字列が位置する場所はさまざま。（先頭にあったり、途中にあったり、）
247:デフォルトの名無しさん
08/10/19 17:00:19
>>245
本も良いがまずは perldoc に当たる習慣を付けた方がいい。
メジャーなドキュメントなら和訳も web を探せばある。
URLﾘﾝｸ(perldoc.jp)
URLﾘﾝｸ(fleur.hio.jp)
URLﾘﾝｸ(homepage3.nifty.com)
248:デフォルトの名無しさん
08/10/19 17:10:30
>>246
ふつうに1行ずつ読んでパターンマッチして切り出していけばいいだけ。
249:質問
08/10/19 17:20:17
>>248
各行に０～数個（決まりはないけど最大10程度）あるので・・
if($_=~/ABC(\d+))/)
なら1つは取得できても、その他の文字列をどうやって取得すればいいのか・・
ファイルの例）
マツダ スバル
ABC111 ABC23 トヨタ
日産 本田 ABC2222
↑ここからABCxxxの文字列だけ抽出したい
250:デフォルトの名無しさん
08/10/19 17:26:11
>>249
マニュアル見れ
251:デフォルトの名無しさん
08/10/19 17:27:06
>>249
必要な数だけパターンマッチして切り出していけばいいだけ。
252:デフォルトの名無しさん
08/10/19 18:32:45
マニュアル読まないヤツ大杉
>>241
>foreach %hoge (@fuga)
こんな無茶な構文あり得ないだろ
>>249
パターンマッチのオプションを調べれ
253:デフォルトの名無しさん
08/10/19 20:46:49
>>249
# 一行ヒント野郎
perl -nle "$, = ' '; print $., /ABC\d+/g" < ファイル名
254:デフォルトの名無しさん
08/10/21 23:09:08
いくつか教えてください。
Perlでブログ（RSSつき）みたいな機能って作れますか？
あと家計簿なんかも作れますか？
今勉強中なんですが、目標が無いと挫折しそうなんです(^^;)
255:デフォルトの名無しさん
08/10/21 23:10:53
>>254
おまえならやれる。
256:デフォルトの名無しさん
08/10/21 23:29:51
Perl単体じゃあ家計簿は無理じゃない？
Perl/Tk使うのかな。
257:デフォルトの名無しさん
08/10/21 23:56:14
>>256
っ[Web]
258:デフォルトの名無しさん
08/10/22 00:32:22
PerlMagickを使って画像を編集したいのですが、
$image_dataに画像データが入っていて、それを読み込み/編集/書き込みたい場合はどうやったらいいのでしょうか？
$image->Read($image_data);
$image->Flip;
$image->Write($image_data);
のようなことです。
259:258
08/10/22 00:53:16
↓で出来ました。スレ汚しすいませんでした。
my $image = Image::Magick->new(magick=>'gif');
$image->BlobToImage($image_data);
$image->Flip();
$image_data = $image->ImageToBlob();
260:デフォルトの名無しさん
08/10/22 13:06:56
家計簿なんてExcelでいいじゃん
261:デフォルトの名無しさん
08/10/23 00:28:09
>>256
> Perl単体じゃあ家計簿は無理じゃない？
確かにそうだな。まともなシェルが必要だ。
262:デフォルトの名無しさん
08/10/23 01:44:57
>>260
俺も最初そう思ったんだが、Excelは結局馬鹿だし、Excel用アドイン作ってる連中も馬鹿だから以下のようにした。
・入力はExcel
・Perl＋Spreadsheet::ParseExceでウハウハ
・Perlで計算
・Perl＋LaTeX系モジュールで帳票自動生成＆改ページ自動編集＆印刷
これで８年くらい確定申告の提出書類を作成してる。
いまだに国税庁のマルサは来ない。
まー奴らは俺みたいな貧乏人はスルーしてるだけだがｗ
263:デフォルトの名無しさん
08/10/23 20:36:56
URLﾘﾝｸ(www.google.com)
pythonにも負けてる（藁
264:デフォルトの名無しさん
08/10/24 14:43:04
PerlでCのプリプロセッサのように#ifdefでコンパイルするコードを切り替えたりとかってできませんか？
265:デフォルトの名無しさん
08/10/24 14:50:59
>>264
できる
266:デフォルトの名無しさん
08/10/24 14:58:18
>>264
つ-Pオプション
でもいろいろ問題あるから使わないほうがいいよ。
最終的に何をしたいのかわからないが、たいてい
使わないでできるもっといい方法がある。
267:デフォルトの名無しさん
08/10/24 23:33:04
perlでアパッチのアクセスログを振り分けるってできる？
268:デフォルトの名無しさん
08/10/24 23:35:36
きみの能力しだい。
269:デフォルトの名無しさん
08/10/24 23:38:16
>>267
もちろんできる。できない理由はない。
270:デフォルトの名無しさん
08/10/24 23:45:05
おまえらにやらせようと思ったんだけど、コード書く？
271:デフォルトの名無しさん
08/10/25 01:24:17
>>270
そういうときは、報酬も書いておくと話が早く進むぞ。
272:デフォルトの名無しさん
08/10/25 01:59:01
じゃあ1円
273:デフォルトの名無しさん
08/10/25 07:03:27
進まねぇよ
274:デフォルトの名無しさん
08/10/25 14:56:52
Perlで線形リストのようなデータの持ち方をしたいのですが、
どうすればいいでしょうか？
a->b,c a->b->d,e a->c->f,g
のような感じです
275:デフォルトの名無しさん
08/10/25 16:02:27
リファレンス使えばいいのでは？
276:デフォルトの名無しさん
08/10/25 16:17:22
あるいは古式ゆかしく配列を使うか
277:デフォルトの名無しさん
08/10/25 22:40:17
UNIXマシンからとある機器arielに対してtelnetセッション
をはりっぱにし、arielから吐かれるメッセージをローカル
のディスクにロギングしたいとです。。。
arielの仕様では、無通信時間5分でtimeoutになるので
5分毎に"\n"を送信しようと思います。
自分の頭では以下の様に、whileループでarielからのデータ
を待ち続けるロジックしか思いつかず、これでは5分毎の
"\n"送信をどうして行えばよいのか解りませんとです。
エロい方、なんとか教えてください。。。
open (OUTLOG,">>./ariel.log");
$socket = IO::Socket::INET->new(
PeerAddr => 'ariel',
PeerPort => '23',
Proto => 'tcp',
);
if ( ! $socket ){ die }
while(1){
$buf = <$socket>;
print OUTLOG $buf\n";
}
278:デフォルトの名無しさん
08/10/25 23:08:28
>>277
とりあえずNet::Telnet使えば?
279: ◆TWARamEjuA
08/10/25 23:10:30
cronで5分ごとに\nを送信してあげる別プロセスを作っておく。
280:デフォルトの名無しさん
08/10/25 23:49:42
レスあんがあちょです
>>278
Net::telnetは
@result = $telnet->cmd("ls -l");
の様な使用例しか無いので、>>277のケースではどうかなーって思って
>>279
別プロセスでなく、同一セッション中で"\n"送らないとダメな気がします
って、んん？別プロから何かシグナルをこのプロセスに対して5分間隔
送ればいいのかぁーー！？ そんなのできるんかな、調べてみよう
281:デフォルトの名無しさん
08/10/25 23:56:55
>>280
シグナルハンドリングを知っているなら、alarmで起こせばいいだろ。
282:デフォルトの名無しさん
08/10/26 00:29:26
>>281
おおっ！何と言うことでしょう。
なんだか出来そうな予感がしてまいりました。
月曜に会社行くのが楽しみになってきたｗ
ヒントあんがちょ。多謝です。
こんなカンジかな？
略～
$SIG{ALRM} = \&timeout; # timeout時の￥に実行する関数
alarm 280; # 5分=300秒より小さい値でアラーム
while(1){
$buf = <$socket>;
print OUTLOG $buf\n";
}
sub timeout {
print <$socket> "\n"; # 待望の"\n"送信！！
alarm 280; # アラーム再設定
}
283:デフォルトの名無しさん
08/10/26 15:29:24
手元のIMAP鯖からGMailにメールを引っ越すスクリプトを書いてます。
Mail::IMAPClientベースで書いていたのですが、
$from->migrate($to, "ALL", "OUTBOX") or die "Could not migrate: $@ \n";
この行で手元サーバからGMailへメールを移行しようとしても、移行できていないようです。
$from は 手元サーバ, $to はGMailです。GMailへの接続login自体はうまくいっているようです。
OUTBOXラベルはGMail側で作って、IMAPから見えるように設定済みです。
アドバイスいただけますでしょうか？
284:デフォルトの名無しさん
08/10/26 16:12:50
>>283
自己解決。migrateを使うのを諦めて、appendとfetchで処理しました。
お騒がせスマソ。
285:デフォルトの名無しさん
08/10/26 17:43:20
通常、文字列の頭から適用される正規表現を後ろから見る方法はないでしょうか？
例えば、以下のように行った場合、
---------------------
my $str = 'a b c d';
$str =~ s/ //;
---------------------
a直後のスペースが消えますが、cの後ろのスペースを消すような正規表現は出来ないでしょうか？
abcdといった文字列は可変です。
事前に文字列を反転させるしか思い浮かばないのですが他に方法はあるのでしょうか？
宜しくお願いします。
286:デフォルトの名無しさん
08/10/26 17:45:23
$str =~ s/(.*) /\1/;
287:デフォルトの名無しさん
08/10/26 20:37:58
>>286
ありがとうございます！！
288:デフォルトの名無しさん
08/10/27 15:12:37
Perl のオブジェクト指向がなんだか無理矢理って感じで、
直感的じゃなくて困っています。Pythonにしとけばよかた。
289:デフォルトの名無しさん
08/10/27 15:30:10
>>288
うん、とっととPerlのことを忘れてPythonに移れ。
290:デフォルトの名無しさん
08/10/27 15:37:36
おれなら、
$str=~/ ([^ ]*?)$/$1/;
どっちでもいいんだけど、>>286と比較したら
どっちの効率がいいんだろう？
291:デフォルトの名無しさん
08/10/27 16:00:31
A.cgiにAformからアクセスしたときと、Bformからアクセスしたときで処理内容を変えるようなプログラムにするにはどうしたらいいですか？
Aから来たときはロケーション無し、Bからなら有り のような感じにしたいのですが
292:デフォルトの名無しさん
08/10/27 16:06:30
リファラー見るとかhiddenで何か持たせるとかボタン名変えるとか
293:デフォルトの名無しさん
08/10/27 16:28:05
>>291
次のどっちかで区別できる。
環境変数HTTP_REFERER
INPUT(TYPE=HIDDEN)要素
でもこれ、Perlの質問じゃないのでスレ違い。
Web系のとこにいけ。
294:デフォルトの名無しさん
08/10/27 17:06:45
>>292-293
ありがとう、試してみます
そして、移動してログよんできます
ごめん
295:デフォルトの名無しさん
08/10/27 22:05:58
$str =~ s/ (?=[^ ]*$)//;
とか
296:デフォルトの名無しさん
08/10/28 09:09:50
>>295
先読みアサーションか。そういえばあったなー。
新しいせいか慣れないせいか、オレはどうしても忘れがち。
297:デフォルトの名無しさん
08/10/28 16:53:15
質問です。
クラスA
クラスB
それぞれのオブジェクト指向モジュールがあったとします。
なかでの処理には変数が英数をチェックしたり文字数チェックしたりでエラーを
だすようにしるとします。
で、問題は英数や文字数をチェックするルーチンはどう実装するのが理想でしょうか？
簡単なルーチンだからそれぞれのクラスにサブルーチンとして最後の行にでも書いておけ！
っていうことでもいいでしょうか？
298:デフォルトの名無しさん
08/10/28 17:56:07
日本語で
299:デフォルトの名無しさん
08/10/28 20:45:57
>>297
URLﾘﾝｸ(fleur.hio.jp)
URLﾘﾝｸ(perldoc.jp)
URLﾘﾝｸ(perldoc.jp)
>>2
300:デフォルトの名無しさん
08/10/28 23:19:11
Tripletailを使用しています。
下記のように前のページからPOSTデータを取得してTemplateに書き出したいのですが、うまく行きません。
どう修正すればよいでしょうか？
#! /usr/bin/perl
use strict;
use warnings;
use Tripletail qw(/dev/null);
use CGI;
$TL->startCgi(
-main => \&main,
);
sub main {
my $t = $TL->newTemplate('template.html');
my $cgi = CGI::new();
#前ページからPOSTデータの取得
$a = $cgi->param('a');
$b = $cgi->param('b');
$t->expand(
STR => $a,
NUM => $b,
);
$t->flush;
}
301:デフォルトの名無しさん
08/10/28 23:39:13
TripletaiLは使ったことないが、「うまく行きません」とやらの詳細を書くべきだな。
302:デフォルトの名無しさん
08/10/28 23:45:21
>>301
ああ、ごめんなさい。
通常、Tripletailを使用せずにPOSTデータを取得する場合、
ｕｓｅ CGI;
$cgi = CGI::new();
$data1 = $cgi->param('p_data1');
これで取得はできますが、
上記の sub mainの中で取得しようとすると、
取得できないようです。
まだわかりにくい説明かもしれませんが、お願いします。
303:デフォルトの名無しさん
08/10/29 00:40:51
webprog池
304:デフォルトの名無しさん
08/10/29 01:18:30
>>299
ありがとうございました。そのものずばりの参考ページのようです。
がんばって吸収したいと思います。
305:デフォルトの名無しさん
08/10/29 02:18:09
>>304
> ありがとうございました。そのものずばりの参考ページのようです。
Perlの添付ドキュメントだけどな。おまえのPCにも入っているはず。
306:デフォルトの名無しさん
08/10/29 17:52:59
use strict しているコードで $a $b を未宣言で使おうとしてもエラーにならないんだけど、どうして？
307:デフォルトの名無しさん
08/10/29 18:02:12
$a $bはsortブロックで使われる定義済みの特殊変数だから。
308:デフォルトの名無しさん
08/10/31 23:43:20
utf8で保存できるエディタで、使いやすいものがありましたら、
教えてくれると、大変助かります。
309:デフォルトの名無しさん
08/10/31 23:55:58
>>308
emacs または meadow
310:デフォルトの名無しさん
08/10/31 23:56:23
OSは？
311:デフォルトの名無しさん
08/11/01 00:07:23
板違いすぎるだろ…
312:デフォルトの名無しさん
08/11/01 15:06:35
>>308
Notepad++
313:デフォルトの名無しさん
08/11/02 13:55:18
質問です。まだイブジェクト指向は新米なんですが、
継承とかの説明をみるに、継承のスパゲッティになりそうな 気がするんですが
その辺はエキスパートの実際ってどうなんでしょうか？
314:デフォルトの名無しさん
08/11/02 14:00:30
>>313
質問してないでソースコード読め。
315:デフォルトの名無しさん
08/11/02 18:17:25
イブジェクト指向
316:デフォルトの名無しさん
08/11/02 18:21:46
英語でいうと、 ibject oriented
317:デフォルトの名無しさん
08/11/02 19:05:20
イブジェマスジー？
318:デフォルトの名無しさん
08/11/02 19:45:14
オブイェークト指向
319:デフォルトの名無しさん
08/11/02 23:19:24
学校に
「CGI/Perl リファレンス」
こういう本があるんですがこの２つって同じようなもんなんですか？
CGI=掲示板 Perl=通信 ってイメージがあるんですが
320:デフォルトの名無しさん
08/11/02 23:28:09
>>319
Wikipedia項目ﾘﾝｸ
Wikipedia項目ﾘﾝｸ
321:デフォルトの名無しさん
08/11/02 23:47:14
perlで指定したURLのファイルをダウンロードするにはどうすればいいんですか？
system関数を使わないで実現したいです
322:デフォルトの名無しさん
08/11/02 23:57:19
LWP::UserAgent
323:デフォルトの名無しさん
08/11/03 00:27:35
>>321
URI::Fetch
324:デフォルトの名無しさん
08/11/03 02:02:59
>>306
なぜエラーにならなければならないの？
325:デフォルトの名無しさん
08/11/03 02:04:53
>>313
他言語同様、継承はなるべく使わない方向で。
他言語での経験があるなら無問題。
326:デフォルトの名無しさん
08/11/03 02:07:45
>>319
CGIがPerlで書かれたものとは限らない
ていうかCGIとPerlじゃ比べる次元が違う
とりあえずページめくれよ
327:デフォルトの名無しさん
08/11/03 02:08:47
>>321
CPAN LWP::Simple検索してサンプル試してみ
328:デフォルトの名無しさん
08/11/03 23:12:57
ActivePerl 5.8.8を使ってます。PPMはGUIになったやつです。
PPMでリポジトリを追加したら、フリーズして、そのまま動かなくなりました。
追加したリポジトリは URLﾘﾝｸ(ppm.tcool.org) です。
何度起動しても、起動時にフリーズします。
多分追加したリポジトリを読みに行ってる時に固まってるんだと思います。
どうやったらこのリポジトリを削除できるでしょうか。
C:\Perlの中のどこかにリポジトリのURLが保存されてて、それを消したら良いんじゃないかと考えたんですが
フォルダ内をGREPしてもURLは見つかりませんでした・・・。
329:デフォルトの名無しさん
08/11/04 00:38:30
C:\Documents and Settings\(user)\Local Settings\Application Data\ActiveState\ActivePerl\(build version)\
以下の、ppm～なんちゃら.dbファイルを消す。
ってか、DOS窓からコマンドライン用のppmでやればいい。C:\Perl\htmlにマニュアルもあることだし。
330:デフォルトの名無しさん
08/11/04 01:36:33
>>392
ありがとうございます。
言われて気づいてみたら、ppm-shellってのがあるんですね。
最近のActivePerlはGUI版PPMしか無いのかと思ってました。
331:デフォルトの名無しさん
08/11/07 18:37:21
ActivePerlをインストールし、perlを採用したプログラミング入門書を見ながらやっているのですが、
ファイルを開くと一応コマンドプロンプトが起動し、実行されるのですが一瞬で消えてしまいます。
最初は、
print"やあ世界！\n;"
exit;
としか書いてなくて、一瞬で終わっちゃうからだなと思い（一瞬ですがやあ世界という表示はされてました）、
入門書の例文にあった
print"名前を入力してください。\n";
$onamae=<STDIN>;
chop $onamae;
print"\n";
print"あなたのお名前は$onamaeさんです。\n;
print"$onamaeさんこんにちは。";
exit;
という内容のファイルを作ってみました。
しかし、名前を打ち込むスキもなく終了してしまいます。
エスパーにしか答えようがない質問かもしれませんが宜しくお願いします。
OSはXPで、入門書は2000年頃の古いものです。
332:デフォルトの名無しさん
08/11/07 18:48:53
>>331
まさかファイルをエクスプローラ上でクリックして動かしてる？
それじゃダメだ
まずコマンドプロンプトを起動してそこで
C:\> perl [ ファイル名 ] [ RETURN ]
で実行しないと
333:デフォルトの名無しさん
08/11/07 18:55:09
>>331
定番の入門書リャマ本
URLﾘﾝｸ(www.oreilly.co.jp)
334:デフォルトの名無しさん
08/11/07 18:55:48
>>332
ありがとうございます。
さきほどURLﾘﾝｸ(www.site-cooler.com)を読んでやってみたら色々できました。
さっきの二番目の例文はなにかミスってるみたいでエラーがなんとかって英文で返されてしまいましたが。
なんだこの本・・・大事なことが書いてない。
335:デフォルトの名無しさん
08/11/07 18:57:34
>>333
ありがとうございます。
また何かつっかえたら買い換えますｗ
336:デフォルトの名無しさん
08/11/07 19:11:31
今は２１世紀だぜ？なんでまた２０世紀の古い本を・・・
337:デフォルトの名無しさん
08/11/07 21:14:29
>>336
じゃあ、2008年6月発売のを
URLﾘﾝｸ(oreilly.com)
338:デフォルトの名無しさん
08/11/08 01:45:17
>>331
＞print"あなたのお名前は$onamaeさんです。\n;
文字列を閉じてない。「\n」の後に「"」が必要。
ところで、文字列のクォートにはqq｛｝もおすすめ。
339:デフォルトの名無しさん
08/11/08 17:11:08
質問です。
my %hash = @arr;
$hash{'SendTE'} = 0;
@arr = %hash;
ハッシュのように扱われてる特殊な配列に
重複しないキーを与えるには上記のように
書いていました。
これを一発で書くにはどう書けばいいでしょうか？
（配列をハッシュのように扱いたい。）
340:デフォルトの名無しさん
08/11/09 00:51:07
for(my i=0; i<@arr;i+=2){ $arr[$i+1] = 0 if $arr[$i] eq 'SendTE' }
341:デフォルトの名無しさん
08/11/09 08:02:11
>>339
普通に
my %hash = ( @arr, 'SendTE' => 0 ) ;
じゃダメなのか？サブルーチンとかでの常套手段だけど？
sub hoge {
my %hash= ( foo => 'bar', @_ ) ;
return $hash{foo} ;
}
printf "%s\n", hoge( foo => 'foo' ) ;
342:デフォルトの名無しさん
08/11/09 08:37:45
ハッシュにリストを代入するときキーに相当するところに同じ値が複数あると
どれが優先されるかは決まってたっけ?
%h = (a => 1, a=> 2);
print $h{a}
試せば今の処理系でどっちかはわかるけど、仕様としてマニュアル等に明記
されているかどうかを知りたい。
343:デフォルトの名無しさん
08/11/09 10:27:31
マニュアル代読サービスに頼めよ
344:デフォルトの名無しさん
08/11/09 10:46:01
>>342
programing perl のhashの説明、冒頭にそのまんまの記載があるじゃん。
my %h = ( a => 1, a=> 2 ) ;
は、以下のコードと同じ効果がある。
my %h = () ;
${a} = 1;
${a} = 2;
同じキーだと通用しないとでも思うのはあなたの勝手。
345:デフォルトの名無しさん
08/11/09 16:54:02
>>342
上書きされるってことになるんだから()内がどっち向きに処理されるか考えりゃ良い
346:デフォルトの名無しさん
08/11/09 18:03:31
いや、少なくとも考えて分かる類のものじゃないでしょ。
347:デフォルトの名無しさん
08/11/09 18:34:34
@arrには、$arr[0] = 0 しか実行されないような気がするのですが、何故以下のような結果に
なるのでしょうか？
use Data::Dumper;
$i = 0;
$arr[$i] = $i++;
print Dumper \@arr; #=> [undef, 0]
348:デフォルトの名無しさん
08/11/09 19:20:11
むかしPerlクイズで結城さんも混乱してたな。
俺のイメージでは、
= （代入するよー）
$i (右辺の$iは0だなー）
++（$iをインクリメントするよー）
$arr[$i] ($arr[$i]に0代入するんだなー。$iはなんだろなー。1だなー）
ってことで、$arr[1]が0になる。
349:デフォルトの名無しさん
08/11/09 19:37:55
俺なんかの説明じゃあれなので、Perlクイズの該当箇所のバックナンバー
URLﾘﾝｸ(archive.mag2.com)
350:デフォルトの名無しさん
08/11/09 19:45:50
>>348-349
㌧
351:デフォルトの名無しさん
08/11/09 20:03:53
なるほどねぇ。クイズとしては面白けど、
そんなクソなコードは間違っても書かないから、どうでもいい。
まったく何の役にも立たないし、他の言語への応用も利かないムダ知識やん。
352:デフォルトの名無しさん
08/11/09 20:31:38
>>344
perldataあたりざっと見てそれらしい記述を見つけられなかったのですが、
ラクダに書いてあるんなら仕様だと思っていいのかな。ありがとう。
353:デフォルトの名無しさん
08/11/09 20:37:06
そもそも「ハッシュ」の意味が分かってないだろ？
分かってたらそんな疑問は持たないはず。
354:デフォルトの名無しさん
08/11/09 20:38:34
>>351
クイズのリンク先を読むと仕様ではっきり決まってないってあたりまで
説明されてるのでそういうコードは書いちゃいけないというところまで
理解すれば無駄ではないと思うよ。
355:デフォルトの名無しさん
08/11/09 20:42:51
更に考えると、そもそも重複したキーを配列に持つときにどれを優先したいか、って話だな。
だから実際には問題になることがない問題なのだ。
356:デフォルトの名無しさん
08/11/09 20:46:12
>>353
リストを連想配列に変換するときにどれを優先するかなんて必ずしも自明じゃないだろ。
ごく自然な仕様として、
* 前を優先する
* 優先順位は決めない
の二つがある。
357:デフォルトの名無しさん
08/11/09 21:07:04
自明だよ。
* 最後を優先する
に決まってるだろ。
右辺側は順序を保持するリストなんだから。
これはLISPでも、Cのカンマ演算子でも同じ、「最終評価値」の概念。
お前さんは以下のような仕様だと嬉しいにか？
$a = 1;
$a = 2; # $aの値は 1 のまま
358:デフォルトの名無しさん
08/11/09 21:21:07
バッドノウハウ地獄
359:デフォルトの名無しさん
08/11/09 21:23:45
だがperlは常に信用できない。気持ち的に。
360:デフォルトの名無しさん
08/11/09 21:33:28
そして今日もPythonやRubyの入門サイトをチラ見するけど本腰を入れることはない……
361:デフォルトの名無しさん
08/11/09 21:36:45
>>357
後者はそのとおりだが。前者は全く自明じゃない。
変な思い込みをする癖は直した方がいいよ。
362:デフォルトの名無しさん
08/11/10 00:13:56
>>361
( )の処理が右から左だと思う根拠は？
363:デフォルトの名無しさん
08/11/10 00:20:23
日本語が通じないらしい
364:デフォルトの名無しさん
08/11/10 00:36:38
左から右だという根拠を私は残念ながら知らないので勝手にそう思い込むのは危険
という主張です。根拠があるのなら示してもらえばそうでしたかで済みます。
もちろん右から左だという根拠も同じぐらいありません。
365:デフォルトの名無しさん
08/11/10 01:15:32
つーか %hash = @rray ってときに、何か例外があるんじゃないかという畏れ。
366:デフォルトの名無しさん
08/11/10 01:22:58
本来ならリストから連想配列への変換関数を使わないといけないところを、
ただの代入文で済ませてしまえる言語仕様が、諸悪の根源な気がする。
367:デフォルトの名無しさん
08/11/10 01:55:02
諸悪の根源は、
「Perlはもうそろそろ終わり。Perlの経験を踏まえたあたらしいスクリプト言語へ
シフトしましょう……って、え? CGIってなに? あ、使うな!」
となってしまったこと。
368:デフォルトの名無しさん
08/11/10 02:02:16
正論側の根拠なんぞ簡単だろ。ほれ。
----
%a = (1,2,3,4,1,'a',2,'b',3,'c',4,'d');
print %a;
----
結果→4d1a3c2b # ハッシュだから順不同。
これ即ち (1=>'a' , 2=>'b' , 3=>'c' , 4=>'d')
馬鹿側が根拠を示すのも簡単だ。上記以外の結果を示せば良い。
馬鹿には無理だろうがな。
369:デフォルトの名無しさん
08/11/10 03:06:03
いや、言語仕様と実装の話だよ。
370:デフォルトの名無しさん
08/11/10 06:31:49
>>368
自尊心だけは十分育ってるようだから、次は知能と知識だね。
頑張って！
371:デフォルトの名無しさん
08/11/10 08:55:32 BE:141505128-PLT(54321)
ネタだろ…
372:デフォルトの名無しさん
08/11/10 10:20:20
まぁそういうことにしたいよな。
373:デフォルトの名無しさん
08/11/10 12:47:06
__END__リテラルを含むfoo.plからexecを使うと
execしたプロセスが全部終了するまで
foo.plはロックされるものなのだろうか
374:デフォルトの名無しさん
08/11/10 13:34:04
>>373
関係ないと思うよ
375:デフォルトの名無しさん
08/11/10 17:10:32
>>349
現在の結城さんだったら把握してそうだけど。
>私が調べた限りでは、代入演算子の右と左でどちらを先に評価するかは、
>Perlの本には言及されていませんでした。
perltrap にばっちり記載されてる。
右辺を先に評価。
# perl の 5.005_02/ 1998-Aug-08 でも。
LHS vs. RHS of any assignment operator
LHS vs. RHS of any assignment operator. LHS is evaluated first in
perl4, second in perl5; this can affect the relationship between
side-effects in sub-expressions.
@arr = ( 'left', 'right' );
$a{shift @arr} = shift @arr;
print join( ' ', keys %a );
# perl4 prints: left
# perl5 prints: right
376:デフォルトの名無しさん
08/11/10 19:20:54
>>374
__END__リテラルって意味わからんので、__DATA__セクションのことなんじゃないだろうか？
ただ、プロセス寿命の話なら、ちゃんとした仕様は
たぶんなくて、実装次第+環境次第だろと思う。
だいたい、UNIXとWindowsでかなり違うよな。
377:デフォルトの名無しさん
08/11/10 19:31:32
>>376
ごめんリテラルじゃないね、セクションかトークンと言うべきだった。
うちの環境はWindows XP SP3 + ActivePerl v5.8.8 built for MSWin32-x86-multi-thread
Binary build 817 [257965] Built Mar 20 2006 17:54:25
らしい。
execしたプログラムが走ってる状態のままスクリプトを上書き修正しようとしたら
拒否されて不便だったんだけど、__END__削ったら上書きできた。
なにゆえなのか、よくわからない…
378:デフォルトの名無しさん
08/11/10 20:46:37
>>375
初心者ですが、これは襲撃でした。
自然な思考法なら、perl4の結果を期待するのではないでしょうか？
（それは、初心者だけか）
379:デフォルトの名無しさん
08/11/10 20:47:15
>>378
襲撃でなく、衝撃です。
380:デフォルトの名無しさん
08/11/10 21:09:12 BE:212256083-PLT(54321)
襲撃wwww
381:デフォルトの名無しさん
08/11/10 21:35:40
常識で判断しないのがperlプログラマーだ。
perlの全てを知ってるのが訓練されたperlプログラマーだ。
ほんとperlは地獄だぜ。HAHAHAHAHA
382:デフォルトの名無しさん
08/11/10 22:06:11
perl -le '$i=0;$arr[$i++]=$i;print $arr[0]'
これは1なんだな。わけわかんね。
383:デフォルトの名無しさん
08/11/11 01:36:13
perl = CGI
CGI = perl
384:デフォルトの名無しさん
08/11/11 07:33:41
>>382 モチツケ
385:デフォルトの名無しさん
08/11/11 07:40:28
初心者ですが、どこかのスレでperlの進化型が
ruby,pythonと言う説を見かけました。
これは本当と言えますか？
386:デフォルトの名無しさん
08/11/11 07:59:06
もしそうなら引っ越す
387:デフォルトの名無しさん
08/11/11 08:46:36
>>385
言える
388:デフォルトの名無しさん
08/11/11 09:10:17
>>385
きれいなPerl=Ruby
Perlを捨てて０からシンプルかつ強力に作ったもの=Python
389:デフォルトの名無しさん
08/11/11 09:24:08
>>385
解釈による。
オレ的には認めない。
「進化」ではないだろ。
390:デフォルトの名無しさん
08/11/11 09:31:33
>>377
＞__END__削ったら上書きできた。
もう一度落ち着いて、__END__セクションを追加してから
動作を確認するべき。
391:デフォルトの名無しさん
08/11/11 10:12:12
つまり、
サルが進化したものが人間。
perl が進化したものがruby/python
そゆこと？
392:デフォルトの名無しさん
08/11/11 10:16:25
>>391
> サルが進化したものが人間。
> perl が進化したものがruby/python
スクリプト言語/インタプリタ言語の後発のものだということだから、
「perlが進化した」というように、単一の系列に押し込めるのは明らかな間違いだろう。
393:デフォルトの名無しさん
08/11/11 10:19:04
>>386-389
レス有難うございます。
仮に、この三つを全然知らない場合、どれを会得しようと思いますか？
394:デフォルトの名無しさん
08/11/11 10:52:56
>>393
初心者はPythonがお勧め。
395:デフォルトの名無しさん
08/11/11 11:12:48
>>393
Python
396:デフォルトの名無しさん
08/11/11 11:42:20
% perl -le '$i=0;$arr[$i++]=$i++;print $arr[1]'
０
ますますわけわかめ
397:デフォルトの名無しさん
08/11/11 12:21:43
>>396 モチツケ
398:デフォルトの名無しさん
08/11/11 12:56:02
>>396
それはええやろｗ
399:デフォルトの名無しさん
08/11/11 13:00:42
>>393
Perl。
念のために言っとくが、ここはPerlスレだからな！ｗ
400:デフォルトの名無しさん
08/11/11 13:55:08
いまからPerlをやるって人って自虐者？
401:デフォルトの名無しさん
08/11/11 13:58:02
>>382
これ左辺から評価してる？
402:デフォルトの名無しさん
08/11/11 14:39:45
>>398
ちがうよ！全然ちがうよ！
>>382と>>396を見比べるとすごく気持ちわるいんだよ！
403:デフォルトの名無しさん
08/11/11 15:21:21
>>402
$i=0; $arr[++$i]=++$i; print $arr[2]
404:デフォルトの名無しさん
08/11/11 15:49:19
馬鹿すぎて死にたい。
演算子の優先順位
左結合 項 リスト演算子 (左方向に対して)
左結合 ->
非結合 ++ --
ずーっと下に
右結合 = += -= *= などの代入演算子
405:デフォルトの名無しさん
08/11/11 18:34:59
>>377
環境依存の可能性が高いので、Activeperl 5.8 + WinXP 限定の話として...
perlは__END__(又は__DATA__)を見つけると、ソースファイルをcloseせずに処理を開始する。
そしてexecしたプロセスに開いたファイルが引き継がれる。
ただしperlは単にファイルをリードオープンしているだけであり、何もロックしていないので、
ファイルの中身を書き換える事は可能。
Winでは開かれたファイルのリネームや削除が失敗するので、それに引っかかっているのでは？
>>382,396
perlの中では参照渡しだし、ポストインクリメント演算子は元の値を保持するための一時変数を作る。
配列用の代入処理部へは \配列,\要素番号,\値 が渡される
前者(382)では \@arr,\${古い$iの値(0)を保持している一時変数},\$i を渡すのに対して、
後者(396)だと \@arr,\${古い$iの値(1)を保持している一時変数},\${古い$iの値(0)を保持している一時変数}
を渡すという違い。
406:デフォルトの名無しさん
08/11/11 18:55:14
質問です。
Storableを使ってハッシュをバイナリデータに書き出す際、
上書きではなく追加書き込みで保存する方法はあるのでしょうか。
例
test.pl
---
use strict;
use Storable qw(nstore);
%hash = (
"a" => '1',
"b" => '2',
);
nstore [%hash], "hash.dat";
----
test.plを一度実行し、hash.dat生成
407:デフォルトの名無しさん
08/11/11 18:55:47
（続き）
その後test.pl内の%hashを
----
%hash = (
"c" => '3',
"d" => '4',
);
----
に書き換えて保存、再度test.plを実行
…するとhash.dat内には
c=>3 と d=>4 のペアしか存在していません。
つまり上書き保存されていることになります。
自分は追加保存の形にしたいのですが、
何かいい案がありましたらご教授ください。
よろしくお願いします。
408:デフォルトの名無しさん
08/11/11 19:11:12
>>407
まず元のを読んでから要素を追加して書けばいいと思うよ
409:デフォルトの名無しさん
08/11/11 21:56:02
質問です
外部プログラムを起動して、そのプログラムの実行中にperlから値を渡すといったことはできないでしょうか
あるCのプログラムを実行しscanfで入力待ちになり、そこへ値を渡すといった感じなのですが
410:デフォルトの名無しさん
08/11/11 21:56:41
ソケット使えばできる。
411:デフォルトの名無しさん
08/11/12 23:35:47
大学の宿題誰かおながいします・・・
＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞
配列，2次元配列を用いて， santaku.pl を以下のようにグレードアップせよ．
○ 3択の問題を4題出題し，正解数を最後に表示．
$mondai を @mondai にして配列化
@sentakuを 2次元配列化 $santaku[A][B]の形
$kotaeを @kotaeにして，配列化
これを santaku2.pl という名前で保存して動かす
412:デフォルトの名無しさん
08/11/12 23:36:52
santaku.plっってのはこれです
# santaku.pl
# 問題
$mondai="東京ディズニーリゾートがあるのは次の内，どこか？";
# 選択肢
$sentaku[1]="東京県";
$sentaku[2]="千葉県";
$sentaku[3]="神奈川県";
# 答え
$kotae=2;
#
$user=0;
printf ("%s\n", $mondai); # 問題の表示
for ($i=1; $i<=3; $i++) { # 選択肢の表示
printf ("[%d] %s\n", $i, $sentaku[$i]);
}
printf ("答えを1～3から選んでください ");
$user=<>;
if ($user==$kotae) {
printf ("正解\n");
} else {
printf ("不正解\n");
}
exit;
よろしくお願いします(；へ；)
413:デフォルトの名無しさん
08/11/12 23:47:42
どこまで考えて、どこが分からないの？
414:デフォルトの名無しさん
08/11/12 23:55:39
最初からわかりません・・・
1つずつやったら面倒だから二次元配列にするというのはなんとなくわかるのですが
どこから手をつけていいのか；；；
forを2重でつかったりもするんでしょうか・・・頭が痛いです；
415:デフォルトの名無しさん
08/11/13 00:04:41
0番使えよ……
416:デフォルトの名無しさん
08/11/13 00:16:04
$[=1;
417:デフォルトの名無しさん
08/11/13 00:29:28
大学の教養でそういう講義があるのかな？
とりあえず、問題と答えを4問分2次元配列にして、
正解数をカウントする変数をつくればできると思う
418:デフォルトの名無しさん
08/11/13 01:05:45
printf ……
419:デフォルトの名無しさん
08/11/13 01:11:16
そうです、情報機器の操作っていう講義です
どうですか？？正解数をカウントする変数はさっぱりです＞＜
# =================== データ部分 ==========================
# 問題
$mondai[1]="東京ディズニーリゾートがあるのは次の内，どこか？";
$mondai[2]="東京大学があるのは次の内，どこか？";
$mondai[3]="横浜があるのは次の内，どこか？" ;
# 選択肢
$sentaku[1]="東京県"; $sentaku[2]="千葉県"; $sentaku[3]="神奈川県";
# 答え
$kotae[1]=2;
$kotae[2]=1;
$kotae[3]=3;
# =========================================================
#
# =================== 手続き部分 ==========================
#
$user=0;
printf ("%s\n", $mondai); # 問題の表示
for ($i=1; $i<=3; $i++) { # 選択肢の表示
printf ("[%d] %s\n", $i, $sentaku[$i]);
}
printf ("答えを1～3から選んでください ");
$user=<>;
if ($user==$kotae) {
printf ("正解\n");
} else {
printf ("不正解\n");
}
exit;
420:デフォルトの名無しさん
08/11/13 01:36:31
情報機器の操作とやら でperlなんだね
どちらかというとアバウトな言語だと、教える方も大変だろうに。
rubyとかpythonの方がよさそうだが
421:デフォルトの名無しさん
08/11/13 01:39:28
＞rubyとかpython
さっぱりです＞＜
basic c javaなら講義中に名前を見ましたが。。
その教授はperlが使いやすいといっていたので、、よくわかりませんが
どなたかよろしくお願いします；明日の朝提出なので＞＜
422:デフォルトの名無しさん
08/11/13 01:58:02
明日の朝提出なのになんで今頃もってくるんだか。。。
毎日わかったところまでをここで聞いていればよかったのに。
printfだけなおして友達のを写した方が早いよ
423:デフォルトの名無しさん
08/11/13 02:11:29
この程度のがわからないのならあきらめた方が良いんじゃね？
424:デフォルトの名無しさん
08/11/13 02:27:03
明日の朝なら、まだ30時間くらいあるじゃない。
425:デフォルトの名無しさん
08/11/13 08:04:28
# =================== データ部分 ==========================
# 問題
my @mondai=();
$mondai[0]="東京ディズニーリゾートがあるのは次の内，どこか？";
$mondai[1]="東京大学があるのは次の内，どこか？";
$mondai[2]="横浜があるのは次の内，どこか？";
# 選択肢
my @sentaku=();
$sentaku[0][0]="東京県"; $sentaku[0][1]="千葉県"; $sentaku[0][2]="神奈川県";
$sentaku[1][0]="東京県"; $sentaku[1][1]="千葉県"; $sentaku[1][2]="神奈川県";
$sentaku[2][0]="東京県"; $sentaku[2][1]="千葉県"; $sentaku[2][2]="神奈川県";
# 答え
my @kotae=(2,1,3);
# =================== 手続き部分 ==========================
my @input=();
for(my $cnt=0;$cnt<scalar(@mondai);$cnt++){
printf("%s\n", $mondai[$cnt] ); # 問題の表示
for(my $cnt2=0;$cnt2<3;$cnt2++) { # 選択肢の表示
printf("[%d] %s\n",$cnt2,$sentaku[$cnt][$cnt2] );
}
printf("答えを1～3から選んでください");
my $user=<>;
push @input,$user;
}
exit;
とりあえず、問題表示部分だけ。正誤判定は自分で考えてください。
…ところで、「@sentakuを 2次元配列化 $santaku[A][B]の形」が嫌だなぁ。
リファレンス($santaku->[A][B])使っちゃ駄目なのかな？
426:デフォルトの名無しさん
08/11/13 08:13:52
# =================== データ部分 ==========================
# 問題
my @mondai=("東京ディズニーリゾートがあるのは次の内，どこか？",
"東京大学があるのは次の内，どこか？","横浜があるのは次の内，どこか？");
# 選択肢
my @sentaku=(["東京県","千葉県","神奈川県"],["東京県","千葉県",
"神奈川県"],["東京県","千葉県","神奈川県"]);
# 答え
my @kotae=(2,1,3);
# =================== 手続き部分 ==========================
my @input=();
for(my $cnt1=0;$cnt1<scalar(@mondai);$cnt1++){
printf("%s\n", $mondai[$cnt1] ); # 問題の表示
for(my $cnt2=0;$cnt2<scalar(@{$sentaku[$cnt1]});$cnt2++) { # 選択肢の表示
printf("[%d] %s\n",$cnt2,$sentaku[$cnt1][$cnt2] );
}
printf("答えを1～3から選んでください");
my $user=<>;
push @input,$user;
}
exit;
この方がスッキリしてて良いかな？
427:デフォルトの名無しさん
08/11/13 09:22:27
みんな、なんでいつものゴルフバージョンを作らないの？
428:デフォルトの名無しさん
08/11/13 09:35:48
>>427
おまえが率先して作らないからだろ。司令官どの。
429:デフォルトの名無しさん
08/11/13 10:50:48
419は「２次元配列」の意味がわかってない
430:デフォルトの名無しさん
08/11/13 10:52:18
＞…ところで、「@sentakuを 2次元配列化 $santaku[A][B]の形」が嫌だなぁ。
＞リファレンス($santaku->[A][B])使っちゃ駄目なのかな？
よく、質問を質問で返す人がいるよね。
しかも、「・・・じゃダメなの？」という言い方する人が結構多い。
なんか頭悪そう。
431:デフォルトの名無しさん
08/11/13 10:57:07
自信が無いから、質問を質問で返すのかな。とにかく頭悪そうに見える。
432:デフォルトの名無しさん
08/11/13 11:05:00
頭の悪さ判定師が集結中のスレはここですか?
433:デフォルトの名無しさん
08/11/13 11:27:51
課題にレスしちゃうところがなんか頭悪そう。
434:デフォルトの名無しさん
08/11/13 11:28:49
配列変数で添え字が0から始まるのに、1、2、3…と使うのは気持ち悪い。
$[ = 1 とすればいいが、そんなの私は実際に使ったことない(使う必要ない)。
それに、問題、選択肢、回答と別々の配列変数に入れて、添え字でくくるのも
気持ち悪い。私なら無名ハッシュの配列を作るが。
my @mondai = (
"東京ディズニーリゾートがあるのは次の内，どこか？",
"東京大学があるのは次の内，どこか？",
"横浜があるのは次の内，どこか？",
);
my @sentaku = (
["東京県","千葉県","神奈川県"],
["東京県","千葉県","神奈川県"],
["東京県","千葉県","神奈川県"],
);
my @kotae = (2,1,3);
for my $q(0..@mondai-1) {
print $mondai[$q], "\n";
for my $i(1..@{$sentaku[$q]}) {
printf("[%d]%s\n", $i, $sentaku[$q][$i-1]);
}
my $input;
while (1) {
printf "答えを1～3から選んでください: ";
chomp($input = <STDIN>);
last if $input =~ /^[1-3]$/;
}
print $input == $kotae[$q] ? "○正解" : "×不正解";
print "\n\n";
}
print "終わり\n";
次ページ最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
5044日前に更新/169 KB
担当:undef