Wie ich culmultitive Länge von Strings in ein Array mit Perl

Question

speichern

Ich habe eine Datei, die eine Reihe von Zeilen hat, die aus A, C, G und T bestehen. Ich möchte die Länge dieser Linien finden, eine Liste der kritischen Längen erstellen (die Längen nacheinander addieren) und sie in ein Array setzen. Bisher habe ich:

#! /usr/bin/perl -w 
use strict; 

my $input = $ARGV[0]; 
my %idSeq; 
my (@ID, @Seq); 

open (my $INPUT, "<$input") or die "unable to open $input"; 

while (<$INPUT>) { 
    if (my $culm_length = /^([AGCT]\w+)\n$/) { 
    length($culm_length) = $_; 
    push (@Seq, $1); 

    }  
} 
bla bla bla.... 

Bisher denke ich, was ich geschrieben habe gibt mir eine Reihe von der Länge der einzelnen Zeilen. Ich will die kultischen Längen, irgendwelche Ideen?

Answer 1

Mit Bezug auf Ihre vorherige Frage How do I read strings into a hash in Perl, die auf Eis gelegt wurde, denke ich vielleicht totale der Längen der Linien

Ich würde schreiben Sie es auf diese Weise eine laufen wollen. Es hält die laufende Summe in $total und schiebt seinen Wert auf die @lengths Array jedes Mal, es

use strict; 
use warnings 'all'; 

my ($input) = @ARGV; 

open my $fh, '<', $input or die qq{unable to open "$input" for input: $!}; 

my @lengths; 
my $total = 0; 

while (<$fh>) { 
    push @lengths, $total += length $1 if /^([ACGT]+)/; 
} 

Answer 2

#!/usr/bin/perl -w 
use strict; 

my $length = 0; 
while (<>) { 
    $length += length($1) if /^([AGCT]\w+)$/; 
} 

my @length = $length; # But why would you want to do this?! 

...