Rev 8633 | Rev 8685 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 8633 | Rev 8636 | ||
---|---|---|---|
Line 22... | Line 22... | ||
22 | $text =~ s/^(\s+)//g; |
22 | $text =~ s/^(\s+)//g; |
23 | $text=~ s/\n+/\n/g; |
23 | $text=~ s/\n+/\n/g; |
24 | my @L = sortuniq(split("\n",$text)); |
24 | my @L = sortuniq(split("\n",$text)); |
25 | for my $l (@L) { |
25 | for my $l (@L) { |
26 | my @la=split(":", $l) ; |
26 | my @la=split(":", $l) ; |
27 | $ref{canonify($la[0])}= |
27 | $ref{canonify($la[0])}=join(':',@la[1..@la-1]) if ($la[1]); |
28 | } |
28 | } |
29 | } |
29 | } |
30 | close IN; |
30 | close IN; |
31 | %ref; |
31 | %ref; |
32 | } |
32 | } |