помогите с perl кодом для разбора файла - PullRequest
Новая
       40

помогите с perl кодом для разбора файла

0 голосов
/ 02 июля 2011

Я новичок в Perl и у меня есть вопрос о синтаксисе.Я получил этот код для разбора файла, содержащего конкретную информацию.Мне было интересно, что делает if (/DID/) часть подпрограммы get_number?Использует ли это регулярные выражения?Я не совсем уверен, потому что совпадения с регулярным выражением выглядят как $_ =~ /some expression/.Наконец, необходим ли цикл while в подпрограмме get_number? 

#!/usr/bin/env perl

use Scalar::Util qw/ looks_like_number /;
use WWW::Mechanize;

# store the name of all the OCR file names in an array
my @file_list=qw{
   blah.txt
};

# set the scalar index to zero
my $file_index=0;

# open the file titled 'outputfile.txt' and write to it
# (or indicate that the file can't be opened)
open(OUT_FILE, '>', 'outputfile.txt')
    or die "Can't open output file\n";

while($file_index < 1){
    # open the OCR file and store it in the filehandle IN_FILE
    open(IN_FILE, '<', "$file_list[$file_index]")
        or die "Can't read source file!\n";

    print "Processing file $file_list[$file_index]\n";
    while(<IN_FILE>){
            my $citing_pat=get_number();
            get_country($citing_pat);
    }
    $file_index=$file_index+1;
}
close IN_FILE;
close OUT_FILE;

Определение get_number приведено ниже.

Ответы [ 2 ]

1 голос
/ 02 июля 2011

В Perl есть переменная $_, которая для многих вещей является своего рода полигоном по умолчанию.

В get_number, while(<IN_FILE>){ читает строку в $_, а следующая строка проверяет, соответствует ли $_ регулярному выражению DID.

Это также распространеночтобы увидеть chomp;, который также работает на $_, когда аргумент не указан.

0 голосов
/ 02 июля 2011

В этом случае if (/DID/) по умолчанию ищет переменную $_, так что это правильно.Тем не менее, это довольно слабое регулярное выражение, ИМО.

Цикл while в сабвуфере может быть необходим, это зависит от того, как выглядит ваш ввод.Вы должны знать, что два цикла while приведут к тому, что некоторые строки будут полностью пропущены.

Цикл while в основной программе будет занимать одну строку и ничего с этим не делать.По сути, это означает, что первая строка в файле и каждая строка, следующая непосредственно за совпадающей строкой (например, строка, содержащая «DID», а 4-е поле - это число), также будет отброшена.

InЧтобы правильно ответить на этот вопрос, нам нужно увидеть входной файл.

У этого кода есть ряд проблем, и если он работает, как задумано, это, вероятно, связано с большим количеством удачи.

Ниже приведена очищенная версия кода.Я держал модули внутри, так как я не знаю, используются ли они в другом месте.Я также сохранил выходной файл, так как он может быть использован там, где вы не показали.Этот код не будет пытаться использовать неопределенные значения для get_country и просто ничего не будет делать, если не найдет подходящего числа. 

use warnings;
use strict;
use Scalar::Util qw/ looks_like_number /;
use WWW::Mechanize;

my @file_list=qw{ blah.txt };

open(my $outfile, '>', 'outputfile.txt') or die "Can't open output file: $!";

for my $file (@file_list) {
    open(my $in_file, '<', $file) or die "Can't read source file: $!";
    print "Processing file $file\n";
    while (my $citing_pat = get_number($in_file)) {
        get_country($citing_pat);
    }
}
close $out_file;

sub get_number {
    my $fh = shift;
     while(<$fh>) {
            if (/DID/) {
                    my $field = (split)[3];
                    if($field =~ /^\d+$/){
                return $field;
                    }
            }
     }
    return undef;
}
...