3 use vars
qw(%subdir_list);
4 use vars
qw(%header_list);
6 # explicit headers to avoid conflicts with experiment code
8 "lardata/RecoBaseArt/Dumpers/DumpAssociations.h" =>
"lardata/ArtDataHelper/Dumpers/DumpAssociations.h",
9 "lardata/RecoBaseArt/Dumpers/NewLine.h" =>
"lardata/ArtDataHelper/Dumpers/NewLine.h",
10 "lardata/RecoBaseArt/Dumpers/PCAxisDumpers.h" =>
"lardata/ArtDataHelper/Dumpers/PCAxisDumpers.h",
11 "lardata/RecoBaseArt/Dumpers/SpacePointDumpers.h" =>
"lardata/ArtDataHelper/Dumpers/SpacePointDumpers.h",
12 "lardata/RecoBaseArt/Dumpers/hexfloat.h" =>
"lardata/ArtDataHelper/Dumpers/hexfloat.h",
13 "lardata/RecoBaseArt/FindAllP.h" =>
"lardata/ArtDataHelper/FindAllP.h",
14 "lardata/RecoBaseArt/HitCreator.h" =>
"lardata/ArtDataHelper/HitCreator.h",
15 "lardata/RecoBaseArt/HitUtils.h" =>
"lardata/ArtDataHelper/HitUtils.h",
16 "lardata/RecoBaseArt/TrackUtils.h" =>
"lardata/ArtDataHelper/TrackUtils.h",
17 "lardata/RecoBaseArt/WireCreator.h" =>
"lardata/ArtDataHelper/WireCreator.h"
20 foreach my $inc (sort keys %header_list) {
21 s&^(
\s*#
include\s+[
"<])\Q$inc\E(.*)&${1}$header_list{$inc}${2}& and last;
use File::Basename qw(fileparse)
my($xml, $fcl, $workdir, $check, $merge)
then echo File list $list not found else cat $list while read file do echo $file sed s