3 use vars
qw(%dir_list);
5 "canvas_Utilities" =>
"canvas",
6 "canvas_Persistency_Common" =>
"canvas",
7 "canvas_Persistency_Provenance" =>
"canvas",
8 "cetlib" =>
"cetlib cetlib_except"
11 foreach my $lib (sort keys %dir_list) {
12 next
if m&add_subdirectory&i;
13 next
if m&simple_plugin&i;
14 next
if m&SUBDIRNAME&i;
16 next
if m&cetlib cetlib_except&i;
17 #s&\b\Q${lib}\E([^\.\s]*\b)([^\.]|$)&$dir_list{$lib}${1}${2}&g and last;
18 s&\b\Q${lib}\E\b([^\.]|$)&$dir_list{
$lib}${1}${2}&
g and last;
21 s/\$\{CETLIB\}/cetlib cetlib_except/
g;
use File::Basename qw(fileparse)
tuple m
now if test mode generate materials, CRT shell, world, gdml header else just generate CRT shell for u...
my($xml, $fcl, $workdir, $check, $merge)
return match has_match and(match.match_pdg==11 or match.match_pdg==-11)
then echo File list $list not found else cat $list while read file do echo $file sed s
foreach my $lib(sort keys%dir_list)