perl - Parsing comma separated lines and calculating sum -

-

So my problem can basically be written in pseudo-code: 

  Split = Using the first value =, give this value to the next line = check the values ​​after it, if not, then loop up to the end of the file, collect all the values, that match the line numbers and Use, get the last 2 column value sum, for the set given with equal key = value pair I have a dataset as follows:  
  3 = 5002, 0 = 10002, 5 = 1, 4 = 1, 7 = 1, 8 =  
 
 1, 9 = 0, 1 = 14002, 6 = 5, 200, 100 3 = 5002, 0 = 10002, 5 = 0, 4 = 1, 7 = 0, 8 = 0, 9 = 1, 1 = 14002, 6 = 5, 300, 10 = 3, 5, 0 = 10001, 5 = 0, 4 = 0, 7 = 0, 8 = 0, 9 = 0, 1 = 14001, 6 = 3, 1000, 80 3 = 5001, 0 = 10004, 5 = 1, 4 = 1, 7 = 2, 8 = 2, 9 = 1, 1 = 14001, 6 = 3, 10000, 1200 3 = 5003, 0 = 10004, 5 = 2, 4 = 0, 7 = 2, 8 = 2, 9 = 1, 1 = 14003, 6 = 8, 5000, 500 3 = 5003, 0 = 10004, 5 = 3, 4 = 1, 7 = 2, 8 = 1, 9 = 0 , 1 = 14003, 6 = 8, 1000, 7

What do I need to do, say all for 3, which are equal and the sum of the last 2 columns and the value of that value For example: 

  3 = 5002, amount = 500, 110 5 = 0, zodiac = 1300, 90 8 = 2, zodiac = 15000, 1700

I have been able to parse the first 3, but for the remaining columns I I am unable to do anything: - (

Based on my understanding, there are two possible methods. The first one uses the overall key to store values ​​in a single-level hash. The second uses a multi-level hash:

Method 1: 

  #! Use / usr / bin / perl strict; use caution; List :: UTL qw (amount); My% data; While (my $ line = & lt; data & gt;) {chomp $ line; My @parts = split /, /, $ line; Last until @pars; My $ value = pop @parts; Push @ {$ data {$ _}}, $ value @ $ $ {{Colle}}}}} $ __ DATA__ 3 = 5002, 0 = 10002, 5 = 1, 4 = 1, 7 = 1, 8 = 1 , 9 = 0, 1 = 14002, 6 = 5, 200 3 = 5002, 0 = 10002, 5 = 0, 4 = 1, 7 = 0, 8 = 0, 9 = 1, 1 = 14002, 6 = 5, 300 3 = 500 1, 0 = 10001, 5 = 0, 4 = 0, 7 = 0, 8 = 0, 9 = 0, 1 = 14001, 6 = 3, 1000 3 = 5001, 0 = 10004, 5 = 1 , 4 = 1, 7 = 2, 8 = 2, 9 = 1, 1 = 14001, 6 = 3, 10000 3 = 5003, 0 = 10004, 5 = 2, 4 = 0, 7 = 2, 8 = 2, 9 = 1, 1 = 14003, 6 = 8, 5000 3 = 5003, 0 = 10004, 5 = 3, 4 = 1, 7 = 2, 8 = 1, 9 = 0, 1 = 14003, 6 = 8, 1000 C: \ Temp> HJ3 = 5001: 110003 = 5002: 5003 = 5003: 6000 0 = 10001: 1000 = 10002: 500 0 = 10004: 16000 1 = 14001: 11000 1 = 14002: 500 1 = 14003: 6000 4 = 0: 6000 4 = 1: 11500 5 = 0: 1300 5 = 1: 10200 5 = 2: 5000 5 = 3: 1000 6 = 3: 11000 6 = 5: 500 6 = 8: 6000 7 = 0: 1300 7 = 1: 200 7 = 2: 16000 8 = 0: 1300 8 = 1: 1200 8 = 2: 15000 9 = 0: 2200 9 = 1: 15300

Method: 2 

  #! Use / usr / bin / perl strict; Use warnings; Use the list: Utility qw (yoga); My Information; While (my $ line = & lt; data & gt;) {chomp $ line; My @ actually = division /, /, $ line; Not until last @ my $ value = $ parts [-1]; (My $ i = 0; $ i & lt; @parts - 2; ++ $ i) {my @subparts = split / = /, $ parts [$ i]; Push @ {$ data {$ subparts [0]} - & gt; {$ Subparts [1]}}, $ value; }} $ $ 1 (Key% data) {$ $ $ {{$ k1}} amount @ {$ data {$ k1} - & gt; {$ K2}}); }} __DATA__3 = 5002, 0 = 10002, 5 = 1, 4 = 1, 7 = 1, 8 = 1, 9 = 0, 1 = 14002, 6 = 5, 200 3 = 5002, 0 = 10002, 5 = 0 , 4 = 1, 7 = 0, 8 = 0, 9 = 1, 1 = 14002, 6 = 5, 300 3 = 5001, 0 = 10001, 5 = 0, 4 = 0, 7 = 0, 8 = 0, 9 = 0, 1 = 14001, 6 = 3, 10003 = 5001, 0 = 10004, 5 = 1, 4 = 1, 7 = 2, 8 = 2, 9 = 1, 1 = 14001, 6 = 3, 10000 3 = 5003, 0 = 10004, 5 = 2, 4 = 0, 7 = 2, 8 = 2, 9 = 1, 1 = 14003, 6 = 8, 5000 3 = 5003, 0 = 10004, 5 = 3, 4 = 1, 7 = 2, 8 = 1, 9 = 0, 1 = 14003, 6 = 8, 1000 C: \ Temp> HJK 3: 5003: 6000 3: 5002: 500 3: 5001: 11000 7: 1: 200 7: 0: 1300 7: 2: 16000 9: 1: 15300 9: 0: 2200 8: 1: 1200 8: 0: 1300 8: 2: 15000 4: 1: 11500 4: 0: 6000 1: 14001: 11000 1: 14003: 6000 1: 14002: 500 0: 10001: 1000 0: 10004: 16000 0: 10002: 500 5: 1: 10200 5: 3: 1000 5: 0: 1300 5: 2: 5000

NB: sort for taste.


Comments

Post a Comment

Popular posts from this blog

c++ - Linux and clipboard -

-
After selecting the copies of the buffer in Linux, after the text, we can click and paste the button between the mouse. I think there is a special buffer for this, I want to use it. Programming Language: C ++ Your Library: Qt Thanks. There is just one more correct answer than Paul Dixon, which answers your needs: / P > QClipboard * clipboard = QApplication :: clipboard (); CastString Selected Text = Clipboard-> Text (QClipboard :: Selection);
Read more

What is expire header and how to achive them in ASP.NET and PHP? -

-
I have examined the performance statistics of my website today. I have received a warning (or error may occur) that is given below Add Terminal Headers Here are 15 static components without a 15-futures end date * (no end) Http://www.example.com/video/css/global.css * (no time limit) http://www.example.com/video/js/global.js * (no expiration ) Http: //www.example.com/video/images/main-bg.png what it means and how to achieve it both in PHP and ASP.Net. I am on a shared hosting server, so please tell me some ways to use the code, because I can not make any modifications at the end of the server. If I expire the header, then there is no chance that if I make changes to the CSS, then the user will not be able to remove them immediately because CSS and other files have a fixed time limit (1 month, week ) Are cached for. Is Is there any harm to using PHP? $ time = time () + 3 * 24 * 60 * 60; // 3 day headings ('End:'. GMDAT ('D, D MYH: i: s \ g \ m \ t',
Read more

sql server - How can I determine which of my SQL 2005 statistics are unused? -

-
After a few years, one of my biggest databases has deposited 73 figures out of its largest tables. With Indexes, I can run many types of reports and queries, how often / heavily specific indexes are used. What is an equivalent for data? We are running SQL 2005. To make statistics automatically managed and honest, I would like to "update statistics", "create statistics" and There is no information about any management except "drop statistics" orders. In theory, UPDATE should handle the addition and removal of statistical data. In addition, I've never heard about the amount of storage or storage taking in large amounts, so I'm not sure whether there is any reason for the alarm or not. If you are seeing a potential problem, then I would suggest running an update before, if it does not clean it, it is leaving and then it appears to be safe operation (because it is the only query optimizer Is for). I will not leave "left" in the
Read more