From fe29ff3c4b1e25dec00b0b29fdd13d6be9cb99d1 Mon Sep 17 00:00:00 2001
From: Brad Sawatzky <brads@jlab.org>
Date: Fri, 24 Nov 2017 13:55:12 -0500
Subject: [PATCH] Remove filter.pl temp script
---
SCRIPTS/filter.pl | 16 ----------------
1 file changed, 16 deletions(-)
delete mode 100755 SCRIPTS/filter.pl
diff --git a/SCRIPTS/filter.pl b/SCRIPTS/filter.pl
deleted file mode 100755
index 2c6a4889..00000000
--- a/SCRIPTS/filter.pl
+++ /dev/null
@@ -1,16 +0,0 @@
-#!/usr/bin/perl
-
-use File::Slurp;
-
-
-my $file = read_file($ARGV[0]);
-
-$file =~ s/\Qchar RunFileName[100];\E\W*\Qsprintf(RunFileName, RunFileNamePattern, RunNumber);\E\W*\QTHaRun* run = new THaRun(RunFileName);\E/THaRun* run = new THaRun( pathList, Form(RunFileNamePattern, RunNumber) );/s;
-
-$file =~ s/\Qconst char* RunFileNamePattern = "\E.*?\/(.*?\.dat)";/const char* RunFileNamePattern = "$1";\n vector<TString> pathList;\n pathList.push_back(".");\n pathList.push_back(".\/raw");\n pathList.push_back(".\/cache");\n/s;
-
-#$file =~ s/\Qconst char* RunFileNamePattern = "raw\/\E(.*?%05d.dat)\Q";\E/
-
-
-write_file("$ARGV[0]", $file);
-
--
GitLab