Re^3: Making a variable from a number in front of a string

The <DATA> file handle makes it possible to read the __DATA__ section at the end of the program, i.e. in this case:

__DATA__
(1) Preface

What is this all about.

(2) Summary of Significant Accounting Policies

Revenue Recognition

Revenue is recognized at the time goods are sold and shipped.

(3) Long-term Debt
[download]

It simulates another file and it is a way to quickly test programs without having to create a separate test input file

Comment on Re^3: Making a variable from a number in front of a string Select or Download Code

Replies are listed 'Best First'.
Re^4: Making a variable from a number in front of a string by Marshall (Canon) on Jul 15, 2016 at 18:22 UTC
The DATA file handle is actually even a bit cooler than that. To set this up, Perl opens the program for read and then seeks to the first byte after the __DATA__ line. Reading from DATA means that you are actually reading the program file. It is possible for the program to "read itself", i.e.: `#!/usr/bin/perl use warnings; use strict; ## DEMO of reading myself seek (DATA,0,0) or die "unable to seek $!"; print while <DATA>; __DATA__ some data would go here` [download] To re-read the DATA section, you could use a tell() to figure out where the initial DATA byte is and then later seek back to that initial byte offset.	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: Making a variable from a number in front of a string
by Marshall (Canon) on Jul 15, 2016 at 18:22 UTC

It is possible for the program to "read itself", i.e.:

#!/usr/bin/perl
use warnings;
use strict;

## DEMO of reading myself

seek (DATA,0,0) or die "unable to seek $!";
print while <DATA>;


__DATA__
some data would go here
[download]

[reply]
[d/l]