Re^5: raw data formatting

What do the indexes look like, i.e., how do they appear in your file?

Noticed that line "F" doesn't wrap if it's the very last DATA line, since it doesn't have a newline at it's end. Thus, make the following two changes and I'll do the same in the original posting:

while ( chomp( my @lines = $it->() ) ) {
[download]

and

print for map { s/\s+/$letter++ . ' '/e; "$_\n" } @lines;
[download]

Remove the print "\n"; line.

Comment on Re^5: raw data formatting Select or Download Code

Replies are listed 'Best First'.
Re^6: raw data formatting by teamassociated (Sexton) on Nov 16, 2012 at 13:25 UTC
Here is the entire file: I need to skip the 1st 88 indexes and do not need any line that do not start w/ a space then a digit...this seemed to of work: `next if ($lines[0] !~ /\A\s+\d+/);` [download] thank you again! Read more... (11 kB)	[reply] [d/l] [select]
Re^7: raw data formatting by marto (Cardinal) on Nov 16, 2012 at 13:40 UTC
Use `<code>` tags for data please. This data (unike your initial post) seemingly contains real names (as well as things titled PHONE, BAD_DEBT, State/Area/zip codes and what could be social security information), are you sure you should be posting this anywhere?	[reply] [d/l]
Re^8: raw data formatting by teamassociated (Sexton) on Nov 16, 2012 at 13:55 UTC
yeah ur right...ok I scrubbed the file and made it not as long. There is no S/S info in this file.	[reply]
Re^9: raw data formatting by Anonymous Monk on Nov 16, 2012 at 14:14 UTC
Re^10: raw data formatting by teamassociated (Sexton) on Nov 16, 2012 at 14:17 UTC
Some notes below your chosen depth have not been shown here
Re^10: raw data formatting by teamassociated (Sexton) on Nov 16, 2012 at 14:28 UTC
Some notes below your chosen depth have not been shown here
Re^9: raw data formatting by marto (Cardinal) on Nov 16, 2012 at 14:01 UTC
Re^9: raw data formatting by Kenosis (Priest) on Nov 16, 2012 at 14:01 UTC
Re^10: raw data formatting by teamassociated (Sexton) on Nov 16, 2012 at 14:08 UTC
Re^7: raw data formatting by Kenosis (Priest) on Nov 16, 2012 at 14:15 UTC
A `grep` on the data to check for four spaces followed by a digit at the beginning of each line works: `use strict; use warnings; use List::MoreUtils qw/natatime/; my $it = natatime 5, grep /\A\s{4}\d/, <DATA>; while ( chomp( my @lines = $it->() ) ) { my $letter = 'A'; my $acctNum = do { $lines[0] =~ /\s+(\d+)\s+(\d+)/; $1 . $2 }; push @lines, " acctnum=$acctNum"; print for map { s/\s+/$letter++ . ' '/e; "$_\n" } @lines; } __DATA__ Place your data here...` [download]	[reply] [d/l] [select]
Re^8: raw data formatting by Anonymous Monk on Nov 16, 2012 at 14:18 UTC
Hey, thanks for posting the real data again, good luck notifying the owners of this security breach	[reply]
Re^9: raw data formatting by Kenosis (Priest) on Nov 16, 2012 at 14:27 UTC
Re^10: raw data formatting by teamassociated (Sexton) on Nov 16, 2012 at 14:33 UTC
Some notes below your chosen depth have not been shown here
Re^8: raw data formatting by teamassociated (Sexton) on Nov 16, 2012 at 15:07 UTC
The solution was two fold: Kenosis provided this solution, thnk U! 1. I needed to take out the /r in b/c my Perl is 5.8.8 `print for map { s/\s+/$letter++ . ' '/er} @lines; print for map { s/\s+/$letter++ . ' '/e; "$_\n" } @lines;` [download] 2. I replaced `my $it = natatime 5, <DATA>; with my $it = natatime 5, grep /\A\s{4}\d/, <DATA>;` [download]	[reply] [d/l] [select]


Clear questions and runnable code get the best and fastest answer
	PerlMonks