今日は、配列の復習をしました。せっかくいろいろ関数を覚えたんだから、いじってみないとねー。いろいろ試すのは楽しいです。でも、あんまり遊んでたら先に進まないから、ほどほどにしないと。ま、今のところ、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";