Javaプログラマのための10分でわかるPerlチュートリアル
1. 基本から始める
Perlはjavaと異なり、エントリーポイントとして"main"メソッドを必要としません。簡単なPerlのプログラムを実行するには、次のようにします。
# comment starts with "#"
# the name is hello.pl
print "Hello Perl!";
単純に実行する。
パール hello.pl
2. 日付の種類
Perlの日付型は非常にシンプルで、スカラー、配列、ハッシュの3種類です。
スカラーは単一の値であり、配列やハッシュ以外なら基本的に何でもよい。
配列は、整数や文字列など、さまざまな型の要素を含むことができる配列です。
Hashは、基本的にJavaのHashMapと同じです。
以下のコードをすべてのユースケースと組み合わせてください。
#claim a hash and assign some values
my %aHash;
$aHash{'a'}=0;
$aHash{'b'}=1;
$aHash{'c'}=2;
$aHash{'d'}=3;
$aHash{'e'}=4;
#put all keys to an array
my @anArray = keys (%aHash);
#loop array and output each scalar
foreach my $aScalar (@anArray){
print $aScalar."\n";
}
出力結果です。
e
c
a
d
配列をソートしたい場合は、以下のようなソート関数を使用するだけです。
foreach my $aScalar (sort @anArray){
print $aScalar."\n";
}
3. 条件式、循環式
Perlにはif, while, for, foreachなどのキーワードで条件文やループ文があり、Javaと非常によく似ています(switchを除く)。
詳しくは、以下のコードをご覧ください。
#if my $condition = 0;
if( $condition == 0){
print "=0\n";
}
elsif($condition == 1){
print "=1\n";
}
else{
print "others\n";
}
#while while($condition < 5){
print $condition;
$condition++;
}
for(my $i=0; $i< 5; $i++){
print $i;
}
#foreach my @anArray = ("a", 1, 'c');
foreach my $aScalar (sort @anArray){
print $aScalar."\n";
}
4. ファイルの読み出しと書き込み
次の例は、ファイルの読み書きの方法を示しています。ここで、">" と ">>" の違いは、ファイルの末尾に追加する場合と、情報を保存するために新しいファイルを作成する場合の違いに注意してください。
#read from a file
my $file = "input.txt";
open(my $fh, "<", $file) or die "unable to open < $file!";
while ( my $aline = <$fh> ) {
#chomp so no new line character
chomp($aline);
print $aline;
}
close $fh;
# write to a file
my $output = "output.txt";
open (my $fhOutput, ">", $output) or die("Error: Cannot open $output file!");
print $fhOutput "something";
close $fhOutput;
5. 正規表現
Perlで正規表現を使うには、mとsの2つの方法があります。
次のコードは、$strに正規表現を適用しています。
strの内容が"programcreek"であれば、式は真を返すので、条件判断やループでも使用できます。
6. 値/参照を渡すための構文
Perlでメソッド/関数を定義する必要はありませんが、定義しておくと、コードのモジュール性や再利用性が大幅に向上します。しかし、引数の受け渡しには十分な注意が必要です。
スカラーを直接渡すことは可能ですが、配列やハッシュクラスを渡す場合は特に注意が必要です。
配列です。
my @testArray = (1, 3, 2);
#In sub sub processArrayByReference($) {
my $arrayref = shift;
my @array = @$arrayref;
#...
}
#In sub processarray: sub processArrayByValue($){
my @array = @_;
#...
}
processArrayByValue(@testArray);
processArrayByReference( \@testArray );
ハファミリーカテゴリです。
sub printHash($) {
my %hash = %{ shift() };
for my $key ( sort keys %hash ) {
my $value = $hash{$key};
print "$key => $value\n";
}
}
printHash(\%twoLettersCount);
7. いくつかの例
1). 文字列のすべての文字に対して反復処理を行う。
my @lineCharArray = split('',$aline);
foreach my $character (@lineCharArray){
print $character."\n";
}
2). 26文字を含む配列を作成する。
26回ループさせることなく、シンプルに行うことができます。
my @charArray = ('a'...' z' );
my @twoCharArray = ('aa'...' zz');
この記事は"10 Minutes"の最初のバージョンであり、コメントをもとに今後も更新していきます。
元記事は以下のサイトでご覧いただけます。
http://www.programcreek.com/2012/09/10-minutes-perl-tutorial-for-java-developer/
関連
最新
-
nginxです。[emerg] 0.0.0.0:80 への bind() に失敗しました (98: アドレスは既に使用中です)
-
htmlページでギリシャ文字を使うには
-
ピュアhtml+cssでの要素読み込み効果
-
純粋なhtml + cssで五輪を実現するサンプルコード
-
ナビゲーションバー・ドロップダウンメニューのHTML+CSSサンプルコード
-
タイピング効果を実現するピュアhtml+css
-
htmlの選択ボックスのプレースホルダー作成に関する質問
-
html css3 伸縮しない 画像表示効果
-
トップナビゲーションバーメニュー作成用HTML+CSS
-
html+css 実装 サイバーパンク風ボタン