Re: OT: Perl problem

[Ant <ant@xxxxxxx>]

On Thursday 17 July 2003 07:17, Tony Butler wrote:

> eg. instead of AGATCAGTACTGACTTGATCAGTTACGTCATGTACGT
> have
> AGATATC
> CATGACT
> TAGCATA
> CATGATA

I assume there's no whitespace, so:

#!/usr/bin/perl
$file =3D shift @ARGV;

open MF, "<$file" or die "can't open input";
print "$line\n" while(read(MF, $line, 80));
close MF;


hth
ant
--=20
/\/\
www.ant.org  ('')  www.ant.org
()
Megawatt Winged Avenger