equal
deleted
inserted
replaced
170 my $i = 0; |
170 my $i = 0; |
171 while (readdir(DIR)) { |
171 while (readdir(DIR)) { |
172 next if (/^\./); |
172 next if (/^\./); |
173 # Měli bychom ošetřit zvláštní znaky v názvech souborů, |
173 # Měli bychom ošetřit zvláštní znaky v názvech souborů, |
174 # abychom nezpůsobili chybu GraphVizu. |
174 # abychom nezpůsobili chybu GraphVizu. |
175 print "n$i [label=\"$_\"];\n"; |
175 print " n$i [label=\"$_\"];\n"; |
176 print "koren -> n$i;\n"; |
176 print " koren -> n$i;\n"; |
177 $i++; |
177 $i++; |
178 } |
178 } |
179 |
179 |
180 print "</m:diagram>"; |
180 print "</m:diagram>"; |
181 closedir(DIR); |
181 closedir(DIR); |
197 my $i = 0; |
197 my $i = 0; |
198 while (readdir(DIR)) { |
198 while (readdir(DIR)) { |
199 next if (/^\./); |
199 next if (/^\./); |
200 # Měli bychom ošetřit zvláštní znaky v názvech souborů, |
200 # Měli bychom ošetřit zvláštní znaky v názvech souborů, |
201 # abychom nezpůsobili chybu GraphVizu. |
201 # abychom nezpůsobili chybu GraphVizu. |
202 print "n$i [label=\"$_\"];\n"; |
202 print " n$i [label=\"$_\"];\n"; |
203 print "koren -> n$i;\n"; |
203 print " koren -> n$i;\n"; |
204 $i++; |
204 $i++; |
205 } |
205 } |
206 |
206 |
207 print "</m:diagram>"; |
207 print "</m:diagram>"; |
208 closedir(DIR);]]></m:pre> |
208 closedir(DIR);]]></m:pre> |