Блог

У меня есть csv-файл (toharvest_og_sourcing_acts.csv) со следующими строками:

 No. 2,Sep/1900/28
No. 3,Sep/1900/28
No. 4,Sep/1900/28
... (Deleted lines, but my line is up until line 403)
No. 2,Sep/1900/28
No. 3,Sep/1900/28
No. 4,Sep/1900/28
  

У меня есть следующий сценарий Perl для перебора этого csv построчно:

 my $file = 'toharvest_og_sourcing_acts.csv';
my $url = 'https://elibrary.judiciary.gov.ph/thebookshelf/docmonth/';

my @list;
open (my $csv, '<', $file) || die "cant open";

foreach (<$csv>) {
   chomp;
   my @fields = split(/,/);       
   my $urlcomplete = "$url"."$fields[1]";       
   print "$urlcomplete";
}
  

То, что я хотел сделать, это напечатать весь первый элемент [1] (начать отсчет с нуля) каждой строки csv, предваряемой URL ($url). Однако, когда я запускаю сценарий perl, он останавливается и не выводит желаемый результат в командной строке. Вместо этого я получаю, кажется, что скрипт выполняется примерно за миллисекунду, а ниже выводится то, что выводится:

hebookshelf/docmonth/Mar/1923/28

При небольшом наборе (например, менее пяти) я вижу URL-адреса (например https://elibrary.judiciary.gov.ph/thebookshelf/docmonth/May/1902/28 ) выводятся. Почему с 403 строками поведение отличается?

Пожалуйста, проверьте, дает ли следующий код ожидаемый результат

 use strict;
use warnings;
use feature 'say';

my $fname    = 'toharvest_og_sourcing_acts.csv';
my $url_base = 'https://elibrary.judiciary.gov.ph/thebookshelf/docmonth/';
my $regex    = qr(^No. d ,w{3}/d{4}/d{2});

open my $csv, '<', $fname
    or die "Can't open $fname";

while (<$csv>) {
   chomp;
   next unless $regex;
   my $url = $url_base . (split ',')[1];       
   say $url;
}

close $csv;