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 { /^[^\.]/ } readdir DIR;#过滤掉以"."和".."的文件,即UNIX下的隐藏文件
foreach my $file (@file){my $newdir = $rawpath."/".$file;opendir(DIR2,$newdir) or die "can't open $newdir!";      my @file2 = grep { /^[^\.]/ } readdir DIR2;foreach my $file2 (@file2){#对文件$file进行操作；}
}

2. 以对地震事件SAC波形文件与处理为例，实现对原始波形去毛刺，去均值、去线性趋势和波形尖灭，以及去仪器响应、带通滤波等操作：

#!/usr/bin/env perl
#作者:刘毅;邮箱:825948184@qq.com;日期:2018/11/15;my $rawpath="/run/media/lisonglin/4aacb9ca-62ed-4102-b56c-cc7178021277/evt";opendir (DIR,$rawpath) or die "can't open!";
#my @file = readdir DIR;
my @file= grep { /^[^\.]/ } readdir DIR;#过滤掉以"."和".."的文件,即UNIX下的隐藏文件
foreach my $file (@file){my $newdir = $rawpath."/".$file;print "$newdir\n";opendir(DIR2,$newdir) or die "can't open $newdir!"; #注意打开一个目录和进入该目录是不同的概念；chdir $newdir; my @file2 = grep { /^[^\.]/ } readdir DIR2;foreach my $file2 (@file2){   open(SAC, "| sac") or die "Error in opening SAC\n";print SAC "wild echo off \n";print SAC "r $file2 \n";print "file2: $file2\n";、#去毛刺；print SAC "rglitches threshold 1.0e+10 type linear window off method absolute \n";#去均值、去线性趋势和波形尖灭；print SAC "rmean;rtrend;taper \n";#去仪器响应，/home/lisonglin/liuyi/yn_ly/SAC_PZ为仪器响应文件；print SAC "transfer from polezero subtype /home/lisonglin/liuyi/yn_ly/SAC_PZ to none freq 0.05 0.1 10.0 15.0 \n";#带通滤波；print SAC "bp n 4 c 1 10 \n";#保存并重命名加.bp后缀；print SAC "w append .bp \n";#退出；print SAC "q \n";close(SAC);}chdir "..";}

希望对你我有所帮助，在此记录发布。

perl脚本遍历文件夹及对SAC波形文件进行去仪器响应、滤波等操作实现相关推荐

linux 循环显示所有的sh.*文件.,利用shell脚本遍历文件夹内所有的文件并作整理统计的方法...
环境: Ubuntu下采用shell脚本实现案例简述:文件夹内有许多子文件夹,这里需要自动读取所有的文件,包括他们的地址和文件名.通过观察文件名的规律,按照一定的规则裁剪出文件名的某一部分,该部分为 ...
linux遍历目录删除指定文件,利用shell脚本遍历文件夹内所有的文件并作整理统计的方法-linux删除文件夹...
本篇文章扣丁学堂Linux培训小编给读者们分享一下利用shell脚本遍历文件夹内所有的文件并作整理统计的方法,文章具有很好的参考价值,感兴趣的小伙伴就随小编来了解一下吧. 环境: Ubuntu下采用s ...
SHELL脚本遍历文件夹下所有文件以及子文件夹
SHELL脚本遍历文件夹下所有文件以及子文件夹 dir 要设置为局部变量如果设置为全局变量在func递归时传入的参数会改变 dir的值,将导致之后的文件目录错误(为更改后的dir值) 当前目录 ...
Linux之shell脚本遍历文件夹下所有文件
#!/bin/bash function ergodic(){ for file in ` ls $1` do if [ -d $1"/"$file] #如果 file存在且是一个 ...
python批量删除文件1001python批量删除文件_Python实现递归遍历文件夹并删除文件...
思路: 遍历文件夹下面的文件夹如果文件夹名称等于".svn",则修改文件夹的属性(因为".svn"的文件都是只读的,你不能直接删除) 删除此文件夹如果文件夹 ...
python批量读取文件夹中的所有excel文件-python遍历文件夹下所有excel文件
大数据处理经常要用到一堆表格,然后需要把数据导入一个list中进行各种算法分析,简单讲一下自己的做法: 1.如何读取excel文件网上的版本很多,在xlrd模块基础上,找到一些源码: import ...
Python高效率遍历文件夹寻找重复文件
前言为什么要写这篇文章呢...主要还是业务中有个需求,遍历一个将近200w数据的文件夹,大部分还都是视频文件那种,但是这玩意用的次数还不多,做文件夹index也不是很ok,所以写了一个脚本来处理这个 ...
java 文件递归_JAVA实现遍历文件夹下的所有文件(递归调用和非递归调用)
JAVA 遍历文件夹下的所有文件(递归调用和非递归调用) 1.不使用递归的方法调用. public void traverseFolder1(String path) { int fileNum = ...
python修改文件后缀_python实现遍历文件夹修改文件后缀
本文实例为大家分享了python实现遍历文件夹修改文件后缀的具体代码,供大家参考,具体内容如下用法 python Modifer.py ./ -fp java xml # coding:utf-8 ...

perl脚本遍历文件夹及对SAC波形文件进行去仪器响应、滤波等操作实现

perl脚本遍历文件夹及对SAC波形文件进行去仪器响应、滤波等操作实现相关推荐

最新文章

热门文章