open TESTOUT, ">test.txt" or die "error $!\n"; print TESTOUT "abcdefghijk"; close TESTOUT; $a = ""; open TESTIN, "test.txt" or die "error $!\n"; # 変数$aの先頭から読み込みデータに置き換え read TESTIN, $a, 3, 0; close TESTIN; print "読み込みデータ : $a\n"; $a = "0123456789"; open TESTIN, "test.txt" or die "error $!\n"; # 変数$aの3文字目から読み込みデータで置き換え read TESTIN, $a, 5, 3; close TESTIN; print "読み込みデータ : $a\n";