ミスティーネットレンタルサーバー－ MISTY-NET － Perl･CGI講座　関数検索 >> syswrite

[関数の使い方･書式]

○ ＝ syswrite ☆,★,□,[■]

☆：	(スカラー)	ファイルハンドル。
★：	(スカラー)	スカラー変数。
□：	(スカラー)	書き込むバイト長。
■：	(スカラー)	オフセット。　･･･　書込み開始の起点となる。第2引数のスカラー変数値の先頭からの位置。バイト数で指定。マイナス値の場合、文字列の末尾が起点となり、先頭方向に戻った位置。省略時は０とみなされる。
○：	(スカラー)	書き込んだバイト数を返す。。エラー時は未定義値を返します。

[関数の機能]

スカラー変数★の値をファイルハンドル☆に□バイト分書き込みます。
バイト長とオフセットの合計がスカラー変数の値の長さより大きい場合には、オフセット位置から末尾までのデータが書き込まれます。スカラー変数が殻の場合にオフセットを指定する場合は、０以外は不可です。

バッファリングを行なう read, print, write, seek, tell などとの併用は避けた方が無難です。

[書式の例]

１．$return = syswrite FH, $buf, $length;
２．$return = syswrite FH, $buf, $length, $offset;

● データをコピーする
use Fcntl;
sysopen ( FROM, $source, O_RDONLY|O_EXLOCK )
	or die "sysopen 失敗: $!";
sysopen ( TO, $target, O_WRONLY|O_CREAT|O_EXLOCK )
	or die "sysopen 失敗: $!";
$size = (stat(FROM))[11] || 4096;
while ( $len = sysread FROM, $buf, $size ) {
	if ( not defined $len ) {
		next if $! =~ /^Interrupted/;
		die "sysread 失敗: $!";
	}
	$offset = 0;
	while ( $len ) {
		$wrote = syswrite TO, $buf, $len, $offset;
		if (not defined $wrote) { die "syswrite 失敗: $!"; }
		$len -= $wrote;
		$offset += $wrote;
	}
}
close FROM;
close TO;



	\| HOME \| ご利用について \| 推奨環境 \| リンクに関して \| 免責/規約 \| お問合せ \| ミスティーネット \| リンク集 \|