Rev 12580 | Rev 13732 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 12580 | Rev 13084 | ||
---|---|---|---|
Line 51... | Line 51... | ||
51 | 51 | ||
52 | sub t { my ($c1,$c2,$L)=@_; $L->{$c1}=$c2}; |
52 | sub t { my ($c1,$c2,$L)=@_; $L->{$c1}=$c2}; |
53 | 53 | ||
54 | sub treate { my ($c)= @_ ; |
54 | sub treate { my ($c)= @_ ; |
55 | return if ((!$c) || ($c =~ /#/)); |
55 | return if ((!$c) || ($c =~ /#/)); |
- | 56 | # print "\ntraitement du fichier $c"; |
|
56 | open(INN, $c); |
57 | open(INN, $c); |
57 | my $text = <INN> ; |
58 | my $text = <INN> ; |
58 | close(INN) ; |
59 | close(INN) ; |
59 | "\n/*! from $c */\n$text" ; |
60 | "\n/*! from $c */\n$text" ; |
60 | }; |
61 | }; |