2009-06-18から1日間の記事一覧
#! 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…