perl
little_sunlight
一枚努力脱坑的理学研究生
展开
-
利用perl脚本实现SAC文件头段变量写入
将"ttime.dat"里面的t1(最后一列)写到"./001"的所有"*.sac"中, 并标记为t1, perl脚本如下: #!/usr/bin/env perl #by liuyi open(PICK,"<","ttime.dat")||die"cannot open the file:$!\n"; $i=0; while(<PICK>){ @lines=sp...原创 2018-10-18 16:10:14 · 1138 阅读 · 0 评论 -
perl脚本遍历文件夹及对SAC波形文件进行去仪器响应、滤波等操作实现
1. 如题,perl脚本遍历子文件夹及对子文件夹下文件处理: #!/usr/bin/env perl #遍历文件夹$rawpath下的所有子目录,并对子目录下的文件进行操作; my $rawpath="/home/liuyi/evt_test"; opendir (DIR,$rawpath) or die "can't open!"; my @file= grep { /^[^\.]/ ...原创 2018-11-15 20:00:02 · 1754 阅读 · 1 评论