本日の作業 Perlの基本文法学習 NeoBundleのインストールcsideさんのブログ参考 Puttyの半透明化 過去ブログの修正 セキュリティについて perlの基本文法は過去ブログに記載済しています。 NeoBundleのインストール $ cd ~/.vim $ git clone https://github.…

#19 サブルーチンを改良してみよう use warnings; use strict; # サブルーチン sub max{ my $max = shift(@_); #@_ foreach (@_) { $max = $_ if $_ > $max; } return $max; } print max(2,8,100,23,46); サブルーチンを作成。 一番大きい値が表示されるよう…

#18 サブルーチンを作ってみよう use warnings; use strict; # サブルーチン sub max{ my $max = $_[0]; if($_[1]>$max){ $max = $_[1]; } return $max; } print max(2,8); subでサブルーチンの処理を記述する。 returnなしでもできるが、推奨しない。 8 値…

#17 正規表現を使ってみよう use strict; use warnings; # ファイル出力 # 正規表現 open(my $in, "<" , "test.dat" ) or die ("could not open file."); while(<$in>){ $_ =~s/123/わん/; print $_; } close($in); 以下の結果に置換された。 abc def ghi わ…

#16 ファイルを扱ってみよう あらかじめテストファイルを作成しておく # test.dat abc def ghi 123 456 789 上記ファイルの内容を取得する use strict; use warnings; # ファイル出力 open(my $in, "<" , "test.dat" ) or die ("could not open file."); whi…