Help for this page

Select Code to Download

Select or download this

    open (DAT, "$INfile") || die "$!\n";
    my @aTd = <DAT>;
    close(DAT);
    @aTd = split(/\n/, "@aTd");

Select or download this

    open (DAT, "$INfile") || die "$!\n";
    chomp(my @aTd = <DAT>);