forked from hmw3/Tips_and_Hacks
24 lines
401 B
Perl
Executable File
24 lines
401 B
Perl
Executable File
use 5.12.0;
|
|
use File::Slurp;
|
|
use File::Find ;
|
|
use Cwd ;
|
|
use utf8;
|
|
#use open IN => ":utf8", OUT => ":utf8";
|
|
use open IO => ":utf8";
|
|
|
|
|
|
open IN, "/Users/virginiawhitney/Documents/Henry/WA/Repos/OpenGNT_version3_3.csv";
|
|
open OUT, ">/Users/virginiawhitney/Documents/Henry/WA/Repos/Sample.txt";
|
|
|
|
my $count;
|
|
|
|
while (<IN>) {
|
|
my $count ++;
|
|
if ($count < 6) {
|
|
chomp;
|
|
say OUT $_
|
|
}
|
|
}
|
|
|
|
close OUT;
|
|
close IN; |