Mega Code Archive

 

Categories / Perl / String

 

The DATA Filehandle

#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