パソコン教室

パソコン教室で曜日ファィルを使わず、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]";

コメント

Secre

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

FC2Blog Ranking

プリザーブドフラワー時計
インテリア 雑貨 エコロジー
リンク
リンク用バナー
banner
banner
banner
banner
カレンダー 月
プロフィール

KUMIROM

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

最新記事
BGM
再生ボタンを押すと音楽がながれます
サウンドファィルを再生できませんでした
月別アーカイブ
カテゴリ
アクセスカウンター
おすすめサイト
アフィリエイト・SEO対策