Perl 初心者コーナー Part24

◆fBgbHI04bQ · 03/06/07 22:30

いらっしゃーい、Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。

CGIだけど、なんか質問ある？ Part 10
http://pc2.2ch.net/test/read.cgi/php/1048686475/
【Perl,CGI】参考書籍第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
CGIに依存しないPerlの話題一般/Part2
http://pc2.2ch.net/test/read.cgi/php/1030548610/
スクリプトの改造依頼は、【スクリプト改造工房 PART 6 】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

過去ログやお勧めサイトは >>2-10

**nobodyさん** · 03/06/08 14:27

<や>がHTMLでは何を意味するのか考えれば分かると思うけど

**nobodyさん** · 03/06/08 14:27

>>41
ミス &ampは&

**nobodyさん** · 03/06/08 14:29

あぁそっか。
htmlで<などを表示するときに>などを使うから、
タグではなくなるってことか。。。

**nobodyさん** · 03/06/08 14:33

>>44
いままで理解してなかったのか。場亀。

**nobodyさん** · 03/06/08 14:34

$_ =~ s/</</g;
$_ =~ s/>/>/g;
$_ =~ s/&/&/g;
$_ =~ s/"/"/g;

なんで、これでできない・・・・・・
ダブルクォーテーションとアンドはできるのに・・・

**nobodyさん** · 03/06/08 14:37

&をさきにエスケープしなければだめだろ。
前の処理で<にしたものが(ry

**nobodyさん** · 03/06/08 14:37

実体参照ネタは相変わらずめちゃくちゃになるなぁ。
ちゃんと書けないんなら全角にでもしとけ。

**nobodyさん** · 03/06/08 14:38

>>38の最終行にぴったりの質問が来ました。

超・初心者な質問だから他へ・・・と思ったらここが初心者スレだった罠。
でも、もう少し頭を使ってくれよ

**nobodyさん** · 03/06/08 14:39

>>47
そうでした。
ありがとうございます

**nobodyさん** · 03/06/08 14:41

質問です。
WinXP HOME EDITION（←ｽﾍﾟﾙちがってたらすいません）でｱｸﾃｨﾌﾞﾊﾟｰﾙ5.8なんですが、
unlink(<*.txt>)でうまくいかないんですが、Winだからですか？

**nobodyさん** · 03/06/08 14:41

foreach( <FILE> ){

# タグを特殊記号に変換
$_ =~ s/&/＆amp;/g;
$_ =~ s/</＆lt;/g;
$_ =~ s/>/＆gt;/g;
$_ =~ s/"/＆quot;/g;
print;
}

こんなんでできました。
下3つの順番はどうでもいいですよね？

**nobodyさん** · 03/06/08 14:43

unlink(<*.txt>)

こう書くとワイルドカードが使えるようになるの？

**nobodyさん** · 03/06/08 14:43

>>51
()いらない

53 · 03/06/08 14:44

らくだに書いてあったか。

51 · 03/06/08 14:45

>>54
書いたらだめなんか？()
消しても結果は同じだった。消えない･･･。

**nobodyさん** · 03/06/08 14:47

>>56
unlink <*>
やってみて
てか、;忘れてるなんてないよね？

53 · 03/06/08 14:50

Windows2000ではできたぞ。

51 · 03/06/08 14:51

>>57
ﾌｫﾙﾀﾞが読み取り専用になってた。
でも、みてみたら、どのﾌｫﾙﾀﾞも（PC内）読み取り専用だった･･･。
しかも、解除できない。関係ある？

**nobodyさん** · 03/06/08 14:54

読みとり専用でも消せるけど・・・

**nobodyさん** · 03/06/08 15:03

>>59
うまくいかないときは「どううまくいかないのか」を書いてくれ。

61 · 03/06/08 15:05

ああ、消えないのか……
スクリプトは削除対象のファイルと同じディレクトリで実行させてるよね？

51 · 03/06/08 15:08

>>62
ありがとう。
すごくあふぉなことやってた。↓の階層にファイルあるのに消そうとがんばってた。
消す前に、chdirで移動したら消せた。
お騒がせしてすみませんでした。

**直リン** · 03/06/08 15:10

http://homepage.mac.com/yuuka20/

**nobodyさん** · 03/06/08 15:10

￥

**nobodyさん** · 03/06/08 17:40

2chのトリップみたいのを付けたいです。
名前#123
↑で123だけ抜き出す方法が知りたいです。

**nobodyさん** · 03/06/08 17:54

あのさ。
ここはなんで調べもしないで来る人が多いのか？

初心者だから分からない、ではなくて調べてないから分からない。
って質問ばっかりだぞ。

51 · 03/06/08 17:55

>>66
my($name,$trip) = split(/#/, $name);

**nobodyさん** · 03/06/08 17:57

>>67
調べ方を教えてください

**nobodyさん** · 03/06/08 17:58

>>68
ありがとうございます。
それをどうやって組み込めばいいのでしょうか？

……って返されそうだな。

51 · 03/06/08 18:03

>>70
そだね。　69は偽者じゃないの？
さすがにそこまでﾌﾟなやつはおらんだろ。

**nobodyさん** · 03/06/08 18:03

いらっしゃーい、Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。

**nobodyさん** · 03/06/08 18:03

>>70
あなたは
名前#123 をなんという変数に代入してるですかー

**nobodyさん** · 03/06/08 18:09

$nameです

**nobodyさん** · 03/06/08 18:10

>>67
自分のサイト作って次はCGIだーって思ってる奴が迷い込んで来るんだよ。
質問者は>>1読まないしね。読んだとしても1行ぐらいじゃないかな。

**nobodyさん** · 03/06/08 18:11

>>68
split(/#/, $name, 2);にしないと$nameが"名前#12#3"とかなっていたら$tripが"12"になってしまうけどいいの？

**nobodyさん** · 03/06/08 18:13

＞1：自分はこう言う事がしたい。
＞2：それでこんな風にやってみたが･･･
＞3：それだとこんなエラーが出て上手く行かなかった。

これを強制させるのはどうだ？
例えば>>66にこれを書かせると

1：自分はこう言う事がしたい。
2chのトリップみたいのを付けたいです。

2：それでこんな風にやってみたが･･･
何もしてません。

3：それだとこんなエラーが出て上手く行かなかった。
何もしてないのでエラーはありません。

となって、自分で全く調べてないって少しは自覚できるんじゃないかな。

**nobodyさん** · 03/06/08 18:14

>>76
ｽﾏｿ。
>>66は気づかないからﾖﾛｼ。

**nobodyさん** · 03/06/08 18:16

そもそもスレのレベルが下がり過ぎ。
ここは「Perl初心者」のためのｽﾚだろう。
"努力・常識のかけらも無いｱﾎ"の"質問にすらなっていない独り言"で埋まってしまうのはいかんだろ。

**nobodyさん** · 03/06/08 18:17

&jcode::tr(\$FORM{'FROM'}, '＃', '#');
if($FORM{'FROM'} =~ /([^\#]*)\#(.+)/){
my $main_message = $1;
my $handle_pass = $2;
my $change_salt = substr($handle_pass, , 1) . "H";
$handle_pass = substr(crypt($handle_pass, $change_salt), -8);

if($main_message ne ""){
$FORM{'FROM'} = "$main_message </b>◆$handle_pass <b>";
}else{
$FORM{'FROM'} = "</b> ◆$handle_pass <b>";
}
}

**nobodyさん** · 03/06/08 18:18

>>80
がんがるなよ。

**nobodyさん** · 03/06/08 18:20

$nameに#aiusiauがあるとする
$sharp = index($name);
$sharp++:
$trip = substr($name,$sharp);

ではﾀﾞﾒ？
無駄が多い？

82 · 03/06/08 18:22

ミスった。

$sharp = index("$name","#");
$trip = substr($name,$sharp++)
これでいいや;

**nobodyさん** · 03/06/08 18:25

なんで++するの？前置インクリメントならわかるけど。

82 · 03/06/08 18:27

>>84
ぇ？indexは1文字目を0から、substrは1文字目を1とするから足す必要あると思うんだけど、、、
てか、実際これでやってる

**nobodyさん** · 03/06/08 18:29

>>85
$i=0;
$j=$i++;
としたとき、$iは1になるけど$j=0になることは知っているよね？
もちろんそれでいいならいいんだけど。ただ、あとで$sharpを使わなければ意味ないなぁと思って。

**nobodyさん** · 03/06/08 18:33

＞substrは1文字目を1とするから

**nobodyさん** · 03/06/08 18:40

#の次からを取り出すわけだから+1は必要だと思うけど、特に$[をいじっていなければsubstrは一文字目は0。

82 · 03/06/08 18:43

あぁ、そうだった。
次からとるから+1だったな

**nobodyさん** · 03/06/08 18:45

>>89
実際これでやってるってﾎﾝﾄ？

**nobodyさん** · 03/06/08 18:50

if(($sharp = index($name,'#')>=0){
$trip = substr($name,$sharp+1);
#ここでトリップ生成
}

**nobodyさん** · 03/06/08 18:52

>>91
そりゃできるだろ。
if(($sharp = index($name,'#')>=0){
$trip = substr($name,$sharp++);
#ここでトリップ生成
}
では動かんよ。

**nobodyさん** · 03/06/08 18:53

>>92
括弧の対応があわないね(汗

if(($sharp = index($name,'#'))>=0){
$trip = substr($name,$sharp+1);
#ここでトリップ生成
}

82 · 03/06/08 19:02

>>90
カウンターとかで使ってるよ

**nobodyさん** · 03/06/08 19:06

へんなふうに書くなぁ・・・

**nobodyさん** · 03/06/08 19:40

>>93、>>94
あ、いや、そういうことじゃない。
$trip = substr($name,$sharp+1);
が
$trip = substr($name,$sharp++);
だと動かんでしょ？って>>82に言いたかった。

82 · 03/06/08 20:39

>>96
それはわかってる。
=でつなぐと、後に++したら、足す前の値を代入するからだろ？

**nobodyさん** · 03/06/08 20:40

>>97
は？・・・>>83

82 · 03/06/08 20:43

＞＞98
ぃやぃや、こちらこそ「は？」
なにを指してるんだこいつは

**nobodyさん** · 03/06/08 20:51

>>99
え？・・・>>83は君が書いたんじゃないの？

ラヴ · 03/06/08 21:07

#/usr/local/perl
#学籍番号
#氏名
print(" a =?");
chomp( $a = <STDIN>);
print("演算子?");
chomp( $op = <STDIN> );
print(" b = ?");
chomp( $b=<STDIN> );

if($op eq '+') {
$c=$a + $b;
print (" $a + $b = $c\n");
} else {
if($op eq '-'){
$c=$a - $b;
print ("$a - $b = $c\n");
} else {
if($op eq '*'){
$c = $a * $b;
print ("$a * $b = $c\n");
} else {
if($op eq '/'){
$c = $a / $b;
print ("$a / $b = $c\n");
}
}
}
}
のフローチャートはどうやって書いたらいいのでしょう？？

**無料動画直リン** · 03/06/08 21:10

http://homepage.mac.com/norika27/

**nobodyさん** · 03/06/08 21:19

>>101
本よめ。つか、いまどきなんでそんな原始時代のことをしてるのか。

82 · 03/06/08 21:19

>>100
書いたけど、、、

>は？・・・
ってのはどういうこと？

**nobodyさん** · 03/06/08 21:21

>>101
なんだその分岐文は・・・

**nobodyさん** · 03/06/08 21:50

>>105
分岐文って何だ? 三項演算子なら知ってるが。

**nobodyさん** · 03/06/08 22:02

>>101
ifelseをつかいなさい

**nobodyさん** · 03/06/08 22:05

どうせ本７だろ。放置放置。

>>80
> &jcode::tr(\$FORM{'FROM'}, '＃', '#');

Jcode.pm に入れ替えたらエラーになた。（s/jcode/Jcode/g したあと）
でも、Parse したときに、Shift_JISに変えているんだから、
s/＃/#/g; にしちゃった。

**nobodyさん** · 03/06/08 22:09

日本語が文字化けをするのですが
どうすればいいでしょうか?
英数なら大丈夫です。

**nobodyさん** · 03/06/08 22:15

（　´_ゝ｀）ﾂｰﾝ

**nobodyさん** · 03/06/08 22:19

>>104
>>83は合ってるのか？

82 · 03/06/08 22:20

>>111
あってるよ

**nobodyさん** · 03/06/08 22:23

>>109
超超超特別サービスでおまいに説教を送ってやろう。
普通は叩かれるだけなのに説教を貰えるとは幸せと思え。

①まずどうやって生成した文字列なのか。
どのような過程を通り、どう言ったアプリケーションで文字列に直しているのか書くべきである。

②
＞1：自分はこう言う事がしたい。
＞2：それでこんな風にやってみたが･･･
＞3：それだとこんなエラーが出て上手く行かなかった。
さらにこのスレのルールとして以上の事を書かねばならない。

③
これ決定的。
スレ違いだから他に行って下さい。
記述やコーティングのスレだから。

**nobodyさん** · 03/06/08 22:24

>>113
＞普通は叩かれるだけ
普通は無視で流れてくだけだよ

**nobodyさん** · 03/06/08 22:25

>>89って言ってるけど全然分かってないじゃん。
>>83-86もっかい読んでみ。

82 · 03/06/08 22:30

>>115
わかってるから

**nobodyさん** · 03/06/08 22:33

>>116
じゃあ、

>>112
> >>111
> あってるよ

合ってないのになんでそういうこと言うの？
$name = "hoge#hage";
$sharp = index("$name","#");
$trip = substr($name,$sharp++) ;
print $trip,"\n";

と

$name = "hoge#hage";
$sharp = index("$name","#");
$trip = substr($name,++$sharp) ;
print $trip,"\n";

の結果比べてご覧。
＃なんで切れ気味なの？

82 · 03/06/08 22:34

ｱﾋｬｰﾝ。
違うねぇ、スマン、見間違えてた

**nobodyさん** · 03/06/09 02:42

日時の取得なのですが、

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$month = ($mon + 1);
if ($sec < 10) { $sec = "0$sec"; }
if ($min < 10) { $min = "0$min"; }
if ($hour < 10) { $hour = "0$hour"; }
if ($mday < 10) { $mday = "0$mday"; }
if ($month < 10) { $month = "0$month"; }
$date = "$month/$mday/$year $hour\:$min\:$sec";

これで実行すると、2003年が103年となってしまいます。
2003年に正しく修正するにはどうしたらいいでしょうか？

_ · 03/06/09 02:54

http://yomi.kakiko.com/hiroyuki/jaz_b01.html

**nobodyさん** · 03/06/09 02:58

それやらなくてもなると思うよ。

**nobodyさん** · 03/06/09 03:01

初心者のオレにも答えられそうな質問だ。

>>119
2003って表示させたいなら
$year += 1900;

下二桁「03」って表示させたいなら
$year = sprintf("%02d",$year%100);

を追加すればいいんでね？

**nobodyさん** · 03/06/09 03:09

>>119
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
の$yearは1900年からの経過年数

**nobodyさん** · 03/06/09 11:48

すみません。
jcode.plを使っていて
WARNING: UtfToLocal: could not convert UTF-8 (0xd6a5). Ignored
というようなエラーが出た方はいらっしゃいませんか？

特にUTFは使っていないのに、必ず出てきてエラーになってしまいます。
ファイルはshift_jisで、それを読み込んでeucに変換しているのですが・・
このエラーはネットで探しても見つからないので
ご存知の方がいらっしゃいましたらよろしくお願いします。

**nobodyさん** · 03/06/09 12:41

utftolocalで検索するとjdbcがヒットするのだけど、そういうのを使ってない？

**nobodyさん** · 03/06/09 12:42

>>124
jcode.plにはUtoToLocalなどない。つまり、お前は決定的に何か間違っている。

**124** · 03/06/09 12:54

すみません。解析した結果、
ＤＢとのコネクト時のことだったみたいです。
申し訳ありありませんでした。
jcode.plにも、そのメソッドを検索して、存在しないから
内部的なものかとおもっていました。

Posgresqlに文字コードをＥＵＣを指定して接続する方法はあるのでしょうか？
DBIを使っています。

interbaseのibperlを使っていた頃は、Charsetでできたのですが・・

**無料動画直リン** · 03/06/09 13:10

http://homepage.mac.com/norika27/

**nobodyさん** · 03/06/09 13:45

>>127
スレ違いにつき、お引き取りください。

**nobodyさん** · 03/06/09 14:01

いつでも激安

安心して24時間お買い物ができる！
セルビデオ店が近くにないお客様も気軽にお買い物を楽しめます。
http://www.net-de-dvd.com/
安心確実

お支払は安心の代金引換です
振り込んだのに商品が届かない等
の心配は無用！
http://www.net-de-dvd.com/

**nobodyさん** · 03/06/09 19:15

正規表現の最長マッチと最短マッチで同じ結果が得られることが明らかな場合、
どちらを使用した方が、処理速度・負荷の面で有利なのでしょうか？

**nobodyさん** · 03/06/09 19:26

正規表現は「マッチしない」時にどっちが手っ取り早く記述を抜けれるか考えるのがミソ

**nobodyさん** · 03/06/09 20:52

$ImageDir = "../image/photo/";
$in{id} = 8;
$in{file1name} = "hoge.jpg";
$in{file1name} = "fuga.jpg"
rename($ImageDir.$in{file1name}, $ImageDir."photo1_id".$in{id}."jpg");
rename($ImageDir.$in{file2name}, $ImageDir."photo2_id".$in{id}."jpg");
とやっても、renameされません。

パス付きファイル名をrenameに渡してもダメなのでしょうか？
だとしたら、同じことを実現するにはどうすればいいのでしょうか？

**nobodyさん** · 03/06/09 21:32

パス付きでもいけるはず。
・フィアル名が正確かどうかprintで出力して確認
・エラーがあれば、エラー内容を出力

エラー内容は$!に入ってるので、
rename $file1,$file2 or die "rename Error : $!"; で見てみればいい。

**nobodyさん** · 03/06/09 23:23

>>134
あ、renameでもor dieできるのですね。。。
そっか、openのときしか使ったことなかったです。さんくすです。

**nobodyさん** · 03/06/10 02:08

1バイトとかバイト単位ではなく、1文字という文字単位で抜き取る関数はありますか？
半角カナとかの1バイト文字と、1バイト文字も含めた全ての文字列との比較させて、その結果によって処理を振り分けるスクリプトを作りたいんで。
ちょっと説明が難しいんですが、知ってる方いたら教えて下さい。
substrではダメなんです。

**nobodyさん** · 03/06/10 03:04

>>136
２バイトも一文字として認識してほしいって事？
そんな関数ないっぽいです。
モジュールなら、どこかにあるかも。

極論で言わせてもらえば、jperl使えって事になってくるかな。

**nobodyさん** · 03/06/10 03:07

それは極論なんだろうか

**nobodyさん** · 03/06/10 03:16

>>138
たぶん極論・・・
って言うか、俺的に極論かな・・・？

日本語文字列で問題がおきてる。
↓
jperl使え。　終了。

これが、黄金パータンでしょ？（ｗ

**nobodyさん** · 03/06/10 07:44

>>136
sjisじゃできんが（2バイト文字と1バイト文字が重複する）、eucならできる。
perlメモの「日本語を扱う」に書いてある。がいしゅつ

**nobodyさん** · 03/06/10 09:10

1：CGI::Sessionモジュールを使ってセッション管理をしてみたい

2：CGI::Sessionモジュールを試用してテスト中、
クライアントからセッションIDを取得できなかった場合のテストをやってみたら...

3：サーバにセッション情報を保持したファイルが残って、更新されることも消えることもなかった。

該当のセッションを使用してのアクセスがないので更新されないのはあたりまえなのですが、
もう使われることのないセッション情報を消す管理用メソッドとかないのでしょうか。