in reply to skip lines
did you tried the shift command?
Here is what I came with:
Hope this can help you...#!/usr/bin/perl use strict; use warnings; my $dest_dir = "/home/test/"; my @data = ""; my $filename = "$dest_dir/test.txt"; my @lines = ""; open(INPUT,'<'.$filename ) || die "can't open $filename \n" ; @data=<INPUT>; # Shift the lines of the header do { my $line=shift(@data); } while(!$line =~ /Parameter/); print @data; # Or play with @data as you wish, as the header is no longer in it...
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: skip lines
by halligalli (Novice) on Jul 20, 2010 at 15:14 UTC |