Perlコーディング初心者質問スレ Part 58
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
2008/08/06(水) 22:54:32ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
お勧めサイトは >2 以降
前スレ http://pc11.2ch.net/test/read.cgi/php/1203935151/
過去ログ倉庫 ttp://user.ftth100.com/mirrorhenkan/perl/
0376nobodyさん
2008/11/06(木) 11:15:22ID:???0377nobodyさん
2008/11/06(木) 12:29:12ID:???今時mysqlとSQLiteくらいは使えるとこ結構あるよ
http://atpages.jp/
てかめんどくさいから好きなの使いなよ
http://atbb.jp/
http://atbbs.jp/
http://atchs.jp/
http://atpaint.jp/
http://rentalbbs.livedoor.com/
0379nobodyさん
2008/11/07(金) 00:27:13ID:???0380nobodyさん
2008/11/07(金) 00:35:54ID:???あとDBD::SQLiteよりDBD::SQLite::Amalgamation使ったほうがよくないか
それにしてもパッチあてないといけなかった気がするけど。
0382nobodyさん
2008/11/07(金) 11:15:39ID:???鯖変更の交渉も含め、金額に見合った仕事をするようにしないとなぁ、と思う。
0383nobodyさん
2008/11/07(金) 23:46:31ID:???0384nobodyさん
2008/11/08(土) 00:04:00ID:???Perlのverが5.6以下だったりするところけっこうあるんだよなぁ。
どちらにしても会社のサイトがロリポはないよね。名前的にｗ
0385nobodyさん
2008/11/08(土) 00:28:47ID:???まーPerl5ならなんとかなる。5未満は死んでくれ・・・
0386nobodyさん
2008/11/08(土) 00:48:56ID:???WindowsXP, ActivePerl 5.6.1
create table で失敗してるようなんだけど、どうやって調べればいいんだろう？
my $sql = <<'_SQL_';
CREATE TABLE test (
id integer primary key,
name
)
_SQL_
my $sth = $dbh->do($sql);
の実行後に
my $sql = sprintf "INSERT INTO %s (%s) VALUES(%s)", $table, keys %{$hashref}, (join ',', '?' x scalar(values %{$hashref}));
my $sth = $dbh->prepare($sql);
$sth->execute(values %{$hashref});
を実行すると、
DBD::SQLite::db prepare failed: no such column: name(1) at dbdimp.c line 268 at sqlite.pl line 41.
Can't call method "execute" on an undefined value at sqlite.pl line 42.
ってエラーがでる。
$hashref = {id => 1, name => "hoge"};
です。
0387nobodyさん
2008/11/08(土) 00:56:12ID:???0388386
2008/11/08(土) 01:05:43ID:???keys %{$hashref} と (join ',', '?' x scalar(values %{$hashref})) は間違い。
0389386
2008/11/08(土) 01:22:05ID:???my $sql = sprintf "INSERT INTO %s (%s) VALUES(%s)",
$table, join(',', keys %{$hashref}) ,join(',', ('?') x scalar(values %{$hashref}));
ところで、データベースはどこに作成されるのですか？
スクリプトのあるディレクトリに dbname というファイルが作成されますが、サイズは 0 バイトです。
0390387
2008/11/08(土) 01:28:36ID:???0391386
2008/11/08(土) 01:43:51ID:???keys で返ってくるキーの順番は保証されないけど、keys と values が同じ順番で返ってくるのことは保証されているのでは？
0392nobodyさん
2008/11/08(土) 01:56:38ID:???0394386
2008/11/08(土) 16:02:05ID:???↓のやり方で扱ってます。
my @column = qw(id name);
my %data;
@data{@column} = split /\t/;
my $id = $data{id};
0396nobodyさん
2008/11/09(日) 01:11:14ID:tiuPBzgUこれはどうやったらできるのでしょうか？
mailaddressとパスワードが20セットあり、それのアドレス帳をPGで自動取得したいんです。
同じ事を経験された方いらっしゃいますか？
0398386
2008/11/11(火) 11:21:11ID:???よろしくお願いします。
0399nobodyさん
2008/11/11(火) 12:05:41ID:???0400386
2008/11/11(火) 12:18:50ID:???PATHがどこか聞いているのだよ
0401nobodyさん
2008/11/11(火) 12:20:57ID:???書かなきゃカレントだろーが
0402nobodyさん
2008/11/11(火) 12:21:59ID:???0403nobodyさん
2008/11/11(火) 13:37:01ID:???0404386
2008/11/11(火) 14:04:05ID:???それぐらいも書けないなら解答すんなチンカス
0405nobodyさん
2008/11/11(火) 14:27:24ID:???ここで答えたら「チンチン言ってたら答えてもらえた」と思ってまたそうするだろう。
0407386
2008/11/11(火) 14:56:38ID:???0408486
2008/11/11(火) 20:48:30ID:???>> 399 レスありがとうございます。
DB接続時のファイル名指定を間違ってました。
my $dbh = DBI->connect("dbi:SQLite:dbname:$mydb","","");
下のように修正したら、スクリプトと同じディレクトリに指定した名称のファイルが作成されました。
my $dbh = DBI->connect("dbi:SQLite:dbname=$mydb","","");
作成されたファイルをバイナリエディタで見るとテーブルの情報やINSERTしたデータも入ってました。
お騒がせしました。
ただ、最初の方法でもデータをINSERTできるし、SELECTするとそれまで入力したデータ（約10件）を取り出せます。
>>389 で書いたように dbname という名称のファイルが作成されているのですが、あいかわらず 0 バイトです。
このファイルはスクリプトを実行してデータをINSERTするたびにタイムスタンプが更新されます。
これは、どうなっているのでしょうか？
0409V30
2008/11/11(火) 22:03:12ID:???0411nobodyさん
2008/11/12(水) 09:49:46ID:???リンクでもVirtualStoreでもないな。
0412ｒ
2008/11/12(水) 12:10:00ID:DKrfzJ/y0413ｓ
2008/11/12(水) 12:10:26ID:DKrfzJ/y0414ｋ
2008/11/12(水) 12:10:49ID:DKrfzJ/y0415nobodyさん
2008/11/12(水) 12:41:44ID:???Winだと:はドライブ名の指定にしか使えないんじゃなかったっけ。
Eドライブにもファイルできてるかもな
0416nobodyさん
2008/11/12(水) 13:23:26ID:???0417nobodyさん
2008/11/12(水) 14:31:59ID:???0418nobodyさん
2008/11/12(水) 14:51:00ID:???0419Pentium
2008/11/12(水) 21:28:24ID:???ストリームって初めて知りました。
lfnutils というのを使って調べてみたら、確かにストリームにデータが記録されていました。
バイナリデータのため、文字化けしている部分がありますが >>408 と同様のデータでした。
http://www.monyo.com/technical/products/lfnutils/
すっごく、スッキリしました。
みなさん、ありがとうございました。
0420nobodyさん
2008/11/19(水) 17:11:01ID:???TripletaiLを使用して、CSVにデータを追加出力がしたいです。
Tripletail::CSVとTripletail::Filter::CSVが有るようですが、
画面上には何も表示なく保存又は上書き保存がしたいです。
良い方法はありますでしょうか？
ご教授御願いいたします。
0421nobodyさん
2008/11/19(水) 18:35:04ID:???0422nobodyさん
2008/11/22(土) 20:18:49ID:???0423nobodyさん
2008/11/23(日) 20:39:20ID:bs2lqy3Vと
my $hoge = Hoge->new;
は同じですか？同じだとしたら何故二つの呼び方があるのですか？
0424nobodyさん
2008/11/23(日) 20:41:59ID:???で、何故かについてはLarry Wallに聞いてくれ。
0425nobodyさん
2008/11/23(日) 20:47:43ID:???確かにこうやっても値渡らないね
0426nobodyさん
2008/11/23(日) 21:03:39ID:???なら行けなかったっけ？ 最近この書き方していないからうろ覚えだが。
0427nobodyさん
2008/11/23(日) 22:14:26ID:???$obj = new Hoge
ってして、メソッド実行するときは
$obj->something();
ってしてるな。
0428nobodyさん
2008/11/23(日) 22:18:28ID:???0429nobodyさん
2008/11/24(月) 18:20:18ID:???ウォール（笑）
0430nobodyさん
2008/11/24(月) 21:27:28ID:???0431nobodyさん
2008/11/24(月) 21:35:16ID:???$obj= Hoge::new('Hoge');にすればいいかもな
0432nobodyさん
2008/11/25(火) 00:44:42ID:???確かめちゃったじゃんか。
ex.1)
use Data::Dumper ;
my $obj = new Data::Dumper [qw( hoge foo )];
print $obj->Dump ;
ex.2)
{
package Hoge ;
use Data::Dumper ;
sub new{ return bless { dat => \@_ }, shift ; }
sub echo{ print Dumper shift->{dat} ; }
}
my $obj1 = new Hoge q{hoge}, q{foo} ; $obj1->echo ;
0434nobodyさん
2008/11/26(水) 12:05:49ID:???特に、言語はPerlに限ったことではないんですが、CGIでソケットを使いた
いのです。
そこで質問ですが、レンタル・サーバーで、独自にポートを開くことは
可能でしょうか? 禁止されていて開けない可能性はありますか?
レンタルサーバー上で、CGIで独自にソケット/ポートを利用したプログ
ラミングの例はあるでしょうか?
0435nobodyさん
2008/11/26(水) 12:08:28ID:???0437nobodyさん
2008/11/26(水) 12:10:58ID:???0438nobodyさん
2008/11/26(水) 12:35:57ID:y5MzewIk１台まるごと借りるサーバーなら大丈夫だとは思うけど、そんなんだったら自鯖立てたほうがいいよ
(ちゃんと管理できるならね)
0439nobodyさん
2008/11/27(木) 04:12:01ID:???1： 自分はこういう事がしたい。
動的に作成されるpngの画像（具体的には株価チャート）をgifに変換したい
2： それでこんな風にやってみたが･･･
socketで画像を取得→imagemagickでgifに変換
3： こんなエラーが出て上手く行かなかった。
socketで取得した画像をimagemagickにどうやって渡せばいいか分からない
補足：
socketでの画像取得はできています（表示文を付けたらブラウザで見れました）
png→gif 変換はできています（テストイメージでできました）
tempイメージをサーバに作成しない方法で実現したいです（メモリ上で完結）
use Socket;
（省略）
画像取得処理
print "Content-type: image/gif\n\n";
while (<SOCKET>){print $_;}
↑テスト用表示文
（省略）
use Image::Magick;
$tempimage = Image::Magick->new();
$tempimage->Read($inimage);
↑ここでsocketのデータを渡したい
$tempimage->Write($putsam);
（終了）
0440nobodyさん
2008/11/27(木) 07:58:39ID:???open(IMAGE, 'image.gif');
$image->Read(file=>\*IMAGE);
close(IMAGE);
って公式にあるだろ…、それとファイルハンドルのなんたるかが
きちんと扱えればどうにかならないか？
0441nobodyさん
2008/11/27(木) 23:22:00ID:cBVqxC3+0442nobodyさん
2008/11/27(木) 23:33:30ID:???0443nobodyさん
2008/11/28(金) 00:37:03ID:???おっしゃるとおり、ファイルハンドルの何たるかを知りません。
socketに格納されてるバイナリデータをどうやって変数に代入すればいいのか
わかりません。変数に代入できれば先に進めそうなのですが。
バイナリデータをBlob形式に変換できればBlobToImageでできそうですね。
今日、調べてみます。
0444nobodyさん
2008/11/28(金) 02:13:22ID:???BlobToImageが一番安全っぽい。
0445nobodyさん
2008/11/28(金) 02:54:47ID:???$image->Read(file=>\*SOCKET);
メモリだけで完結するじゃん（落るらしいから意味ないけど）
0446nobodyさん
2008/11/28(金) 02:59:50ID:???一旦ファイル作っちゃった方がサーバーに優しくない？って気もするけどなんでオンメモリ何だろ？
ファイルハンドルになっちゃえばImageMagickで処理出来るよね？
こんな感じのできなかったけ？
my $buff;
open my $fh,'+>',\$buff;
print $fh <SOCKET>;
seek($fh,0,0);#fseekだっけ？
0447nobodyさん
2008/11/28(金) 08:12:17ID:???方がサーバに不可が掛らんと主張してるんだぞ君は。
0448nobodyさん
2008/11/28(金) 10:49:59ID:f7u8ti6kいつの時代からメインメモリより DISK および DISK I/O の方が処理コスト安くなったの？
0449nobodyさん
2008/11/28(金) 11:32:22ID:???0450nobodyさん
2008/11/28(金) 12:22:28ID:???それで問題あるなら、Image::Magickを使用することから見直した方がいい。
0451nobodyさん
2008/11/28(金) 13:23:12ID:???ReadもBlobToImageもだめみたいだったので
SOCKETから一回取り出してperlでバッファリングして
imagemagickの中でもバッファリングして
と無駄が多いなと感じて書きましたが
言われてみてればたしかにたいしたサイズでもないですね
0452nobodyさん
2008/11/28(金) 17:30:25ID:f7u8ti6kuse strict;
use CGI::Carp qw(fatalsToBrowser);
use warnings;
use CGI;
use LWP::UserAgent;
use Image::Magick;
my $ua = new LWP::UserAgent;
$ua->agent('IE5');
$ua->timeout(10);
my $response = $ua->get("http://i.yimg.jp/images/evt/ramen2008/shop/2/shop_il01.gif");
my $data = $response->is_success ? $response->content : undef;
#if(defined($data)){
# print "Content-Type: image/gif\n\n";
# print $data;
#}
my $image = new Image::Magick;
$image->BlobToImage($data);
print "Content-Type: image/png\n\n";
print $image->ImageToBlob(magick => 'png');
0453nobodyさん
2008/11/28(金) 19:56:27ID:???452さんの回答で出来てしまいましたね…。すごいです。
my $data = $response->is_success ? $response->content : undef;
↑の部分をSOCKETで実現する方法を実装できなくて悩みまくりました。
（SOCKET画像取得処理）
my $data = SOCKETで取得した画像
↑を実装する方法は引き続き勉強します。
0454nobodyさん
2008/11/28(金) 19:59:50ID:???0455nobodyさん
2008/11/28(金) 20:16:09ID:???まあ、そうなんですよね。
SOCKET使える環境で必ずLWPを使えるのであれば（よく知りませんが…）、
ほとんど意味ないですね。処理性能面でSOCKET優位等の理由がない限り。
みなさまのおかげでやっと実現できました。ありがとうございます。
0456nobodyさん
2008/11/29(土) 22:46:07ID:???0457nobodyさん
2008/11/30(日) 01:47:08ID:???設置方法で分からないことがあります。
今回作成したPerlのCGIをpng2gif.cgiとして、
urlをパラメータとし、以下のように出力します。
print "Content-Type: image/gif\n\n";
print $image->ImageToBlob(magick => 'gif');
htmlに
①<img src="png2gif.cgi?http://chart.cn.yahoo.com/t?s=000001.SS">
と記述すれば問題なく動きます。
が、SSIとして記述する場合、どうすればよいのでしょうか？
②<img src="<!----#include virtual="png2gif.cgi?http://chart.cn.yahoo.com/t?s=000001.SS"-->">
③<!--#include virtual="png2gif.cgi?http://chart.cn.yahoo.com/t?s=000001.SS"-->
②は<img src ="">となりNG
③はバイナリデータがそのまま出力（GIF89a～文字化けの羅列）されてNG
③はcgi側でgif形式で出力しているので理解できるのですが、①と②で動きが違うのはどうしてなのでしょう？
SSIとしてこのcgiを動かすにはどうすればよいのか分かりません…。
0458nobodyさん
2008/11/30(日) 02:09:05ID:o6oyERaL(3) は src には PATH であったり URL を指定すべきところにバイナリを出力してるから
(2) は t?s の部分をエスケープしてみたり、<!---- をちゃんと書き直してみたりしたらどうでしょう？
0459nobodyさん
2008/11/30(日) 02:54:50ID:???（０）<img src="png2gif.cgi?http://chart.cn.yahoo.com/t?s=000001.SS"><br>
（１）<img src="<!--#include virtual="png2gif.cgi?http://chart.cn.yahoo.com/t?s=000001.SS"-->"><br>
（２）<img src="<!--#include virtual="png2gif.cgi\?http://chart.cn.yahoo.com/t?s=000001.SS"-->"><br>
（３）<img src="<!--#include virtual="png2gif.cgi?http://chart.cn.yahoo.com/t\?s=000001.SS"-->"><br>
（４）<img src="<!--#include virtual="png2gif.cgi\?http://chart.cn.yahoo.com/t\?s=000001.SS"-->"><br>
（５）<!--#include virtual="png2gif.cgi?http://chart.cn.yahoo.com/t?s=000001.SS"--><br>
（６）<!--#include virtual="png2gif.cgi\?http://chart.cn.yahoo.com/t?s=000001.SS"--><br>
（７）<!--#include virtual="png2gif.cgi?http://chart.cn.yahoo.com/t\?s=000001.SS"--><br>
（８）<!--#include virtual="png2gif.cgi\?http://chart.cn.yahoo.com/t\?s=000001.SS"--><br>
結果
（０）正しい画像が出力される
（１）<img src="GIF89a～文字化け～"><br>
（２）<img src="[an error occurred while processing this directive]"><br>
（３）<img src=""><br>
（４）<img src="[an error occurred while processing this directive]"><br>
（５）GIF89a～文字化け～<br>
（６）[an error occurred while processing this directive]<br>
（７）<br>
（８）[an error occurred while processing this directive]<br>
タグ内にSSIを埋め込むことができないのでは？と思いましたが、結果を見ると問題なさそうです。
img srcのパラメータにバイナリデータをそのまま書いてしまっているように見えます。
img srcへの渡し方（ファイルを示すURL？）に問題がありそうです。難しい…。
0460nobodyさん
2008/11/30(日) 12:17:00ID:???img要素などを経由させるしかない。
つか、(0)をSSIに書いとけばいいんじゃないのか？
0461nobodyさん
2008/11/30(日) 12:33:15ID:???#!/usr/bin/perl
print "Content-Type: text/html\n\n";
print "<img src=\"png2gif.cgi\?http://chart.cn.yahoo.com/t\?s=000001.SS\">";
で、htmlに
<!--#include virtual="test.cgi"--><br>
で表示できました。
後だしで申し訳ないのですが、ssiでやりたかったのはhtmlソース上にcgi名を
表示させたくなかったという理由があります。
png2gif.cgiの方をいじらないとだめそうですね。ありがとうございます。
0462nobodyさん
2008/12/05(金) 20:58:52ID:???なんで？
0464nobodyさん
2008/12/06(土) 00:31:10ID:???newのみがクラスメソッドで、それ以外のメソッドがインスタンスメソッドだと思って間違いないでしょうか？
0465nobodyさん
2008/12/06(土) 01:12:27ID:???0466nobodyさん
2008/12/06(土) 14:04:47ID:nchXLVyQと呼び出した時 aaa のなんのメソッドが呼ばれるの？
aaa->new は new が呼ばれてるのは分かるけど …
0467nobodyさん
2008/12/06(土) 14:19:58ID:???package aaa;
use strict;
use warnings;
sub aaa {
warn "aaa::aaa";
bless {}, shift;
}
sub new {
warn "aaa::new";
bless {}, shift;
}
package main;
use strict;
use warnings;
aaa aaa;
0468nobodyさん
2008/12/06(土) 14:26:33ID:???書き方が違うだけでnewを呼んでる。
new aaa ; # 間接オブジェクト記法
aaa->new ; # 直接オブジェクト記法
{ package Foo ; sub new { bless {}, shift } sub get { "hoge\n" } }
print Foo->new->get ; # 直接
これを間接で書くと
print +( get { new Foo } ) ;
0469nobodyさん
2008/12/06(土) 14:55:41ID:???http://www.nicovideo.jp/watch/sm5377306
0470nobodyさん
2008/12/07(日) 00:51:48ID:5kiTreoU明示的に書いてやるかどうかの違いなワケっすね
0471nobodyさん
2008/12/08(月) 22:17:51ID:H0AbHxek$mail = "[email protected]"
$mailから文字列 foo と @mail.com を抜きだすにはどうしたらいいでしょうか？
0472nobodyさん
2008/12/08(月) 22:26:41ID:???0473nobodyさん
2008/12/09(火) 00:53:33ID:1e6/3LhQ0474nobodyさん
2008/12/09(火) 01:59:53ID:???0475nobodyさん
2008/12/09(火) 06:21:12ID:???$mail = '[email protected]';
と書かないとダメだろ。俺も前に嵌ったことあるｗ
0476nobodyさん
2008/12/09(火) 11:16:40ID:1e6/3LhQ分離後の後者側には @ はいらないでしょ
それに分離するってことはホスト名が欲しいワケだよね？
だったら @ は邪魔なゴミじやない？
■ このスレッドは過去ログ倉庫に格納されています