Re: Generation of .pat files

(Që…ð@ÄØð@ÄÔ)
Sun, 31 Aug 1997 15:18:02 -0500 

This is a multi-part message in MIME format.
--------------649F5FF461FA6CFEAEA78E84
Content-Type: text/plain; charset=us-ascii
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Content-Transfer-Encoding: 7bit

Jesus Frias Celayeta wrote:

> Hi all:
>         I am going to build a quite
> large pattern file for SNNS, and I
> have been messing around looking if
> there is some nice program or script
> that could generate this file
> automatically from, lets say, ascii
> text
> format. I have found an octave program
> that would build up a file form
> input and output matrixes, but I would
> like to know if there is any other
> alternative for it (I had to build
> octave learn how to put the data onto
> it, and then make the .pat file).
>
> Thanks
>
> Jesus Maria Frias Celayeta
> PhD. student
> Escola Superior de Biotecnologia
> R. Dr. Antonio Bernardino de Almeida
> s/n
> 4200 Porto. PORTUGAL.
> TLFN=INTL+351+2+5580042
> email=iosu@esb.ucp.pt
>
> o============o Sending unsolicited
> commercial e-mail (UCE)  to this
> address
>  Legal Notice   is indication of your
> consent to pay me $120/hour for 1 hour
>
> o============o  minimum for
> professional proofreading & technical
> assessment.

I use a perl script to splice two file
(an input and an output) togather.

Hope this helps

Dave Waller
Monroe Wi


--------------649F5FF461FA6CFEAEA78E84
Content-Type: application/x-perl; name="Splice.pl"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="Splice.pl"

#!/usr/bin/perl
# splice is used to make a pattern file from two file.
# file 1 is the in file
# file 2 is the out file
#
$x = 1;
# output file
open (PAT, ">>/mnt/hdb/home/dave/Isaac/lhq94.pat") || die ("No Can Open output file");


# file 1
open (FILE1, "/mnt/hdb/home/dave/Isaac/mq94.100.txt") || die ("No Can Open Input Patern File");

# file 2
open (FILE2, "/mnt/hdb/home/dave/Isaac/lhq94.100.txt") || die ("No Can Open Output Patern File");

$inline = <FILE1>;
$outline = <FILE2>;

while ($inline ne "") {
    print PAT ("\# Input \# ", $x, "\n");
    print PAT ($inline);
    print PAT ("\# Output \# ", $x, "\n");
    print PAT ($outline);
    $inline = <FILE1>;
    $outline = <FILE2>;
    $x++;
}
close (PAT);
close (FILE1);
close (FILE2);

--------------649F5FF461FA6CFEAEA78E84--