branch | RCL_3 |
changeset 16 | 22bdd8a90cc4 |
parent 2 | 99082257a271 |
13:7416fe50a180 | 16:22bdd8a90cc4 |
---|---|
13 # Description: |
13 # Description: |
14 # copy A.X.aaa to B.X.bbb for all X (32 chars) when given A.aaa B.bbb |
14 # copy A.X.aaa to B.X.bbb for all X (32 chars) when given A.aaa B.bbb |
15 # |
15 # |
16 # |
16 # |
17 |
17 |
18 use strict; |
|
19 |
18 |
20 my $source = shift; |
19 my $source = shift; |
21 my $target = shift; |
20 my $target = shift; |
22 |
21 |
23 my $errs = 0; |
22 my $errs = 0; |