Чтение разделов из файла в Perl - PullRequest
0 голосов
/ 11 июля 2009

Я пытаюсь прочитать значения из входного файла в Perl. Входной файл выглядит так:

1-sampledata1 This is a sample test
              and data for this continues
2-sampledata2 This is sample test 2
              Data for this also is on second line

Я хочу прочитать вышеуказанные данные, чтобы данные для 1-sampledata1 входили в @array1, а данные для 2-sampledata2 входили в @array2 и так далее. У меня будет около 50 таких разделов. как 50-sampledata50.

РЕДАКТИРОВАТЬ : имена не всегда будут X-sampledataX. Я просто сделал это, например. Так что имена не могут быть в цикле. Я думаю, мне придется набирать их вручную

У меня пока есть следующее (что работает). Но я ищу более эффективный способ сделать это ..

foreach my $line(@body){
        if ($line=~ /^1-sampledata1\s/){
                $line=~ s/1-ENST0000//g;
                $line=~ s/\s+//g;
                push (@array1, $line);
          #using splitarray because i want to store data as one character each
          #for ex: i wana store 'This' as T H I S in different elements of array
                @splitarray1= split ('',$line);
        last if ($line=~ /2-sampledata2/);
        }
}
foreach my $line(@body){
        if ($line=~ /^2-sampledata2\s/){
                $line=~ s/2-ENSBTAP0//g;
                $line=~ s/\s+//g;
                @splitarray2= split ('',$line);
        last if ($line=~ /3-sampledata3/);
        }
}

Как видите, у меня есть разные массивы для каждого раздела и разные циклы for для каждого раздела. Если я пойду с подходом, который у меня есть, я получу 50 для циклов и 50 массивов.

Есть ли другой лучший способ сделать это? В конце я хочу получить 50 массивов, но не хочу писать 50 для циклов. И так как я буду потом перебирать 50 массивов в программе, возможно, сохраню их в массиве? Я новичок в Perl, так что это своего рода подавляющий ...

Ответы [ 4 ]

4 голосов
/ 11 июля 2009

Первое, на что нужно обратить внимание, это то, что вы пытаетесь использовать имена переменных с целочисленными суффиксами: не надо. Используйте массив всякий раз, когда вы захотите это сделать. Во-вторых, вам нужно только прочитать, чтобы просмотреть содержимое файла один раз, а не несколько раз. В-третьих, в Perl обычно нет веских причин рассматривать строку как массив символов.

Обновление: Эта версия кода использует наличие начальных пробелов, чтобы решить, что делать. Я оставляю предыдущую версию также для справки.

#!/usr/bin/perl

use strict;
use warnings;

my @data;

while ( my $line = <DATA> ) {
    chomp $line;
    if ( $line =~ s/^ +/ / ) {
        push @{ $data[-1] }, split //, $line;
    }
    else {
        push @data, [ split //, $line ];
    }
}

use Data::Dumper;
print Dumper \@data;

__DATA__
1-sampledata1 This is a sample test
              and data for this continues
2-sampledata2 This is sample test 2
              Data for this also is on second line

Предыдущая версия:

#!/usr/bin/perl

use strict;
use warnings;

my @data;

while ( my $line = <DATA> ) {
    chomp $line;
    $line =~ s/\s+/ /g;
    if ( $line =~ /^[0-9]+-/ ) {
        push @data, [ split //, $line ];
    }
    else {
        push @{ $data[-1] }, split //, $line;
    }
}

use Data::Dumper;
print Dumper \@data;

__DATA__
1-sampledata1 This is a sample test
              and data for this continues
2-sampledata2 This is sample test 2
              Data for this also is on second line
1 голос
/ 11 июля 2009

Код ниже очень похож на решения @ Брэда Гилберта и @ Sinan Unur :

#!/usr/bin/perl
use strict;
use warnings;    
use Data::Dumper;

my (%arrays, $label);
while (my $line = <DATA>) 
{
    ($label, $line) = ($1, $2) if $line =~ /^(\S+)(.*)/; # new data block

    $line =~ s/^\s+//; # strip whitespaces from the begining
    # append data for corresponding label
    push @{$arrays{$label}}, split('', $line) if defined $label;
}

print $arrays{'1-sampledata1'}[2], "\n";     # 'i'
print join '-', @{$arrays{'2-sampledata2'}}; # 'T-h-i-s- -i-s- -s-a-m-p-l
print Dumper \%arrays;

__DATA__
1-sampledata1 This is a sample test
              and data for this continues
2-sampledata2 This is sample test 2
              Data for this also is on second line

выход

i
T-h-i-s- -i-s- -s-a-m-p-l-e- -t-e-s-t- -2-D-a-t-a- -f-o-r- -t-h-i-s- -a-l-s-o- -i-s- -o-n- -s-e-c-o-n-d- -l-i-n-e-
$VAR1 = {
          '2-sampledata2' => [
                               'T',
                               'h',
                               'i',
                               's',
                               ' ',
                               'i',
                               's',
                               ' ',
                               's',
                               'a',
                               'm',
                               'p',
                               'l',
                               'e',
                               ' ',
                               't',
                               'e',
                               's',
                               't',
                               ' ',
                               '2',
                               'D',
                               'a',
                               't',
                               'a',
                               ' ',
                               'f',
                               'o',
                               'r',
                               ' ',
                               't',
                               'h',
                               'i',
                               's',
                               ' ',
                               'a',
                               'l',
                               's',
                               'o',
                               ' ',
                               'i',
                               's',
                               ' ',
                               'o',
                               'n',
                               ' ',
                               's',
                               'e',
                               'c',
                               'o',
                               'n',
                               'd',
                               ' ',
                               'l',
                               'i',
                               'n',
                               'e',
                               '
'
                             ],
          '1-sampledata1' => [
                               'T',
                               'h',
                               'i',
                               's',
                               ' ',
                               'i',
                               's',
                               ' ',
                               'a',
                               ' ',
                               's',
                               'a',
                               'm',
                               'p',
                               'l',
                               'e',
                               ' ',
                               't',
                               'e',
                               's',
                               't',
                               'a',
                               'n',
                               'd',
                               ' ',
                               'd',
                               'a',
                               't',
                               'a',
                               ' ',
                               'f',
                               'o',
                               'r',
                               ' ',
                               't',
                               'h',
                               'i',
                               's',
                               ' ',
                               'c',
                               'o',
                               'n',
                               't',
                               'i',
                               'n',
                               'u',
                               'e',
                               's',
                               '
'
                             ]
        };
1 голос
/ 11 июля 2009
#! /usr/bin/env perl
use strict;
use warnings;

my %data;
{
  my( $key, $rest );
  while( my $line = <> ){
    unless( ($rest) = $line =~ /^     \s+(.*)/x ){
      ($key, $rest) = $line =~ /^(.*?)\s+(.*)/;
    }
    push @{ $data{$key} }, $rest;
  }
}
0 голосов
/ 11 июля 2009

Вместо этого вы должны использовать хеш-карту для массивов.

Используйте этот шаблон регулярного выражения, чтобы получить индекс:

/^(\d+)-sampledata(\d+)/

И затем, с my %arrays, выполните:

push($arrays{$index}), $line;

Затем вы можете получить доступ к массивам с помощью $arrays{$index}.

...