Re: Export CSV v2

Have you looked at line 22?

# Get vars from second line
my @vars = @{ $csv->getline($csvfh) };
[download]

When does getline return an undef? Your input probably contains only one line, already consumed by $columnNames.

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Comment on Re: Export CSV v2 Select or Download Code

Replies are listed 'Best First'.
Re^2: Export CSV v2 by Tux (Canon) on Oct 09, 2012 at 07:09 UTC
If `getline ()` returns `undef` it has to be end-of-file, because in all other cases `auto_diag => 2` will cause a `croak ()`. It is possible to get an empty list there, but that would not result in an error on that point. Enjoy, Have FUN! H.Merijn pmsig-200365	[reply] [d/l] [select]
Re^2: Export CSV v2 by Perl3r (Novice) on Oct 09, 2012 at 01:04 UTC
Thanks choroba Input files contains at the moment 5 lines.. eg Location,Router_Name,Loopback IP,OSPF Process ID,OSPF Area,Network,Mas +k,GIG0/0 IP Address,0/0 Subnet Mask,Template ##location##,##rtrname##,##loop0-ip##,##ospf-id##,##ospf-area##,##ospf +-network##,##ospf-mask##,##eth00-ip##,##eth00-sm##, Sydney,SYD-RTR-001,192.168.15.1,99,0,172.25.16.0,0.0.0.255,172.25.16.6 +,255.255.255.0,router-C3840 Canberra,CBR-RTR-001,192.168.15.2,99,0,172.25.16.0,0.0.0.255,172.25.16 +.10,255.255.255.0,router-C2600 Melbourne,MEL-RTR-001,192.168.15.3,99,0,172.25.16.0,0.0.0.255,172.25.1 +6.14,255.255.255.0,router-C3840 [download]	[reply] [d/l]
Re^3: Export CSV v2 by Anonymous Monk on Oct 09, 2012 at 02:00 UTC
Hi, I am suspicious of that comma at the end of line 2. J.C.	[reply]
Re^4: Export CSV v2 by Perl3r (Novice) on Oct 09, 2012 at 02:05 UTC
Sorry, that was an error on my part- there is actually a value there.. Also it makes no difference if there is, or is not a value there. . Thanks for looking	[reply]
Re^3: Export CSV v2 by choroba (Cardinal) on Oct 09, 2012 at 07:22 UTC
Then you are probably setting the end-of-line to something else than actually present in the data. لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply]