MikoのPCあれこれ♪

Word、Excel、Flash、HTML、JavaScriptなど・・Mikoの備忘録?

Entries

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

13_1119 大喜利研究会

1119_cgi表示結果
13_1119 my_menu.cgi

###############################
#!c:/perl/bin/perl.exe
require '../cgi-lib.pl';
print &PrintHeader;

$year=25;
$stringfile='filename.dat';
#---データーの読み取り
open(IN, "<$stringfile");
@xx = ;
$nagasa=@xx;
close (IN);

###--- textarea用文字列作成
foreach $_(@xx){ #配列を文字列に変える
$xyz.="$_";
}

###--- 2次元配列作成
foreach $yy(@xx){
chomp $yy; #行末尾の\nを削除
@x=split(/\,/,$yy);
$p_[$countyy]=@x;
foreach $y(@x){
$program[$countyy][$county]=$y;
$county++;
}
$county=0;
$countyy++;
}

###############################
#---table3表示 tableで表示する
for($j=0;$j<$nagasa;$j++){
for($i=0;$i<$p_[$j];$i++){
$jj=$j+1;$ii=$i+1;
$program[$j][$i]=~ s/\///g;
$kk="//$program[$j][$i]";
$k0=substr($program[$j][$i],0,1);
$k1=substr($program[$j][$i],1);
$kk="/$k0/$k1" if($k0 =~ m/^[a-z]/);

$jj$ii$kk;
}

###############################

ryouri_janru.cgiiframeの中で表示する

###############################

textarea で表示する

$xyz

###############################

#---filename.dat
10.22,b/とりピリカラ焼き,600,
10.23,d和風ハンバーグ,700,
10.24,i黒酢酢豚,900,
10.25,a牛肉なす炒め,800,

###############################

#---ryouri_janru.cgi

###---テーブルに入れる ryouri_janru.dat(縦に並べた時)
for($i=0;$i<4;$i++){
for($j=0;$j<4;$j++){
$program[$i*4+$j][0]=$program[$i*4+$j][1];
}
}

###############################

#---ryouri_janru.dat
a,牛豚料理
b,鳥料理
c,海鮮料理
d,オム/バーグ
e,うなぎ料理
f,魚料理
g,寿司
h,野菜/豆腐
i,中華料理
j,チャーハン
k,ラーメン
l,点心/お好焼
m,牛丼
n,パスタ/カレー
o,うどん/そば
p,トースト/ピザ

###############################

#---テーブルに入れる ryouri_janru.dat(4行に並べた時)

for($i=0;$i<$nagasa;$i++){
for($j=0;$j<$p_[$i];$j++){
$program[$i][$j];
}
}

###############################

#---ryouri_janru.dat

a,牛豚料理,b,鳥料理,c,海鮮料理,d,オム/バーグ,
e,うなぎ料理,f,魚料理,g,寿司,h,野菜/豆腐,
i,中華料理,j,チャーハン,k,ラーメン,l,点心/お好焼,
m,牛丼,n,パスタ/カレー,o,うどん/そば,p,トースト/ピザ,

###############################



Comment

Comment_form

管理者のみ表示。 | 非公開コメント投稿可能です。
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。