スポンサーサイト

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

パソコン教室

今回のパソコン教室はのポイントは
#空欄を追加して書きだすーーーーーー
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]";

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

FC2Blog Ranking

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

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

KUMIROM

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

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