d0/d7e/fix__fcl_8pl_source.html

 use strict;


 use vars qw(%dir_list);

 BEGIN { %dir_list = (

                         "gaus" => "gaus(0)"

                        ); }


 foreach my $lib (sort keys %dir_list) {

   #s&\b\Q${lib}\E([^\.\s]*\b)([^\.]|$)&$dir_list{$lib}${1}${2}&g and last;

   s&\b\Q${lib}\E\b([^\.]|$)&$dir_list{$lib}${1}${2}&g and last;

 }

qw
use File::Basename qw(fileparse)

g
BEGIN_PROLOG g
Definition: decoderTools_icarus.fcl:7

my
my($xml, $fcl, $workdir, $check, $merge)

BEGIN
BEGIN
Definition: fix_cmake.pl:4

and
return match has_match and(match.match_pdg==11 or match.match_pdg==-11)

strict
use strict
Definition: SubmitCommand.pl:8

s
then echo File list $list not found else cat $list while read file do echo $file sed s
Definition: file_to_url.sh:60

$lib
foreach my $lib(sort keys%dir_list)
Definition: fix_cmake.pl:185