全部書くのも大変だなーとか思ってしまって、ある程度はしょりつつ、要所はガッチリと押させて進めていきますです。 まずは「選択」から再開。 @book = ('Windows', 'Linux', 'Macintosh', 'BeOS', 'DOS', 'Unix'); foreach (@book) { if (/Windows|Macintos…

最近全然Perlのお勉強が進んでいませんね…。反省。 3月ー4月はどーしても年度の変わり目でドタバタしてよくありません。 といってもそれはいいわけでしかないので、今月中に今のテキストを制覇できるように取り組んでいこう。よし。

正規表現のお勉強用にこんなdatファイルを作ってみた。 aiueo.dat あいうえお いうえおあ うえおあい えおあいう おあいうえ ふざけすぎかな。 で、まずは1つ目。 指定した文字で始まるかどうかの判定 #マッチ演算子 while (<>) { if (/^あ/) { print "「あ…

うー、10日以上前回から経過していて記憶が…。 さて、まずは「パターンを含まないこと」を確認するパターン結合演算子から。 #パターン結合演算子 while (<>) { if ($_ !~ /NT/) { print "ない $_"; } else { print "ある $_"; } } 前回やった"=~"が「パター…

本日からパターンマッチに突入。まずはシンプルなマッチ演算子から。 # マッチ演算子 while (<>) { if (/9/) { print "正解： $_" } else { print "不正解： $_"; } } これをオプションをつけて実行すると以下のようなかんじ。 E:?Perl>perl match1.pl Windo…

phpspotさんがフリーツールとして公開しているPHP Editorってすごそうだ…。すごい便利そうだし、使い勝手とかアプリとしてのセンスもよさそうなかんじ。 http://phpspot.net/php/このソフトの魅力だけでPHPに浮気してしまいそう…(^_^;) とはいえ、手を出した…

なんかヘンな区切りで時間をあけてしまったためになんか入り込みづらい…。 まずはforeach修飾子から。 @touhoku = ('青森県','秋田県','岩手県','山形県','福島県'); print "東北にある県は…?n"; print "$_?n" foreach @touhoku; # @touhokuから1つずつ抽出 …

まずはfor文から… # ループ処理−for文 for ($count=0; # カウンタの初期化 $countスカラー変数の値を1つ増やす算術演算子 { print "$count\n"; } $count++は"$count = $count + 1"と同じ結果を生みますが、カウンタを1つずつ増加させる操作はよくでてくるこ…

なんとなくオモシロくなってきた(^^♪ まずは「無名ファイルハンドル」から。 # 無名ファイルハンドル # <>っての省略形なのね $ken = <>; # 指定ファイルから1行文字列として読み込み／改行コードまでが1行 print "データファイル $ARGV を読み込みます。?n"…

今日は連想配列から。フルーツを表示するたびにビープ音がするようにしたのはただの冗談(^^♪ #連想配列 %fruits = ("赤"=>"りんご", "紫"=>"ぶどう", "黄"=>"バナナ", "緑"=>"キウイ"); print "フルーツ全部：%fruits\n"; print "フルーツ全部：", %fruits, …

まずはこんなところから… # コメント文字 print "はじめてのPerlスクリプトです \n"; # ここにコメントも入れられる つづいて値を直接入れての計算 print "加算：1+2=", 1+2, "\n"; print "減算：3-4=", 3-4, "\n"; print "乗算：5*6=", 5*6, "\n"; print "…

仕事以外のITをお勉強しようプロジェクト第１弾？ …として、Perlのお勉強を始めることにしました。すっかりこっちにブログは移動してしまったので、将来的には自分のドメインアカウントサイトを使って色々と遊んでみたいなぁと思っています。 まずはこんなと…