希望した番号に更新マークを表示する
Perlで組んでいます。
メニューがあり、コンテンツを更新するとNew！とつけたいです。
1.お知らせ
2.ニュース
3.BLOG New!
・
・
・
管理画面を作り、
チェックボックスをメニューの数作りチェックしたナンバーを
カンマ区切りで記録するところまではOK。
たとえば、2,4,6など。
それを取り出して2番目、4番目、6番目のメニューにNew！マークを
つけたいのですが、いい案が思いつきません。
いま途中ですが、参考程度に見てください。
かなり中途半端な作りになっています。
↓↓
%menu = ("0" => "", "1" => "", "2" => "", "3" => "", "4" => "", "5" => "", "6" => "", "7" => "", "8" => "", "9" => "");
foreach $eachman (@txt) {
(@menu) = (split(/,/, $eachman));
}
#どの連想配列に更新マークをつけるか？
if ( $menu == 0 ) {
$span[0] = $sp;
} elsif ( $menu == 1 ) {
$span[1] = $sp;
} elsif ( $menu == 2 ) {
$span[2] = $sp;
} elsif ( $menu == 3 ) {
$span[3] = $sp;
} elsif ( $menu == 4 ) {
$span[4] = $sp;
} elsif ( $menu == 5 ) {
$span[5] = $sp;
} elsif ( $menu == 6 ) {
$span[6] = $sp;
} elsif ( $menu == 7 ) {
$span[7] = $sp;
} elsif ( $menu == 8 ) {
$span[8] = $sp;
}
#＝メニュー画面抜粋＝＝
<p><A HREF=\"$home/myne/">1.お知らせ</A>$span[0]</p>
<p><A HREF=\"$thisurl?>2.ニュース</A>$span[1]</p>
<p><A HREF=\"$thisurl?mycmd=>3.blog</A>$span[2]</p>
としています。連想配列を使ってシンプルに仕上げる方法
あるでしょうか？
お礼
はじめまして。 返事が遅くなり申し訳ありません。 とても参考になりました。 さっそく実行したいと思います。 ありがとうございました。