#! usr/bin/perl use strict; use warnings; my %hash1=( 1=>'一', 2=>'二', 3=>'三', 4=>'四', 5=>'五', 6=>'六', 7=>'七', 8=>'八', 9=>'九', 0=>'〇' ); print "please input a number.\n"; my $in = <STDIN>; chomp ($in); if ($in!=~ /[0-9]+/){ print "your n</stdin>…

#! usr/bin/perl use strict; use warnings; my @array1=qw(koma goma kuma guma KOMA 45 666 11); my @array2=qw(58 5334 111 11 98 342); #公式=>foreach my 変数 (リスト){処理内容} foreach (@array1){ print "$_\n"; } print "\n"; foreach (sort(@arra…

makehtml.plでmypage.txtをhtmlにしてみた。 makehtml.pl #! usr/bin/perl use strict; use warnings; #変換ルールの設定 my %keyword = ( '----' => '<hr>', '-exit' => '<a href="http://www.yahoo.co.jp" target="_blank">yahoo</a>', '-home' => '<a href="http://www.google.co.jp" target="_blank">google</a>', '-notice' => 'リンクはご自…</hr>

#! 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', ); #ハ…

実験をたくさんしてみた。読み込みファイルは、下の方に書いています。 #! usr/bin/perl use strict; use warnings; #last =>現在のループを終了する =head open(FILE,'file.txt') or die"$!"; while(<FILE>){ #chomp; #ファイルの中身の先頭が数字以外のとき、中</file>…

#! usr /bin/perl use strict; use warnings; #関数openを使ってファイルをひらいてみる #open(FILE,'開きたいファイル名') or die "$!" =>ファイルが開けなかったら終了するよ。 #while(条件式){繰り返し実行する処理}; open(FILE,'file.txt') or die "$!";…

復習してみた。 #! 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"; #数字だけ抜き出して配列に入れ…