in reply to get few lines from a file
Skip, then slurp:
use strict; use warnings; while( <DATA> ){ last if /^Status of the log/; } my @lines = do { local $/; <DATA> }; print @lines; __DATA__ hostname 06-NOV-13 log status Status of the log 1 248641 2 211749 3 246008 4 262190 5 175450
|
|---|