Perl@Perlの基本を勉強するよ! – Part2 –


はじめに

みなさんこんにちは。のぶです。

今日もPerlの勉強をするので、メモです!
いつ書いたものか忘れちゃたけど
書き残しがあったので、投稿しておきます。

配列をソートする

ソートはsort関数を使用する
単に文字コードを小さい順にソートする。
数値をソートしたい場合は、

sort BLOCK LIST

という形式にしてあげる。

my @array = (12,22,34,3,6,126,745,99,9);

my @sorted= sort(@array);
print join(',', @sorted);
# 出力 => 12,126,22,3,34,6,745,9,99
# これだと文字コードサイズ順。

@sorted = sort {$a <=> $b} @array;
print join(',', @sorted) , "\n";
# 出力 => 3,6,9,12,22,34,99,126,745
# 数値のソート

@sorted = reverse (sort {$a <=> $b} @array);
print join(',', @sorted) , "\n";
# 出力 => 745,126,99,34,22,12,9,6,3
# 数値を降順にソート

Grepを使ってみる

配列の中から正規表現に一致する値を引っ張ってこれる。

my @array = ("Perl", "にほんご", "のぶ", "のぶp", "んんん" );

my @found = grep(/p/i, @array);
print join(',', @found), "\n";
# iを付けると大文字小文字を区別しない
# 出力結果 => Perl,のぶp

@found = grep(/ん/, @array);
print join(',', @found), "\n";
# 日本語も出来ました
# 出力結果 => にほんご,んんん

@found = grep(//, @array);
print join(',', @found), "\n";
# 何もしていしないと、全部出力される
# 出力結果 => Perl,にほんご,のぶ,のぶp,んんん

おわりに

今回は短いけどこれで終わりです。
Perlは最近ずっと触っているし、次はJava!!!!
Java!!!Play!!!

1件のコメント

Leave a Comment.