36 lines
526 B
Perl
36 lines
526 B
Perl
|
#while(<DATA>){
|
||
|
|
# Do something with the data here
|
||
|
|
#}
|
||
|
|
#__DATA__
|
||
|
|
# The actual data
|
||
|
|
|
||
|
|
|
||
|
|
#Or you could use the $_ explicitly
|
||
|
|
|
||
|
|
#while($_=<DATA>){
|
||
|
|
# Do something with the data here
|
||
|
|
#}
|
||
|
|
#__DATA__
|
||
|
|
# The actual data
|
||
|
|
|
||
|
|
|
||
|
|
#Or use another variable instead of $_ as follows:
|
||
|
|
|
||
|
|
#while($inputline=<DATA>){
|
||
|
|
# Do something with the data here
|
||
|
|
#}
|
||
|
|
#__DATA__
|
||
|
|
# The actual data
|
||
|
|
|
||
|
|
while(<DATA>){
|
||
|
|
print if /A/; # Print the line if it matches A
|
||
|
|
}
|
||
|
|
__DATA__
|
||
|
|
A
|
||
|
|
B
|
||
|
|
I
|
||
|
|
N
|
||
|
|
J
|
||
|
|
K
|
||
|
|
|
||
|
|
|