スポンサーサイト

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

パソコン教室

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

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

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

KUMIROM

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

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