スポンサーサイト

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

パソコン

パソコン教室はcgiです
昇順に並び替えをするがテーマでした

if($aa[0] eq '月別合計'){
foreach $_( sort {$a<=>$b} keys %kei ){
$mojire.="$_=$kei{$_}\/$kai{$_}\:";
$js02.="$_\,$kei{$_}\,$kai{$_}\,";
}
}else{
foreach $_(sort {$a cmp $b} keys %kei ){
$mojire.=$kai{$_}!=1?"$_=$kei{$_}/$kai{$_}\:":"$_=$kei{$_}:";
$js02.="$_\,$kei{$_}\,$kai{$_}\,";
}
}
スポンサーサイト

パソコン教室

今回のパソコン教室はのポイントは
#空欄を追加して書きだすーーーーーー
if($aa1[0] ne ''){
@yyy=(",期間$md1~$md2,合計,$kin1,\n");#挿入行
@xx1=@zzz[0..$aa1[1]-1];#全データの前半
@xx2=@zzz[$aa1[1]..$nagasa-1];#全データの後半
push (@xx1,(@yyy));
push(@xx1,(@xx2));
open(OUT,">$stringfile");
print OUT @xx1;
close (OUT);
}

パソコン教室

パソコン教室で曜日ファィルを使わず、use Time::Local;を使うよう書き換えたら、エラーになりました
perlの判る皆さま、ミスの原因を教えてください宜しくお願いします
関係する部分のみ下記に記載しました

$year=2014;
@you=('日','月','火','水','木','金','土');


#曜日ファィル不要関数
sub get_tm{
my $year=shift;
my $month=shift;
my $day=shift;
return timelocal(0,0,0,$day,$month-1,$year-1900);
}


#曜日書き込むーーーーー
if($i==0){
if($program[$j][0] eq ''){
$kk="//$program[$j][0]";
}else{
@md=split(/\./,$program[$j][0]);
$tm=get_tm($years,$md[0],$md[1]);
$yo=(localtime($tm))[6];
$kk="/$you[$yo]/$program[$j][0]";

パソコン教室

なんだかんだで、ブログ更新が疎かになり広告が出てしまいました
先回、先生の作った問題を元に作り宿題として出しました

sozai.datの中身は
すき焼き,とんかつ定食,ざるそば,
焼きそば,親子どんぶり,

#!c:/perl/bin/perl.exe
require '../cgi-lib.pl';
print &PrintHeader;
$stringfile = 'sozai.dat';
open(IN,"< $stringfile");
@shu = <IN>;
close(IN);

chomp (@shu);
print @shu;

$a=join('',@shu);
print $a;



答え
すき焼き,とんかつ定食,ざるそば,焼きそば,親子どんぶり,
すき焼き,とんかつ定食,ざるそば,焼きそば,親子どんぶり,


解説
 どちらも同じ答えにみえますが、内容が違います

 chompは、配列shuの改行マークをとる命令
 一列ではあるが、3つの要素の配列、2つの要素の配列2つを表わす

 joinは、配列を文字列に入れる
一列の文字列です
 




パソコン教室

久々の更新です
今回は、perlのデータの読み込み、書き込み、新しいデータの読み込みでした

まずは、filename.datの読み込み命令
open(IN,"<filename.dat");
@xx=<IN>;
@asa=@xx;
close(IN);

filename.datをfilename2.datに書き込む命令は
open(OUT,">filename2.dat");
print out @sas;
close(OUT);

filename2.datの読み込み命令は
open(IN,"<filename2.dat");
@xx=<IN>;
$r=@xx
close(IN);

綺麗で美しい式ですね。
ダンス
こんなに動けたらいいな・・・・
ポチして下さい
ブログランキング参加してます ポチして下さいお願いします

FC2Blog Ranking

クリスマスカウントダウン

powered by ブログパーツの森
リンク
リンク用バナー
banner
banner
banner
banner
banner
クリスマスカレンダー
プロフィール

KUMIROM

Author:KUMIROM
FC2ブログへようこそ!
アバーターはツカエルサイト
作りました

最新記事
BGM
再生ボタンを押すと音楽がながれます
サウンドファィルを再生できませんでした
月別アーカイブ
カテゴリ
アクセスカウンター
おすすめサイト
アフィリエイト・SEO対策
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。