Help for this page

Select Code to Download


  1. or download this
    open (IF, "/home/stanley/Desktop/18048320.txt");
my $text = <IF>;
my @splittext = split (/[.] [A-Z]/, $text);
close (IF);
  2. or download this
    open my $if, '<', '/path/to/file' or die "/path/to/file: $!";
# complete file content in one scalar
my $text = do { local $/; <$if> }
close $if;
  3. or download this
    #for my $gene ( <HANDLE> ) {
while ( my $gene = <HANDLE> ) {