ファイル操作

#!/usr/bin/perl

open(FILE, "df");    #ファイルdfを開く
close(FILE);         #ファイルdfを閉じる

犬のおまわりさん、
困ってしまってワンワンワワン、
ワンワンワワン

#!/usr/bin/perl

open(FILE,"dog.dat");
while($a=<FILE>){   #ファイルの最後まで、1行ずつ読み出し
  print"$a";
}
close(FILE);

#!/usr/bin/perl

open(FILE,"dog.dat");
while(<FILE>){   #変数の指定が無い場合には、$_に代入
  print;         #引数が無い場合には、$_の内容を表示
}
close(FILE);

犬のおまわりさん、
困ってしまってワンワンワワン、
ワンワンワワン

#!/usr/bin/perl

open(FILE,"dog.dat");
open(FILE2,">dog2.dat");    #書き込み用ファイル

while($a=<FILE>){
  $a=~s/ワン/クン/g;
  print FILE2 "$a";
}
close(FILE);
close(FILE2);
open(FILE,"dog2.dat");
while($a=<FILE>){
  print"$a";
}
close(FILE);

犬のおまわりさん、
困ってしまってクンクンワクン、
クンクンワクン

犬のおまわりさん、
困ってしまってワンワンワワン、
ワンワンワワン

泣いてばかりいる
子ねこちゃん

#!/usr/bin/perl

open(FILE,"dog.dat");    #追加書き込み用ファイル
open(FILE2,">>dog3.dat");    #追加書き込み用ファイル

while($a=<FILE>){
  $a=~s/ワン/ギャン/g;
  print FILE2 "$a";
}
close(FILE);
close(FILE2);
open(FILE,"dog3.dat");
while($a=<FILE>){
  print"$a";
}
close(FILE);

泣いてばかりいる
子ねこちゃん
犬のおまわりさん、
困ってしまってギャンギャンワギャン、
ギャンギャンワギャン

犬のおまわりさん、
困ってしまってワンワンワワン、
ワンワンワワン

#!/usr/bin/perl

open(FILE,"+<dog4.dat");    #読み書き両用ファイル
while($a=<FILE>){
  print "$a";
}
print FILE "最終行";
print "\n書きこみ終了\n\n";
close(FILE);

open(FILE,"dog4.dat");
while($a=<FILE>){
  print "$a";
}
close(FILE);

犬のおまわりさん、
困ってしまってワンワンワワン、
ワンワンワワン
最終行

0

#!/usr/bin/perl

open(FILE,"+<cn.dat");    #読み書き両用ファイル
$a=<FILE>;
$a++;
seek(FILE, 0, 0);       #ファイルの先頭へ
print FILE "$a";
print "$a";
close(FILE);

3