Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
sort by hash key before printing
Up until recently the data files always contained departures in time order, starting with the earliest in the day, so my manipulation always resulted in data which happened to be in time order. Just recently a few of them have contained data in which the departures are listed in any old order... -
sort by hash key before printing
...print_general_as_table { my $data = shift; my ($linkref,$duration,$deptime,$linkname,$anyWaitTime,$Fromdyndest,$Todyndest); $undefwarning = "**not defined**"; printf REPORT "%8s",$data->{DepartureTime};print REPORT " "; printf REPORT "%5s",$data->{JourneyCode};print REPORT " \n"... -
sort by hash key before printing
Last year feherke kindly helped me resolve a problem with printing a complex data structure. I have found the resultant script enormously helpful since then. An influx of work since the corona lockdown has left me with a need to slightly modify the print routine. I have received a number of data... -
Assistance with printing complex data structure
That works fine, so I am now all systems go. Thanks again, I really appreciate the help. -
Assistance with printing complex data structure
Good morning feherke, to overcome the ordering/bless issues I have changed the construction of my data structure to use an array, so I now have this: $VAR1 = { 'DepartureTime' => '05:53:00', 'PrivateCode' => '4483928', 'VehicleJourneyTimingLinkRefOrder' => [... -
Assistance with printing complex data structure
...$VehicleJourneyTimingLink=$VehicleJourneys->findvalue('./VehicleJourneyTimingLink'); %hash = $VehicleJourneyTimingLink =~ m/(\d+)\s+(\w*[a-zA-Z]+\w*(?:\s+\w*[a-zA-Z]+\w*)*)\b/g; foreach my $key (keys %hash) { $value = $hash{$key}; $VJs[$i]->{VehicleJourneyTimingLinkRef}{$key} =... -
Assistance with printing complex data structure
That's giving me: Can't call method "Keys" on unblessed reference at myscript.pl line 118. -
Assistance with printing complex data structure
I should have added that the order of the records in %hash is correct at that point because I used Tie::IxHash to maintain the order. I tried the same for %VehicleJourneyTimingLinkRef but that did not work for some reason. -
Assistance with printing complex data structure
...{ $VehicleJourneyTimingLink=$VehicleJourneys->findvalue('./VehicleJourneyTimingLink'); %hash = $VehicleJourneyTimingLink =~ m/(\d+)\s+(\w*[a-zA-Z]+\w*(?:\s+\w*[a-zA-Z]+\w*)*)\b/g; foreach my $key (keys %hash) { $value = $hash{$key}; $VJs[$i]->{VehicleJourneyTimingLinkRef}{$key} =... -
Assistance with printing complex data structure
Hi again feherke. That works nicely. Thank you once again! -
Assistance with printing complex data structure
Given this data structure, can anyone help me print it out in the format shown below? $VAR1 = { 'DepartureTime' => '05:53:00', 'PrivateCode' => '4483928', 'VehicleJourneyTimingLinkRef' => { '7' => 'PT1M16S'... -
Split long string into hash pairs
Thanks again feherke, that works superbly. I will look to see if I can get the data out in a better format. -
Split long string into hash pairs
It transpires that a very few of the keys have 2 associated time values. Among the thousands of lines I had not noticed this. -
Split long string into hash pairs
Hi Ferherke, good to see that you are still around! Thanks for pointing that out. I've got thousands of these lines, to the point that I've just about gone word blind and I had not spotted the missing keys (despite the warning). I will take a look at the original xml and see what is going on... -
Split long string into hash pairs
After a long time away from perl I have found myself in a new job where I need to use it again (to manipulate lots of xml files). Hello again! My problem: After some data extraction with XML::LibXML I am getting long strings of text returned, like this: 4541 PT1M27S 4542 PT1M51S 4543 PT2M16S... -
Use of uninitialized value in string
Many thanks PNB, I will incorporate your code this morning. -
Use of uninitialized value in string
It's been a while but I'm hoping one of you helpful guys can help me out again. I'm trying to debug a 3000 line script written by a.n.other. When run it is throwing up dozens of warnings like this one: Use of uninitialized value in string ne at ./ccrscript line 1528 The section of the script... -
30,000 pigs
Shortly after sitting through 'The Jungle Book' video with my 3 year old nephew I heard him singing "those bear necessities, forget about your worries and your stripes".- tonykent
- Post #25
- Forum: Making an Impression
-
makefile question
Can anyone tell me why this gmake makefile works: LIST1 := `ls` # inside a rule: first line starts with a TAB, all the rest are spaces all: @for x in `ls`; do echo $$x ; done outputs: check.txt inc.mk makefile subdir but when I try to replace the 'ls' command with the...- tonykent
- Thread
- Replies: 0
- Forum: Sun: Solaris
-
I wasn't sure where this really str
The error mesage states: An error occurred: connection to host xxx.xxx.xxx.xxx::5901 was closed.- tonykent
- Post #2
- Forum: Linux (client/desktop)
