くだすれPerl（超初心者用）3
レス数が950を超えています。1000を超えると書き込みができなくなります。
0001nobodyさん
2009/03/31(火) 22:20:27ID:???もしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。
Perl使いが優しくコメントを返しますが、
お礼はPerlの布教と初心者の救済をお願いします。
前スレ
くだすれPerl（超初心者用）2
http://pc11.2ch.net/test/read.cgi/php/1204488452/
関連スレ
Perlについての質問箱 39箱目
http://pc12.2ch.net/test/read.cgi/tech/1234181856/
Perlコーディング初心者質問スレ Part 59
http://pc11.2ch.net/test/read.cgi/php/1234752149/
【Perl上級者コーナーPart01】
http://pc11.2ch.net/test/read.cgi/php/1024741312/
0952nobodyさん
2010/09/09(木) 10:22:10ID:???話は戻るんだがそういうデータならどうせパースするんだし
@data = sort { $a->[0] <=> $b->[0] } map { [split /<>/, $_] } @lines;
とかでよくないか？
0953nobodyさん
2010/09/09(木) 17:38:07ID:mtEu4DDePerl::DBIで下記のようにコーディングしています。
my $codes = '1,2,3,4,5';
my $sql = 'SELECT * FROM TEST WHERE testcode IN (?)';
my $sth = $dbh->prepare($sql);
$sth->execute( $codes );
実行すると実際に発行されるクエリーは
SELECT * FROM TEST WHERE testcode IN ("1,2,3,4,5")
のようになると思います。（VARCHAR扱いでバインドされるので）
次のように発行させたい場合はどのように記述すればいいのでしょうか？
SELECT * FROM TEST WHERE testcode IN (1,2,3,4,5)
0954nobodyさん
2010/09/09(木) 17:50:35ID:???my @codes = split /,/, '1,2,3,4,5';
my $sql = 'SELECT * FROM TEST WHERE testcode IN (' . join(',', ('?') x @codes) . ')';
my $sth = $dbh->prepare($sql);
$sth->execute(@codes);
0955953
2010/09/09(木) 22:32:41ID:mtEu4DDe遅くなりました！
無事に動作しました。ありがとうございました。
0956nobodyさん
2010/09/10(金) 10:36:15ID:dfQ9DvRu何か定番的なやり方がありましたら教えて下さい
検索のキーワードでも何でも結構ですので
0957956
2010/09/10(金) 10:58:46ID:???その中で常時localtime（time)を取得し、特定の日時になったら
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
if($hour == 起こしたい時 && $min == 起こしたい分 && $sec == 起こしたい秒) {
#起こしたいイベント
}
こんな感じでイベントを起こす、というやり方です
また、指定する日時はCSVファイルで複数行を別途保持しておく形になります
YYYY,MM,DD,hh,mm,ss…みたいな感じです
もし他にもっとスマートな方法があるようでしたら教えて下さい
0958nobodyさん
2010/09/10(金) 11:12:12ID:???タスク
0959nobodyさん
2010/09/10(金) 13:23:53ID:???cronを使えない特別な理由があるとして、whileの中でsleep(目標日時 - 現在日時)とかすればいいんじゃね？
0960nobodyさん
2010/10/07(木) 20:01:34ID:dy4xwK3Operlの関数は引数にアクセスする際に$_->[0]で引数の値を取得できると
教わったんですが関数らしき処理はこのソースコードの前後に書かれておらず
困ってます。
あとforループの$tはどんな役割になるんでしょうか？
my $input_vec = { book => 29, '梅田望夫' => 27 ....};
my %sim;
for my %t(keys %input_vec) {
for(@{$index{$t}}) {
$sim{$_->[0]} += $input_vec->{$t} * $_->[1];
}
}
0961nobodyさん
2010/10/07(木) 20:11:47ID:???せめて何を目的とするコードなのかくらい書け。
0962nobodyさん
2010/10/07(木) 20:21:13ID:dy4xwK3O$input_vecにははてなブックマークのタグ数が代入されています。
実装 : ある記事を見たユーザにオススメの記事を推薦する機能
$indexははてなブックマークのタグとタグ数、記事のIDを元に
作られた転置インデックスです。
0963nobodyさん
2010/10/07(木) 20:49:20ID:???#!/usr/bin/perl
@array = ('a', 'b', 'c');
&func(\@array);
sub func{
foreach (@_) {
print $_->[0],": ",$_->[1],": ",$_->[2],"\n";
}
}
0964nobodyさん
2010/10/09(土) 07:58:30ID:???ここのメールフォームのスクリプトを試していて、
textareaに入力した改行が確認画面で反映されないのですが、
どのような改造をすればよいでしょうか。
送信されたメールではちゃんと改行されてるので、確認画面を出力するところが問題になるとは思うのですが。。。
0966nobodyさん
2010/10/09(土) 19:26:59ID:???平日のみ４つの配列を順に表示させる方法またはヒントが
あれば教えてください。
休日か平日かの判定は出来ています。
下のような感じです。
配列はA→B→C→Dの4つ。
10/04(月)→平日なので配列Aを表示
10/05(火)→平日なので配列Bを表示
10/06(水)→平日なので配列Cを表示
10/07(木)→平日なので配列Dを表示
10/08(金)→平日なので配列Aを表示
10/09(土)→休日なので表示しない
10/10(日)→休日なので表示しない
10/11(祝)→休日なので表示しない
10/12(火)→平日なので配列Bを表示
10/13(水)→平日なので配列Cを表示
0967nobody
2010/10/09(土) 23:54:45ID:???要素かを調べて、(qw(A B C D))[$n % 4] でいいと思う。
0968nobodyさん
2010/10/11(月) 06:28:12ID:???という行は¥$_をutf8からeucへ変換するということだと思うのですが、
¥$_ってどういう意味ですか？
0969nobodyさん
2010/10/11(月) 06:33:14ID:???参照渡し
関数の副作用
0970nobodyさん
2010/10/11(月) 12:56:11ID:DYbljc5PWin7+Apache+PerlでCGIを動かそうとしているのですが、Internal Server Error(500)が出てうまくいきません。
Apacheのerror.logをみると
[Mon Oct 11 12:41:43 2010] [error] [client 127.0.0.1] (OS 2)指定されたファイルが見つかりません。 : couldn't create child process: 720002: printenv.cgi
[Mon Oct 11 12:41:43 2010] [error] [client 127.0.0.1] (OS 2)指定されたファイルが見つかりません。 : couldn't spawn child process: C:/Program Files (x86)/Apache Software Foundation/Apache2.2/cgi-bin/printenv.cgi
と出てきます。
ググると、ソースの一行目の#!のPathの設定が正しくないとこのエラーが出るらしいのですが、
Pathは正しく設定してます・・・
#!c:/Perl64/bin/perl.exe
何か他に怪しいところとかありますでしょうか？
0971nobodyさん
2010/10/11(月) 14:04:59ID:???Windowsでexeの指定ってそれでいいの？
Linux環境でしか触ったことないからわからんけど
#!/Perl64/bin/perl
とか
#C:\\Perl64\bin\perl.exe
とかじゃね？
参考になりそうなURL
http://tep-pey.blogspot.com/2008/05/windowsapacheperl.html
0972nobody
2010/10/11(月) 16:46:12ID:???【質問】
&Jcode::convert(\$_,'euc','utf8');
という行は\$_をutf8からeucへ変換するということだと思うのですが、
\$_ってどういう意味ですか？
【回答】
&Jcode::convert(\$_,'euc','utf8');
という行は $_ をutf8からeucへ変換するということ
です。
0973nobody
2010/10/11(月) 19:50:02ID:???&Jcode::convert($_,'euc','utf8');
の場合は $_ をutf8からeucへ変換するということ
で・は・な・く・て
$foo をutf8からeucへ変換するということ
でっす!!!
0974nobodyさん
2010/10/14(木) 03:11:24ID:???searchという文字があった場合に行末にfooを付けたいのですが、
こんなふうにやってます。↓
perl -ne "print if ( /search/ )" input.txt > output1.txt
perl -ne "print if ( s/\n/foo\n/g )" output1.txt > output2.csv
２つのワンライナーを１つにするにはどうすれば良いのですか？
よろしくお願いします。
0975nobodyさん
2010/10/14(木) 06:27:55ID:???0976nobodyさん
2010/10/14(木) 23:39:16ID:???レス遅くなってすいません。
質問の仕方が悪かったです。
表示する方法ではなくて、「"今日"($year/$mon/$day)は"ある日"($tyear/$tmon/$tday)から何回目の平日か？」
を簡単にわかる方法があればと。。。
timelocal での差分 - 休日数でできました。
ありがとうございました。
0978nobodyさん
2010/10/16(土) 00:40:09ID:???0979nobodyさん
2010/10/17(日) 23:52:01ID:???ttp://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1242300167
の質問にある2番目の
＜２＞「YAHOO」という文字列を検索する際に「yahoo」と入力しても検索できるようにしたい
なのですが
大文字と小文字を区別しないでマッチさせるようにするにはどのように記述すればいいのでしょうか
0980nobodyさん
2010/10/17(日) 23:58:49ID:???既にcase-insensitiveになってる気がしますが
0981nobodyさん
2010/10/18(月) 10:00:17ID:???データベース検索時に正規表現を使うか
レス数が950を超えています。1000を超えると書き込みができなくなります。