パソコン教室

Perlは、面白いけれども難しいです
毎回、Perl問題を作るのが宿題になりました
ない知恵を絞り、3問づつ作成してます。
公開はしません、簡単問題すぎて公開できませんが正しいです。

復習をしました。
指定語を指摘するプログラムです
&ReadParse(¥%ANS);
$a=$ANS{shitsumon};
@pp=split(/¥n/$a);
@xx=("死","悪魔","ヘロイン","密売","殺人");
$c="";
foreach $i(@pp){
for($j=0;$j<4;$j++){
$aa=index($i,$xx[$j],0);
if($aa!=-1){
$c=$xx[$j];
message2="次の文に不適切な言葉が入っています";
}
}
}
<<自分なりの解釈>>
3行は決まり語
配列xxに指定語を格納します
変数cを空にします
本文のなかを指定語、おのおのについて調べます。
指定語が存在しないことがない場合には
文を1つにして表記します

プログラムを勉強してると、ハッカーにでもなるのと言われることもありますが、
そんな頭脳はありません
私たちの勉強していることは基本中の基本、現時点でプログラムをアップすることすら、
先生から許可されていません。
パソコンの世界は広大で優れた方が渦巻いています。

コメント

Secre

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

FC2Blog Ranking

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

KUMIROM

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

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