Re: Input to String OR Array

This may be what you are looking for:

use strict;
use warnings;

my $heading = '';
my @lines;

while (my $line  = <DATA>)
  {
  chomp $line;
  if ($line =~ /^[1-9]/)
    {#New heading line
    ProcessEntry ($heading, @lines) if length $heading;
    $heading = $line;
    @lines = ();
    }
  else
    {push @lines, $line;}
  }

ProcessEntry ($heading, @lines) if length $heading;
  
sub ProcessEntry
{
my $heading = shift;
my @lines = @_;

print "Heading is: $heading\n";
print "Lines are:\n   " . join "\n   ", @lines;
print "\n\n";
}
[download]

__DATA__
1. This string can be modified using only regexes
-These strings
-Need to be
-put into an
-array
2.Here's another string needs only regexes
-But here are more
-strings which 
-I want arrayed
[download]

Which prints:

Heading is: 1. This string can be modified using only regexes
Lines are:
   -These strings
   -Need to be
   -put into an
   -array

Heading is: 2.Here's another string needs only regexes
Lines are:
   -But here are more
   -strings which 
   -I want arrayed
[download]

Perl is Huffman encoded by design.

Comment on Re: Input to String OR Array Select or Download Code

Replies are listed 'Best First'.
Re^2: Input to String OR Array by jriggs420 (Sexton) on Oct 18, 2005 at 21:59 UTC
First off, I am using the Text::Wrap module on the first string to format the text the way it needs to be. So it takes the first long string and formats it beautifully, no problems here. After that, I need an array on the subsequent string(s) because the first string needs a special regex, the ones in the middle need a special regex, and the last string (before the next formatted string) needs yet another regex. The only way I know to accomplish this is to put those strings into an array. Sorry I tried to simplify the question, but may have lost the context along the way. Does this clarify? Suggestions? Thanks in advance, Joe	[reply]
Re^3: Input to String OR Array by GrandFather (Saint) on Oct 18, 2005 at 22:38 UTC
So as sample code the sub becomes: `sub ProcessEntry { my $heading = shift; my @lines = @_; print "Heading is: $heading\n"; print "middle lines are:\n"; print " $lines[$_]\n" for (0..(@lines-2)); print "Last line is: $lines[-1]\n\n"; }` [download] Which prints: `Heading is: 1. This string can be modified using only regexes middle lines are: -These strings -Need to be -put into an Last line is: -array Heading is: 2.Here's another string needs only regexes middle lines are: -But here are more -strings which Last line is: -I want arrayed` [download] Obviously you can replace the print lines with whatever you require, but that should suffice to show you how to access the various lines. Perl is Huffman encoded by design.	[reply] [d/l] [select]
Re^4: Input to String OR Array by jriggs420 (Sexton) on Oct 19, 2005 at 00:47 UTC
Thanks GrandFather..This isn't exactly how I thought it would work out, but I think I can finesse it to suit my needs, such is life.....	[reply]