数を指定してレコードを保存

質問

お世話になります。
今、ひたすら貯めている（削除していない）ファイルがあります。
容量が大きくなってきたので、適当な（レコード）数を残し、
残りを削除したいと思います。
１つの命令で書けるのでしょうか、
それとも１個づつコピーしていかなければならないのでしょうか。
貯めているレコードはただ経緯を見るためだけに保存しているのであって、
関連性はありません。

やりたいことは、
１００と指定したら最新の１００個を残し、
１０１個目から以降の古いレコードを捨てたいのです。
（今現在７０００個くらい貯まっています）

宜しくお願いします。

回答No.2

t-okura

> １つの命令で書けるのでしょうか、
> それとも１個づつコピーしていかなければならないのでしょうか

ひとつの命令では書けないと思います。
一行ずつコピーすればよいのではないでしょうか。

ファイルには最新のレコードが先頭にあり、古いレコードが
続くという並びですよね。単純に先頭の 100行を違うファイルに
コピーし、その後 ファイル名を元のファイル名に変えればよい
のではないでしょうか。

Linux 系の OS を使っているのでしたら、system 関数で OS コマンドを
呼び出し
system "head -100 orig_file > new_file && mv -f new_file orig_file"
とする手もあります。

お礼

有り難うございました。
一つの命令では書けない件、
了解です。

やはり指定された数だけ繰り返すようなロジックを作る必要があるのですね。
お世話になりました。

回答No.1

_--_1l1_1_

ファイル = レコード だとすると
#!/usr/bin/perl
use strict;
use warnings;
use File::stat;
use POSIX 'strftime';

my $dir = shift || './';
my $save_count = shift || 10;

chdir $dir or die "$dir:$!\n";

my %mtime_of;
opendir my $dh, './' or die "$dir:$!\n";
while ( my $file = readdir $dh ) {

# ヂィレクトリ直下のファイルのみ削除対象とする
if ( -f $file ) {
my $sb = stat($file);
$mtime_of{$file} = $sb->mtime;
}
}
closedir $dh or die "$dir:$!\n";

# 最終更新日時 (mtime) でソート
print "--- Directory $dir\n";
my $count = 1;
foreach my $file ( sort { $mtime_of{$b} <=> $mtime_of{$a} } keys %mtime_of ) {
my $date = strftime( '%Y-%m-%d %H:%M:%S', localtime( $mtime_of{$file} ) );
if ( $count <= $save_count ) {
printf( "SAVE %08d %s %s\n", $count, $date, $file );
}
else {
printf( "DEL %08d %s %s\n", $count, $date, $file );

# ファイル削除。要注意!!!
### unlink $file or die "$file:$!";
}
$count++;
}
---
$ perl 'File-Stat.pl' /var/log
--- Directory /var/log
SAVE 00000001 2009-08-28 20:50:01 cron
SAVE 00000002 2009-08-28 20:44:58 messages
SAVE 00000003 2009-08-28 09:20:15 secure
SAVE 00000004 2009-08-28 09:20:15 wtmp
SAVE 00000005 2009-08-28 09:19:09 yum.log
SAVE 00000006 2009-08-28 09:14:44 lastlog
SAVE 00000007 2009-08-28 04:03:42 rpmpkgs
SAVE 00000008 2009-08-27 06:14:59 Xorg.0.log
SAVE 00000009 2009-08-27 06:14:58 acpid
SAVE 00000010 2009-08-27 06:14:09 dmesg
DEL 00000011 2009-08-26 06:09:09 Xorg.0.log.old
DEL 00000012 2009-08-24 07:10:48 backup.log
DEL 00000013 2009-08-23 10:27:58 backup.log.1
DEL 00000014 2009-08-23 05:52:49 ntp.log
DEL 00000015 2009-08-23 05:52:26 clamav-err.log
DEL 00000016 2009-08-23 05:52:26 clamav-scan.log
DEL 00000017 2009-08-23 04:02:17 boot.log
...

お礼

早速、有り難うございました。
誠に申し訳在りません。
ファイルを例示すれば良かったのですが。

遅ればせながら、
ファイル名はxxx.logで、
中身は以下のようなモノです。
20090828<>1856<>181492<><><>25243<><>12505<><>
20090828<>1404<>181507<><><>25248<><>12505<><>
20090828<>0903<>181535<><><>25246<><>12514<><>
20090828<>0820<>181536<><><>25247<><>12514<><>
20090827<>1444<>181564<><><>25261<><>12511<><>
20090827<>1023<>181566<><><>25265<><>12514<><>
20090827<>0839<>181566<><><>25264<><>12513<><>
20090826<>2016<>181626<><><>25267<><>12519<><>
20090826<>1631<>181644<><><>25269<><>12523<><>
20090826<>1453<>181658<><><>25269<><>12524<><>
20090826<>1318<>181663<><><>25269<><>12524<><>
20090826<>1106<>181682<><><>25273<><>12526<><>
20090825<>0601<>181780<><><>25275<><>12520<><>
20090824<>1625<>181849<><><>25274<><>12530<><>
20090824<>0831<>181879<><><>25275<><>12534<><>
（適当に最新のモノから数個、１行が１レコードです。）
これが７０００個（レコード）ほど繋がっています。
出力はレコードを作り、pushしています。

そしてやりたいことは、
残したい数、例えば１００個を指定したら、
６９００個を捨てて最新のモノから１００個を出力（コピー）
したいのです。

説明が下手で済みません。
宜しくお願いします。