perl プログラム名 引数1 引数2 ...

perl sample.pl 90 75

my $kokugo = $ARGV[0];
my $sansuu = $ARGV[1];

サンプルプログラム

# コマンドライン引数の取得
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my ($kokugo, $sansuu);

if (@ARGV == 2){
  my $kokugo = $ARGV[0];
  my $sansuu = $ARGV[1];

  print "国語=$kokugo, 算数=$sansuu\n";
  if ($kokugo > 75 && $sansuu > 75){
    print "合格です\n";
  }else{
    print "不合格です\n";
  }
}else{
  print "引数を2つ指定して下さい\n";
}

[xxxxxxxx@dddddddddd Stdin]$ perl test1-1_u.pl | nkf -w
引数を2つ指定して下さい
[xxxxxxxx@dddddddddd Stdin]$ perl test1-1_u.pl 90 55 | nkf -w
国語=90, 算数=55
不合格です
[xxxxxxxx@dddddddddd Stdin]$ perl test1-1_u.pl 76 80 | nkf -w
国語=76, 算数=80
合格です
[xxxxxxxx@dddddddddd Stdin]$ 

変数 = <ファイルハンドル>

変数 = <STDIN>

my $line = ;
print "入力された値 : $line";

my $line = ;
chomp($line);
print "入力された値 : $line";

サンプルプログラム

# 標準入力からの値の取得
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

print "名前を入力して下さい\n";
my $line = ;
chomp($line);

print "成績を入力して下さい\n";
my $seiseki = ;
chomp($seiseki);

print "名前:$line, 成績:$seiseki\n";

[xxxxxxxx@dddddddddd Stdin]$ perl test2-1_u.pl | nkf -w
masuzoe
3
名前を入力して下さい
成績を入力して下さい
名前:masuzoe, 成績:3
[xxxxxxxx@dddddddddd Stdin]$ 

# 標準入力からの値の取得
#
use strict;
use warnings;
# use utf8;                            # デフォルトの文字コードで実行
# binmode STDIN, ':encoding(cp932)';
# binmode STDOUT, ':encoding(cp932)';
# binmode STDERR, ':encoding(cp932)';

print "名前を入力して下さい\n";
my $line = ;
chomp($line);

print "成績を入力して下さい\n";
my $seiseki = ;
chomp($seiseki);

print "名前:$line, 成績:$seiseki\n";

[xxxxxxxx@dddddddddd Stdin]$ perl test2-1_u.pl
名前を入力して下さい
masuzoe
成績を入力して下さい
3
名前:masuzoe, 成績:3
[xxxxxxxx@dddddddddd Stdin]$ 

while (defined(my $line = )){
  chomp($line);
  print "$line\n";
}

while (my $line = ){
  chomp($line);
  print "$line\n";
}

while (){
  chomp($_);
  print "$_\n";
}

for (;;){
  chomp($_);
  print "$_\n";
}

サンプルプログラム

# while/for文を使い標準入力から繰り返し値を取得
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

print "while文による繰り返し\n";

while (my $line = ){
  chomp($line);
  print "$line\n";
}

print "for文による繰り返し\n";

for (;;){
  chomp($_);
  print "$_\n";
}

print "終了しました\n";

[xxxxxxxx@dddddddddd Stdin]$ perl test3-1_u.pl | nkf -w
masuzoe
koike yuriko
while文による繰り返し
masuzoe
for文による繰り返し
koike yuriko
終了しました
[xxxxxxxx@dddddddddd Stdin]$ 

# while/for文を使い標準入力から繰り返し値を取得
#
use strict;
use warnings;
# use utf8;                         # デフォルトの文字コードで実行
# binmode STDIN, ':encoding(cp932)';
# binmode STDOUT, ':encoding(cp932)';
# binmode STDERR, ':encoding(cp932)';

print "while文による繰り返し\n";

while (my $line = ){
  chomp($line);
  print "$line\n";
}

print "for文による繰り返し\n";

for (;;){
  chomp($_);
  print "$_\n";
}

print "終了しました\n";

[xxxxxxxx@dddddddddd Stdin]$ perl test3-1_u.pl
while文による繰り返し
masuzoe
masuzoe
for文による繰り返し
koike yuriko
koike yuriko
終了しました
[xxxxxxxx@dddddddddd Stdin]$