#!/usr/bin/perl -w use Tie::File; use strict; use warnings; tie my @in_lines, 'Tie::File', "infile"; tie my @out_lines,'Tie::File', "outfile"; my $lines_to_transfer = 3; push @out_lines, splice @in_lines, 0,$lines_to_transfer;
In reply to Re: print lines from a file
by artist
in thread print lines from a file
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |