Perl、、配列の初期化と要素の出し入れ

配列

配列は複数の値を保存できる。保存される複数の値は 0、1、2、・・・のように添え字が付けらる。変数の名前とともに添え字を与えることで、その添字に対応する値を取得したり

■DIXCEL(ディクセル) クロスロード RT2 RT3 RT4 CROSSROAD 07/02~ リア ブレーキパッド X タイプ,[Projectμ] プロジェクトミュー ブレーキパッド EURO SPORTS リア用 【ポルシェ 911(993) カレラ 4 993C4 993C4K 95~98】 本州は送料無料 北海道は送料500円(税別) 沖縄・離島は送料1000円(税別),GT380メッキタンデムバー,フォルツァ(MF08・前期用) 38φタンデムバー エレガントタイプ ウイルズウィン(WirusWin),[品番:13191] グラン(GLANZ) ハードブレーキローター フロント トヨタ(TOYOTA) グランドハイエース VCH16W 95/8~05/1

2輪 ネオプロト Fエンジンオイル NTXF1110-5 JAN:4548916314041,【送料無料】輸入車用ブレーキパット クランツジガ プラス (フロント用) GF946,18インチデリカD:5CV系 2WDHOT STUFF シュティッヒ レグザス フューラー ブラッククリア 8.0Jx18ZIEX ZE914F 225/55R18,Aragosta アラゴスタ 全長調整式車高調 タイプE マジェスタ 17系/18系

RS-R (RS☆R アールエスアール) 車高調 Super-i ソフト仕様 品番:SIT500S トヨタ エスティマ ACR50W 24/5~,【店頭受取でP3倍(要エントリー)&クーポン】86 DBA-ZN6 マフラー FUJITSUBO オーソライズR 560-23112 フジツボ AUTHORIZE R 送料無料【店頭受取対応商品】,【柿本 改/レガシィツーリングワゴン/UA-BPE/CBA-BPE/DBA-BPE/マフラー*ハイパーフルメガN1+Rev./*品番:B31314/KAKIMOTO RACING】

キックス/KICS ワイドトレッドスペーサー/Wide Tread Spacer 4WD M12×P1.5 厚み30mm 5H139.7P1.5,FUJITSUBOワゴリスマフラーTA-AZR60Gヴォクシースポーティーパッケージ H13/11~H16/8除くZグレード

17インチアテンザスポーツGG系WEDS ウェッズスポーツ SA-20R ウォースブラッククリア 7.5Jx17ZIEX ZE914F 215/45R17

、保存したりすることができる。

Yeti イエティ Snow net タイヤチェーン DAIHATSU デルタワゴン SE 型式SR40N系 品番1299WD【超安い】

配列は、変数名の前に @ を付ける。配列に複数の値を代入するとき、各々の値をカンマで区切り、それらを括弧で囲む。

my @primer = ('AGTCCGTGCGGCAA', 'GTATTTACATCCCA', 'CAGTGCTATGTCCA');
my @miRNA = (
 'CGAGGGGGUGCAGGACUUGACGGCUGCAACUGUGCGGCCGGCCACACCGUCAGUGCAGCGU',
 'CAGAUAAAUAGAAUACUAAGUAAAAAAUCAGUAUGGAGGUUUAGUUUGG',
 'AAGGAGCACUCACUCCAAUUUCCCUGGACUGGGGGCAGGCUGCAGGAUGUUCCAG'
);

要素の取り出し for foreach

配列に保存されているすべての要素を順に取り出すとき、for 文または foreach 文を利用する。

【魅力の】Yeti イエティ Snow net タイヤチェーン DAIHATSU デルタワゴン SE 型式SR40N系 品番1299WD 35W 三菱マテリアル 新品1本

my @arr = ("A", "C", "D", "B");
for (my $i = 0; $i < @arr; $i++) {
 print $arr[$i] . "\n";
}
## A
## C
## D
## B

foreach

foreach my $ele (@arr) {
 print $ele . "\n";
}
## A
## C
## D
## B

sort 関数を利用することで、配列の要素を並べ替えて出力することができる。また 【特別価格で大奉仕!】Yeti イエティ Snow net タイヤチェーン DAIHATSU デルタワゴン SE 型式SR40N系 品番1299WD、reverse 関数を利用することで 新着商品Yeti イエティ Snow net タイヤチェーン DAIHATSU デルタワゴン SE 型式SR40N系 品番1299WD、配列を逆順に出力することができる。

my @arr = ("A", "C", "D", "B");
foreach my $ele (sort @arr) {
 print $ele . "\n";
}
## A
## B
## C
## D
foreach my $ele (reverse @arr) {
 print $ele . "\n";
}
## D
## C
## B
## A

配列要素の削除

Perl では、配列の先頭の要素を削除するには shift 関数を利用し、最後の要素を削除するには pop を利用する。また、配列の途中にある要素を削除するには splice を利用する。

my @arr = ("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K");
my $a = shift(@arr);
print $a;
## A
print @arr;
## BCDEFGHIJK
my $b = pop(@arr);
print $b;
## K
print @arr;
## BCDEFGHIJ
my $c = splice(@arr, 2, 3);
print $c
##
print @arr;
## BCGHIJ

配列要素の追加

Perl では、

、配列の先頭要素の前に追加するには unshift 関数を利用し、最後要素の後ろに追加するには push を利用する。

my @arr = ("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K");
unshift(@arr, "0");
print @arr;
## 0ABCDEFGHIJK
poush(@arr, "Z");
print @arr;
## 0ABCDEFGHIJKZ

配列の途中で要素を追加するには splice を利用する。splice 関数は 4 つの引数を受け取る。1 番目の引数は操作対象の配列を代入する。2 番目の引数は操作開始位置を指定する。3 番目の引数は操作開始位置から何文字を削除するのかを指定する、削除しない場合は 0 を指定する。4 番目の引数は、操作開始位置に挿入する配列を指定する。

my @arr = ("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K");
splice(@arr, 2, 0, ("a", "b", "c"));
print @arr;
## ABabcCDEFGHIJK

文字列を配列に分割

文字列をある区切り文字に従って部分文字列に分割し、各々を一つの配列に収めることができる。この際 超激安のYeti イエティ Snow net タイヤチェーン DAIHATSU デルタワゴン SE 型式SR40N系 品番1299WD、文字列の分割は split 関数を利用する。split 関数の 1 つ目の引数には区切り文字のパターンを、2 つ目の引数には分割対象文字列を代入する。

my $csv = "NM200102.1,NM200110.2,NM200121.1,NM200123.2";
my @accession = split(/,/, $csv);
for (my $i = 0; $i < @accession; $i++) {
 print $accession[$i] . "\n";
}
## NM200102.1
## NM200110.2
## NM200121.1
## NM200123.2

配列を文字列に変更

配列の要素をすべて連結して、一つの文字列にすることができる。配列の要素の連結は join 関数を利用する。文字列を連結するときに利用する区切り文字を指定することができる。

my @data = (21, 31, 11, 12, 14, 11);
my $csv = join(',', @data);
print $csv . "\n";
## 21,31,11,12,14,11

配列中のあるパターンにマッチした要素だけを出力する方法

配列に保存されている値のうち、あるパターンにマッチした値だけを出力することができる。grep 関数を利用してパターンマッチ行う。例えば、複数の要素を含む配列から、文字列 ATG を含む要素だけ取り出す場合は、

Yeti イエティ Snow net タイヤチェーン DAIHATSU デルタワゴン SE 型式SR40N系 品番1299WD,【送料無料】 235/55R20 20インチ LEHRMEISTER LM-S ヴェネート7 (グロスグラファイト/リムポリッシュ) 8.5J 8.50-20 YOKOHAMA ヨコハマ ジオランダー SUV G055 サマータイヤ ホイール4本セット,【送料無料】 245/30R20 20インチ BIGWAY ビッグウエイ LEYSEEN SP-M 8J 8.00-20 SAFFIRO サフィーロ SF5000(限定) サマータイヤ ホイール4本セット,Weds LEONIS VT15インチ アルミホイール 4本SET.DUNLOP VEURO VE303 225/45R18WEDS WedsSports SA-72R 18 X 7.5 +35 5穴 114.3,17インチ サマータイヤ セット【適応車種:カローラ ルミオン(全グレード)】WEDS レオニス MX パールブラックミラーカット/チタントップ 7.0Jx17ADVAN ネオバAD08R 215/45R17,17インチセルシオ20系HOT STUFF シュティッヒ レグザス フューラー メタリックブラックポリッシュ/アンダーカットポリッシュ 7.0Jx17レグノ GRV 225/55R17,18インチフォレスターSH系WEDS レオニス グレイラ ブラック/SCマシニング 7.0Jx18エコピア PRV 225/50R18,WINRUN WINRUN R330 225/40R19WEDS Leonis LV 19 X 7.5 +48 5穴 114.3.サマータイヤ 215/50R17 95V XL ヨコハマ ブルーアース RV-02 & レイシーン エフエックスブイ 7.0-17 タイヤホイール4本セット,17インチウイングロードY12系WEDS レオニス NAVIA 03 マットガンメタマシニングカット 7.0Jx17ディレッツァ DZ102 205/40R17

Yeti イエティ Snow net タイヤチェーン DAIHATSU デルタワゴン SE 型式SR40N系 品番1299WD 35W 三菱マテリアル 新品1本

、、次のようにする。

my @seq = ("AAGTCGATTCAGG", "GTAGTATGCATGTCA", "AGTGCTAGCTTTT", "ACAGTATGCATGC");
my @atg = grep(/ATG/, @seq);
foreach my $ele (@atg) {
 print "$ele\n";
}
foreach my $ele (grep(/ATG/, @atg)) {
 print "$ele\n";
}
 
{yahoojp}nc02-myp01-gui-5154