Re^8: constructing a tree from csv file

[zing]

Choroba the reason for uninitliazed error that Im getting is because my group hash doesnt have relations which are more than length 3. As you can see below. E.P.E.E is 4 relations. But thats alright as I dont want to have relations which are more than three. But could this also be the reaso n behind the program getting hanged when run on __DATA__ more than 300 lines:-

Use of uninitialized value in print at checking.pl line 71, <DATA> lin
+e 338.
M61:    M61<-M7<-M28<-M6<-Q = E.P.E.E,
Use of uninitialized value in print at checking.pl line 71, <DATA> lin
+e 338.
M196:   M196<-M53<-M7<-M28<-M6<-Q = E.P.E.Pl.E,

[choroba]

To avoid the warnings, just do not print anything if the relation is not defined:

    print " = ", $path_string, ', ', $group{$path_string} // q();

[zing]

Choroba what if I dont want those lines which dont have a group (from the group hash) to be "even" printed ? For example a line which has relation : E.E.E.P.Pl doesnt have a corresponding key-value pair in the group hash, so I would like this complete row to not even get printed. I guess something has to be added in this line   print " , ", $path_string, ', ', $group{$path_string};

[choroba]

Use a condition:

print " , ", $path_string, ', ', $group{$path_string} if exists $group
+{$path_string};