Perl コーディング初心者質問コーナー Part33
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
04/03/01 02:46ID:1GeWO7LH【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0613nobodyさん
04/03/19 03:57ID:KxdLBMtCサンクス
0614nobodyさん
04/03/19 08:52ID:???0615nobodyさん
04/03/19 13:29ID:3UeG122v検索結果を表示するときに、Googleみたく検索キーワードを強調表示し、
さらにその前後の文字列を含めて切り抜いているのを実装したいのですが、
どのようにすればよいでしょうか。
たとえば、
「私はりんごが好きで、あなたはみかんが好きで、二人はバナナが好きです」
を「りんご バナナ」で検索した際、検索結果には
「私は<em>りんご</em>が好きで、あ...で、二人は<em>バナナ</em>が好きです」
という感じにしたいです。前後五文字を切り抜いています。
これだけならなんとかなりそうですが、「あなた みかん」で検索したときに
「...が好きで、<em>あなた</em>は<em>みかん</em>が好きで、二...」というように
切り抜き範囲に別なキーワードがさらに見つかった場合などを考えるといい方法が浮かびません。
0616615
04/03/19 13:36ID:???検索して見つかった文章は$textに入っていて、検索キーワードは@keywordsに配列で入っています。
foreach $keyword(@keywords){
$text =~ s/(.*)($keyword)(.*)/substr($1,-10)<em>$2<\/em>substr($1,10)/eg;
}
こんな感じのを考えていましたが、いろんな場合を考えるとイマイチなのは先ほど書いたとおりです。
0617nobodyさん
04/03/19 14:32ID:???ここはコーディングスレ。
＞「...が好きで、<em>あなた</em>は<em>みかん</em>が好きで、二...」
これの何がイヤなのか知らんが、どうしたいか仕様ぐらい考えてから来い。
0618615
04/03/19 15:37ID:???すいません、イヤなんじゃなく、むしろそうしたいんです・・・。
基本的には、前5文字. <em>キーワード</em>. 後5文字 で切り抜く。
ひとつの文章内で複数ヒットしたら、切り抜きを「...」で結ぶ。
複数ヒットしたキーワードが切り抜き幅以内の近距離にあった場合は
まとめて前後5文字で切り抜く
さらに、文頭や文末だったら「...」はつけないとかいう気配りも欲しいです。
自分で作ったのは
$preview = $text;
foreach $keyword(@keywords){
$preview =~ s/($keyword)/<em>$1<\/em>/g;
}
$preview =~ s/([^>]*)(<em>.*?<\/em>)([^<]*)/"...". substr($1, -30). $2. substr($3, 0, 30). "..."/eg;
それっぽいだけで、これではあちこち不備があるようです。
文章内で複数ヒットしたときにキーワードより前が切り抜かれなかったりしてます。
0619nobodyさん
04/03/19 16:16ID:???「アルゴリズム+データ構造=プログラミング」という古い格言に従って、
コードを書く前にまずどういうアルゴリズムで実現するか考えてみるべきだろう。
一例だが、以下のようなアルゴリズムが考えられる。
1. ヒットした文字列の部分にマークをつける
2. その前後5文字にもマークをつける
3. 非マーク部分を削除しつつ、マーク/非マークの境界に "..." を挿入
これをコードに落とすときはどうするかと言うと、
配列をマーク用に用意し、文字と配列要素を1対1に対応させて、
キーワードの出現位置を index で検出し、その前後の配列要素を1にして、
全部検出終わったら、次は配列を前から舐めてって1のところと0のところを…
みたいな感じ。
0620615
04/03/19 17:14ID:???行数制限に引っかかるので省略記法で書いてます。
あとは半角文字が含まれた場合の対応と、この強引なコーディングをもう少しスマートにしたいです。
ポイントをご教授いただければ幸いです。
$preview = ''; $pos = 0; $flg = 0; # 変数初期化
$mark[$_] = 0 for(0..length($text)); # マーク初期化
# マーク付け
foreach $keyword(@keywords){
while(1){
$markPos = index($text, $keyword, $pos); # キーワード出現位置取得
if(0 <= $markPos){
$mark[$_] = 1 for(($markPos - 10)..($markPos + length($keyword) - 1 + 10));
$pos = $markPos + 1;
}else{
last;
}
}
}
# マーク判別して $preview 生成
for(0..length($text)){
if(($flg == 0) && ($mark[$_] == 1)){ $flg = 1; }
if(($flg == 1) && ($mark[$_] == 0)){ $flg = 2; }
if(($flg == 2) && ($mark[$_] == 1)){ $flg = 0; $preview .= "...";}
$preview .= substr($text, $_, 1) if($mark[$_]);
}
# キーワードの強調
foreach $keyword(@keywords){
$preview =~ s/($keyword)/<em>$1<\/em>/g;
}
0621nobodyさん
04/03/19 17:16ID:???キーワードに<em></em>を付けた後、
</em>（もしくは文頭）～<em>（もしくは文末）の～が11文字以上あった場合間を...に置換、
ではどうだろうか？
0622615
04/03/19 17:40ID:???書いてみたら意外に難しかったです。
しかも正しく動いてないっぽい・・・。
</em>(5文字) .* (5文字)<em> のところがうまくいったりいかなかったり
（ ... にならずそのまま出る）です。
$preview = $text;
# キーワードの強調
foreach $keyword(@keywords){
$preview =~ s/($keyword)/<em>$1<\/em>/g;
}
if($preview =~ /^(.+?)<em>/){
if(10 < length($1)){
$preview =~ s/^.+?(.{10})(<em>)(.*)$/\.\.\.$1$2$3/;
}
}
if($preview =~ /<\/em>(.+?)$/){
if(10 < length($1)){
$preview =~ s/^(.*)(<\/em>)(.{10}).+$/$1$2$3\.\.\./;
}
}
if($preview =~ /<\/em>(.+?)<em>/){
if(20 < length($1)){
$preview =~ s/(<\/em>.{10}).*?(.{10}<em>)/$1\.\.\.$2/;
}
}
0623nobodyさん
04/03/19 19:34ID:???$diary{"order"} = "nm";
$diary{"order"} =~ s/$writer//e;
この様なスクリプトを書きました。
ローカルで実行すると
$diary{"order"} = "m";
と意図した動作をしたのですが,サーバにアップするとこのような動作をしません。
これは何でなのでしょうか
0624623
04/03/19 19:37ID:???$diary{"order"} = "mmn";
となります
0626621
04/03/19 22:20ID:???$previewに特定の文字（以下では\0）が含まれていない事が条件だが、
こんな感じでどうだろう？
foreach $keyword(@keywords){
$preview =~ s/($keyword)/<\0>$1<\/\0>/g;
}
$preview =~ s/(<\/\0>[^\0]{10}|^)[^\0]+?([^\0]{10}<\0>|$)/$1\.\.\.$2/g;
$preview =~ s/\0/em/g;
0627623
04/03/19 23:28ID:???多分これが原因ですね…
ありがとうございました
0628nobodyさん
04/03/20 10:10ID:pZHNeEFdメールアドレスがある場合はNAMEにリンクさせて、ない場合はリンクが発生しないということをしたいのですが…
if (($MAIL ne "") && ($NAME ne "")) { print "<b>：<a href=mailto:$MAIL>$NAME</a>：</b>\n";
}elsif (($MAIL ne "") && ($NAME eq "")) { print "<b>：<a href=mailto:$MAIL>nobodyさん</a>：</b>\n";
}elsif (($MAIL eq "") && ($NAME ne "")) { print "<b>：$NAME：</b>\n";
}elsif (($MAIL eq "") && ($NAME eq "")) { print "<b>：nobodyさん：</b>\n";
}
↑では上手くいきません。
MAILを入力しようとしまいとmailto:でリンクされます。
NAMEはしっかり分岐して動いてます。
どのように修正したらいいんでしょうか？
0629nobodyさん
04/03/20 10:25ID:???$MAILの中身が本当に空っぽかどうかをしっかり確認するべき。
あと、こうした方が見やすいぞ。
if($NAME eq ""){$NAME = "nobodyさん";}
if ($MAIL ne "" ) { print "<b>：<a href=mailto:$MAIL>$NAME</a>：</b>\n"; }
else { print "<b>：$NAME：</b>\n"; }
0632nobodyさん
04/03/20 13:19ID:Y1bzghLT配列と配列をつなぎ合わせるにはどうしたらよいでしょうか？
@array1 = (1,2,3);
@array2 = (4,5,6);
例えばこの配列の操作に関してなのですが
@array1 = (1,2,3,4,5,6);
と言う様にしたいのです。pushを使えば@array1 = (1,2,3,[4,5,6]);
となってしまいますし、foreach (@array2) { push (@array1,$_)}のように
すればいいと思うのですが、同様に操作したい配列が後に@array3 @array4...
と続いているのでもう少しスマートな方法でしたいと思っております。
joinか何かでできたような気がするのですが方法を見つけることができませんでした。
よろしければアドバイス頂けないでしょうか？
0633nobodyさん
04/03/20 13:34ID:???print "Content-type: text/html\n\n";print <<"EOF";
<HTML><HEAD><TITLE></TITLE></HEAD><BODY>
EOF
# データ入れて試して。
$MAIL = "";$NAME = "";
if ($MAIL ne "") {
if ($NAME ne "") {
print "<b>：<a href=mailto:$MAIL>$NAME</a>：</b>\n";
} else {
print "<b>：<a href=mailto:$MAIL>nobodyさん</a>：</b>\n";
}
} else {
if ($NAME ne "") {
print "<b>：$NAME：</b>\n";
} else {
print "<b>：nobodyさん：</b>\n";
}
}
print <<"EOF";
</BODY></HTML>
EOF
これなら動いたが。全部をelsifにするのはｲｸﾅｲ。MAILが空の場合と値がある場合でifはわかりやすく2つ置こう。
0634nobodyさん
04/03/20 13:35ID:???これ消し忘れ。ｽﾏｿ。
0637nobodyさん
04/03/20 18:17ID:???>pushを使えば@array1 = (1,2,3,[4,5,6]);
……そんなんなるかなあ。
リファレンス見たら、第二引数は配列でいいことになってるぞ。
push @array1, @array2;
他にもあるんなら、
push @array1, ( @array2, @array3, @array4 ... );
でいいんじゃねえか。
push @array1, [@array2];
とか、
push @array1, \@array2;
とか変なことやってんじゃねえのか？
もしくは、@array2自体におかしな代入しているとか。
0638nobodyさん
04/03/20 20:29ID:bXEf4bM+以下のようなスクリプトだと、何も print してくれません。
--------------------------------
use strict;
my %hash = (
name1 => 'hoge',
name2 => 'fuga'
);
for my $key ( keys %hash ) {
$main::{$key} = $hash{$key};
}
print $main::name1;
exit;
--------------------------------
更にできれば $main::name1 ではなく $name1 で取得したいんですが、
perl 5.6 以下なんで our も使えません。（perl 5 です）
どうすればいいのでしょうか？？？
0639nobodyさん
04/03/20 21:05ID:???＞$main::{$key} = $hash{$key};
＞print $main::name1;
なにをやってるのかよく考えて見れ。
＞更にできれば $main::name1 ではなく $name1 で取得したいんですが、
これもめっちゃイミフ。
0640639
04/03/20 21:07ID:???＞何も print してくれません。
俺のperlではちゃんとエラーメッセージをprintしてくれたけど。
Name "main::name1" used only once: possible typo at - line 9.
Use of uninitialized value in print at - line 9.
0641638
04/03/20 21:11ID:bXEf4bM+すんません。。。
分かりにくかったですね。 m(_ _)m
------------------
my %hash = (
name1 => 'hoge',
name2 => 'fuga'
);
------------------
というハッシュから、
------------------
my $name1 = 'hoge';
my $name2 = 'fuga';
------------------
という変数定義をしたいって意味です。
use strict なしでは、
------------------
for my $key ( keys %hash ) {
${$key} = $hash{$key};
}
print $name1;
------------------
とやると、ちゃんと 'hoge' が print されてたんですが、
use strict した場合に同じことをする方法が思い当たらなかったので。。。
0642nobodyさん
04/03/20 21:12ID:???シンボリックリファレンス。
strictな記述ではスカラー変数の自動生成出来ない。
あと、ourがサポートされてるperlでもシンボリックに対してourは認識されない（と思った記憶）
0643nobodyさん
04/03/20 21:15ID:???そんな設計が駄目設計だという事に気付け。
0644639
04/03/20 21:18ID:???strictした時はおそらく自動生成出来ないと思われ。
no strictすれば？
あと、俺もあまりそれ良い設計とは思えない。
0645638
04/03/20 21:21ID:???変数の自動生成が出来ないとは知りませんでした。。
ご指摘有難うございます。
>>643
ダメ設計かどうかもわからなかったです。。（初心者丸出しだ…
もっと勉強します。
変数の動的生成は個人的に結構使いそうだと思っていたんですが、
普通にperl自体では避けた方がいいのでしょうか？？？
0646nobodyさん
04/03/20 21:22ID:???http://www.perldoc.com/perl5.005_03/lib/strict.html
ループ括弧内で、no strict "refs";使うしか。
どんな変数を展開するか知らないけど、
外部から入力された値をmainパッケージで展開するとなると、
セキュリティホールになるかも。
(PHPのregister_globals問題と同じ。)
0647638
04/03/20 21:25ID:???CGIで、フォームからのクエリを %form に入れて、
%form のキーから変数を自動生成しようと思ってました。
素直に
my $name1 = $form{name1};
とするしかないですよね。。（汗
0648nobodyさん
04/03/20 21:26ID:???＞普通にperl自体では避けた方がいいのでしょうか？？？
普通は同じ事が出来て、見やすくて、記述が綺麗になって、速度も速い方法が他に用意されてるから。
それと、ハッシュのまま使うのが一番柔軟で使いやすくもある。スカラーにしたい理由が見つからない。
0651648
04/03/20 21:36ID:???長い変数名書きたくないって理由だったらお断りだよ。
ただ、キミがちゃんとことごとく局所化する記述書けてるなら、
sub age{
my $age = $form{'age'}; #この関数ではこの値を使う。
#処理
}
みたいな記述はお勧めできる
0652nobodyさん
04/03/20 21:40ID:???フォームからのクエリを %form に取得した後に、
スカラー変数を自動生成して、
スクリプトの記述量（$form{}）を減らしたかったのが主な理由です。
0654648
04/03/20 21:44ID:???減らさんくて良し。
スカラーにしたら汚くなる＆処理の柔軟さを捨てるだけだから。
どーしても自動生成したいなら、>>646のヤツ使うよろし。
誉められた記述じゃないけど、自動生成の中ではそれが一番マシ。
0655638
04/03/20 21:46ID:???今までは
my $name1 = $form{name1};
my $name2 = $form{name2};
…
と記述していたところを、
もっと簡単に定義できないかというのが今回の発端でした。
651さん、、親切に有難うございました。。。
0656nobodyさん
04/03/20 21:52ID:???後で見たとき間違いなく意味不明になるが。
0658未承諾広告※ ◆TWARamEjuA
04/03/20 23:34ID:???0660nobodyさん
04/03/21 02:34ID:???$type eq 'A' or $type eq 'B' or $type eq 'C' or $type eq 'D';
上記の記述なんですが、もうちょい短くならないでしょうか？
$typeと4回書かれているのはなんか俺の感性に反するんですが…。
それだけの理由です。
0661nobodyさん
04/03/21 02:39ID:???感性よりも知識を付けろﾊｹﾞ
0662660
04/03/21 02:52ID:???scalar grep {$type eq $_} (A, B, C, D);
コスト高いけどこれで(・∀・)
0663nobodyさん
04/03/21 02:55ID:???0664660
04/03/21 02:58ID:???ありが㌧。
0665628
04/03/21 11:31ID:???動きますた（=ﾟωﾟ）ﾉ
他の方々も貴重な情報さんくすこでした（*´Д｀）ﾊｧﾊｧ
0666nobodyさん
04/03/21 11:36ID:???何度もチェックする、チェック対象が複雑、などの場合はハッシュを使ってチェックするのが最速。
my %valid_types = map{ $_ => 1 } qw(A B C D foo bar baz);
if($valid_types{ $type }){
# ...
}
0667nobodyさん
04/03/21 15:06ID:???C#の方がいいじゃん。
0670nobodyさん
04/03/21 19:39ID:Bb+Pz/Rr簡単なCGI(例えばHello World等)でテストを行いましたが、エラーの解決法がよくわかりません。
UTF-8(Unicode)以外の文字コードにするとプログラムは正常に動きます。
PerlではUTF-8は一応サポートされていて実際使っている方もいるようですが、
何かうまくいくコツなどありましたらどうかご指南ください。
0672nobodyさん
04/03/21 20:08ID:???「ぱーる」って読むのか「ぴーる」って読むのかわかりにくいってんだろ。
「しーしゃーぷ」は見たまんまだもんな。
0673T.K
04/03/21 20:55ID:???$key に name1 が、 $valに中身があるとして
クエリを分解して読み込むときに
${$key} = $val;
ってやってforeachでループさせれば君のやりたいことはできるよ。
実は俺も長くなるからそうやってたんだけど
やっぱあとあと大変だということがわかった。
PHPに乗り換えようとしたときも変数の取り扱いがちょっと違うだけで
違和感感じてなじめなかった。
おとなしく$form{}でやってたほうがよいよ。
0674nobodyさん
04/03/21 20:56ID:???しーどんぶり、じゃねえの？
0675nobodyさん
04/03/21 21:10ID:???url は うるる、
ってのは、もはや常識ですね
0676T.K
04/03/21 22:36ID:???0678nobodyさん
04/03/21 22:46ID:???0679T.K
04/03/21 22:57ID:???／￣ （ ・∀・）⌒＼ 待ちくたびれたぞ
__ / ＿| | |
ヽヽ / / ＼ | | ,,,,,,,iiiiillllll!!!!!!!lllllliiiii,,,,,,,
＼＼| |＿＿__| .| | .,llllﾞﾞﾞﾞﾞ ﾞﾞﾞﾞﾞlllll,
＼/ ＼ | | .|!!!!,,,,,,,, ,,,,,,,,,!!!!|
| ヽ＿「＼ | |､ | ﾞﾞﾞﾞ!!!!llllliiiiiiiiiilllll!!!!ﾞﾞﾞﾞ .|
| ＼ ＼――､. | | ヽ .| .ﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞ |
| / ＼ "-､, ｀| | ヽ | |
＿／ / "-, "' （_ ヽ ヽ .| |
／ ＿_ノ "'ｍ__｀＼ヽ_,,,, ヽ | |
｀ー―￣ ヽ､__｀/ー_,,,, ﾞﾞﾞﾞ!!!!!!!lllllllliii| |
＼ﾞﾞﾞﾞﾞﾞﾞ!!!!!lllllllliiiii| |
＼ ヽ | |
ヽ ＼ | |
| ＼.| |
｀ヽ､,,＿ノ| |
ﾞﾞ!!!,,,,,,,, ,,,,,,,,,!!!ﾞﾞ
ﾞﾞﾞﾞ!!!!llllliiiiiiiiiilllll!!!!ﾞﾞﾞﾞ
／.// ･ｌ|∵ ヽ＼
0680nobodyさん
04/03/22 02:26ID:???ことをしたいので無い知恵絞って以下のような事を考えてみたのですが
これだと予想していないような桁には対応できませんしやり方が不細工かなと思いまして。
いつもは動けばいいが信条なのですがもう少しスマートに書けないか悩んでいます。
数字桁数を操作する関数などがあればいいのですが。お知恵を拝借できないでしょうか？
if ($price <= 999){
$tempPrice = (int($price / 10)) * 10;
}elsif($price > 999 && $price <= 9999){
$tempPrice = (int($price / 100)) * 100;
}
0681nobodyさん
04/03/22 02:32ID:???0683nobodyさん
04/03/22 03:28ID:???$d = 2;
foreach (@n) {
s/(?<=.{$d}).+/'0' x length $&/eg;
print "$_\n";
}
0684nobodyさん
04/03/22 03:29ID:???$1 . ('0' x length $2);
今すごく適当に思いついて作っただけ。
0685nobodyさん
04/03/22 06:57ID:???my $mask = 10**(length($price)-$position);
$price = int($price/$mask)*$mask if ($mask > 0);
0686nobodyさん
04/03/22 08:04ID:???0688nobodyさん
04/03/22 08:43ID:???my $digit = 2;
foreach my $price (@num) {
my $len = length $price;
$price -= $price % (10 ** ($len - $digit)) if $digit < $len;
print "$price\n";
}
>>685
if に頼らずコンピュータの演算誤差なんかで丸めることって出来ませんかね？
0689nobodyさん
04/03/22 09:48ID:UDEoFMoyuse Jcode;
$a="abc";
Jcode::tr(\$a, '0-9A-Za-z', '０-９Ａ-Ｚａ-ｚ');
print "Content-Type: text/html\n\n";
print $a;
上記CGIスクリプトが、
E200042 "Not an ARRAY reference at C:/Perl/site/lib/Jcode.pm line 439."
というエラーになってしまいます。なにがいけないのでしょうか。
perl 5.6、Jcode.pmは0.82 です。
このスクリプトは、半角文字を全角にするためのテストで書いたもので、
実際には$a内の全ての半角を全角にしたいです（記号・カタカナ等も）。
そういった処理を一発でできる関数ってのは無いですよね？
0690685
04/03/22 10:41ID:???$maskは0にならないから、if文要りませんでした。
(%演算子では0で剰余を取ろうとして、上手くいきませんね。
if文を消すなら、三項演算子でごまかすという手もありますが、小手先技ですね…)
my $position = 2;
my $mask = 10**(length($price)-$position);
$price = int($price/$mask)*$mask;
>>689
# スクリプトがEUC-JPで書かれているとして
$a = Jcode->new('abc')->tr('0-9A-Za-z', $replacement);
0691nobodyさん
04/03/22 10:43ID:???> $a = Jcode->new('abc')->tr('0-9A-Za-z', $replacement);
$a = Jcode->new('abc')->tr('0-9A-Za-z', '０-９Ａ-Ｚａ-ｚ');
でした。
0692689
04/03/22 11:36ID:???# 半角を全角に(英字はさらに大文字に)変換
$jcode = Jcode->new(\$_[0]);
$jcode->tr('0-9A-Za-z', '０-９Ａ-Ｚａ-ｚ');
$jcode->tr('ａ-ｚ', 'Ａ-Ｚ');
$jcode->tr(' !#$%&()=^~\|@`[{;+:*]},<.>/?_-', ' ！＃＄％＆（）＝＾￣￥｜＠‘［｛；＋：＊］｝，＜．＞／？＿－');
$jcode->h2z->euc;
}
>>690を参考にして、関数にしてみました。
オブジェクト指向な書き方をしないとだめなんですね。
これですべて全角になるでしょうか？記号を変換しているところは思いつく記号（'と"以外）を
やみくもに列挙しただけで、足りないものがあるかも知れず不安です。
ハイフンは最後にかかなきゃいけないのに気づくのに苦労しました（今後のためのメモ）
また、最後の一行で半角カナを全角にしてるんですが、
「ﾀﾞ」は「タ゛」になっちゃいますか？と思って実験したら、
ちゃんと「ダ」になりました（今後のためのメモ）。
0693680
04/03/22 12:24ID:fR/XRXq7>>685
なるほど！こういうやり方もあるんですね。悩んでいただけに目からウロコと言うか。
ありがとうございました。スマートだなぁ。
0695nobodyさん
04/03/23 05:07ID:???open (OUT,">$num.dat");
print OUT $buffer;
close (OUT);
として新規ファイル名$num.datに$bufferの内容を書き込むとき、
パーミッションはいくつになってるのでしょうか？
また、こういう風なことをするとき、みなさんex1のようにchmodで変更してると思うのですが、
ex2のようにopenした直後にchmodで変更ってことは出来ないのでしょうか？
(ex1のようにしたくない理由がちょっとありまして・・・。)
#------------------------------ex1
open (OUT,">$num.dat");
print OUT $buffer;
close (OUT);
chmod 0606,"$num.dat";
#------------------------------
#------------------------------ex2
open (OUT,">$num.dat");
chmod 0606,OUT; # これは無理なら chmod 0606,"$num.dat";
print OUT $buffer;
close (OUT);
#------------------------------
ディレクトリなら確か作るときに第二引数でmodeを渡せたと思うのですが、
ファイルは出来ないようでちょっと困ってます。
0696nobodyさん
04/03/23 05:14ID:???http://perldoc.com/perl5.8.0/pod/func/sysopen.html
0700nobodyさん
04/03/23 08:31ID:???my @num = qw/1 -1 11 -11 111 1111 11111 111111 -111111/;
my $digit = 2;
foreach my $price (@num) {
my $len = length(my $p_price = abs $price);
$p_price -= $p_price % 10 ** ($len - $digit) if $digit < $len;
$price = $p_price * ($price <=> 0);
print "$price\n";
}
0701nobodyさん
04/03/23 14:54ID:???0をとり省くのはどのような方法があるでしょうか？
0702nobodyさん
04/03/23 14:54ID:awaWqGNMsub hogehoge{
my @myarray;
（中略）
$myarray[5][0] = 'foo';
$myarray[5][1] = 'bar';
$myarray[5][2] = 'hoge'
・
・
・
}
と同じようなことをpushを使ってやりたいのですが、
どうすればいいのでしょう？
試しに
push ($myarray[5] , 'foo');
のようにやると、
「Type of arg 1 to push must be array (not array element) at」
と怒られてしまいます。
0705nobodyさん
04/03/23 15:00ID:???push @{$myarray[5]}, qw(foo bar hoge);
リファレンスわかってて、なんでデリファレンスわからんかなあ
0707706
04/03/23 15:03ID:???一つ目の引数
0709nobodyさん
04/03/23 16:22ID:???最後に print $template->output;で
ブラウザに表示するのが普通ですが、
これを、HTML全体を変数に格納する方法はないでしょうか？
0710709
04/03/23 16:39ID:???my $foo = $template->output;
でOKですた。。。
■ このスレッドは過去ログ倉庫に格納されています