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

Perlコーディング初心 ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

215:nobodyさん
 08/03/22 13:06:15 
間違えた、こうだ。 
 
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]; 
}

216:nobodyさん
 08/03/22 14:55:10 
ブルートフォースアタックに使えそうなコードだなw

217:138
 08/03/24 22:18:54 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で数値が入りません。 
どうしてでしょうか？

次ページ