トップページ⇒php
1001コメント322KB

Perlコーディング初心者質問スレ Part 57

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん2008/02/25(月) 19:25:51ID:???
Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

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

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

お勧めサイトは >2 以降

前スレ　http://pc11.2ch.net/test/read.cgi/php/1189939783/
過去ログ倉庫　ttp://user.ftth100.com/mirrorhenkan/perl/
0166nobodyさん2008/03/20(木) 13:43:46ID:???
>>163
俺には理解不能だ
もうちと、噛み砕いておしえてくれ
01671622008/03/20(木) 13:44:57ID:???
みなさん、レスありがと。
今、飯食ってるから
終わったら試してみる。
0168nobodyさん2008/03/20(木) 13:54:36ID:???
>>164
意図した動きになってる。
iもｊもちゃんと入れ子になって
ループしている
0169nobodyさん2008/03/20(木) 13:56:38ID:???
>>164
あ！ごめんなさい
ちと、おかしい
0170nobodyさん2008/03/20(木) 14:02:32ID:???
>>165
そうでした。
01711622008/03/20(木) 14:03:22ID:???
皆様、ありがとうございます。
解決できました。

ＰＧ久しぶりなんで、
頭が退化してたようです。
0172nobodyさん2008/03/20(木) 14:11:42ID:???
10 x 10 の箱に連番を入れたかっただけだけど、配列のインクリメントでちとボケてただけですね
まぁ俺もたまに似たようなミスするのであまりコケにできないｗｗｗ
0173nobodyさん2008/03/20(木) 15:57:38ID:???
またお願いします。

見た目の桁数を８桁に揃えたいんです。
先頭は空白にしたいのですが、下記でうまくいきません。

$len = 8 - length($num);
$head = " " x $len;
$txt = $head.$num;

２行目を
$head = "a" x $len;
とすれば、先頭に
"a"は入って、桁が揃うんです。

それとも連続空白を表す記号みたいな物は
あるのでしょうか？
0174nobodyさん2008/03/20(木) 16:03:28ID:???
webブラウザが半角スペースをつぶしちゃうからとかじゃなくて？
0175nobodyさん2008/03/20(木) 16:12:49ID:???
>>174
げ！、ソースを見たらちゃんと空白が入ってました。
ブラウザで表示すると空白がなくなっちゃう。。。
これはなんでですか？
0176nobodyさん2008/03/20(木) 16:43:28ID:???
ブラウザの仕様
0177nobodyさん2008/03/20(木) 17:00:56ID:???
ブラウザで桁をそろえたいなら、表示する部分のフォントを
font-family: monospace;
にしたうえで空白を   にすればいいです。
0178nobodyさん2008/03/20(木) 20:32:02ID:cqY9pHpE
<pre></pre>
01791622008/03/20(木) 22:32:36ID:???
>>178
それは、クライアントの読み込みが遅くなるので
あきらめました。
 にしました。
01801622008/03/20(木) 22:33:29ID:???
& n b s p ;

に、しました。
0181nobodyさん2008/03/20(木) 23:06:14ID:???
「&amp;nbsp;にしました」と書けばok
0182nobodyさん2008/03/20(木) 23:17:39ID:???
>>181
むぅ、また、難しいことを言うな。
明日、調べます。
0183nobodyさん2008/03/20(木) 23:33:13ID:???
>>182
いやいや、難しい話でなく。>>181が言ってるのは
「&amp;nbsp;にしました」と入力して投稿すれば
「&nbsp;にしました」と表示されるからスペース不要ってだけの話だと思うよ。

# でも確か専ブラによって表示が違ったはず。＜エンティティ方面
0184nobodyさん2008/03/21(金) 10:02:10ID:???
nbsp;でも詰まるよ
HTMLでalign=rightのほうがいいんじゃない？
0185nobodyさん2008/03/21(金) 10:37:17ID:???
それはプロポーショナルたからな
桁そろえるのにHTMLのブロック要素を使わなかったり
固定幅フォントを使わないのはバカだゆん
01861572008/03/21(金) 11:32:07ID:???
>>157 です
自己解決決しました。

SQL を実行する前に SET NAMES utf8 を実行する必要があったみたいです。
一旦 SET NAMES utf8 を実行した後で select/insert/etc... を実行しないと
化けてしまうようです。
ナゼ化けるのかは理解できていませんが・・・。
# たぶん utf-8 以外で MySQL から出力しようとして化けてしまうとは思いますが理解できていません。
0187nobodyさん2008/03/21(金) 13:27:45ID:???
ふと>>144の解答で疑問に思ったのですが…

ハッシュ値の並び方が呼び出しのタイミング等で
一致しないのは知ってますが、keys %hash と values %hash の
並び方って必ず組み合わせが一致するのでしょうか？
0188nobodyさん2008/03/21(金) 13:31:00ID:???
keys使ってからをvaluesを使うまでにハッシュの内容を変えなかった場合一致するよ
0189nobodyさん2008/03/21(金) 18:55:25ID:???
どなたか、１０進数を２６進数（使える文字はＡからZ）に変換するサブルーチンを教えてください
0190nobodyさん2008/03/21(金) 21:10:27ID:???
>>189

my $Number10 = 1234; # 10進数

# 2進数
#my @digits = ('0','1');
# 16進数
#my @digits = ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
# 8進数
#my @digits = ('0','1','2','3','4','5','6','7','8');
# 26進数
my @digits = ('A'..'Z');

print &to_base($Number10,\@digits);

sub to_base {
my $num = shift;
my $digits = shift;
my $dignum = @{$digits};
my $result = '';
while ($num > 0) {
substr($result,0,0) = $$digits[ $num % $dignum ];
$num = int ($num / $dignum);
}
return length $result ? $result : $$digits[0];
}
0191nobodyさん2008/03/21(金) 21:33:13ID:???
>>189
sub conv($){
my $alpha = 'A' ;
$alpha ++ for 1 .. $_[0] ;
return $alpha ;
}
printf "%d\t%s\n", $_, conv $_ for 0 .. 200 ;
0192nobodyさん2008/03/21(金) 21:53:29ID:???
191は取り消し
0193nobodyさん2008/03/21(金) 23:12:27ID:???
my $alpha = q{A} ;
my %table2 = map { $_, $_ } 0..1 ;
my %table8 = map { $_, $_ } 0..7 ;
my %table16 = ( ( map {$_, $_ } 0..9 ), map{ $_, $alpha ++ } 10..15 );
$alpha = q{A} ;
my %table26 = map{ $_, $alpha ++ } 0 .. 25 ;

sub trans($$){
　 my %table = %{ shift @_ } ;
　 my $num = shift ;
　 my $int = keys %table ;
　 my $res = q{} ;
　 until( $num / $int <1){
　 $res = $table{ $num % $int } . $res ;
　 $num = int ( $num / $int) ;
　 }
　 return $table{$num}. $res ;
}
for ( 0 .. 1000 ){
　 print $_ . qq{\t}
　 . ( trans \%table26, $_ ) . qq{\t}
　 . ( trans \%table2, $_ ) . qq{\t}
　 . ( sprintf "%b", $_ ) . qq{\t}
　 . ( trans \%table8, $_ ) . qq{\t}
　 . ( sprintf "%o", $_ ) . qq{\t}
　 . ( trans \%table16, $_ ) . qq{\t}
　 . ( sprintf "%x", $_ ) . qq{\n}
　 ;
}
0194nobodyさん2008/03/22(土) 07:21:59ID:???
>>190-193

ありがとうございます。
さっぱり分かりませんが、
使ってみます。
0195nobodyさん2008/03/22(土) 07:40:27ID:???
>>190
教えて頂いて申し訳ないですが、
Zの次がBAになってしまいます。
Zの次はAAにしたいのです。
0196nobodyさん2008/03/22(土) 08:02:49ID:???
>>195
それだったら191使えば？
0197nobodyさん2008/03/22(土) 08:39:40ID:???
>>196

>>191は取り消しって書いてあるから、
試してなかったんだけど、
試したら、うまくいってると思う。
なんで、取り消したんだろう？？？
0198nobodyさん2008/03/22(土) 08:46:28ID:???
>>197
Excel式の26進数もどきだから。
0199nobodyさん2008/03/22(土) 08:53:15ID:???
>>198
よく分からんが、ありがと。
しかし、>>191の処理速度は遅いね。
0200nobodyさん2008/03/22(土) 09:14:56ID:???
>>193
は、なんかエラーが出て動かないorz
0201nobodyさん2008/03/22(土) 09:21:39ID:???
>>190をなんとか改造できないだろうか。
ちと、考えてみる。
でも、自分には無理な気がする。
0202nobodyさん2008/03/22(土) 09:22:10ID:???
>>191は、26進数じゃない。使うな。
10進数676は、26進数では、
676/26 = 26　余り0
26/26 = 1　余り0
で、1 0 0（BAAが正しい）が、
>>191だとZAになる。

>>200
インデントの為の全角スペースを除け。

0203nobodyさん2008/03/22(土) 09:38:25ID:???
>>202

ありがと。
>>191は、遅い理由も含めて、使用しないことにする。
>>191さん、申し訳ない。
0204nobodyさん2008/03/22(土) 09:44:17ID:???
>>193も

zの次がbaになるorz
0205nobodyさん2008/03/22(土) 09:45:28ID:???
>>203
202=191=193=俺なので気にするな。
0206nobodyさん2008/03/22(土) 10:17:00ID:???
Math::BaseCalcモジュールでも使えば良いんでないか？
0207nobodyさん2008/03/22(土) 10:39:29ID:???
>>206
まず、インストールのいかたが分からないので、
そこから、調べてみる
0208nobodyさん2008/03/22(土) 10:39:45ID:???
インストールのしかた
0209nobodyさん2008/03/22(土) 10:54:33ID:???
ppm install Math-BaseCalc
0210nobodyさん2008/03/22(土) 10:57:42ID:???
インストールできました。

$calc = new Math::BaseCalc(digits => ['a'..'z']);
$ans = $calc->to_base($number);

これもzの次にbaが出るorz
0211nobodyさん2008/03/22(土) 11:22:42ID:???
当り前だろ、A=0 B=0扱いなんだから
おまいがやりたい事は26進とは言わない
0212nobodyさん2008/03/22(土) 11:23:35ID:???
B=1だ orz
0213nobodyさん2008/03/22(土) 11:32:56ID:???
うぅーん、そうなると
私が意図したものは
どう書けばいいのだろうか？？？
0214nobodyさん2008/03/22(土) 12:54:31ID:???
出来た！実に単純だった。

my @digits = ('A'..'Z');

print &to_base($Number10,\@digits);

sub to_base {
my $num = shift;
my $digits = shift;
my $dignum = @{$digits};
my $result = '';
while ($num > 0) {
substr($result,0,0) = $$digits[ $num % $dignum ];
$num = int ($num / $dignum) - 1;
}
return length $result ? $result : $$digits[0];
}
0215nobodyさん2008/03/22(土) 13:06:15ID:???
間違えた、こうだ。

my @digits = ('A'..'Z');

print &to_base($Number10,\@digits);

sub to_base {
my $num = shift;
my $digits = shift;
my $dignum = @{$digits};
my $result = '';
while ($num >= 0) {
substr($result,0,0) = $$digits[ $num % $dignum ];
$num = int ($num / $dignum) - 1;
}
return length $result ? $result : $$digits[0];
}
0216nobodyさん2008/03/22(土) 14:55:10ID:???
ブルートフォースアタックに使えそうなコードだなw
02171382008/03/24(月) 22:18:54ID:wHKnZ0l2
お世話になっております。
スイマセン。色々試しましたがヤハリ分からないのでコチラに書き込みをさせていただきます。
「名前\t数\t」というデータ（@arrangeData）から
$hash{名前}=合計数とのhashデータを作成したいのです。
# データを宣言
foreach(@arrangeData){
my @splitdata = split(/\t/);
if(defined $hash{$splitdata[0]}){
}else{
$hash{$splitdata[0]} = 0;
}
}
my $key;
print "取得した数を数える。<br>";
# 取得した数を合計する。
foreach(@arrangeData){
my @splitdata= split(/\t/);
foreach $key ( keys %hash ) {
if($key eq $splitdata[0]){
print "$hash{ $key } ni $splitdata[1] tumari $hash{$key} += $splitdata[1];wo tasu<br>";
$hash{$key} += $splitdata[1];
print "$key : $hash{$key}<br>";
}
}
}
とのプログラムでは何故か
$hash{$key} += $splitdata[1];
print "$key : $hash{$key}<br>";
が0で数値が入りません。
どうしてでしょうか？
0218nobodyさん2008/03/24(月) 22:49:38ID:???
レスあっただろ
0219nobodyさん2008/03/24(月) 22:52:29ID:???
>>138
#!/usr/bin/perl -w
use strict;

# use Scalar::Util qw(looks_like_number);
sub looks_like_number { $_[0] =~ /([0-9]+)/ ? $1 : 0 }

my @arrangeData = (
　　"name1\t1\t", "name2\t2\t", "name3\t\t", "name4\t4\t",
　　"name1\t10\t", "name2\t20\t", "name3\t\t", "name4\t40\t",
);

my %hash;
for (@arrangeData) {
　　my($name, $num) = split /\t/;
　　$hash{$name} += looks_like_number($num) ? $num : 0;
}

print "key:[$_] value:[$hash{$_}]\n" for sort keys %hash;
0220nobodyさん2008/03/24(月) 23:29:25ID:???
>>219
その @arrangeData を >>217 のコードに食わせても
　name1 : 11
　name2 : 22
　name3 : 0
　name4 : 44
になるんよね。"name3\tぱ\t" にしたりしても。

データのフォーマットが本人の説明と違うように思う。
という指摘が前回もあったような。
0221nobodyさん2008/03/26(水) 00:57:12ID:???
質問です。ある文字列の集合を集計して出現頻度の高い順に取り出すため、
対象の集合をそのままハッシュのキーにして値を++したんですが、
ハッシュはソートできませんよね。配列を使うしかないでしょうか。
0222nobodyさん2008/03/26(水) 01:00:59ID:???
sort { $hash{$b} <=> $hash{$a} } keys %hash;
0223nobodyさん2008/03/26(水) 01:01:47ID:???
>>221
質問が漠然とし過ぎてるんで、この辺一通り読んでから来て。
http://www.kt.rim.or.jp/~kbk/perl-5.8/perlfaq4.html
http://perldoc.jp/docs/perl/5.8.8/perldsc.pod
0224nobodyさん2008/03/26(水) 01:05:19ID:???
>>222さんのでわかりました！
>>223さんのも読んでおきます！
どうもでした！！
0225nobodyさん2008/03/26(水) 09:29:51ID:LilkylgS
CGI.pmを使ってアップロードされたファイルの途中まで読んで
そこで終わりにしたい場合はどうしたらいいでしょうか？

どうも全部読むか、失敗かの選択しかないみたいなんですが。。
0226nobodyさん2008/03/26(水) 14:32:04ID:???
そんな需要は稀なんだろ
一旦保存してから読み直せば？
0227nobodyさん2008/03/26(水) 14:47:06ID:???
>>225
httpd が受け取る/受け取らないという話でなく、
プログラム中の処理の流れでという意味なら
http://perldoc.jp/docs/modules/CGI.pm-2.89/CGI.pod
の「ファイル・アップロード・フィールドの作成」の項
0228nobodyさん2008/03/26(水) 22:35:17ID:OE9DSfjk
しつもん

定数なんかを別ファイルに置いてそこから取得したい。

---const.pl---
my $x="あいうえお";
1;

---main.cgi---(ヘッダとかは略)
use strict;
require "./const.pl";
print $x;


とするとGlobal symbol "$x" requires explicit package nameという
$xが定義されていませんエラーになります。
use strict外すと$xは空白です。

http://q.hatena.ne.jp/1190815879
とかを見るとどう見てもこれで正しいようにしか思えないのですが何故？


他にこんなところで迷ってる人居ないから環境の問題なんだろうか？
CoLinux,perl5.8.6
0229nobodyさん2008/03/26(水) 22:45:43ID:???
同じ変数でも名前空間が異なれば別物
0230nobodyさん2008/03/26(水) 22:57:38ID:???
>>228
<q cite="http://perldoc.jp/docs/perl/5.10.0/perlfunc.pod#item_my_EXPR_my">
my はリストアップされた変数を、囲っているブロック、ファイル、eval の中で
ローカルな (レキシカルな) ものにします。
</q>

http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlmod.html#Perl_Modules
0231nobodyさん2008/03/26(水) 23:12:52ID:???
my と use strict を取っ払ってみると print されたり。
変数の局所化とか strict とは無縁になるけど。

はてなでやり取りしてる人らはそうしてるんじゃないかな。
0232nobodyさん2008/03/27(木) 01:07:20ID:???
local
0233nobodyさん2008/03/27(木) 01:23:34ID:R/qLdwoI
>>228
hoge.pm

package hoge;
sub kaze_hiita{
"hayaku neru"
}
our $x = 1;
1;

foo.pl
use hoge;
print hoge::kaze_hiita; ->　早く寝る
print $hoge::x; -> 1
$hoge::x = 10;
print $hoge::x; -> 10

関数のときのみ::じゃなくて->が使えるんだぜ。
あと関数の尻尾には();って書いてあると俺はうれしい。
ハッシュで渡すとさらにうれしい。

あと、そゆのがコンフィグを一杯つかうなら
普通に　Auto-Config使うべし。
http://memo.majide.com/index.php?%A1%DAPerl%A1%DBConfig-Auto%A4%CB%A4%E8%A4%EB%C0%DF%C4%EA%A5%D5%A5%A1%A5%A4%A5%EB%A4%CE%C6%C9%A4%DF%B9%FE%A4%DF

当然だがファイル間は文字コードは統一しとけよ
それでしんだひとをみたことがあります。＞俺自身
0234nobodyさん2008/03/27(木) 10:30:16ID:???
>>233
説明で「 -> 1」とかを使ったら混乱するだろｊｋ
0235nobodyさん2008/03/27(木) 12:35:04ID:???
正直すまんかった
234が責任を持って書き換えます。おながい。
0236nobodyさん2008/03/27(木) 12:36:10ID:???
>>228
こうするのさ。

---const.pl---
$x="あいうえお";
1;

---main.cgi---
use strict;
our $x;
require "./const.pl";
print $x;
0237nobodyさん2008/03/27(木) 16:59:46ID:???
our ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
0238nobodyさん2008/03/27(木) 19:04:51ID:???
○|＿||￣　ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
0239nobodyさん2008/03/27(木) 22:17:48ID:???
oL/
02402282008/03/27(木) 23:49:16ID:OO8NUyXN
>>229-236
さっぱりわからんがサンクス。調べてみる
iniファイルやPHPみたいに簡単に取得できる方法はないのかのう・・・
0241nobodyさん2008/03/27(木) 23:56:27ID:???
＞iniファイルやPHPみたいに簡単に取得できる方法
だからモジュール紹介されてるやんけｗｗｗ
0242nobodyさん2008/03/28(金) 00:17:56ID:???
ﾜﾛﾀ
02432332008/03/28(金) 00:26:56ID:???
>>240
感想でいいからくれ
何がさっぱりわからんと思ったか書いてくれれば分かりやすくもういっかい書くよ。

1. リンクを開いたと思うんだが、何が意味不明だと思った(全部ってのはなしで)
2. 何を作っててプログラム暦何年か教えてくれ。

スレ汚しならすまん。ちょっと個人的に技法よりも心理障壁に興味がある。
0244nobodyさん2008/03/28(金) 10:02:51ID:???
新人教育かｗ
0245nobodyさん2008/03/28(金) 15:01:30ID:jpsDmJfA
ログに保存されている日付を以下のように整形するにはどうしたらいいんでしょう？

2008/03/28(金) 09:30:08
↓
08/3/28 9:30
0246nobodyさん2008/03/28(金) 15:33:52ID:???
>>245
sub reduce_date {
　　my @date = split /\D+/, $_[0];
　　$date[0] -= 2000;
　　sprintf '%02d/%d/%d %d:%d', @date[0..4];
}

print reduce_date('2008/03/28(金) 09:30:08');
0247nobodyさん2008/03/28(金) 15:36:13ID:???
use strict;

my $orgdate = '2008/03/28(金) 09:30:08';
my @splitdata = $orgdate =~ /(\d{2})+/g;

printf("%02d/%02d/%02d %02d:%02d:%02d", @splitdata);
0248nobodyさん2008/03/28(金) 15:46:09ID:???
s{\d\d(\d\d/\d+/\d+)[^ ]+( \d+:\d+):\d+}{$1$2};
0249nobodyさん2008/03/28(金) 15:48:45ID:???
指定がないけど %02d/%d/%d %d:%02d を期待されてそうな気がする
0250nobodyさん2008/03/28(金) 15:57:20ID:???
なるほど。

s{\d\d(\d\d)/0?(\d+)/0?(\d+)[^ ]+ 0?(\d+):(\d+):\d+}{$1/$2/$3 $4:$5};
0251nobodyさん2008/03/28(金) 16:45:45ID:???
my @splitdata = $orgdate =~ /(\d{1,2})+/g;
my $datetime = sprintf("%02d/%d/%d %d:%d:%d", @splitdata);
0252nobodyさん2008/03/28(金) 16:49:23ID:???
間違えた

my @splitdata = $orgdate =~ /(\d{1,2})+/g;
my $datetime = sprintf("%02d/%d/%d %d:%d", @splitdata);
print $datetime;
0253nobodyさん2008/03/28(金) 16:59:35ID:???
2008/03/28(金) 09:30:08から08/3/28(Fri) 9:30にするにはどうする？

0254nobodyさん2008/03/28(金) 17:35:24ID:???
>>247-252
もはや、知らない奴が見たら暗号でしかないなw

0255nobodyさん2008/03/28(金) 19:09:17ID:???
javascriptのプログラムをPerlに移植しようとしていて、複合代入演算子の挙動が違うのでとまどっています。
例えばjavascriptで
var c=1;alert(c=c+(c*=10)+(c*=100));
は1011
Perlで
my $c=1;print($c=$c+($c*=10)+($c*=100));
は1020
になります。
そこで、この問題について載っているサイトがあれば教えてください。
0256nobodyさん2008/03/28(金) 20:04:35ID:???
式の途中で値を変えるやり方がまずいとは思うけどね
0257nobodyさん2008/03/28(金) 23:58:05ID:???
加算の評価順は定義されてないという事を知らずに
> var c=1;alert(c=c+(c*=10)+(c*=100));
こう書くのはクズグラマー。
0258nobodyさん2008/03/29(土) 03:54:49ID:???
>>255
http://www.st.rim.or.jp/~phinloda/cqa/cqa7.html
0259nobodyさん2008/03/29(土) 04:33:29ID:???
>>253
年を二桁にしたら100年後に困るぞ！
0260nobodyさん2008/03/29(土) 08:45:59ID:???
>>253
s/^\d\d//;
s/^(\d\d\/)0/$1/;
s/金/Fri/;
s/:\d\d$//;
0261nobodyさん2008/03/29(土) 14:59:25ID:???
>>259
19xxから20xxに変わったが、2桁で困ってないので100年後も同様に困らない。
0262nobodyさん2008/03/29(土) 17:09:47ID:???
>>259
百年後なんて俺等死んでるから気にする必要ないｗ
0263nobodyさん2008/03/29(土) 17:56:41ID:???
そういう屑のせいで困る人たちもいるわけだ
0264nobodyさん2008/03/29(土) 19:27:22ID:???
>>262
医学の進歩は目覚しいから、お前のような底辺奴隷はむしろ死ねないかもしれない。
02652592008/03/30(日) 22:02:27ID:???
ジョークを真に受ける馬鹿がこんなに多いとは・・・
■ このスレッドは過去ログ倉庫に格納されています