無知で申し訳ありませんが、私は Perl に非常に慣れていないため、すぐに支援が必要です....
「履歴」データを含むファイルがあり、レコードがコンマで区切られていることがわかっています。もちろん、このファイルは歴史が進むにつれてどんどん大きくなっていきます。そこで、Perl を使用して、データのファイルが最も古いので、そのファイルを切り詰めたいと考えています。これは正確な科学である必要はありません。私は次のようなことをするだろうと考えました:
- ファイル内のカンマの数を数え、2 で割ります (中間点を見つけるため)。
- たとえば、100 件のレコードがある場合 (つまり、99 個のカンマ区切り)、カンマ数は 99 個です。
- 次に、2 で割っておおよその中間点 (切り上げ) を取得します。この例では 46 になります。
- 次に、46 番目のカンマより前のすべてのレコードを削除します (ファイルがカンマで始まらないように、カンマを含みます)。
- そして、新しく整理した履歴データ ファイルを保存します。
以下は、カンマ区切りを使用した非常に小さなサンプル ファイル レイアウトです。
20121130092403000Server1::RedHat 1.2.3.4(1234),20121130092503000Server2::RedHat 5.6.7.8(1234),20121130092603000Server3::SUSE 9.8.7.6(9876),20121130092703000Server4::WindowsXP 5.6.7.8(6543)
これが理にかなっていることを願っています。
ありがとう!