Perlコーディング初心者質問スレ Part 39
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
04/11/27 11:35:03ID:DJwiGeFM【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0702nobodyさん
05/01/12 12:21:20ID:???せっかく問題を提起したのだから、解決コードも書いて置くと後学の為になるし、
コードに改善点があれば誰かが指摘してくれるよ。
0703693
05/01/12 14:07:08ID:SoBMVf5uURLに注文内容を圧縮して持たせる場合常にURl自体に注文内容が含まれてるので
購入中にトップページにブックマークした場合、いつ来てもブクマしたときの
注文内容が残ってしまいますね・・・
しかしURLにセッションIDを持たせたとしても同じことがおきますよね。
もちろんサーバ側のファイルを最終アクセスから2時間たったものは消していけば
いいですけど、古いセッションID付でブクマされると何か嫌ですよね。
みなさんはどうやって古いID付でブクマークされるのを防いでるのですか？
0704nobodyさん
05/01/12 14:49:15ID:???スレ違い
△▲ WebProg 初心者の質問 Part11 ▼▽
http://pc5.2ch.net/test/read.cgi/php/1101635909/
0706nobodyさん
05/01/12 19:39:08ID:iuHcyFLg持っているPerlの本のURLエンコードについての説明のところには、
「-」「@」「*」「.」「_」はエンコードされないと書いてあって、
エンコードのサブルーチンは
sub UrlEncode {
local($str) = @_;
$str =~ s/([^ 0-9a-zA-Z\-@\*\._])/sprintf("%%%02X", ord($1))/eg;
$str =~ s/ /+/g;
return $str;
}
…と書いてあります。
ところが別のページや他サイトでは、上のコードの３行目のところが
$str = ~s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;
となっているようです。
どちらのコードにすればいいんでしょうか？
後者の方では、\W＝[^_0-9a-zA-Z]だから記号もエンコードしてしまうのではと
思うんですが…。
よく分かってなくてすいません。よろしくお願いします。
0707nobodyさん
05/01/12 20:12:34ID:???最初にアクセスしたtimeでも引っ張って一時保存ファイルでも作れば？
そっちに注文内容とか入れ込んで、一時保存ファイルの作成時間が一時間以上前のものなら消すとか
>696
＞携帯ってリクエスト毎にIP変わらなかったっけ？
DoCoMoは変わる、auは変わらない、Vodaはシラネ
0709nobodyさん
05/01/12 20:28:34ID:???reserved = ";" | "/" | "?" | ":" | "@" | "&" | "=" | "+" | "$" | ","
これはエスケープする。
unreserved = alphanum | mark
mark = "-" | "_" | "." | "!" | "~" | "*" | "'" | "(" | ")"
これはエスケープしなくてもいい。しても構わない。
http://www.ietf.org/rfc/rfc2396.txt
0711だめだめ君
05/01/13 02:40:25ID:???日本語文字コードらへんで何か変わった問題とかあるんでしょうか・・・。どう対処すればいいのか分かりません…
宜しくお願いします。
0712nobodyさん
05/01/13 06:44:36ID:???DBへ格納している文字の文字コードは？
そのプログラムソースの文字コードは？
恐らく、その両者の文字コードが一致していないと思います。
0713693
05/01/13 09:14:06ID:mOXqnzCMスレ違いなのですか？
Perl特有の解決方法などがあると思いましたが、全言語共通なんですか？
とりあえず誘導ありがとうございますm(_ _)m
>>705
postでやるのは考えましたが、テキストリンクぽく見せるのが不可能ですよね。
ボタンやセレクトボックスになってしまうと違和感があるので・・・
0714nobodyさん
05/01/13 09:41:39ID:???よってスレ違い。
0715nobodyさん
05/01/13 09:44:55ID:???0716だめだめ君
05/01/13 12:18:38ID:???ありがとうございます。表示以外は全部EUCです。
ただ、文字コードの違いだったらもっと激しく全部文字化けすると思うんですが、一部の文字なんです。
他の件でPHP使ってるときにも￥が入るとかそういうのがバックスラッシュのエスケープとかであったので、
それと似たものなのかなぁと色々検索したんですが、、、、それっぽいのも見つからず…。
どうしたもんでしょうか…
0719nobodyさん
05/01/13 14:25:30ID:F0U77FE9でcp932からutf8へ変換を行っているのですが、そのあと、
文字化けを起こしている（マッピングに失敗した）文字を？とか★とかに変換
したいのですが、どのように行えばいいのでしょうか？
ごくごくまれに外字と思われるものがあるのです。
一旦dbに入れてcsvとかで出す時にそのたった１文字のためにそれ以降全部バケちゃうことがあるのです(泣)
0720nobodyさん
05/01/13 15:45:13ID:???メソッドが返す値はただの数字です。
0721nobodyさん
05/01/13 15:55:36ID:???0722nobodyさん
05/01/13 15:57:40ID:???0723nobodyさん
05/01/13 15:58:29ID:???0724nobodyさん
05/01/13 15:59:37ID:???2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
0725nobodyさん
05/01/13 16:05:37ID:???コマンドプロンプトからPerl -cでぷろぐらむのチェックをしたら
syntax okが出るにも関わらずlocalhostからブラウザでやってみると
500エラーが出るのは何故でしょうか？
こういうときはどうやってデバッグすればいんでしょうか？
何が悪いのか検討がつかずに困っています。
0728725
05/01/13 16:16:56ID:???cgi::sessionのコンスラクタ呼び出しの際に3つ目の引数にカーリーブレス？を付けておくのを
忘れてました。
しかし今回は運良く早期発見できましたが、こういうときにいいデバッグ方法あｒましたら
教えてください。
0729nobodyさん
05/01/13 16:19:39ID:???0732nobodyさん
05/01/13 20:18:35ID:???http://pc5.2ch.net/test/read.cgi/php/1104624784/2
0733nobodyさん
05/01/13 20:24:29ID:???Shift_JISなら分からなくも無いけど…。
Shift_JISの「ﾐ」も\xD0。
# またはDBの最新バージョンで人柱状態？
>>719
0xF040から0xF9FCの外字なら、予めチェックするしかないかも。
>>731
?
0734nobodyさん
05/01/13 21:16:56ID:???うまくいきません
sub search1 {
local($dir) = $_[0];
local(@filelist, $file, $filename);
opendir(DIR, $dir);
@filelist = readdir(DIR);
closedir(DIR);
$begin = $FORM{'page'} * $hyouji;
$end = $bigin + $hyouji;
if($end > @filelist) {
$end = @filelist;
}
（続く）
0735734
05/01/13 21:17:55ID:???#foreach $file (@filelist) {
for ($a = $bigin; $a < $end; ++$a) {
if ($file eq ".") { next; }
if ($file eq "..") { next; }
$filename = "$dir/$file";
if (-d $filename) {
if ($recursive_flag) {
&search1($filename);
}
} else {
&search2($filename, $dir);
}
}
if ($end < @filelist) {
$nextpage = $FORM{'page'} + 1;
print "<a href=\"$ENV{'SCRIPT_NAME'}?page=$nextpage\">次へ</a>\n";
}
#}
}
0736734
05/01/13 21:19:50ID:???動作も正常に動いてはいないようです
どなたか知恵を貸してください
よろしくお願いします
0737nobodyさん
05/01/13 21:27:49ID:RpTwbNys$begin
$bigin
use strict
を使う癖をつけましょう。
0738734
05/01/13 21:57:15ID:???ご指摘ありがとうございます
うっかりミスです
しかし直しても動作は変わりありません
構文自体が悪いのでしょうか？
頭がテンパってきました
助けてください…
0739nobodyさん
05/01/13 22:01:32ID:RpTwbNysもうちっと、ソースを整理して晒しておくれ。
search2というのが何なのかも分からないし・・・。
0740734
05/01/13 22:21:11ID:???すみません、インデントつけます
sub search1 {
local($dir) = $_[0];
local(@filelist, $file, $filename);
opendir(DIR, $dir);
@filelist = readdir(DIR);
closedir(DIR);
$begin = $FORM{'page'} * $hyouji;
$end = $bigin + $hyouji;
if($end > @filelist) {
$end = @filelist;
}
（続く）
0741734
05/01/13 22:23:11ID:???for ($a = $bigin; $a < $end; ++$a) {
if ($file eq ".") { next; }
if ($file eq "..") { next; }
$filename = "$dir/$file";
if (-d $filename) {
if ($recursive_flag) {
&search1($filename);
}
} else {
&search2($filename, $dir);
}
}
if ($end < @filelist) {
$nextpage = $FORM{'page'} + 1;
print "<a href=\"$ENV{'SCRIPT_NAME'}?page=$nextpage\">次へ</a>\n";
}
# }
}
0742734
05/01/13 22:29:34ID:???#foreachは最初からあったやつで、コメントアウトしています
&search2はソース長いので説明すると
ループさせてファイルの中身を一文字ずつ検索させてるようです
>740の
$begin = $FORM{'page'} * $hyouji;
$end = $bigin + $hyouji;
if($end > @filelist) {
$end = @filelist;
}
この部分と
>741の
if ($end < @filelist) {
$nextpage = $FORM{'page'} + 1;
print "<a href=\"$ENV{'SCRIPT_NAME'}?page=$nextpage\">次へ</a>\n";
}
が自分で付け足した所です
0743nobodyさん
05/01/14 01:17:04ID:???別スレでやってくれ。
★三 【 スクリプト改造工房 PART 8 】 ★三
http://pc5.2ch.net/test/read.cgi/php/1077525387/ 79にテンプレあり
0744nobodyさん
05/01/14 07:32:45ID:3YybYM3/とやると$hogeは455になるのに、
$hoge=int(1.4*325);
とやると$hogeは454になってしまいます。
他の数字でも起こるようです。何故ですか？
というか、意図した通りにさせる方法はありますでしょうか。
0745720
05/01/14 08:13:20ID:???ありがとうございます。
全然誰も答えないからこのスレ、レベルが下がったのかとおもいました；
数スレ前では自分で誰かに回答してあげた覚えもあるんですが、最近の過去ログは
普通の人は見れないようで。
>>all
お前らもっと精進しろよ、な。
0746nobodyさん
05/01/14 09:27:13ID:AgX5dpSc異なる意味をもつ字を*で連結した上の文字列の中から1字を消して連結用のアスタリスクの数も
正常にする。
ということがしたい場合どういうみんなコーディングする？aとdでは処理が変わるんだよね。
しかしそれをなるべく簡潔にしたい。
0747nobodyさん
05/01/14 09:31:58ID:???慣れていないと面食らうがほとんどのプログラミング言語ではそれが標準仕様。
詳しい説明は「浮動小数点数」「精度」などで検索すれ。
防ぐ方法は幾つかある。まぁこのケースなら1が無難かな。
1. 整数同士の演算にする： 1.4*10*325 (1.4*325*10ではうまくいかないことに注意)
2. sprintfで処理する：sprintf '%f', 1.4*325
3. bignumプラグマ： use bignum;print int(1.4*325) (ただし破滅的なほど遅い)
0749nobodyさん
05/01/14 09:35:33ID:az2EqpkZこの２つの変数内の文字列を比較していって、先頭から同じ文字が続くところまで$hoge2から削除するにはどうすればいいでしょうか。
たとえば、$hoge1=a/b/c/d/,$hoge2=a/b/c/d/e/f/だったら、$hoge2=e/f/としたいのです。
0750746
05/01/14 09:37:35ID:AgX5dpSc$a =~ s/a[*]?//;
$a =~ s/[*]*$//;
0751nobodyさん
05/01/14 10:31:14ID:???？
0752nobodyさん
05/01/14 10:56:17ID:???$a .= '*';
$a =~ s/a\*//;
chop $a;
$aを使うのはお勧めできないがそれは置いておこう。
0753749
05/01/14 10:58:23ID:az2EqpkZ例が適切でなかったかも知れません
$hoge1='a/b/c/d/e/f'
$hoge2='a/b/c/d/g/h/'
だったら、
$hoge2='g/h'
にしたいのです
0754nobodyさん
05/01/14 11:42:26ID:LszGQepz「Win32::OLE」は使えないのでしょうか？
もし使えないなら、代わりになるものはありますか？
0755nobodyさん
05/01/14 11:48:36ID:???my $re = '';
foreach (reverse split //, $hoge1) {
my $q = quotemeta($_);
$re = "(?:$q$re)?";
}
$hoge2 =~ s/^$re//;
0756nobodyさん
05/01/14 12:35:06ID:???sub hoge {
my $max = length $_[0];
my $pos = 0;
$pos++ while substr($_[0], $pos, 1) eq substr($_[1], $pos, 1) && $pos < $max;
# 「$hoge2='g/h'」は typo か?
substr $_[0], $pos, length substr +($_[2] ? $_[1] : $_[0]), $pos;
}
print hoge($hoge2, $hoge1), hoge($hoge2, $hoge1, 1); # g/h/g/h
0757734
05/01/14 12:52:14ID:???誘導ありがとうございます
逝ってきます
0758nobodyさん
05/01/14 15:29:10ID:AgX5dpSc現在注文管理部分の注文してくれた客に出す「確認メール」というものを作成するための
メールフォームを作っています。
docomoでは500byteまでという制限があります。
500byteなんてあっというまなので対策を考えてます。
一つ考えたのは500byteを超える場合は２通に分割するという方法です。
しかしマルチバイト文字の途中で分割すると２通目以降が悲惨なことになるので
どうにかしてそれをクリアにしたいです。
「確認メール」の内容はその時によって違うので、先に分割地点を決めるのは無理です。
メールフォームを使うのは500byteの意味を知らないパートさんで、入れ替わりなので
扱う人間に期待をするのは難しいです。
メールフォームでつくられた本文を受け取り送信する側のCGIで何とかしたいです。
日本語を綺麗に途中で分割することってできますか？簡単にできるモジュールなどありましたら
教えてください。
0760758
05/01/14 15:49:19ID:AgX5dpScここを参考にとりあえず配列に文字単位で格納して、
それから@text[0..500]などでやってみようと思います。
ただメチャクチャ重くなるような気がしてるのですが＾＾；
でも何かアドバイスありましたらお願いします。
0762758
05/01/14 16:20:31ID:AgX5dpScJcodeですか。調べてみます。
ところで
$a = 100/3;
のように$aに小数点が含まれる場合は切り上げをしたいんですがどうすればできますか？
切捨てはintで一発ですが、切り上げは一度小数点があるかないかを調べないとダメです如根。
0764nobodyさん
05/01/14 16:30:38ID:???0767758
05/01/14 16:59:43ID:AgX5dpSc感謝ですm(_ _)m
0768nobodyさん
05/01/14 19:11:08ID:???perlメモ風の切り上げ処理は
$tmp2 = int($tmp1) + ($tmp1 <=> int($tmp1));
かな。
>>747
ありがとうございました。整数でやってみます。
0769nobodyさん
05/01/15 13:17:48ID:X2SjZomE何通もメール送られたらユーザーも迷惑でしょ。
0770nobodyさん
05/01/15 14:59:51ID:2P0rPuHEformtest.htmっていうページからformtest.cgiにデータを送信しようと
おもったんですが。formtest.htmには入力フォームが２つあってそれぞ
れdataAとdataBです。dataAはaaaとdataBにはbbbと。それをpostで送信
しました。formtest.cgiには
#!/usr/local/bin/perl
read(STDIN,$buffer,$ENV{'QUERY_STRING'});
print"Content-type: text/html\n\n";
print"<HTML><BODY>\n";
print"$buffer";
print"</BODY></HTML>\n";
とあります。画面にはdataA=aaa&dataB=bbbと表示されるはずなんですが
でません。ちなみにgetとpostの両方で送信してみましたが、出来ません、
でも他に文字を表示させるだけのＣＧＩがあるんですが、それはは動き
ます。
0771nobodyさん
05/01/15 15:11:38ID:???根本的に間違い。
http://www.rfs.jp/sitebuilder/perl/03/02.html
ずっと下にある「GET/POST データを読み込む」でも読みたまえ。
0772nobodyさん
05/01/16 10:58:07ID:LfCWlcLWすぐ2000行とかになっちゃうんですが、普通ですか？
長くなりすぎてちょっとした内容修正の時にも該当箇所までスクロールするのが面倒
だったりします。
みなさんはどうやっておられるのでしょうか？
HTML部分を別ファイルにしてメインプログラムから読み込むだけのような
形式にしてるのでしょうか？
0773nobodyさん
05/01/16 11:01:18ID:???0774nobodyさん
05/01/16 11:05:45ID:???・コードの行数は処理次第。各ページ2000越えるのはありえない。全体で2000行のCGIでショップ運営もありえない
・めんどくさがりすぎ。行ジャンプかインク李メンタルサーチで移動
・HTMLは当然別
0775nobodyさん
05/01/16 11:13:24ID:???ページベースの設計してるPerlCgiは今はそんなにないよ。
0776nobodyさん
05/01/16 12:01:04ID:???思ってる時点でなんかヤバイ気がするんだが
気のせい?
もちろん大量の商品があるのでみつけやすいよう
に検索や分類の機能を作りこむとかで規模増える
ことはあるだろうけれども、そういう意味で言っ
てるようには見えない。
0777nobodyさん
05/01/16 12:06:48ID:???0778772
05/01/16 12:13:57ID:LfCWlcLW多分みなさんレベルから見たらかなりマヌケなコーディングだと思います；
基本的に一つのindex.cgiで全頁のメインを書いてます。
現状ではHTMLもかいてます。それぞれわけるなら全面CGIにする必要性もあまり感じられませんし。
>>776
行数は増えていくと思います。商品の紹介文などを別にしない限りは。
多分みなさんが言うのはHTMLや商品コメント、価格その他はDBに突っ込んで
メインから読み込んで処理しろということだと思います。
現状は商品コメント以外はテキストファイルに作ってありますが、
なんとも中途半端な状態です。
かなりヒントになりました。あちがとうございます。
一つ質問ですm(_ _)m
使い終わった変数をundefしたいというか削除したいのですが、
undef $a;
これだとスカラー一つ筒しかできないのですがどうやればいいんですか？
my ($a,$b,$c,$d) = (undef)x4;
今はこうやってますが、これってほんとに
undef $a;
undef $b;
..
と同じ効果が得られているんでしょうか？一応中身は消えてるみたいですが。
0779772
05/01/16 12:19:44ID:LfCWlcLW書き間違えです。
($a,$b,$c,$d) = (undef)x4;
こっちです。
0780nobodyさん
05/01/16 12:50:22ID:???my ($a,$b,$c,$d) = (undef)x4;
foreach($a,$b,$c,$d){
printf "%sdefined", defiend $_ ?'' : 'Not';
}
0781nobodyさん
05/01/16 12:57:20ID:???アー逆スマソ。
my ($a,$b,$c,$d) = (undef) x4;
printf qq|%s -> %sdefined\r|, $_, defined $$_ ? q|Not| : q|| foreach(qw|a b c d|);
0782nobodyさん
05/01/16 15:40:03ID:???よくわからんが、HTML::Template 使うと幸せになれるとかそういう話じゃないのか
使い終った変数を undef したいというのも、なぜそんなことをしたいのかよくわからん。
巨大なメモリを喰うオブジェクトを destroy して解放したいというならわからんでもないが。
0784nobodyさん
05/01/16 16:22:42ID:???これはご存知？
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlsub.html#Private_Variables_via_my_
> “my”は、それを囲んでいるブロック、条件文 (if/unless/elsif/else)、
> ループ(for/foreach/while/until/continue)、サブルーチン、eval、
> あるいはdo/require/useされたファイルに(lexicalに)閉じ込められる変数を定義します。
{
my ($a, $b, $c) = qw(1 2 3);
}
# 他で参照していない限り、ここで$a,$b,$cは無くなります。
print $a, $b, $c; # use strictならエラー
グローバル変数をundefするというのなら、
undefするより別の名前の新しい変数を作るべきです。
0787784
05/01/16 19:35:11ID:???sortに使う特殊な変数ですね。
http://www.perldoc.com/perl5.8.4/pod/perlvar.html
> $a
> $b
> Special package variables when using sort(), see perlfunc/sort.
> Because of this specialness $a and $b don't need to be declared
> (using use vars, or our()) even when using the strict 'vars' pragma.
> Don't lexicalize them with my $a or my $b if you want to be able to use them
> in the sort() comparison block or function.
0788nobodyさん
05/01/16 21:59:39ID:???> グローバル変数をundefするというのなら、
> undefするより別の名前の新しい変数を作るべきです。
undefにはメモリの開放という働きもあるので、一概にはいえない。
0789nobodyさん
05/01/16 22:18:34ID:???（´,_ゝ｀）ﾌﾟｯ
0790nobodyさん
05/01/16 22:48:38ID:???チンカス君はメモリの開放という表現が嫌いかな?
↓これを
$size = 10;
$a = '0' x (1024 * 1024 * $size);
undef $a;
$b = '1' x (1024 * 1024 * $size);
undef有効にして実行
$ time perl test.pl
real 0m8.430s
user 0m1.549s
sys 0m0.334s
undefをコメントアウトして実行
$ time perl test.pl
real 0m12.044s
user 0m1.540s
sys 0m0.673s
sizeは実装メモリで加減してくれ。
0791nobodyさん
05/01/16 23:26:56ID:???$size = 1;
timethese(10000, {
'(1)' => '&test1;',
'(2)' => '&test2;',
});
sub test1 {
$a = '0' x (1024 * 1024 * $size);
undef $a;
$b = '1' x (1024 * 1024 * $size);
}
sub test2 {
$a = '0' x (1024 * 1024 * $size);
$b = '1' x (1024 * 1024 * $size);
}
Benchmark: timing 10000 iterations of (1), (2)...
(1): 272 wallclock secs (227.82 usr + 40.47 sys = 268.29 CPU) @ 37.27/s (n=10000)
(2): 251 wallclock secs (247.34 usr + 0.08 sys = 247.42 CPU) @ 40.42/s (n=10000)
0792nobodyさん
05/01/16 23:31:53ID:???0793nobodyさん
05/01/17 01:20:52ID:???馬鹿?
実装メモリの1/4位は取ってみろ。
test1は何見てんの $a確保→開放→$b確保→戻る 意味ねー
0795nobodyさん
05/01/17 02:34:12ID:???undef有効の場合
>>790は各々1回しか実行しない。
$a確保→$a開放→$b確保
使用メモリ: $sizeMB
>>793は各々10000回実行する。
$a確保→$a開放→$b確保→$a確保→$a開放→$b確保→
使用メモリ: 2*$sizeMB
全然違う。
0796nobodyさん
05/01/17 03:49:42ID:???$res =~ s/(<br>>|<p>>)(.*?)<br>([^>])/<blockquote><p>>\2<\/p><\/blockquote><p>\3/g;
$res =~ s/(<br>>|<p>>)(.*?)<br>([^>])/<blockquote><p>>\2<\/p><\/blockquote><p>\3/g;
$res =~ s/>>/>>/g;
$res =~ s/([^>])<blockquote>/\1<\/p><blockquote>/g;
としてみました。
$resは書き込まれた内容をp要素で括ったものなので、
<p>>から始まる は、文頭から引用だった場合、
<br>>から始まる は、文頭ではなく、行頭から引用だった場合、です。
最後の行は、もしも、文頭ではなく、行頭だった場合、その前のp要素を閉じる、という処理です。
現状では問題は発生しませんが、
「こんな書き込み方をされたらこんな問題出るだろ」というのとかありましたらお教え下さい。
次はネストに挑戦しようと思ってるんですけど、この段階で穴がありそうな気がして前に進めません。
0797784
05/01/17 07:07:24ID:???確かに変数を増やすのはメモリを使いますが、>>790のような何MBというデータは
果たして本当にグローバル変数で確保しておく必要があるのでしょうか。
メモリの1/4を使うというというのなら、設計から見直して、変数を局所化する方法を
探してみたほうが良いと思います。
0798nobodyさん
05/01/17 07:55:49ID:???想定している$resの内容がちょっとわからないけど、
$res = "<p>>引用<br></p>";
<blockquote><p>>引用</p></blockquote><p></p>
# 続くP要素内がカラになる
$res = "<p>>引用</p>";
<p>>引用</p>
# 引用できない
0799772
05/01/17 08:55:35ID:???作成中はuse strictしてるので、局所化はしています。
undefしたいのは気持ち的な問題で、コードを自分で読むときに
この変数は用無しというのをハッキリさせたいだけです。
あほらしいと思いますが、ブロック内でのローカル変数も
たまにundefしています。メモリ云々は考えていません。
0800772
05/01/17 09:03:45ID:???my ($a,$b,$c,$d) = qw/1 2 3 4/;
print $a,$b,$c,$d,"<br>";
($a,$b,$c,$d) = (undef) x4;
printf qq|%s -> %sdefined\r|, $_, defined $$_ ? q|Not| : q|| foreach(qw|a b c d|);
全部definedになりました。しかし３行目(undef行)をコメントアウトしても結果は同じでした。
どういうことでしょうか？
print defined $a;
でやると結果は変わりました。ちゃんとundefが聞いてるようです。
0802nobodyさん
05/01/17 10:46:32ID:1F0SQQP0この配列の中から0以上50未満の一番大きい数値を値として持っている
のは何番目かを簡単に調べることはできますか？
sort関数はなにやらややこしいので、いまいち理解できていませんが、
やはりsort関数を使わないと難しいでしょうか？
■ このスレッドは過去ログ倉庫に格納されています