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...
In reply to Re: skip lines
by the_hawk_1
in thread skip lines
by halligalli
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |