- 2008/05/14 12:35【UNIXの基礎の基礎】アクセス権限
- ◆アクセス権限UNIXには一つひとつのファイルやディレクトリに、読み込み権限 ・ 書き込み権限 ・ 実行権限といったアクセスの許可不許可を設定することができます。・読み込み権限 r （Read permission）・・・ファイルを見ることができる権限 （ファイルをコピーする時もこの権限が必要）・書き込み権限 w （Write permission）・・・ファイルを書き換えられる権限 [続きを読む]
|
- 2008/05/11 21:12【UNIXの基礎の基礎】UNIXコマンド
- ◆Telnetで使えるコマンドライン別のPCから遠隔操作で使えるコマンドラインとして、Telnetのコマンドラインを使ってみます。Windowsにも多くのプログラムがありますが、たいていは呼び出すとウインドウが開き、マウスで操作・・・ってかんじですよね。UNIXでも同じようなグラフィックモードがあるんですが、別のPCから接続する用途には、あまり使いません。◆シェルキータイプされたコマンドの呼び出しを受けて、実行結果を画面に... [続きを読む]
|
- 2008/05/06 16:25【UNIXの基礎の基礎】UNIXとは？？
- ◆UNIXとは・・・UNIXにもハードディスクの中に、たくさんのファイルやフォルダ（ディレクトリ）が入っていて大きく分けると“実行プログラム”と“データ”の2種類になります〜o(〃＾▽＾〃)oUNIXと言っても、大勢の人が同時に使うということ以外は普段使っているMacintoshやWindowsと、そんなに違いはないようだす。UNIXでは、ひとつのマシンに大勢の人が出入りするため、全てのファイルでアクセス権を指定します。この概念は結... [続きを読む]
|
- 2008/04/25 12:28【Perlの基本】exit と or die
- ◆Perlの処理そのものを終了させるexit命令exit; ・・・ スクリプトを終了する（例）data.txtをOPEN命令で開いた時に、OPENに失敗したら関数 errorPage()を実行し、exit;でスクリプトを終わらせる場合if( ! open( FILE, "<data.txt" ) ){ errorPage();} ・・・・・・・・ # openに成功した場合に実行されるスクリプト ・・・・・・・・ @x = <FILE>;close( FILE ); ・・・・・・・・sub ... [続きを読む]
|
- 2008/04/19 21:29【Perlの基本】特殊変数$_（ダラー・アンダースコア）
- ◆特殊変数$_（ダラー・アンダースコア）$_ （ダラー・アンダースコア） ・・・ 処理中のスクリプトで対象のデータが入る変数 ※引数の@_ と同じく、Perlであらかじめ用意されているものです。（例）FILEの全文を画面に表示するスクリプトで書き方を比べてみます。 ※ 1）〜3）すべて同様の処理になります。1）通常の記述@lines = <FILE>;foreach $x ( @lines ){ print $x;}2)$_ で記述@lines = <FILE... [続きを読む]
|
|
|
- 2008/04/14 14:16【Perlの基本】for文やwhile文の制御（nextとlast）
- ■for文やwhile文の制御（next） next ・・・ { }のブロック内で使うと、以降の処理をとばして次回にとぶ。（例）5回ループが回るたびに「笑ってぇ〜」と表示され、最後に「キャンディー」と表示。$x = 0;while ( $x < 5 ){ print "笑ってぇ〜"; $x++; if ( $x <= 3 ) { next; } print "（笑）";}print ... [続きを読む]
|
- 2008/04/08 13:10【Perlの基本】コンピューターの日付時刻情報の取得
- ◆コンピューターの日付時刻情報の取得右辺にlocaltimeを置き、左辺の変数リストに代入します。( $sec, $min, $hour, $date, $mon, $year, $wday ) = localtime; ↑ ↑ ↑ ↑ ↑ ↑ ↑ 秒 分 時 日 月 年 曜日・・・ま、これだけでは表示しませんので、実際に表示する方法をやってみます。◆日付時刻の表示西暦と月と曜日は、このまま使えないので注意が必要ですｗｗ1）... [続きを読む]
|
- 2008/04/03 12:46【Perlの基本】ヒアドキュメント
- ◆ヒアドキュメントprint << "EOM";<HTML><HEAD><TITLE>ヒアドキュメントって？</TITLE></HEAD><BODY>・・・EOM ↑ この2つのスクリプトは、同じ表示結果になりますけど・・・ ↓print "<HTML>￥n";print "<HEAD>￥n";print "<TITLE>ヒアドキュメントって？</TITLE>￥n";print "</HEAD>￥n";... [続きを読む]
|
- 2008/04/01 16:02【Perlの基本】printf命令
- ◆printf ・・・ プリントエフ（プリントフ）printf
"書式", データ, データ, ・・・;画面、ファ
イルに「書式指定」してデータを出力printf命令は、
（ファイルハンドルを除く）引数の1番目が「書式指
定」と認識されます。（例）日付時刻を「書式指定
」して表示する場合$year = 2008;$month = 3;$date = 18;$hour
= 12;$minute = 30;$second = 8;printf "日付 %d.%02d.%02d
時刻 %02d:%02d:%02d", ... [続きを読む]
|
- 2008/03/26 13:38【Perlの基本】連想配列のソート
- ◆連想配列のソート氏名と年収でできた連想配列を年収が高い順に氏名を表示してみます。まず keys() を使って、キーワードだけ取り出した配列@namesを作ります。%name_money;$name_money{ '田中' } = 1000;$name_money{ '鈴木' } = 2000;$name_money{ '佐藤' } = 5000;$name_money{ '山田' } = 800;$name_money{ '高橋' } = 450;@names = keys( %name_money );これで配列@namesには、 ( "田中", "鈴木", &qu... [続きを読む]
|
- 2008/03/25 14:18【Perlの基本】カスタム・ソート
- ◆カスタム・ソートsort関数には、並べ替えのルールを与えることができます。sort関数に並べ替えのルールを与える場合 １）変数$aと変数$bを比較したルールを作ること ２）結果として 1,-1,0 のどれかを返すこと上の決まりに従った関数を作らなければいけなくなります。◆数値の比較演算子<=> ・・・ 数値を比較する演算子。この演算結果は1,-1,0 で入手できます。例えば、$result = ( $a <=> $b ); だと・・・... [続きを読む]
|
- 2008/03/24 12:04【Perlの基本】ソート（データの並べ替え）
- ◆ソート（データの並べ替え） 文字コード ・・・ ソートの命令は『文字コード』の番号順に並べかえます。デジタルデータ内では、あらゆる文字が『文字コード』で記録されています。文字コードは数値であり、 ・16進数30番目が、数字の'0' ・16進数41番目が、アルファベットの大文字の'A'というように、1文字ごとに決められています。「アルファベット順にソート」は、「文字コードの番号順に並べ替え」ということになります... [続きを読む]
|
- 2008/03/23 00:12【Perlの基本】置換 数字を削除
- ◆s/〜/〜/で、置換文字列部分を空で指定すると、
「空文字列への置換」 すなわち削除になります。
（例）数字を削除する場合$sampleStr = "orange wH3itegr
EEn 1bluE5yellow PINK--";$str = $sampleStr;$str =~ s/[0-9]//g;
#数字を削除するprint "実
行後：$str￥n";これを実行すると実行後：orange wH
itegrEEn bluEyellow PINK--こう表記され、数字部分が削除
された状態になりまふｗｗ... [続きを読む]
|
- 2008/03/21 12:46【Perlの基本】置換 大文字・小文字
- ◆￥U〜￥E は、〜部分を大文字に置換します。（例
）$sampleStr = "orange wHitegrEEn bluEyellow PINK--";$str
= $sampleStr;$str =~ s/([a-zA-Z])/￥U$1￥E/g;print "実
行後：$str￥n";これを実行すると実行後：ORANGE WHI
TEGREEN BLUEYELLOW PINK--とすべて大文字になっちゃいます
。◆￥L〜￥E は、〜部分を小文字に置換します。（
例）$sampleStr = "orange wHitegrEEn bluEyellow PINK--";$s
tr... [続きを読む]
|
- 2008/03/19 12:50【Perlの基本】改行部分に<BR>タグを挿入
- ◆改行部分に<BR>タグを挿入する場合（例） n（改行文字）を発見し、改行文字ごとに<BR>を付けて置換してみます。$sampleStr = "[飲み会のお知らせ]集合日時：3/21（金） 18:00集合場所：地下鉄「五条」駅 1番出口詳しい情報は、http://www.cgi.com/xxxx.html をご覧ください";$sampleStr =~ s/(￥n)/<BR>$1/g; print "$sampleStr￥n"; ※￥nを挟んで書かなくても、そのまま改行すれば文... [続きを読む]
|
- 2008/03/18 16:29【Perlの基本】スラッシュ以外の置換
- ◆￥でスラッシュ記号の役割を打ち消すマッチさせたいパターンの中に/（スラッシュ）そのものが入ってくる場合（例）$str = "http://www.cgi.com/kau/を参照";print "使用前：$str￥n";$str =~ s/http:￥/￥/www.cgi.com￥/kau￥//kauのページ/;print "使用後：$str￥n";これの結果は使用前：http://www.cgi.com/kau/を参照使用後：kauのページを参照となります。◆/（スラッシュ）以外でパターン... [続きを読む]
|
- 2008/03/16 20:57【Perlの基本】置換( )の指定
- ◆（ ）内パターンに合致した範囲は、特殊変数$1にコピーされます。（ ）が複数ある場合は、$1,$2・・・という順に対応します。（例）cを _$1 に置き換える場合$str = "abcdefg";$str =~ s/(c)/_$1/g; # cの前に_を挿入print "使用後：$str￥n";この場合使用後：ab_cdefgこのように表示されますね。（例）cまたはeを _$1 に置き換える場合$str = "abcdefg";$str =~ s/(c|e)/_$1/g;prin... [続きを読む]
|
- 2008/03/12 12:47【Perlの基本】置換演算子（gオプション）
- ◆置換演算子（gオプション）変数（文字列）=~ s/キーワード（またはパターン）/置換文字列/g;gオプションでグローバルマッチの指定になり、対象文字列中でパターンに合致する全てを処理します。 ※gオプションなしの場合は、最初の一箇所だけの処理になります。（例）文字列$strに"abababa"と b が3箇所ある場合の置換を見てみます＜gオプションなしの場合＞$str = "abababa";$str =~ s/b/c/;print "... [続きを読む]
|
- 2008/03/10 12:40【Perlの基本】正規表現で使うメタキャラクタ（記号）
- ◆メタキャラクタ￥ 特定の英文字の前に置いて、メタキャラクタとして働かせるために用いる。 また逆に、メタキャラクタ記号の前に置くと、文字記号に変わる。（メタキャラクタとしての 何かの役割を取り去り、その文字のそのままの状態でパターンマッチさせようとするもの） * 直前のパターンの0回以上繰り返しを示す+ 直前のパターンの1回以上の繰り返しを示す（例）apple など、1続... [続きを読む]
|
- 2008/03/04 12:43【Perlの基本】正規表現で使うメタキャラクタ（英数字）
- ◆正規表現で使うメタキャラクタ＜位置を示すメタキャラクタ＞￥b 単語境界を表す。[ ]の中で使うとバックスペースという文字を表す。￥B 単語境界以外を表す。￥A 文字列の先頭の位置を表す。￥Z 文字列の末尾の位置を表す。￥G パターンマッチで直前にマッチした場所を示す。＜改行に用いられる文字コード＞￥n 改行文字。 （nは、newlineから由来。主にUNIXのOSで標準的に用いられ... [続きを読む]
|
- 2008/02/28 13:00【Perlの基本】正規表現とパターンマッチ
- ◆正規表現特定の文字群（メタキャラクタ）に機能や役割を定義しておき、これらを組み合わせ、目的のパターンに表す方法。比較演算子 eq では「完全一致」の判定はできても、「含む」という判定はできないですよね？Perlには「マッチ演算子」があり、正規表現のパターンに合致する文字列を探すことができるんで便利です。マッチ演算子=~（イコールチルダ）◆パターンマッチの判定 ・・・ 検索ができるんで便利です1）対象となる... [続きを読む]
|
- 2008/02/20 13:33【Perlの基本】配列の内容を表示してくれる関数
- 先週、インフルエンザを患ってしまい 勉強をお休みしておりましたが、ちょい復活です〜。(*´∀｀)┘◆配列の内容を表示してくれる関数スクリプトを書いている際に、「配列の中身がどうなっているか確認したい・・・」なんて時( ･_)？いちいち foreach文 を書くのは面倒っすよねぇ。あらかじめ 『配列の内容を表示してくれる関数』 を作っておけば、関数呼び出しで配列の内容を調べることが出来るんで便利でつおｗｗｗ... [続きを読む]
|
- 2008/02/11 09:39【Perlの基本】関数の戻り値
- ◆関数の戻り値関数から呼び出し側へ処理の結果を報告するしくみです。関数定義の{ }で、returnというキーワードを使います。return 1; # 1が返されるreturn $a; # 変数$a の値が返されるreturn add( $a, $b ); # 関数add の実行結果が返されるちなみにperlでは、関数で最後に行った処理の結果を呼び出し側で取得できます。例えば・・・数値1を返す 関数sumple が... [続きを読む]
|
- 2008/02/07 13:15【Perlの基本】関数について
- ◆関数Perlでは関数を subroutine（サブルーチン）と呼びます。※プログラム言語では、関数のことを module（モジュール）とかroutine（ルーチン）とか function（ファンクション）と呼んだりするようです。◆関数の定義sub 関数名{ 実行すべき処理}◆関数の呼び出し※関数呼び出しの書式は、いろいろあるんですけど、代表的なものは・・・ 関数名（ 引数リスト ）;&関数名;&関数名（ 引数リスト ）;こんなカンジかな( ... [続きを読む]
|
- 2008/02/04 13:17【Perlの基本】全ての配列の要素の値を表示
- ◆全ての配列の要素の値を表示変数の代わりに、配列をそのまま置けばOKです。@x = ( "apple", "lemon", "banana" );print @x;結果はapplelemonbananaこんなカンジにappleとlemonとbananaが、つながって表示されます。 ま、これぢゃ・・・あまり実用的ではナイっすねｗｗｗ(；＾ω＾) なので、すべての要素を表示するために、for文のループ（繰り返し）を使います。◆for文を使った配列の要素表... [続きを読む]
|
