Perl

書式
1.配列の宣言
@配列名 = (要素1,要素2,xxx)
2.配列の要素へのアクセス
「$ + 配列名 + インデックス」で配列の要素を取得します。

使用例

#!/usr/bin ...

使用例

#!/usr/bin/perl ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(); printf("日付フォーマット：HH:MM:SS ...

使用例

#!/usr/bin/perl $local_datestring = localtime();print "現在の日付：$local_datestring\n"; $gmt_datestring = gmtime(); ...

構文
foreach my $変数名 (@配列名){
some code
}
使用例

#!/usr/bin/perluse strict;use warnings;my @cft = ("A01" ...

構文
push @配列名,文字列;
使用例

#!/usr/bin/perluse strict;use warnings;my @cft = ("A001","B002","C003");print ($cft) ...

構文
@配列名 = (値1,値2);
サンプルコード

#!/usr/bin/perl @cft= (39, 49, 59); @names = ("A001", "B002", "C003"); print "\ ...

構文
if(条件式1 ||条件式2)
サンプルコード

#!/usr/bin/perluse strict;use warnings;my $x = 34;my $y = 59;if ($x == 25 || $y ...

構文
if(boolean_expression){//some code}
サンプルコード

#!/usr/bin/perluse strict;use warnings;my $x = "abcd";my $y ...

構文
if(条件式){
last;}
サンプルコード

#!/usr/bin/perluse strict;use warnings;for (my $n = 0; $n < 10; $n++) { ...

構文
if(条件式){
next;
}
使用例

#!/usr/bin/perluse strict;use warnings;for (my $n = 0; $n < 5; $n++) { ...

構文
if(条件式){some code}
使用例

#!/usr/bin/perluse strict;use warnings;my $n = 0;do{ if ($n == 5) { $n++; next; ...

構文
for(初期化式;条件式 ; 変数値の増減){
some code
}
使用例

#!/usr/bin/perluse strict;use warnings;for (my $n = 0; ...

構文
sort(条件式)配列名

使用例

#!/usr/bin/perluse strict;use warnings;my @cft = (34,5,18,79);@cft = sort{$a <=&g ...