Perl コーディング初心者質問コーナー Part25
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
03/06/28 01:18ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
関連スレ
【Perl上級者コーナーPart01】
http://pc2.2ch.net/test/read.cgi/php/1024741312/
CGI: Common Gateway Interface part 11
http://pc2.2ch.net/test/read.cgi/php/1055597189/
【Perl,CGI】参考書籍 第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
【 スクリプト改造工房 PART 6 】
http://pc2.2ch.net/test/read.cgi/php/1047806915/
過去ログやお勧めサイトは >>2-10
0755あぼーん
NGNG0756nobodyさん
03/07/18 12:15ID:NVnSzVH0Generalized quote.
0757nobodyさん
03/07/18 12:36ID:???解決したのはいいんだが、
自分で考えた案の方は、何故一度空にしてから追記で改めて書き込むような
処理になっているのかが気になる。
0759nobodyさん
03/07/18 13:20ID:???何も書き込まないから内容が前のままになると勘違いしていた、と推測してみる。
と思ったけどそれならforeachの前にprint OUT ""挟むか。
やはりわからん。
と思ったら>>746に書いてあったｗ
やはり↑の推測でよかったのか。
＃ちなみに>$fileで開いた時点でファイルは空になる。
0760nobodyさん
03/07/18 13:53ID:50GDA6Bl俺も、それでいろいろとまどったこともあった
0761745
03/07/18 18:44ID:???a1
b1
c1
d1
e1
と書き込まれているとして、これを
a2
b2
c2
d2
e2
と書き直したいんです。
if(!open(USER,">>$user_dir$FORM{'id'}.dat")){print "ユーザーファイルが開けません";}
foreach(@user){
$value = $_ ."\n";
print USER $value;
}
close(USER);
とするだけだと
a1
（略
e1
a2
（略
となってしまうので、いったん空っぽにしてた訳です。(´･ω･｀)ﾅﾝｶ ﾍﾝ?
0762745
03/07/18 18:48ID:???foreach(@user){
$value = $_ ."\n";
print USER $value;
}
close(USER);
ぐはっ、これでも逝けたのか… (o_ _)o
ヽ(ﾟ∀ﾟ) ｱﾋｬﾋｬﾋｬﾋｬ ﾄﾞﾝﾏｲﾄﾞﾝﾏｲ
0763nobodyさん
03/07/18 20:19ID:Y8wtPXEB1 50 10 60
2 60 80 140
3 10 60 70
これを各項目別にソートしたいです。
思いついたのは
$d[0][0]→1 $d[1][0]→0:50 $d[2][0]→0:10 $d[3][0]→0:60
$d[0][1]→2 $d[1][1]→1:60 $d[2][1]→1:80 $d[3][1]→1:140
$d[0][2]→3 $d[1][2]→2:10 $d[2][2]→2:60 $d[3][2]→2:70
多次元配列に入れる
歴史の順でソートする場合
sort(@d[1])←ここは自信ないです(d[1]の中をソートしたいんです)
foreach(@d[1]){
($num,$data) = split(/:/);
print "$d[0][$num]","$_","$d[2][$num]","$d[3][$num]";
}
と言う方法です。各要素に、はじめの添え字を記録して、それをsplitで分解して、それを添え字にする、とい方法ですが、
これは、かなり無駄な気がします・・・
もうすこしきれいなのはありませんか？
0764nobodyさん
03/07/18 20:29ID:Y8wtPXEB×0:50
○50:0
こうかえないと、ソートできませんね
0765nobodyさん
03/07/18 20:33ID:???0766nobodyさん
03/07/18 20:35ID:Y8wtPXEBえと、それだったら
バブルソート使わないとだめっぽくないですか？？
というか、ハッシュがソートされると、添え字がどうなるとかわからないんですけど・・・
値を比べて、添え字と値が対でソートされるんですか？
0767nobodyさん
03/07/18 20:49ID:???0768nobodyさん
03/07/18 21:02ID:???0769nobodyさん
03/07/18 21:31ID:bi1QsuUD$test =~ m/$pataann/;
こんな感じで正規表現パターンを変数化することなんて
無理ですよね？
0771nobodyさん
03/07/18 21:51ID:???やってみりゃいいだろ。
つーか、もう余計な部分まで答えてやる。出来る。
そして$patternの中身がそのまま正規表現パターンとして使われるから注意な。
$pattern = "a.";
なら"aa"や"ab"にもヒットする。
これを文字通り"a."にヒットさせたい場合は
$pattern = "a\\.";
としてやる。
さもなくば
$pattern = quotemeta($patter);
としておくとか、
$test =~ m/\Q$pattern\E/;
などとしろ。
いいか、pataannじゃなくてpatternだぞ！
0773nobodyさん
03/07/18 22:06ID:???open USER, '+<' . "$user_dir$FORM{'id'}.dat"
or error('ユーザーファイルが開けません');
my %data;
while (<USER>) {
/^(.)(.)$/;
$data{$1} = $2;
}
foreach my $key (keys %data) {
$data{$key} += 1; # a1 を a2 へ
}
delete $data{'e'}; # データを元より短くする実験
seek USER, 0, 0;
print USER "$_$data{$_}\n" for sort keys %data;
truncate USER, tell USER;
close USER;
0774nobodyさん
03/07/18 22:23ID:???my %column = ('歴史' => 1, '世界史' => 2, '合計' => 3);
my @score = (
[ 1, 50, 10, 60 ],
[ 2, 60, 80, 140 ],
[ 3, 10, 60, 70 ],
);
my $column = $column{'歴史'};
print join ' ',
map $_->[0],
sort { $b->[$column] <=> $a->[$column] }
@score;
0776nobodyさん
03/07/18 22:54ID:???（ ）
( )
/ノﾉ"＼ヽ )
从*ﾟーﾟ从 ～
/ﾞﾞﾞlll｀y─┛
ノ. ﾉﾉ |
. `～rrrrｰ′
. |_i|_(_
落ち着け。
0777nobodyさん
03/07/18 23:11ID:???あまり関係ないけど、おいらならこんなデータ構造にしますな。
@score = (
1 => {
'歴史' => 10,
'世界史' => 50,
},
);
合計は計算する。
0778nobodyさん
03/07/19 00:22ID:???There's more than one way to do it.
0779nobodyさん
03/07/19 00:31ID:???1 50 10 60
2 60 80 140
3 10 60 70
随分と成績の悪いやつばかりですね
0780nobodyさん
03/07/19 00:52ID:???4 90 85 5 190
0781nobodyさん
03/07/19 01:07ID:???「これ（・・・コードの羅列・・・）って出来るんですか？」
って聞くやつってどういう思考回路してるんだ？
俺様がわざわざ試すのは面倒だから下々の暇そうな２ｃｈの
馬鹿どもにやらせておこうって考えなのかな？
0782nobodyさん
03/07/19 01:12ID:???0784nobodyさん
03/07/19 01:39ID:???0788nobodyさん
03/07/19 02:23ID:???0789nobodyさん
03/07/19 02:39ID:xDnFfAsdあったら教えてください。素人質問で
申し訳ありませんが。
0790nobodyさん
03/07/19 02:56ID:???http://www.din.or.jp/~ohzaki/regex.htm
0792nobodyさん
03/07/19 03:42ID:xDnFfAsd有難うございました。
ただ良く理解できません。
例として、３と４は含むけど５は含まない
というのを教えていただける人がいれば、
よろしくお願いします。
0793nobodyさん
03/07/19 04:01ID:???http://www.geocities.jp/leeobasan/mokuji-kokugo.htm
0794nobodyさん
03/07/19 04:09ID:xDnFfAsd分からないなら分からないって言ってね。
0796nobodyさん
03/07/19 04:18ID:???-> 3と4を含み、かつ5は含まない
-> 3を含み、かつ4を含み、かつ5を含まない
実際にperlで表現する方法は>>790で既出なので略。
上の仕組みが分からない時は「集合」の勉強をしちゃってください。
「論理和 論理積」でググればいっぱいヒットします。
こんだけ丁寧に書けばもう問題ないでしょう。てことで次の質問者の方どうぞ。
0797nobodyさん
03/07/19 05:16ID:???やーだからね、仮にそういう質問の意図だったとして、
それが配列の要素に対しての話なのか文字列の部分に対しての話なのか、
条件判定の話なのか、ついでにそもそもPerlSyntaxの中で話なのかどうかすら、
何が何だかさっぱり分からんでしょ。
そもそも>>789や>>792からそういう解釈を導き出すのも無理あるし。
というわけで次の質問者どうぞ。
0798nobodyさん
03/07/19 09:24ID:???それみたら、そのスクリプト（もちperl）が、
商品を管理者画面から登録する際、
インデックスファイルみたいなものに、連番と商品名だけCSVで持たせて、
商品の詳しい内容は、
別のフォルダ「商品名」（もち日本語）っていうファイルを作らせて、
（たとえば、「ThinkPad1200特売品」とかいうファイル名）
で、「ThinkPad1200特売品」っていうファイルの中に、「<>」区切りで、
商品名の詳細がかいてあるんです・・・
自分、仕事としてperlをやりはじめたのがまだ１ヶ月だから、
わからないんだけど、こういう組み方って、アリなんですか？
それとも異常？
perlお仕事歴長いかた、教えてください。
0799798
03/07/19 09:25ID:???＞別のフォルダ「商品名」（もち日本語）っていうファイルを作らせて、
じゃなく
別のフォルダの中に「商品名」（もち日本語）っていうファイルを作らせて、
0800nobodyさん
03/07/19 09:33ID:???0801nobodyさん
03/07/19 09:45ID:???0803nobodyさん
03/07/19 11:34ID:???ネットショッピングかな？
商品登録だけじゃなくて、販売とか在庫管理まで考慮して
ファイルを設計する必要がある。
他の部分がどうなってるのか分からないけど、
商品詳細情報を個別のファイルにしておくと、
商品番号から詳細情報を表示するリクエストがあったときに
「全商品詳細情報ファイル」を読んで検索して表示するより速い。
内容に不備・誤記があったときの訂正も楽。
完売したらインデックスファイルの該当個所だけ変更すればよい。
目的に合わせてファイルを分けるのは異常ではなく当然。
Perl というよりデータベース設計の問題だと思われる。
0804798
03/07/19 17:38ID:???なるほどー、そういう利点があるんですね。
それは、すごく初耳だったので、勉強になりますた。
＞販売とか在庫管理まで考慮してファイルを設計する必要がある。
これをつくった人は、
そこまでは、なにも考えてないみたいです。
ショッピングカート経由で注文があったらメールがいくだけみたいな。
＞完売したらインデックスファイルの該当個所だけ変更すればよい。
っていう機能を管理者画面につけてないみたいですしね。
0805nobodyさん
03/07/19 19:07ID:???将来的な機能追加を見越した設計だったのかもしれない。
ﾒｰﾙを送るだけだからﾌｧｲﾙ管理だけで充分だけど、
単一ﾌｧｲﾙじゃ拡張しにくくて気持ち悪いとか。
ある程度の規模や機能に達すればﾌｧｲﾙでなくて本格的な
ﾃﾞｰﾀﾍﾞｰｽを導入することになるんだろうけど。
>そこまでは、なにも考えてないみたいです。
在庫管理するかどうかのﾌﾟﾛｸﾞﾗﾏに決定権があったとは思いにくいなぁ。
単に初回作成時は、依頼主の予算やｼｮｯﾋﾟﾝｸﾞｻｲﾄの来客数の見込みから
簡単に済ましただけかも知れない。
実店舗がある個人商店の片手間なｼｮｯﾋﾟﾝｸﾞｻｲﾄとかなら、大枚はたいて初っ端から
大掛かりなｼｽﾃﾑは依頼できないっしょ。
0806795
03/07/19 19:53ID:???0808nobodyさん
03/07/19 21:54ID:???http://ime.nu/pc2.2ch.net/やhttp://cgiboy.com/pc2.2ch.net/のようなアドレスで
動的にページを出力するにはどうしたらいいんでしょうか?
PATH_INFOを使用するにしても、スクリプトの名前が入ると思うのですが・・・
0810nobodyさん
03/07/20 00:14ID:gCjTktSyアップ出来ないみたいなんですが、
どうしても表示したいので、やり方を教えて下さい。
\で囲んだりしても駄目だったので。
例えばクーラーを表示する場合とか。
0811nobodyさん
03/07/20 00:16ID:???0812nobodyさん
03/07/20 02:13ID:???質問は正確にね。
0813nobodyさん
03/07/20 02:43ID:???エラー文面も載せてもらえるといいな。
FTPだとしたら取れないかな？
「クーラー perl 文字コード」でぐぐれば幸せになれるかもね。
0814nobodyさん
03/07/20 09:35ID:XGlmJStz残した別ファイルdatabaseを作りたいのです。
具体的には、
a:xxx
b:yyy
a:zzz
から、3行目を削除して
a:xxx
b:yyy
としたいのです。
そこで、正規表現とDBMハッシュの勉強を兼ねて、次のスクリプトを作って
みました。
dbmopen(%DB, "database", 0666);
open(IN, "testfile");
while (<IN>) {
if (/(\w):(.*)/) { $DB{$1} = ":" . $2 unless exists($DB{$1}); }
}
実行すると、
AnyDBM_File doesn't define an EXISTS method
というエラーメッセージが出ます。
DBMハッシュにexists関数は使えないのでしょうか?
どなたか、ご教示ください。
(exists($DB{$1})ではなく、$DB{$1}にすれば良いのですが、
existsを使ってみたかったのです。)
dbmopen()ってのは"幾つかのDBMライブラリのうち使えるものを使う"という仕様なので、
実際にどんな操作が可能かはそのDBMライブラリに実装によるんだよ。
で、困った事に大抵のUnixでのデフォルトであるNDBM_FileはEXISTSが(現時点では)実装されていないんだよね。
とりあえず、dbmopen()を使う前に、例えば"use DB_File"や、"use SDBM_FIle"などと
他のDBMモジュライブラリルを使う事を明示すればいいかな。
dbmopen()はAnyDBM_Fileをtie()するだけの関数なので、
perldoc AnyDBM_Fileとperldoc -f tieも参照されたし。
0818814
03/07/20 13:18ID:XGlmJStz「実際にどんな操作が可能かはそのDBMライブラリの実装によるんだよ。
で、困った事に大抵のUnixでのデフォルトであるNDBM_FileはEXISTSが(現時点
では)実装されていないんだよね。」
良く分かりました。どうも有り難うございます。
>>815, >>817
私は「初めてのPerl」を読み終えたばかりの初心者です。タイ変数については
これから「プログラミングPerl」で勉強します。
0819nobodyさん
03/07/20 18:21ID:???while( 1 ) {
・
・
・
}
…の部分はかなり大きな処理で、ループの上に戻ってくるまでに
時間がかかるスクリプトがあります。ループの上に戻ってきた時に
スクリプトの自分自身をリロードするような事ってできますか？
何故こんな事したいかと言うと、ループの上に戻って来る前に、
スクリプト修正とか入ると、一旦スクリプトを終了しないといけないので
リロードできないものかと…。因みに、 while の前後にも処理があります
0820nobodyさん
03/07/20 18:28ID:???0821nobodyさん
03/07/20 18:28ID:???0822闇主
03/07/20 18:40ID:???スクリプトファイルを変更しても
既に動いているプロセスのコードは変わらない。
変更後のスクリプトによる別プロセスを立ち上げ直す必要がある。
0823nobodyさん
03/07/20 18:46ID:???while内のコードを別ファイルにして、ループ内で毎回読み込んでevalブロックの中で
実行させるというのはどうだろう。
0826nobodyさん
03/07/20 20:33ID:???Perlと言えばCGIしか思いつかないのか。
0827nobodyさん
03/07/20 20:51ID:???おまいさん、この板はWebProg板ですよ？
ム板と勘違いしてる？
0828nobodyさん
03/07/20 20:55ID:???0830nobodyさん
03/07/20 21:25ID:???向こうで正規表現スレに誘導したの、実は俺。
0831nobodyさん
03/07/20 21:28ID:???どこがオカシイか教えてください
#!/usr/bin/perl
use LWP::UserAgent;
use Compress::Zlib;
{
$ua = LWP::UserAgent->new;
$ua->agent( "Monazilla/1.00 ( ´,_ゝ`)ﾌﾟｯ/1.0" );
$ua->parse_head( 0 );
$req = HTTP::Request->new( GET => $ARGV[0] );
$req->protocol( 'HTTP/1.1' );
$req->header( 'Accept-Encoding' => 'gzip, deflate' );
$req->header( 'Connection' => 'keep-alive' );
print $req->as_string;
# リクエストの送信
$res = $ua->request($req);
# 出力のチェック
if ( $res->is_success ) {
print $res->headers->as_string;
if ( $res->headers->content_encoding =~ /gzip/ ) {
print "圧縮転送された\n";
$t = Compress::Zlib::memGunzip( $res->content );
}
else {
print "圧縮転送されてない\n";
$t = $res->content;
}
}
else { print "Error: " . $res->status_line . "\n"; }
}
0833nobodyさん
03/07/20 21:44ID:???$req->header( 'Accept-Encoding' => '*' );
にしても、駄目でした。
0837nobodyさん
03/07/20 22:35ID:???0838nobodyさん
03/07/20 22:39ID:???0839nobodyさん
03/07/20 22:57ID:ucM2tzJ9例えば $hoge = "\x53\x54\x2d\69" なら
\x69\x2d\x54\53 と逆転させてたいのですが
どうやってやるのがスマートなのでしょうか？
一応初心者ながら 1バイトずつ配列に読み込んでreverseでやるのを考えてみたんですが・・・
0840あぼーん
NGNG0841あぼーん
NGNG0842nobodyさん
03/07/20 23:22ID:???スカラコンテキストでそのままreverseに入れれば、反転した文字列が得られる。
perldoc -f reverse もしくは「perl reverse」でぐぐる。
0844nobodyさん
03/07/21 00:44ID:???ソフトウェアと呼んでもいいの？
0845nobodyさん
03/07/21 01:05ID:???0847nobodyさん
03/07/21 01:57ID:???一応、読んで見てきましたが、該当するような記述は見当たりませんでした。
>>843
それをやっても、駄目でした。LWP は何故か
Accept-Encoding: gzip
と、勝手に変更しますね。
まぁ、２ちゃんねる側の仕様が変わったのカナ？
0848nobodyさん
03/07/21 10:23ID:???強いて言うならば「今風」ってだけです。
いま作っているモジュールが特定のスクリプト専用に作っている為、そういう風に思うのかもしれません。
それとも根本的に考え方が間違ってるのかもしれません。
それすらわからなくなってきてしまって。
OOPで書く利点をお教え頂ければ嬉しいです。
宜しくお願いします。
0849ともちゃん
03/07/21 11:44ID:O4IhS66Kうまくいかなくて最後の３行、$$cook{$key} = $value;}}の最後の所がsyntax errorだと表示されます。
]か}のミスなのだそうです(by CGIROOM・エラーチェック)。
でも、[や{の数とも合っているし、わたしは変だと思わないのです。
どこがどう変なのか分かりますか？
お願いします。
#!/usr/bin/perl
use strict; &main; exit;
sub main{
my $id = "abc
my %cook = ();
getcookie("abc",\%cook);
unless($ENV{'HTTP_COOKIE'} = ~/%cook/){
print "Location: http://aaa/cookie.html\n";}
sub getcookie{
my ($id,$cook) = @_;
my %cook = ();
my $cookie = $ENV{"HTTP_COOKIE"};
$cookie =~ tr/+/ /;
$cookie =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2',$1)/eg;
foreach my $x (split ";",$cookie){
my ($key,$value) = split "=",$x,2;
$key =~ tr/ //d; $cook{$key} = $value;}
foreach my $x (split ",",$cook{$id}){
my ($key,$value) = split ":",$x,2;
$$cook{$key} = $value;}}
0852848
03/07/21 12:20ID:???それはある意味正解なのですが、それを言っちゃうと・・・
でもOOPで書きたいんです。
>>849
どうがんばってみても「}」が一個足りません。
気のせいでしょうか？
0853ともちゃん
03/07/21 12:31ID:O4IhS66K書き写す時のミスでmy $id = "abc";となっていました。<(_ _)>
852番さんありがとうございます。
わたし、下の行ばかり見ていました。わたし馬鹿ですね。
もっと上の行になかったの気が着かなかったです。(^^ゞ
直したらエラーの表示はなくなりましたが、全然動いていないみたいなんです。(;_;)
■ このスレッドは過去ログ倉庫に格納されています