FAQ
#!{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

Search Discussions

Related Discussions

Discussion Navigation
viewthread | post
Discussion Overview
groupbeginners @
categoriesperl
postedFeb 15, '02 at 8:58p
activeFeb 15, '02 at 8:58p
posts1
users1
websiteperl.org

1 user in discussion

William Ampeh: 1 post

People

Translate

site design / logo © 2022 Grokbase