SEGY Header Dumper Version 1

Pada artikel SEGY, saya telah membahas penggunaan Kode PERL untuk mengekstrak informasi yang dimiliki oleh binary header dan trace header yang pertama dari sebuah data SEGY.

Pada bagian ini anda dapat menggunakan kode PERL yang telah saya kembangkan untuk melakukan ekstrak trace header untuk setiap trace.

Berikut adalah contoh hasil dump sebuah file SEGY.

./segyheaddump1 gathertest.segy
This data is 32-bit IBM floating point
Sample interval :6000
No of samples per trace :2002
Number of Trace :13008
-----INSTRUCTION---------------
-----Press ENTER for the Next Trace--------
-----Press 9 then ENTER to EXIT------------
-----Trace Header Trace#:1 out of 13008
byte# 1- 4:1
byte# 5- 8:0
byte# 9- 12:0
byte# 13- 16:0
byte# 17- 20:0
byte# 21- 24:9010
byte# 25- 28:1
byte# 29- 32:65536
byte# 33- 36:0
byte# 37- 40:1050
byte# 41- 44:0
byte# 45- 48:0
byte# 49- 52:0
byte# 53- 56:0
byte# 57- 60:0
byte# 61- 64:0
byte# 65- 68:0
byte# 69- 72:0
byte# 73- 76:1261066
byte# 77- 80:0
byte# 81- 84:1261066
byte# 85- 88:0
byte# 89- 92:131072
byte# 93- 96:0
byte# 97-100:0
byte#101-104:0
byte#105-108:0
byte#109-112:0
byte#113-116:2002
byte#117-120:393216000
byte#181-184:0
byte#185-188:0
byte#189-192:1175666186
byte#193-196:0
byte#197-200:1175666186
byte#201-204:0

Download kode PERL di sini, lalu simpan dalam directory tempat data seismik anda berada.

Coba jalankan dengan perintah:
perl headerdumper_v1.pl file.segy

Anda dapat meng-compile kode perl dengan perintah pp. Jika anda belum memilikinya install (UBUNTU 10.10) dengan perintah:
sudo apt-get install libpar-packer-perl

Setelah itu compile dengan perintah:
pp -o segyheaderdumper headerdumper_v1.pl

Lalu run:
./segyheaderdumper file.sgy