Rev 13733 | Rev 13738 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 13733 | Rev 13737 | ||
---|---|---|---|
Line 76... | Line 76... | ||
76 | # print "\ntraitement du fichier $c"; |
76 | # print "\ntraitement du fichier $c"; |
77 | open(INN, $c); |
77 | open(INN, $c); |
78 | my $text = <INN>; |
78 | my $text = <INN>; |
79 | close(INN); |
79 | close(INN); |
80 | for my $a (keys %listcolor){ |
80 | for my $a (keys %listcolor){ |
81 | $text=~ s/ |
81 | $text=~ s/__wims_$a/$listcolor{$a}/g; |
82 | } |
82 | } |
83 | "\n/*! from $c */\n$text"; |
83 | "\n/*! from $c */\n$text"; |
84 | }; |
84 | }; |
85 | 85 | ||
86 | sub out { my ($bloc, $text) = @_; |
86 | sub out { my ($bloc, $text) = @_; |