Hi All,
I would like to read and process line by line (using while) some text
embeded into my perl script.
I tried something like:
#/usr/sbin/perl
open(D, "__DATA__");
while(<D>){
print $_;
}
close(D);
__DATA__
This is a test
and nothing else
############
the execution of the program should give:
This is a test
and nothing else
This example does not work, but I know that there is something like that
in perl, and it will be great if someone point me the right way to do
this. By the way, I am familiar with the print<<END; anything
END
but this is not what I want. Thanks in advance for any positive
response.
cheers
*******************************************************************
PEDRO A. RECHE , pHD TL: 617 632 3824
Bioinformatics Research Scientist FX: 617 632 4569
Dana-Farber Cancer Institute, EM: [EMAIL PROTECTED]
Molecular Immunology Foundation, EM: [EMAIL PROTECTED]
Harvard Medical School, W3: http://www.mifoundation.org
44 Binney Street, D1510A,
Boston, MA 02115
*******************************************************************
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
