Download
1 / 5
50 likes | 272 Views
ファイルの読み込み. #!/usr/bin/env perl #Perl スクリプトの指定 open(FILE, "food.txt"); # ファイル処理の開始 # ファイル名は、” food.txt” # ファイルハンドルは FILE while(<FILE>){ # 一行ずつ、最後まで読む print $_; # 読み込んだ一行を出力する } close FILE; # ファイル処理の終了. 変数について. $val = 150; print $val; $name = “Watson”; print $name;. If 文.
E N D
ファイルの読み込み #!/usr/bin/env perl #Perlスクリプトの指定 open(FILE, "food.txt"); # ファイル処理の開始 # ファイル名は、”food.txt” # ファイルハンドルはFILE while(<FILE>){ # 一行ずつ、最後まで読む print $_; # 読み込んだ一行を出力する } close FILE; # ファイル処理の終了
変数について $val = 150; print $val; $name = “Watson”; print $name;
If文 #!/usr/bin/perl open(FILE, “food.txt”); while(<FILE>){ if(length($_) > 10){ print $_;} } close FILE; if(条件){ 条件にあったときの処理 } elsif(2番目の条件){ 条件にあったときの処理 } else { どの条件にも合わなかったときの処理 }
while文 #!/usr/bin/perl $num = 0; while($num <= 5 ){ print “$num “; $num ++; # $numの値を１つ増やす }
for文 #!/usr/bin/perl for($num = 0;$num <= 5;$num ++){ print “$num “; }
