Perlコーディング初心者質問スレ Part 54
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
2007/02/10(土) 19:21:23ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
お勧めサイトは >>2-10
前スレ http://pc10.2ch.net/test/read.cgi/php/1164519503/
過去ログ倉庫 ttp://user.ftth100.com/mirrorhenkan/perl/
0586583
2007/04/08(日) 12:42:51ID:???$xx =~ /^$yy$/ でいけました。お手数かけました、ごめんなさい。
0587nobodyさん
2007/04/08(日) 12:58:04ID:???だがな、それなら eq で比較するだけでもよさそうだな。
0588nobodyさん
2007/04/10(火) 04:15:40ID:???> 過去ログ倉庫 ttp://user.ftth100.com/mirrorhenkan/perl/
これ見ようとするとリダイレクトされて過去ログ閲覧不可なのね。
> 現在、mirrorhenkan/perl/ はFREESPACE利用規約の禁止事項に
> 抵触しているためアクセスを制限しております。
0589nobodyさん
2007/04/11(水) 01:18:30ID:???open(IN, $file);
@list = <IN>;
------------------------------------
#②whileで一行ずつ読み込んで処理
open(IN, $dfile);
while ( $line = <IN >) {
#$lineを区切り文字を分割して、何か処理
}
何十Mというサイズの大きいCSVファイルを扱うときが前提です。
①だと配列に格納するみたいですが、メモリの消費は大変でしょうか？
②のほうがよいでしょうか？
0590nobodyさん
2007/04/11(水) 01:35:16ID:???(1)の方はCSVが1GBならメモリも1GB以上使うわけだが、(2)は
CSVのサイズが1MBでも10GBでも変わらない。
ってことはわかってるわけだな。
答えわかってんじゃん。
しかし、割り切って(1)の方法を使う場合もあるよ。
書き捨て的なスクリプトとかだと。
っちゅうか、丸数字やめね？
0591nobodyさん
2007/04/11(水) 03:38:11ID:???パソコンの仕組みとperlの勉強を、はじめたばかりで、
メモリの動きとか、あまり考えたこと無かったので、
ちょっと自信がありませんでした。＾＾；
どうもありがとうございました。
0592nobodyさん
2007/04/11(水) 04:20:00ID:???そんなコンパクトに収まるかよｗ
0593nobodyさん
2007/04/11(水) 10:31:55ID:???少しお尋ねします。
例えば
perl -pi.bak -e "tr/A-Z/a-z/"*.html
とか便利ですよね？
これを.plとして使いたいのですが無理なのでしょうか？
コマンドラインから打ち込むしか手がないのでしょうか？
0594nobodyさん
2007/04/11(水) 10:41:24ID:???http://pc11.2ch.net/test/read.cgi/tech/1173880452/235
0595nobodyさん
2007/04/11(水) 10:41:25ID:???0596nobodyさん
2007/04/11(水) 10:45:21ID:???こちらに変えました。
申し訳ない。
0597nobodyさん
2007/04/13(金) 14:21:28ID:ZxZihQHU0598nobodyさん
2007/04/13(金) 14:45:10ID:???詳しくはperlvar(1)の
Technical Note on the Syntax of Variable Names
を読め。
0600nobodyさん
2007/04/13(金) 17:45:43ID:???$::HOGE = 1;とかもだめ？
後はこんなの書いといてプログラムの頭でuseするとか
package Global;
use strict;
use warnings;
use base qw(Exporter);
our @EXPORT = qw($BAKA $AHO $SHINE);
our $BAKA = 1;
our $AHO = 'a';
our $SHINE = 'A';
push(@UNIVARSAL::ISA,__PACKAGE__);
package TEST1;
use strict;
use warnings;
printf "%s::BAKA=%s\n",__PACKAGE__,$BAKA++;
printf "%s::AHO=%s\n",__PACKAGE__,$AHO++;
printf "%s::SHINE=%s\n",__PACKAGE__,$SHINE++;
package TEST2;
use strict;
use warnings;
printf "%s::BAKA=%s\n",__PACKAGE__,$BAKA++;
printf "%s::AHO=%s\n",__PACKAGE__,$AHO++;
printf "%s::SHINE=%s\n",__PACKAGE__,$SHINE++;
0601nobodyさん
2007/04/13(金) 18:12:42ID:???importするのが普通の方法なので、あまり変なことをせず従っておいたほうが
なにかといいと思われ。
0602597
2007/04/13(金) 20:19:19ID:ZxZihQHUありがとうございます。試してみます。
何に使うってわけじゃなくて、そういうことが出来るのなら知りたいなと思いまして。有難う御座いました。
>>599
顔が見えないからってそういう言い方はしないほうがいいでしょうね。
0603nobodyさん
2007/04/14(土) 04:03:04ID:???検索機能をつけて、検索語句を$wordとし、
$dataに一致するものがあれば、って形でやってます。
if($data =~ /\Q$word\E/){
すると、「[」で「ー」もヒットしてしまったりします。
これは「ー」に「[」のコードが含まれているからだと思うのですが、それを除外する方法はどうしたらよいでしょうか？
0604nobodyさん
2007/04/14(土) 04:08:26ID:???0605nobodyさん
2007/04/14(土) 04:17:21ID:???なるほどutf8という方式だとコードの重複がないんですね
検索語句と、検索対象をutf8に一旦エンコしてから、ってやり方にしてみます。
有難う御座いました。
0606nobodyさん
2007/04/14(土) 05:37:58ID:???みたいな感じに簡単にできると思ってましたが、複雑ですね。
一時的に対象の$変数をutfに変換して戻す簡単な方法は御座いませんでしょうか？
調べた限り、utfでスクリプトを書くことが前提の記事ばかり出てきてしまいます。
0607nobodyさん
2007/04/14(土) 10:35:22ID:???0608nobodyさん
2007/04/14(土) 11:07:17ID:???my %hash = ();
$hash{a}{b}{c}{d} = 'test';
↑の場合だと自動的に {b}{c}{d}の部分が無いのに自動的に作られてしまいます。こういうのを防ぎたいのですが・・
0609nobodyさん
2007/04/14(土) 11:22:25ID:???既にありそうだけど。
0610nobodyさん
2007/04/14(土) 12:46:48ID:???http://pc11.2ch.net/test/read.cgi/tech/1173880452/10
0611nobodyさん
2007/04/14(土) 12:50:45ID:???http://pc11.2ch.net/test/read.cgi/tech/1173880452/10
utf8でスクリプト書くことがそんなに困るの？
今あるsjisやeucのスクリプトをエディタなどで変換するだけでしょ。
0612nobodyさん
2007/04/15(日) 03:41:41ID:???困るというか、モバイル機などでutf8がバケる機種があってそれに対する対策が自分はまだわかってないってだけです。
気分を害してしまったのならすみません。
0613nobodyさん
2007/04/15(日) 03:57:25ID:???0614nobodyさん
2007/04/15(日) 09:33:34ID:???古い機種つかってる人なんか無視
0615nobodyさん
2007/04/15(日) 11:29:23ID:???古い機種の携帯からのアクセス時だけJcode.pmか何かで
Shift_JISにエンコードすればいいだけの話じゃね？
if($ENV{HTTP_USER_AGENT} =~ /<適当に古い携帯の条件>/){
require Jcode;
$data = Jcode->new($data, 'utf8')->sjis;
print "Content-Type: text/html; charset=shift_jis\n\n";
print $data;
}else{
print "Content-Type: text/html; charset=utf-8\n\n";
print $data;
}
みたいに
0616nobodyさん
2007/04/15(日) 14:24:51ID:???611のリンク先をよく読んで。
utf-8を使うのは、あくまでもPerlスクリプトだけであって、
入出力はsjisだよ。
0618nobodyさん
2007/04/16(月) 08:23:29ID:???「Perlスクリプトはsjisで、内部で扱うデータは
utf8というのはできない」という事で、FAなのかな？
0619nobodyさん
2007/04/16(月) 11:00:24ID:???Windows上であっても。
0620nobodyさん
2007/04/16(月) 13:15:51ID:MjOOmdj6どのような方法がよいでしょうか？
指定方法は、
1.X行目からY行分
2.最終行（何行目かは分からない）から数えてX行目からY行分
の2通りです。
0621nobodyさん
2007/04/16(月) 14:24:24ID:???Perlで扱うマルチバイト文字は、内部的には「常に」utf8だよ。
use encoding を使えばsjis でスクリプトを書くこともできるが、
副作用があるから、よく理解した上で使わないといけない。
>>620
File::Tieを使うのが吉
0624nobodyさん
2007/04/16(月) 18:55:47ID:???}
このような条件式をもっとスマーティーに書きたいのですが・・・
良きアイデアをお願いします！
0625nobodyさん
2007/04/16(月) 19:12:41ID:???&foo;
}
0626nobodyさん
2007/04/16(月) 19:18:36ID:???なんか自分が情けなくなってきました・・
0630nobodyさん
2007/04/16(月) 22:29:15ID:???0631nobodyさん
2007/04/16(月) 22:35:41ID:???$x > -1 && $x < 1
は、個人的には直感的じゃないと思った。
こう書くんだとしても
-1 < $x && $x < 1
にしたほうが視覚的に分かりやすい。
0632nobodyさん
2007/04/16(月) 23:05:14ID:???とか書けたら一番幸せなんだけどな。
# ソースフィルタ使えばできるか？
0633nobodyさん
2007/04/16(月) 23:17:54ID:???0634nobodyさん
2007/04/16(月) 23:28:48ID:???0635nobodyさん
2007/04/16(月) 23:51:39ID:???他のサービスも同時に動いていて、Perlが使用してるメモリだけを知りたい。
0636nobodyさん
2007/04/17(火) 03:37:59ID:???0637nobodyさん
2007/04/17(火) 06:11:09ID:nSKTWe9a男性 $mensfile
女性 $ladysfile とメインのCGIで設定されていす。
チャレンジしてみたら、過去のログファイルが全て消えてしまい散々な目に会いました。下のどちらかでできそうな・・宜しくお願い致します。
(1)# 二重登録のチェックをします
if(-e $data){
open(FILE, "< $data"); # この時点でファイルは必ず存在します
while(<FILE>){
@v = split(/\t/);
if(@v[0] eq $name){
print "<center><b>すでに$nameさんは登録されています</b><br>\n";
print "「戻る」を押して入力しなおしてください</center>\n";
exit(0);
}
}
close(FILE);
}
0638637
2007/04/17(火) 06:12:56ID:nSKTWe9a&lock;
if(!open(IN,"$mail01"))
{print 'ファイルOPENができませんでした。',"\n"; exit;}
@dataline = <IN>;
close(IN);
unlink $lockfile;
foreach $DATA (@dataline) {
chomp $DATA;
if($DATA eq $MAIL){
print 'このメールアドレスは既に登録されています。',"\n";
exit;
}
宜しくお願い致します。
0639nobodyさん
2007/04/17(火) 09:23:10ID:???二重登録チェックの方法はひとまず置いといて、
ログファイルが消えちゃったってことは
書き込みの段階でしくじってるんじゃないの？
ありがちな例だと
× open (FILE, '> file.txt'); # 上書き（つまり消える）
○ open (FILE, '>> file.txt'); # 追加書き込み
とか。
0640nobodyさん
2007/04/17(火) 09:43:54ID:???ないし、ここで回答もらえるレベルに達してない質問の典型だね。
「日本語でOK」「エスパー回答者さんよろしく」ということで。
質問する側にも最低のスキルは必要で、問題を理解してもらえないことには
どうにもならんよ。
0642nobodyさん
2007/04/17(火) 10:35:21ID:???0644nobodyさん
2007/04/17(火) 17:05:48ID:???! int $x and ! int $y
って手もある罠、、、
0646nobodyさん
2007/04/17(火) 17:13:38ID:???0648nobodyさん
2007/04/17(火) 23:26:16ID:???何となくスレの雰囲気から察すると
『はじめてのPerl』マスターレベルは初心者じゃないよね、もう。
『続・はじめてのPerl』に至っては
題名だけ聞くと優しそうだけど、
マスターしたら、CPAN Authorくらいなれちゃうし。
俺的には、『はじめてのPerl』読みこなし中レベルだと解釈してるが、どうか？
0649nobodyさん
2007/04/18(水) 00:03:35ID:???じゃないかな
0650nobodyさん
2007/04/18(水) 00:12:31ID:???0651nobodyさん
2007/04/18(水) 08:05:12ID:???0652nobodyさん
2007/04/18(水) 10:28:13ID:???ファイルから読み込むことは可能でしょうか?
pack('C4', 255, 255, 255, 255) とすると4バイト(FF FF FF FF)になるかと思ったんですが、
8バイト(C3 BF C3 BF C3 BF C3 BF)になってしまいます・・・
0653652
2007/04/18(水) 11:33:42ID:???0654nobodyさん
2007/04/18(水) 11:56:14ID:???> 「Perlスクリプトはsjisで、内部で扱うデータは
> utf8というのはできない」という事で、FAなのかな？
リテラルの話であれば、Encode.pm で明示的に変換して使う分にはやりたい放題です。
Perl 5 の時点ではデフォルトで use bytes 状態なので、スクリプト内のリテラルが SJIS でも UTF-8 でも iso-8859-1 でも、perl にとってそれらは単なるオクテットシーケンスに過ぎません。
0655nobodyさん
2007/04/20(金) 14:39:02ID:???当たり前のようにmod_php前提のPHPに「Perl遅いし」とか言われても仕方ない。
0656nobodyさん
2007/04/20(金) 15:21:01ID:???0657nobodyさん
2007/04/20(金) 15:30:53ID:???> print "「戻る」を押して入力しなおしてください</center>\n";
にしてもきったねーHTMLだな
0658nobodyさん
2007/04/20(金) 15:59:34ID:???0659nobodyさん
2007/04/20(金) 17:22:02ID:???0660nobodyさん
2007/04/20(金) 22:18:03ID:???0661nobodyさん
2007/04/21(土) 05:09:19ID:???なにそれ？ｗ
0662nobodyさん
2007/04/21(土) 09:34:59ID:???0663nobodyさん
2007/04/21(土) 13:00:06ID:???ロードできるようにするモジュールは無いか? という質問だとわかる。
0664nobodyさん
2007/04/21(土) 18:05:32ID:TzVmcQvU引数を省略すると$_が渡される
ようなサブルーチンを作る方法はある？
0665nobodyさん
2007/04/21(土) 18:17:53ID:???0667664
2007/04/21(土) 18:37:51ID:TzVmcQvUうわ、言われてみれば単純な話ですね…
ありがとうございました
0668nobodyさん
2007/04/23(月) 15:02:16ID:NvRgzOjiカウンターの箇所に「Location:…」も表示されてしまいます。
カウントした数字だけ表示して、指定したURLに遷移させる機能を保持するにはどうしたらいいですか？
何かトンチンカンなこと言ってたら指摘お願いします。
0669nobodyさん
2007/04/23(月) 16:33:16ID:LAYu+KhNホームページ作成ソフトがあったらいいのに・・・。
もし、プロ並みにキレイなホームページが作成が出来たとしたら、
情報商材で一旗あげようと思っているあなたの人生は変りますか？
【早くも成功者続出！】起業サイトビルダー
http://www.infotop.jp/click.php?aid=16484&iid=5683
0670nobodyさん
2007/04/23(月) 17:00:46ID:???どういうタイミングで遷移させたいのか。
表示したらすぐに遷移してしまったら、表示を見る暇がない。
クリックしたら、であれば、出力したカウント文字列なりイメージにaタグを張ればよいです。
0671nobodyさん
2007/04/23(月) 18:06:45ID:???すいません説明不足でした。
今作っているのは、
メールフォームに入力して送信ボタンを押すと、
送信完了ページにアクセスカウンタが表示されるというもので、
SSIを使ってそのページにカウントを表示させています。
0673nobodyさん
2007/04/24(火) 14:35:35ID:???送信完了ページにSSIのカウンタを表示させているのはわかったが、なぜカウントの出力と一緒に
Locationヘッダを出力しようと思ったのか、それを書いてくださいよ。
0674nobodyさん
2007/04/25(水) 03:14:10ID:???Location（も使い方間違ってるがｗ）じゃなく、
入力したフォームの値を隠し属性にして
同時にカウンタも仕込んだ別のページを表示させる。
0675nobodyさん
2007/04/25(水) 04:08:26ID:???・静的HTMLで作られた送信完了ページの冒頭に<meta>でrefreshでも入れとく。
・動的に吐かれる送信完了ページを吐く前の段階でカウント*だけ*して（表示要らない）
送信完了ページを吐く代わりに Location: を吐いて希望のページに飛ばす。
期待してる動作はこんな感じなんじゃないのかな。
0676nobodyさん
2007/04/25(水) 16:31:04ID:???送信完了ページはCGIが吐き出すﾀｲﾌﾟだね？
その中にSSIのカウンタを仕込もうとしてprint "Location:ｶｳﾝﾀｰのｽｸﾘﾌﾟﾄ"とか書いたんじゃないの？
メールフォームのｽｸﾘﾌﾟﾄにｶｳﾝﾀｰの機能を組み込んで送信完了ページに書き出せばいいじゃん。
SSIなんて必要ないよ。
0677nobodyさん
2007/04/25(水) 18:21:45ID:???やりたいことはフォームに入力されたデータをCGIで受け取り一括編集です。
<tr><td>NO</td><td>項目1</td><td>項目2</td></tr>
<tr><td><input type="hidden" name="no" value="1_g9gnt3">1_g9gnt3</td>
<td><input type="text" name="text1"></td><td><input type="text" name="text2"></td></tr>
<tr><td><input type="hidden" name="no" value="2_ghtt3d">2_ghtt3d</td>
<td><input type="text" name="text1"></td><td><input type="text" name="text2"></td></tr>
・
・
とログのデータと比例して続くフォームからデータを受け取り、
ログ形式 log.txt
------------------------
1_g9gnt3<>text1<>text2<>
2_ghtt3d<>text1<>text2<>
・
・
------------------------
と続くログとを照らし合わせてPOSTデータの「no」とログの先頭が一致する場合、
一致した行のtext1とtext2を書き換えたいと思っています。
一行ずる編集するスクリプトは書けましたが、
POSTで受け取った指定行を一括で同時編集するソースがわかりません。
お手数おかけしますが是非ご教授ください。
0678nobodyさん
2007/04/25(水) 20:05:49ID:???0679nobodyさん
2007/04/25(水) 23:47:47ID:???たとえば、下記のようなデータが投げられたときのソースを教えていただければと思います。
mode=edit&no=1_g9gnt3&text1=hoge1&text2=huga1&no=2_ghtt3d&text1=hoge2&text2=huga2
こんな感じのデータが投げられたときどうやったらやりたいことができるのか、
全く持ってわかりません。。
0680678
2007/04/26(木) 00:06:04ID:???分解できないのか？ 変数に格納できないのか？ ループが分からないのか？ 顔が濡れて力が出ないのか？
0681nobodyさん
2007/04/26(木) 00:12:28ID:???さらにはスレ違いの予感さえする。
でもヒマなので、親切にしてやる。
（１） &で分割してから配列に格納。
（２） ループで配列内を、=で分割してからハッシュに格納。
あとは…分かるな。
普通は、CGI.pm使うのが一般的だろうな。
0682nobodyさん
2007/04/26(木) 00:42:18ID:???>>681
わざわざご親切にありがとうございます。
流れとしては
[&]で分割後配列へ格納→配列分ループ→ループ中に[=]で分割→noと一致する行があれば書き換え
という感じかと思い、色々ソースを書いてみましたが無限ループにはなるは、
配列分のループが上手く行かないとかぐっちゃになってしまって。。
（それで具体的なソースが欲しくなり、教えて君になってしまいました。。すみません。。）
ちょっと外出先にソース忘れてきちゃったので明日もう一度やってみます。
ハッシュとCGI.pmについて教えていただいたので調べてみます。
ありがとうございます。
0684682
2007/04/26(木) 10:14:48ID:???アドバイス、、よろしくお願いいたします。。
$formdata="mode=edit&no=1_g9gnt3&text1=hoge1"
. "&text2=huga1&no=2_ghtt3d&text1=hoge2&text2=huga2";
@pai = split(/&n/,$formdata);
open(IN,"$logfile") || print "error\n";
while($date = <IN>) {
$date =~ s/\x0D\x0A|\x0D|\x0A//;
my($no, $text1, $text2) = split(/<>/, $date);
for ($i=0;$i<@pai;$i++){
push @line, split(/&/,$pai[$i]);
($names, $values) = split(/=/,$line[$i]);
$p{$names} = $values;
if($no == $p{o}){
#書き込み処理
}
}
}
close(IN);
0685nobodyさん
2007/04/26(木) 10:50:46ID:???書いたとおりに動いてるだろと言われて終了だよ。
あとはエスパーさんよろしく。
なぜ/&n/でsplitするのかとか、あとでまたsplitするのはなぜかとか
$text1, $text2はどこへいったのかとか、@lineどんどん太るぞとか
いろいろつっこみどころはありそうだが。
0686682＝677
2007/04/26(木) 10:59:54ID:???レスありがとうございます。
$logfile は下記です。
log.txt
------------------------
1_g9gnt3<>text1<>text2<>
2_ghtt3d<>text1<>text2<>
・
・
------------------------
やりたいことはログの一括編集です。
（掲示板なんかの編集機能などログファイルの一行だと思いますが
それの複数行を一括で編集するような機能）
&nの理由は&だけで分割したらforループ時回数がわからなくなってしまうなぁ、、
というなんとなくでやってみました。ループ中にもう一回splitした理由は
=で分割しないといけないかなぁ、、という理由です。
@lineが太るということについてはわかりません、、すみません。。
■ このスレッドは過去ログ倉庫に格納されています