Hello zing,
When I take your original script, make the change I described, and run it on the file “p17226.csv” (which I downloaded from http://qfs.mobi/f1508588), I get 848 lines of output which begins and ends as follows:
16:31 >perl orig.pl Enter file name: p17226.csv M19 : M19<-Q, P I_1 M15 : M15<-Q, Pl I_2 M23 : M23<-Q, Pl I_2 M11 : M11<-Q, Pl I_2 M22 : M22<-Q, Pl I_2 M31 : M31<-Q, Pl I_2 M27 : M27<-Q, Pl I_2 M24 : M24<-Q, Pl I_2 M5 : M5<-Q, Pl I_2 M12 : M12<-Q, Pl I_2 ... M567: M567<-M73<-M1<-Q, E.E.E IV_39 M560: M560<-M73<-M1<-Q, E.E.E IV_39 M559: M559<-M73<-M1<-Q, E.E.E IV_39 M561: M561<-M73<-M1<-Q, E.E.E IV_39 M550: M550<-M73<-M1<-Q, E.E.E IV_39 M549: M549<-M73<-M1<-Q, E.E.E IV_39 M569: M569<-M73<-M1<-Q, E.E.E IV_39 M563: M563<-M73<-M1<-Q, E.E.E IV_39 M568: M568<-M73<-M1<-Q, E.E.E IV_39 M562: M562<-M73<-M1<-Q, E.E.E IV_39
Your output format has changed, have you altered the script since first posting? If not, it looks as though you’re going to have to debug the script yourself, on your own machine, to find out exactly what’s going on. The tutorial perldebtut will help you to get started.
Hope that helps,
| Athanasius <°(((>< contra mundum | Iustus alius egestas vitae, eros Piratica, |
In reply to Re^3: Perl code for finding shortest path not working on large files (chomp)
by Athanasius
in thread Perl code for finding shortest path not working on large files
by zing
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |