2009-01-01から1年間の記事一覧
復習してみた。 #! usr/bin/perl use strict; use warnings; #ハッシュのキーと値を表示する。 my %hash1 = ( 'hello'=>685938, 'morning'=>74893, 'evening'=>73829486748578, 'night'=>5333 ); foreach (keys (%hash1)){ my $value = $hash1{$_}; print "$…
#! usr/bin/perl use strict; use warnings; #カレントディレクトリを表示してみる。カレントディレクトリは「.」親ディレクトリは「..」 opendir(DIR,'.') or die "$!"; foreach (readdir(DIR)){ print "$_\n"; } closedir (DIR);
今期中に会社から求められている成果一覧をもらったので確認していると、ん?と思うことがありました。達成基準の判断指標に、「ブログ(このブログ)を週2回以上更新」とあったのです。ブログの更新が基準になることは知っていたけど、頻度については意識して…
#! usr/bin/perl use strict; use warnings; my @array1=("komatsu,32,A,3f5f,384901,34,123,5g42","takumi,557,NN,w9f9,3,45,1,4,8,1,412,4","subaru,9182934,FGUE,f8f2"); foreach (@array1){ print "$_\n"; } print "\n"; #数字だけ抜き出して配列に入れ…
httd = http daemon UNIX系のOSにおいて、バックグラウンドで動作するプログラムのことだそうです。つまりは、ネットワークからの要求を処理したり、システムの状況などに応じて自動的に動作するプログラムのこと。例えば、メモリやファイルのシステム管理や…
(1)コマンドプロンプトを立ち上げ、mysqlのフォルダまでcdで移動する。 たいていの場合、以下のディレクトリにありますよ。 ・RPMでmysqlをインストールした場合 → /usr/bin/mysql ・ソースからmysqlをインストールした場合 → /usr/local/bin/mysql私は、xam…
ようやく、deleteキーしかないのに慣れてきました。Macの方が使いやすいよー、などどいう夢のようなセリフを言えるようになるには、一体いつまでかかるのでしょうね。。。 ●ファイルの最終行に移動 G ●ファイルの先頭行に移動 gg ●画面の先頭行に移動 H ●画…
ついに、Mac使いになることを決心しました。やっぱり、使い方がいまいち分かってないので、どうしても作業が遅い。そしてショートカットも分からないから、余計効率が悪い。無駄に時間かかってるなー、という気がひしひししますが、決心したので、Windowsと…
#! usr/bin/perl use strict; use warnings; my %hash1 = ( 'aa@AA.com'=>'11,aA', 'bb@BB.com'=>'22,bB', 'cc@CC.com'=>'33,cC', 'dd@DD.com'=>'44,dD', 'ee@EE.com'=>'55,eE', 'ff@FF.com'=>'66,fF', 'gg@GG.com'=>'77,gG', 'hh@HH.com'=>'88,hH', ); #ハ…
ソフトウェアのバージョンアップに伴う品質低下のこと。 例1)エンバグ…今まで無かったバグを作りこんでしまうこと 例2)バージョン管理ミス…修正したはずの機能が数世代前のものになってしまうこと
ハードウェアやソフトウェアの細かい変更を表す改訂番号のこと。→プログラム等で修正を行ったら、rivision numberを上げてリリースし、改善されているかどうか確認する際に使用。rivision numberが変わっても、基本的な機能や性能は変わらない。 cf), バージ…
何らかのデータや情報、プログラムが体系立てて保管されている場所のこと。また、有用な情報を保管し、ユーザーが参照できる形で用意しておく仕組みのこと。・ソフトウェア開発分野で使用されるとき→ソースコードや設計情報などを保管するDBを指すことが多い…
#! usr/bin/perl use strict; use warnings; #◎関数values=>hashの値を返す関数 my %hash1=( 'koma'=>55, 'gema'=>11, 'baba'=>35, 'italy'=>777, 'france'=>454, 9=>'hello' ); my @keys = keys(%hash1); my @value = values(%hash1); print "@keys\n"; #出…
#! usr/bin/perl use strict; use warnings; #◎配列の要素のうち、重複するものをhashを使ってひとつにまとめる my %uniq; my @array = (3,5,7,8,9,7,8,7,9,1,3,'papa','mama','koma','papa','koma','Koma'); #my @array = (3,5,7,8,9,7,8,7,9,1,3,'papa,mam…
#! usr/bin/perl use strict; use warnings; #◎【基本】%ハッシュ名(キー => 値); => キーは文字列、値はスカラー my %hash = ( 'komage' => 1, 'gomage' => 2, 'mamage' => 3, 'papage' => 'パパです。' ); print $hash {'gomage'}."\n"; print $hash {'pap…
今日は学んだことが大量にあるのですが、次の予定が迫ってるので、明日の朝にアップします。 学んだこと概要 ・語彙3つ ・iterm ・コマンド(Mac OS X) ・ハッシュ
忙しいほど、計画的に動けるものですね。さて、今日はハッシュの復習。 #! usr/bin/perl use strict; use warnings; #◎【基本】%ハッシュ名(キー => 値); => キーは文字列、値はスカラー my %hash = ( 'komage' => 1, 'gomage' => 2, 'mamage' => 3, 'papage…
今日は、配列の復習をしました。せっかくいろいろ関数を覚えたんだから、いじってみないとねー。いろいろ試すのは楽しいです。でも、あんまり遊んでたら先に進まないから、ほどほどにしないと。ま、今のところ、C言語の経験があるからか、そんな大きくつまず…
#! usr/bin/perl use strict; use warnings; #◎sortとreverse関数の復習 my @array = qw(5 7 1 111 59 58 93); my @sorted = sort(@array); my @sorted1 = sort{$a<=>$b}(@array); print "@sorted\n"; #出力結果=>1 111 5 58 59 7 93=> 文字コードの小さい順…
#! usr/bin/perl use strict; use warnings; #◎配列の要素を切り分けて.htmlで表にして表示する。 my @info = ( 'kogematsu1@ko.com:koge matsu:11', #アドレスの「@」が展開されないように「''」を使用 'bokematsu2@bo.com:boke matsu:22', 'hagematsu3@ha.…
#! usr/bin/perl use strict; use warnings; my @array = qw(1 2 3 4 5 6 7 8); my $item = 'aabbcc'; #popやpush、shiftやunshift関数、配列のスライスをsplice関数で書き換えてみよーう #(=head=cutで囲まれた部分と同じものをspliceを使って書く) #◎【実…
#! usr/bin/perl use strict; use warnings; my $item = '01:23:45'; my ($hour, $min, $sec) = split (/:/,$item); print "$hour時$min分$sec秒です。\n";
#! usr/bin/perl use strict; use warnings; my @array = qw(11 22 33 44 55 66 77 88 99); #◎配列の一部をprintしてみる => @配列名[printしたい配列要素の添え字] print "@array[2,4,6,8]\n"; #出力結果 => 33 55 77 99 print "$array[2] $array[4] $array…
#! usr/bin/perl use strict; use warnings; my @array = qw(1 111 9 58 41 59); #◎【基本】sort(@並べ替えたい配列名); =>「文字列の文字コードが小さい順に」並べ替える。 my @sorted = sort(@array); print "@array\n"; #出力結果 =>1 111 9 58 41 59 pri…
今日もいろいろ実験してみました。ますは関数splice。 #! usr/bin/perl use strict; use warnings; #◎【基本】splice(要素をいじりたい配列の,この要素(添え字)から,これだけの要素数を削除し,そこにこのリストを挿入) my @array = qw(a b c d e f g h i j k…
(1)パーミッションとは ファイルの1つ1つ、もしくはディレクトリに対するアクセス権のこと (2)許可対象(3種類) ・ファイル所有者 ・所有者のグループ ・その他 (3)許可内容(3種類)とそれぞれの許可内容を表す記号と数字 ・読み取り:記号「r」数字「4」 ・書…
#! /usr/bin/perl use strict; use warnings; my @array = qw(a b 111 222 333); print "@array\n"; #出力結果 =>a b 111 222 333 #◎shift関数を使用して、配列の一番最初の要素を取り出してみよう。 my $item = shift(@array); print "$item\n"; #出力結果 …
#! /usr/bin/perl use strict; use warnings; my @array = qw(45 777 111 222 333); my $array = @array; print "@array\n"; #出力結果 => 45 777 111 222 333 =>@arrayの要素を出力。 print "$array\n"; #出力結果 => 5 =>@arrayの要素数を出力。 print "$a…
最近、疲れてきたのか、いつの間にか変なことをしています。今日なんか、自動販売機でお水を買おうと思ったのに、なぜか隣のボタンを押してしまっていて炭酸ジュースが出てくるなんてことが。一瞬びっくりした。お水のボタンを押したはずなのに、なぜ炭酸ジ…
(1)コマンドプロンプト windowsキー + R (2)以下のように打つ perldoc -f 関数名 例:join関数を調べるとき→perldoc -f join ※perldoc perlfuncと打つと、関数の一覧が出ます。(結構、文章量が多いので注意です。)