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ランキング
-
エクセルで集計したい。
-
ホームページでCGIのフォームを...
-
/bin/awk '{print $5}'ってどう...
-
生成AI画像について
-
サーバーのエラーでおしえてく...
-
CUIとGUIについて
-
インターネット閲覧履歴の訪問...
-
めちゃきれい
-
number 改行が追加できない
-
3DCG
-
ホームページにメールフォーム...
-
cgi アクセス制限 エラー
-
CGIの記述について教えてくださ...
-
CGIの設置が分かりません・・・
-
ホームページにCGIを設置したの...
-
ホームページにCGIを設置したの...
-
ホームページの事でおしえてく...
-
さくらサーバーにcgiフォームを...
-
一番簡単なCGI,掲示板の設置教...
-
(フリーの)ツリー掲示版CGI、...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
perlで書いたcgiでsqliteの使い...
-
SUN BBSの改造方法
-
tracert ができない原因
-
日本語文字化け(GETメソッド?)
-
チェックボックスでのor検索
-
入力フォームに全角・半角スペ...
-
ネットワークサービスについて
-
【ASP.NET MVC】フォームヘルパ...
-
【CGI】画像の表示の仕方【Mini...
-
DataGridViewの行取得
-
CGI.pmを利用のテーブル表示に...
-
掲示板スパム対策(改造)ガー...
-
ファイル名変更プログラム
-
CGIで合計を書き出す方法
-
同じname属性の結果を1行にまと...
-
禁止ワードの設定
-
フォーム送信でログに保存
-
Windows7でVBScriptによるネッ...
-
perl ヒア文(print <<"EOM" ...
-
Webアプリケーションを作りたい!
おすすめ情報