Perlコーディング初心者質問スレ Part 61
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
2010/06/05(土) 21:11:10ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
お勧めサイトは >2 以降
前スレ http://pc11.2ch.net/test/read.cgi/php/1251989472/
0554Perl忍者 ◆M5ZWRnXOj6
2010/10/09(土) 21:58:06ID:7nxLhNm/0555nobodyさん
2010/10/09(土) 23:06:01ID:???0556nobodyさん
2010/10/10(日) 02:11:40ID:???use List::Util 'shuffle';
foreach $Key(shuffle keys %P){
@VS_VALUES = split(/\s/,$P{"$Key"});
}
HASHはランダムに納められてるだけでランダムに表示されるわけではない
0558nobodyさん
2010/10/10(日) 18:34:10ID:???この中から名前を検索して、リンクのさいにuser.cgi?=ユーザーIDとしたいのですが、どのように書けば良いのでしょうか？
0559nobodyさん
2010/10/10(日) 19:31:01ID:???>>1
依頼されたツールを誰かが作るスレ
http://hibari.2ch.net/test/read.cgi/php/1078997682/
金出すからスクリプト作ってよvol.1
http://hibari.2ch.net/test/read.cgi/php/1150508106/
0560nobodyさん
2010/10/14(木) 13:38:00ID:???最初はGETメソッドで開発して、
最後にPOSTに変更するとやり易いなあと。
クエリーがアドレスバーに表示されるので、渡すデータやキーを確認できるから。
これまでは$queryで処理結果ページに表示してた
そう思わない？
みんなどうしてる？
日本語ｽﾏｿ
0561nobodyさん
2010/10/14(木) 14:36:32ID:???>>1
【総合】 Webprog板質問雑談スレッド 1
http://hibari.2ch.net/test/read.cgi/php/1131016915/
開発環境おしえて
http://hibari.2ch.net/test/read.cgi/php/1171452901/
スクリプト言語と開発効率について
http://hibari.2ch.net/test/read.cgi/php/1177517787/
生産性、効率性を重視した開発環境
http://hibari.2ch.net/test/read.cgi/php/1005486101/
0562nobodyさん
2010/10/15(金) 16:50:22ID:1IbFyG9F本番環境では文字化けしてしまいます。Mysqlのバージョンは5.1.34です。
テキストはＵＴＦ８でバイナリデータとしてはきちんと入っていました。
Blob型からデータを取り出すときには何かしないといけないのでしょうか？
0563nobodyさん
2010/10/16(土) 10:56:52ID:???0564nobodyさん
2010/10/16(土) 12:03:58ID:???接続時はSET NAMES utf8としていますが
SQLの実行直前ですか？
ぐぐるとSET NAMES binaryとしている人もいるようです
0565nobodyさん
2010/10/16(土) 12:15:08ID:4m15JmGpナイスヒントでした。
SET NAMES utf8ではだめでしたが直前でSET NAMES binaryを入れたところ化けないようになりました。
blob型を使うときは切り替えないといけないんですね
0567nobodyさん
2010/10/19(火) 10:27:12ID:???と
require LWP::UserAgent;
とは同じということでよろしいかな？
0568nobodyさん
2010/10/19(火) 10:33:23ID:???0569nobodyさん
2010/10/19(火) 10:33:56ID:???意外だた。
0570nobodyさん
2010/10/19(火) 10:38:28ID:???0571nobodyさん
2010/10/19(火) 10:40:06ID:???違うのはimportの有無と読み込みタイミングだが、LWP::UserAgentは
$ua = LWP::UserAgent->newしたら$uaのメソッド呼ぶだけだから普通の
使い方なら特にimportしなきゃいけないもんないしな。どっちでもいいん
じゃない?
0572nobodyさん
2010/10/19(火) 10:41:05ID:???require LWP::UserAgent;
ってなってるしな。
0573567
2010/10/19(火) 10:42:31ID:???0574nobodyさん
2010/10/19(火) 11:17:20ID:???0575nobodyさん
2010/10/19(火) 11:43:50ID:???が951になる理由を教えてくれ
0576nobodyさん
2010/10/19(火) 12:10:30ID:???１．４が少数部持ってるから掛け算した結果も小数部を持つ952
これを%d整数としてはめ込むときにどうにかしてるんだから (680*1.4) . ''で
一旦文字列にすれば952になるだろうね
0577nobodyさん
2010/10/19(火) 12:16:23ID:???textファイルじゃダメなんでしょうか？
2ちゃんねるのログをそのままtextファイルを使用した場合のデメリットなどがあったら教えてください
0579nobodyさん
2010/10/19(火) 12:23:44ID:???ただのテキストだと本文に他の記事をコピペされると記事の区切りとか
わかんなくなったりするので、はっきり区別がつくように特別な約束を決めて
あるわけだな。
0580nobodyさん
2010/10/19(火) 12:24:07ID:???0581nobodyさん
2010/10/19(火) 13:11:09ID:???メール欄[ ]
↑これがあるけど、需要ねぇだろコレ
マジ何でほぼ全ての掲示板に共通してあるんだよ
0582nobodyさん
2010/10/19(火) 13:27:15ID:???混乱するからな。
0583nobodyさん
2010/10/19(火) 13:42:10ID:???0584575
2010/10/19(火) 18:46:36ID:???680*14/10 として小数を使わなければいい
よくよく考えてみたら当たり前の話だな
intで切り捨てとかsprintf使えとか言うてるサイトは死滅してくんねーかな
0585nobodyさん
2010/10/19(火) 18:55:35ID:???0586nobodyさん
2010/10/19(火) 19:08:01ID:???浮動小数点の丸め誤差を理解出来てない奴が、
適当に解説するのは止めてくれ！と心底思うが
584に言われたくは無いだろーなあ。
0587nobodyさん
2010/10/19(火) 22:56:38ID:???書店で関係書籍を見る限り、モジュールについて詳しく書かれている書籍はほとんど無いと思うんですが。
やっぱりCPANを直接読むんですか？英語だと思うんですが・・
0588nobodyさん
2010/10/19(火) 22:58:42ID:???いやあ、私は時々使いますよ。
運営側としては名前もメール欄も使うべきものなんだと思ってます。
多くの人が使わないようだけど、本来は使ってしかるべき機能かと。
名前も連絡先も明らかにせずにいきなり話に入るなんていうのがリアルで当然にはなって欲しくないです。
0591nobodyさん
2010/10/19(火) 23:11:55ID:???あとはperldoc.jp
0593nobodyさん
2010/10/19(火) 23:12:07ID:???英語ぐらい読めよ。技術文書はそんなに難しくないぞ。特にコンピュータ系の
専門用語は英語そのままカタカナにしたのが多いから楽だよ。
0594nobodyさん
2010/10/19(火) 23:14:58ID:???何か良い書籍はありませんか？
知りたいのは主に以下のもの
CGI
LWP::UserAgent
HTTP::Request
Jcode
XML::DOM
XML::Parser
0595nobodyさん
2010/10/19(火) 23:19:46ID:???0596nobodyさん
2010/10/19(火) 23:20:48ID:???>>1
【Perl,CGI】参考書籍 第四版
http://hibari.2ch.net/test/read.cgi/php/1250989562/
参考書籍推薦スレッド
http://hibari.2ch.net/test/read.cgi/php/1014836425/
【総合】 Webprog板質問雑談スレッド 1
http://hibari.2ch.net/test/read.cgi/php/1131016915/
0597nobodyさん
2010/10/19(火) 23:31:32ID:???エンジンによって振り分けて処理するしかないって結論になってなかったっけ？
Jcodeモジュールでできるのでは？
0598Perl忍者 ◆M5ZWRnXOj6
2010/10/19(火) 23:36:59ID:I4QlovXi0599nobodyさん
2010/10/19(火) 23:40:37ID:???これって検索エンジン毎に分岐しなくてもいいんじゃないかな？
以前、質問したら自信満々に 「エンジン毎に分けるしかないでしょうね」 とか言われたけど、
そんなことないじゃないか。
0600nobodyさん
2010/10/20(水) 00:01:49ID:???何行にも渡って処理していた日本語変換が2行ほどになってしまったｗ
モジュールｽｺﾞｲね。（；´∀｀）
0601nobodyさん
2010/10/20(水) 01:36:24ID:???日本語の変換するならJcode.pmで十分実用に足るんじゃないの？
0602nobodyさん
2010/10/20(水) 02:33:30ID:???充分に単純化できてるし、効果も得てるんでこれでいいと思ってる。
2行を1行に出来たところでさしたる差はないから。
Encodeは正直まだどういうものなのかわかってない。
文字コード変換と日本語変換の違いなのかな？って想像してる。
0603nobodyさん
2010/10/20(水) 02:58:27ID:???0604nobodyさん
2010/10/20(水) 05:24:47ID:???初心者だったらJcode.pm使うよりは素直にEncode使ったほうがいいような気も。
Jcode.pmを使ってるサンプルスクリプトは、
pre-modernで参考にしない方がいいものも結構あるし。
0605nobodyさん
2010/10/20(水) 07:06:43ID:???$string =~ tr/一二三/壱弐参/;
0606nobodyさん
2010/10/20(水) 08:28:58ID:???0607nobodyさん
2010/10/20(水) 11:33:27ID:???これまではjcode.plやutftosjisとかを検索エンジン毎に分岐し、更にキーワードが入ったパラメーター名毎に分岐して入手していました。
モジュールJcodeを使ったら何十行にも渡っていたものが短い2行に。
モジュールの威力を知った。
0608nobodyさん
2010/10/21(木) 02:33:10ID:???すごい高機能なんだって？本で知って興味持ってる。
昨日話したJcode、その後も順調に機能してるよ。以前はどうしても文字化け出てきちゃうのもあったんだけど、
いまやほとんど無し。
ありがたやありがたや。
0609Perl忍者 ◆M5ZWRnXOj6
2010/10/21(木) 07:33:22ID:im6AkfLS成果物がクソとかプログラミングもクソなやついるから
あーあーあのubuntu厨見たいなかんじですね(笑）
0610nobodyさん
2010/10/22(金) 11:45:08ID:???Emacsと言っただけで ほざいてる とか言われるわけか、参ったな。
話に聞いただけでまだこれから試すか否かなんだけどね。
体験者がいたら話聞いてみたいなと。
0611Perl忍者 ◆M5ZWRnXOj6
2010/10/22(金) 16:50:09ID:1atSZw6K0612Perl忍者 ◆M5ZWRnXOj6
2010/10/22(金) 16:54:37ID:1atSZw6K0613nobodyさん
2010/10/22(金) 18:49:56ID:???よろしければ問題文を張るので協力御願いします。
あと、もし他に相応のスレがあるなら誘導御願いします。
0614nobodyさん
2010/10/22(金) 18:54:45ID:???0615nobodyさん
2010/10/22(金) 20:01:30ID:???0616nobodyさん
2010/10/23(土) 02:05:49ID:???貼ってくれたら俺はやるよ。
なんか宿題とかそういう下らないことしたい気分だし。
0617nobodyさん
2010/10/23(土) 07:53:35ID:???0618nobodyさん
2010/10/23(土) 09:58:15ID:???MySQL とか PostgreSQL とかのセットアップがめんどくせーｗ
もっと、ちゃちゃっとセットアップできるの無いのかしら？
0619nobodyさん
2010/10/23(土) 10:00:59ID:???0620nobodyさん
2010/10/23(土) 12:42:59ID:???いろんな言語で宿題 第五編
http://hibari.2ch.net/test/read.cgi/tech/1276873238/
0623Perl忍者 ◆M5ZWRnXOj6
2010/10/23(土) 16:46:29ID:21A5e2350624nobodyさん
2010/10/23(土) 17:52:56ID:???自前でデータ保存読み込みのコードを書くより楽だから
0625nobodyさん
2010/10/23(土) 19:48:57ID:???DB はシステムが逝くと使い物にならない。
こうゆう部分で二の足踏んでる。
0626nobodyさん
2010/10/23(土) 20:01:46ID:???0627nobodyさん
2010/10/23(土) 20:52:18ID:???0628nobodyさん
2010/10/23(土) 22:49:15ID:???0629nobodyさん
2010/10/23(土) 23:32:08ID:???ありがとうございます。本当にわからなくて困っていたのでお願いします。
問題：関数のfactorial、area_circle、wrapitを使って出力が得られるよう
主モジュールを作成せよ。（関数と一体になった完全なプログラム）
（テキストp03176.plの青春の詩YOUTHを用いる)
0630nobodyさん
2010/10/23(土) 23:33:10ID:???#getsrc x 176
use strict;
my %count;
my $size = 4; # カウントする単語の最小サイズ
while( <DATA> )
{
my @words = split;
foreach my $word ( @words )
{
next if length($word) < $size;
$count{$word}++ if $word =~ m/^[a-zA-Z]+([-'][a-zA-Z]+)*$/;
}
}
my $uniq_words = keys %count;
unless ($uniq_words)
{
print "ファイルには単語がありません。\n";
exit;
}
my $total_count = 0;
my $total_length = 0;
foreach my $word ( keys %count )
{
$total_count += $count{$word};
$total_length += length($word);
}
my $avg_length = $total_length/$total_count;
print <<STATUS;
$size文字以上の長さの単語の出現状況
------------------------------------------
0631nobodyさん
2010/10/23(土) 23:34:34ID:???単語の種類 = $uniq_words
平均の単語長 = $avg_length
STATUS
__DATA__
YOUTH
Youth is not a time of life - it is a state of mind, it is
a temper of the will, a quality of imagination, a vigor of
the emotions, a predominance of courage over timidity, of
the appetite for adventure over love of ease.
Nobody grows old only by merely living number of years;
people grow old only by deserting their ideals.
You are as young as your faith, as old as doubt; as young
as your selfconfidence, as old as your fear; as young as your
hope, as old as your despair.
0633nobodyさん
2010/10/25(月) 20:02:17ID:???検索エンジンも使えないの？
その問題は具体的にfactorial、area_circle、wrapitがどういうルーチンなのかわからないと解けないんだよ。
factorial、area_circle、wrapitがどういうルーチンかはわかっているんでしょ？
だったらそれを書いた後に、名前から勝手に想像するが、
print factorial(5);
とかやってみればいいじゃない。
0634nobodyさん
2010/10/26(火) 23:13:25ID:???$filepath = "c:/folder";
$filename = "excelfile";
$xlspath = "${filepath}/${filename}.xls";
略
print $xlspath;
$wb->SaveAs($xlspath);
printの時点ではちゃんと拡張子も含まれた完全なパスなのですが
OLE32 LastErrorを取ってやるとSaveAsのところでC:\//folder/excelfile というパスが見つからないというエラーが出ているようです
SaveAsの引数に直接ファイル名まで入れた絶対パスのリテラルを書くとちゃんとxlsファイルが出力されるので単に渡される文字列が正しくないことが原因だと思うのですが・・・
どのように修正すればよいのかご教授ください、よろしくお願いします
0635nobodyさん
2010/10/28(木) 22:26:44ID:???my $param = $in->param('abc');
abc が渡されてなければ、param の結果は undef でいいんですよね？
0636Perl忍者 ◆M5ZWRnXOj6
2010/10/28(木) 22:28:11ID:oSh7LqBC老人？ 確認するための老人？
0637nobodyさん
2010/11/04(木) 14:47:19ID:8SyFnluahoehoeとは,[ 1 ]上の[ 2 ]の[ 3 ]となることができる[ 4 ]をいう。
hoehoeは,[ 5 ]時に取得する。
hoehoe,[ 6 ]よって[ 7 ]する。
-----------------------------------------------------------------
ここから[]に含まれた1から7までの数字を全部抽出したくて、
open( DATA, "C:\teigi.txt" );
while(<DATA>){
if(/\[\s(\d+?)\s\]/g){
print "$1\n";
}
}
とやってみたのですが、
1
5
6
のように各行で最初にマッチした数字しか取り出せません。
どのように修正したらいいか教えてください。お願いします。
0638nobodyさん
2010/11/04(木) 15:01:07ID:???0640nobodyさん
2010/11/04(木) 15:13:30ID:???my $text;
read(IN, $text, (-s IN));
close(IN);
my @data = $text =~ /\[ (\d+?) \]/gs;
print join("\n", @data);
exit;
0642nobodyさん
2010/11/05(金) 21:30:27ID:???$cfg->param(-block=>'hoge', -values=>{'time'=>time()});
とするとブロックを追加でき、
$cfg->param(-block=>'hogel');
でブロックにアクセスできます。
が、
$cfg->delete(-block=>'mysql');
としてもブロックを削除できません。
ブロックごと削除するにはどう記述したらよいですか?
0643nobodyさん
2010/11/06(土) 10:03:24ID:???delete メソッドを拡張するといいよ。
0644nobodyさん
2010/11/06(土) 10:05:34ID:???delete $cfg->{_DATA}->{mysql};
とやれば消えるか。
0645nobodyさん
2010/11/08(月) 00:17:08ID:???あまりにもマイナーな形式のため、標準のモジュールでは対応してないみたいです。
ただAPIを使用すれば解凍できそうなので、下記のURL（C言語？）を参考にPerlでAPIを組むことにしました。
ttp://tokovalue.web.infoseek.co.jp/LZOpenFile_U.htm
----------------------------------------------------------------------------------------
use Win32::API;
my $kaitou = new Win32::API("lz32", "LZOpenFile", ["P,P,N"], "N")
----------------------------------------------------------------------------------------
しかしAPIの宣言はできたのですが、下記の構造体の部分をPerlで書く方法がわかりません…
Type OFSTRUCT
cBytes As byte
fFixedDisk As byte
nErrCode As Integer
Reserved1 As Integer
Reserved2 As Integer
szPathName As String * 128
End Type
調べたらpack、unpackを使えば構造体を使用できるらしいのですが、例等がないため見当もつかないです。
もしどなたか分かる方がいれば教えて頂いてもよろしいでしょうか？
お願い致します。
0647nobodyさん
2010/11/08(月) 18:53:06ID:u2tFSMiGEncode::JP::H2Z
Lingua::JA::Regular::Unicode
Unicode::Japanese
何が主流なんでしょうか？
CentOS5.5 perl v5.8.8
0648nobodyさん
2010/11/09(火) 04:15:52ID:???微妙に機能が違った気がするけど覚えてない
俺はLingua::~~
を使ってる
0649nobodyさん
2010/11/10(水) 16:07:10ID:???具体的にはクエリが空っぽなら入力フォームを表示。
表示した入力フォームから入力があればクエリのデータを読み取って出力をするプログラムが走るようにしたい。
空を判定するのにunless( !defined( $a )こうやって見たけどどうやら空でも0でもない何かが入ってるらしくバグる。
0650nobodyさん
2010/11/10(水) 16:11:20ID:???0651nobodyさん
2010/11/10(水) 16:19:32ID:???0652nobodyさん
2010/11/10(水) 16:39:06ID:???フォームを強制的に表示して次に空で送信すると以下のようにURLに何かくっ付きます
ttp://xxxxxx.jp/idsaves.cgi?t1=&t2=&t3=&t4=
このときは値は空のようです
フォームを表示せずに普通にCGIを呼び出したアドレスはこれです。
ttp://xxxxxx.jp/idsaves.cgi?
このときの値は0のようです
0でもない空でもない幻はこの2パターンに対したまたま組んだプログラムが上の時は0を想定して
下のときは空を想定したプログラムでたまたまテストして両方エラーだった為0でも空白でもないと思い込んだようです。
0653nobodyさん
2010/11/10(水) 17:04:29ID:???$a $bは使うなとなんべん言ったら…
それと今回はそれ以前の話だったようだけど、
本来空文字かどうか判断するなら ne を使うべきで defined は使うべきでない
# 文字があるとき true を表示したい
$str = '';
defined $str ? print "true\n" : print "false\n"; #=> true
$str ne '' ? print "true\n" : print "false\n"; #=> false
0654nobodyさん
2010/11/10(水) 19:03:35ID:???なにかコードがＰｅｒｌとは違うように見えるのですが。
省略か何かの書き方の違いですか？
それとどこかで拾ってきたサンプルソースがdefinedではなく!definedなってて
それでバグったみたいです!definedは単なるミス表記なのか何か意味があるのか教えてください。
■ このスレッドは過去ログ倉庫に格納されています