Last Character into Array

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Last Character into Array by BrowserUk (Patriarch) on Apr 26, 2011 at 02:09 UTC
If you really mean just the last non-newline character: `#! perl -slw use strict; my @array = map{ chomp; chop } <DATA>; __END__ xxxxxx: 0 yyyyyy: 6 zzzzzz: 5` [download] Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply] [d/l]
Re: Last Character into Array by wind (Priest) on Apr 26, 2011 at 01:35 UTC
`use strict; use warnings; my $file = 'foo.txt'; open my $fh, $file or die "$file: $!"; my @array; while (<$fh>) { push @array, $1 if /(\d+)$/; } close $fh; print "@array\n";` [download]	[reply] [d/l]
Re^2: Last Character into Array by anonymized user 468275 (Curate) on Apr 26, 2011 at 13:08 UTC
~~The first digits if found in the first field would get transferred into the array instead of the second field.~~ oops just noticed the "$" in the regexp One world, one people	[reply]
Re: Last Character into Array by anonymized user 468275 (Curate) on Apr 26, 2011 at 13:15 UTC
Using the most fault tolerant regexp I can think of: `my @array = (); open my $fh, "file.ext" or die $!; LINE: while ( <$fh> ) { chomp; $_ and next LINE; if ( /\S+\s\:\s(\d+)/ ) { push @array, $1; } else { die "unexpected data format at line $.:\n$_\n"; } } close $fh;` [download] One world, one people	[reply] [d/l]