Re: multiple __DATA__ entries possible?-- A cleaner way

[William.Ampeh]

#!{location of Perl}
# ------------     Main Module ----------------------------------
my @array = &one;
my @array1 = &two;
print "\n This is DATA:\n@array\n\nThis is array1:\n@array1\n\n";

#--------------------- BEGIN SUBS -----------------------------
sub one {
     my @array=(<<"END_DATA" =~ m/^\s*(.+)/gm);
     stuff in data
     more stuff data
END_DATA
     @array;
}

sub two {
     my @array=(<<"END_DATA" =~ m/^\s*(.+)/gm);
     stuff in data1
     more stuff data1
END_DATA
     @array;
}

# Be careful not to indent END_DATA line
#----------- END OF SUBS -------------------------------------
__________________

William Ampeh (x3939)
Federal Reserve Board


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]