ファイルの読み込み

ファイルの読み込み
#!/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 “;
}

Download Report