in reply to Re^6: perl print to csv
in thread perl print to csv
Like what Excel would call a pivot table?
use strict; use warnings; my %cols; my %data; for( <DATA> ) { /\s*(.*), (.*), (.*)/; $data{$2}{$3}=$1; $cols{$3}++; } my @cols = keys %cols; print "\t$_" for @cols; print "\n"; for my $time (keys %data) { print $time; for my $col (@cols) { print "\t", $data{$time}{$col}//""; } print "\n"; } __DATA__ 0, 1429283609, 0137a653-fa74-4a52-ba4c-50f562762de1 0, 1429283609, 051512ec-e7b1-4c3d-8061-21b7fbf08d0e 0, 1429283609, 0650d772-9447-49eb-9aa3-f27b2540ce8d 0, 1429283609, 157e1b11-7e80-4547-ae18-3139fd408340 0, 1429283609, 1810844c-15f8-436a-a895-54f3277e1d49 0, 1429283609, 21d67ba6-122d-43e7-8f1b-a95fe348dfef 0, 1429283609, 4246bf2b-2847-457a-9b0e-6032b991ce0e 0, 1429283609, 54e1c264-8dbd-4ab1-a78e-be806c9913e6 0, 1429283609, 60ac1e84-abde-40db-b9c0-b1a28c0f908b 0, 1429283609, 61992ab9-5bb5-4d2f-8193-e70152099fa6 0, 1429283609, 7e35918e-a3c2-4309-8029-ae7dacb5ca0b 0, 1429283609, 89d0ae4a-c11d-4e9a-9576-5c214a8e32f6 0, 1429283609, 92426dba-d599-49a0-8c49-c3aabf670ef4 0, 1429283609, b8f74bdc-df0b-4651-9acd-fbd4a3773663 0, 1429283609, bd468bcf-9298-4e61-8994-12a0219d6c79 0, 1429283609, d89545cc-ad88-46cb-a16f-27e75521d23d 0, 1429283609, da5da8b8-2df4-4594-9c7f-6906cbf8feb8 0, 1429283609, e363ea60-c89c-44ba-a750-fce6bde688d2 0, 1429283609, f0966c0f-47cf-4da5-aacf-83c665926f3a 2, 1429283609, 063cbfbe-3414-40df-9a16-96db9006c15d 2, 1429283609, ce744bcf-c359-4835-b15f-54cfd8a046d4 8, 1429283609, 3fa53f3c-f3e8-4058-b5d2-6e62aa65591a 8, 1429283609, 5254254f-2072-42e7-aa5e-e0b44a66679c 8, 1429283609, 790995af-ab95-4ece-8e81-35a89d130cb4 8, 1429283609, 8df495c7-51dd-4d59-851c-f7bc58ba40fd 8, 1429283609, c1d57fcd-a15d-4e91-b731-6130f02f1e8e 8, 1429283609, c679e25e-3536-4714-a831-91d91da8c0f8 8, 1429283609, f94ce85f-ad95-430e-b541-697b278fa316 9, 1429283609, 0f0e377c-5cad-46a5-8801-bd21420c1948 36, 1429283609, bd9a2931-8c94-4294-b648-5d2ce28ab086 40, 1429283609, 6c8fafbe-08d9-44c9-b218-ea6663f2f0f0 11, 1429283609, 9cd96bac-d243-42e3-9851-613a42530106 3, 1429283609, 7087ccf1-0894-419f-8da3-d474542cea45 3, 1429283609, 980eea25-6b86-46fc-a27f-c11d493bac38 3, 1429283609, b04e56d6-5f9e-45c2-9189-caa610ec909c 12, 1429283609, 1c0f9560-f6ea-4f18-9771-4813fb3e0581 14, 1429283609, 956334fd-c47c-4778-bbcc-f62360ff7aa3 15, 1429283609, 31ec36aa-b648-41f7-94bf-82df49fe6074 4, 1429283609, 4013876b-118a-4051-8f4f-cd94f1efa4cd 4, 1429283609, 48510b68-5a31-485d-b9b4-3d3c0c337de5 16, 1429283609, 5d2a3ac0-e72f-403d-88ea-65ce0612dd2b 18, 1429283609, e567169e-0ac4-44df-88b1-2352f9f4d008 19, 1429283609, 1a9d2ed0-f62e-43a1-9eb2-9de39120e6cd 19, 1429283609, 1c7bc703-ecab-40ef-b340-e28051244e6c 19, 1429283609, 1f100db5-0ce8-4c1e-a2f7-3dd4763064d5 19, 1429283609, 29aa5b94-e114-4d5f-b998-5952da6f8f24 21, 1429283609, 2c33d55f-0229-48b4-b7b9-6e0fb74d9a83 21, 1429283609, 3873999a-30a6-4af0-ab38-d6babbf651ae 21, 1429283609, 41faac7d-05c5-493e-bea7-8bb15c6d1298 21, 1429283609, 4caf9c83-aeb6-44d2-ae80-b5308b51387a 21, 1429283609, 4e40c295-496d-4988-8e19-2aea3f89bf5f 21, 1429283609, 4ed1fadf-1b88-4a7d-b196-46e290bdec04 21, 1429283609, 4fc03c18-1807-45f2-99c5-f25435fc1d23 21, 1429283609, 5436ce9c-691d-495d-b1b8-68a7949371b7 21, 1429283609, 5c17ff05-a7d6-4bc1-b5e7-e6854037d806 21, 1429283609, 5c498654-f0e6-463e-85e8-6a8b845cfd5c 21, 1429283609, 60c6f333-3053-47c5-902e-11ff038e4ac5 21, 1429283609, 6f760b86-60fe-456c-8f03-3f2e77c3e46e 21, 1429283609, 7773a7c9-ab84-4518-80b0-8d82bdaa4c0f 21, 1429283609, 795a2629-ff5c-41cf-a97b-ce02e83ce2f9 21, 1429283609, 7abc187b-dcfe-4f3a-970b-ef2fc36249b9 21, 1429283609, 925bf18c-3148-46f9-a6ff-55d6be1ce613 21, 1429283609, 95d202b0-f55f-4a34-94c1-7e07494507bf 21, 1429283609, 9c8aded7-b583-4b34-ac2f-f5d473dd3bed 21, 1429283609, a74b0f6f-ac6b-4c23-bdf5-7f1c59ede4e5 21, 1429283609, aa6201c0-a37c-4ac3-a7e6-4660e0ac1f96 21, 1429283609, afdde595-6dec-497a-8e0c-2889735e0bd9 21, 1429283609, b7b9092f-3970-40a7-b160-81be342c9c7b 21, 1429283609, b926df1c-6e9d-43d7-81b7-f487e320ea06 21, 1429283609, bb168dd4-9eb5-4abe-a458-057b5fb598e3 21, 1429283609, c85a4b9d-8009-4ab7-88c0-fdb1c410140d 21, 1429283609, d6da0425-5b39-45ee-98fc-7b84051fb358 21, 1429283609, dbccfe72-a5f7-43e9-b580-f66f18bb08f5 21, 1429283609, df64c887-df52-4f41-9234-6905e2c32674 21, 1429283609, e769697d-fc12-4041-b33c-43dfb39039f3 21, 1429283609, eb6b5e28-9221-4d3d-b970-0c71b7184843 21, 1429283609, f6898def-7686-4dfb-9e01-9bce0b80bbe6 21, 1429283609, f759c2e7-ecfc-4455-a799-9281db8881f8 22, 1429283609, c8352cde-b808-46da-85c6-3ca9df652bb7 6, 1429283609, 40f32061-77d4-4446-9557-b622ac799704 6, 1429283609, 59c47b71-96fd-4d07-bb65-366fa9b7a4d7 24, 1429283609, 82d5cdc6-956e-42e9-bcd4-c0b9ba204b49 25, 1429283609, 95f8413c-a8e0-4d70-9aab-4b0f7be64178 7, 1429283609, 01c3edd3-14f0-4bf1-b29b-34547f770cb1 7, 1429283609, 7cc75412-4a93-4ee8-98ab-70b79a95d8af 7, 1429283609, acf656f0-9180-43fe-a7bf-ce34679f391f 0, 1429283608, 0137a653-fa74-4a52-ba4c-50f562762de1 0, 1429283608, 051512ec-e7b1-4c3d-8061-21b7fbf08d0e 0, 1429283608, 0650d772-9447-49eb-9aa3-f27b2540ce8d 0, 1429283608, 157e1b11-7e80-4547-ae18-3139fd408340 0, 1429283608, 1810844c-15f8-436a-a895-54f3277e1d49 0, 1429283608, 21d67ba6-122d-43e7-8f1b-a95fe348dfef 0, 1429283608, 4246bf2b-2847-457a-9b0e-6032b991ce0e 0, 1429283608, 54e1c264-8dbd-4ab1-a78e-be806c9913e6 0, 1429283608, 60ac1e84-abde-40db-b9c0-b1a28c0f908b 0, 1429283608, 61992ab9-5bb5-4d2f-8193-e70152099fa6 0, 1429283608, 7e35918e-a3c2-4309-8029-ae7dacb5ca0b 0, 1429283608, 89d0ae4a-c11d-4e9a-9576-5c214a8e32f6 0, 1429283608, 92426dba-d599-49a0-8c49-c3aabf670ef4 0, 1429283608, b8f74bdc-df0b-4651-9acd-fbd4a3773663
|
|---|