A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
> print "$nameさんの金額は合計$kyaku{$name}[4]",
> join( ',', keys %{$kyaku{$name}[1]}),"円です<br>\n";
この結果が
> cocoa23さんの金額は合計5200,1800円です
だと思いますが、1つ確認を。
join()とは、何をどうするための物ですか?
そして、何をどうしたいのですか?
# 何をどうしたいかはわかりますが、質問者さんに再確認してもらうためです。
この回答への補足
&fl('lwa_que.lock');
open(F,"$ptfile") || &print_error("ファイルオープンエラー。");
@raiten = <F>;
close(F);
unlink("$lockdir/lwa_que.lock");
my %kyaku;
for( @raiten ){
my @dat = split /<>/;
$kyaku{$dat[1]} += $dat[3];
}
# 集計結果を出力
print "$_さんの振込み金額は合計で$kyaku{$_}円<br><hr>\n" for( sort keys %kyaku );
これでできました ありがとうございます
あと$_さんと 名前をクリックすると その方の詳細が出るように
<A href="xxxx">$_さん</A>とは できないのでしょうか?
No.1
- 回答日時:
まずハッシュを作成しておく。
データを一行読み込んで、名前をハッシュのキーとして金額を可算する。
foreach文あたりで出力。
CGIに慣れてないのなら、コンソールプログラムでテストしてからCGIにしてみるといいでしょう。
この回答への補足
&fl('lwa_que.lock');
open(F,"$ptfile") || &print_error("ファイルオープンエラー。");
@raiten = <F>;
close(F);
unlink("$lockdir/lwa_que.lock");
my %kyaku;
foreach (@raiten){
my ($no, $name, $money, $kind) = split /<>/;
unless($kyaku{$name}){ $kyaku{$name} =[0, {}]; }
$kyaku{$name}[0] += $money;
$kyaku{$name}[1]{$kind}++;
}
# 集計結果を出力する。
foreach my $name (keys %kyaku){
print "$nameさんの金額は合計$kyaku{$name}[4]",
join( ',', keys %{$kyaku{$name}[1]}),"円です<br>\n";
}
こんな感じでやってみましたが
金額が合計されません
arisaさんの金額は合計1500円です
hitozumaさんの金額は合計2200,2000円です
cocoa23さんの金額は合計5200,1800円です
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの条件付き書式 個人シートを参照して集計シートに色付けしたい 1 2023/06/22 00:39
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- Excel(エクセル) 【エクセル関数】複数条件に該当する場合、別の列の数値を合算する。 9 2022/07/09 08:46
- スーパー・コンビニ ずっと前の出来事なのですが、相談させて下さい。 ある日コンビニにいって商品を3つ購入しました。レジに 2 2022/04/24 11:11
- Visual Basic(VBA) VBAコードで質問があります 2 2022/10/20 15:27
- Excel(エクセル) ピボットテーブルの表示変更の仕方 初心者なので、的外れな質問だったらすみません 受注日ごとに商品名と 1 2022/04/26 23:23
- Amazon amazonで、自分が希望する値段ぴったりの商品を見つける方法ってありますか? 3 2022/07/31 02:28
- docomo(ドコモ) Amazonでd払いで商品を購入しました。 3 2022/10/10 03:29
- Excel(エクセル) グループの最後の行に書式、計算式なども同じ行を追加するマクロを教えてもらえませんか。 7 2022/05/18 10:13
- クレジットカード 楽天カードのサポートが不便なのは何故? 1 2023/02/20 11:03
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ファイル名変更プログラム
-
perl ヒア文(print <<"EOM" ...
-
SUN BBSの改造方法
-
wordの数式について 定積分を書...
-
ラジオボタンが両方とも選択で...
-
「value」に2つの値をセットす...
-
チェックボックスの返す値
-
INPUT TYPE
-
select値をhiddenのvalueに渡し...
-
WEBページを強制的に横画面で見...
-
チェックボックスで選択した内...
-
Javascriptの変数をCGIに送る方法
-
チェックボックスでのvalue値の...
-
チェックボックスとセレクトボ...
-
人気投票?クリックカウンター?
-
チェックボックスグループの一...
-
postデータのあるページの再表示
-
ラジオボタンを選択済みにする...
-
EXCELとの連携
-
javascript ColorBoxの最大縦幅...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
SUN BBSの改造方法
-
perlで書いたcgiでsqliteの使い...
-
tracert ができない原因
-
入力フォームに全角・半角スペ...
-
CGIメールフォームの件名について
-
Perlでuse socketを使用してフ...
-
電話番号を読み込むプログラム...
-
CGI(Perl)内での必須項目チェ...
-
Windows7でVBScriptによるネッ...
-
wordの数式について 定積分を書...
-
ラジオボタンが両方とも選択で...
-
select値をhiddenのvalueに渡し...
-
「value」に2つの値をセットす...
-
チェックボックスの返す値
-
INPUT TYPE
-
WEBページを強制的に横画面で見...
-
[HTML]プルダウンメニューの横...
-
VB.net データーグリッドビュー...
-
別formのhidden項目を自form値...
-
FORMのselectの選択肢を最初か...
おすすめ情報