改行なしの固定長ファイルにレングスを指定して改行を入れるperlスクリプトを書いた

2014-04-10

必要に迫られて書いた。[flsplit]

	#! /usr/bin/perl
	my $length = $ARGV[0];

	binmode(STDIN);
	while (sysread(STDIN, my $buf, $length)) {
	print $buf . "\n";
	}

view raw flsplit hosted with ❤ by GitHub

こんな感じで使います。

1
2
3
4
5
6
7
8


% cat data
1HOGE   0 2FUGA   0 3HOGEHOG0

% cat data | flsplit 10
1HOGE   0
2FUGA   0
3HOGEHOG0