Looks awesome, but I get errors: it does not like the /r, but does fine with /e except the output is all 11111.
# perl -c foobar
Bareword found where operator expected at foobar line 12, near "s/\s+/
+$letter++ . ' '/er"
syntax error at foobar line 12, near "s/\s+/$letter++ . ' '/er "
foobar had compilation errors.
root@facs04ap [/var/adm/scripts]
# perl -v
This is perl, v5.8.8 built for aix-thread-multi
code from u
use strict;
use warnings;
use List::MoreUtils qw/natatime/;
my $it = natatime 5, <DATA>;
while ( 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++ . ' '/er } @lines;
print "\n";
}
__DATA__
50###### 8 Z Axxx ,xxxxxxx 19793.43 02/02/2012 06/08
+/2012 32989.05
037###### S JOYCE xxxxxxS .00 06/06/xxxx
+ 0
0 7 1471 xxxx xxxx x #101 .00 02/08/2012
+ 06/15/2012 NOV
0 U MILWAUKEE, WI xxxxx 32989.05 02/08/2012
+ 3
3##### MILWAUKEE WI .00 5321
+4 12
50##### 8 Z Axxx ,Nxxxxx 75.00 05/27/2012 06/
+05/2012 1845.00
03######3 E Nxxxx Axxxx .00 09/xx/xxxx 06/
+05/2012 MYT#####
7####### S 156xxx xxxxx BLVD .00 06/06/2012 06/
+14/2012 MYT######## NOV
0 C TAYLOR,MI 48180 1845.00 05/27/2012
+ 3 3
37###### S TAYLOR MI .00 48
+180 3 12
50##### 9 Z ALxxxx Rxxxx ,SUSxxx 75.00 05/05/2012 05/15
+/2012 2045.00
0000000000 E SUSE Axxxxx Rxxxx .00 03/xx/xxxx 05/1
+5/2012 AJT9#######
31####### 44xxx xxx AVE .00 05/16/2012 0
+6/15/2012 AJT92###### NOV
0 C LINCOLN PARK,MI xxxxx 2045.00 05/05/2012
+ 1 3
0 S LINCOLN PARK MI .00 4
+8146 1 12
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
Outside of code tags, you may need to use entities for some characters:
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.
|
|
