我有兴趣编写一个perl脚本,它转到以下链接并提取数字1975:https://familysearch.org/search/collection/results#count=20&query=%2Bevent_place_level_1%3ACalifornia%20%2Bevent_place_level_2%3A%22San %20Diego%22%20%2Bbirth_year%3A1923-1923〜%20%2Bgender%3AM%20%2Brace%3AWhite&collection_id = 2000219
该网站是1923年出生于加利福尼亚州圣地亚哥县的1923年出生的白人人数.我试图以循环结构来实现这一目标,以概括多个县和出生年份.
在文件locations.txt中,我列出了县,例如圣地亚哥县.
当前代码运行,但不是#1975,它显示未知.1975年的数字应该是$ val \n.
我非常感谢任何帮助!
#!/usr/bin/perl
use strict;
use LWP::Simple;
open(L, "locations26.txt");
my $url = 'https://familysearch.org/search/collection/results#count=20&query=%2Bevent_place_level_1%3A%22California%22%20%2Bevent_place_level_2%3A%22%LOCATION%%22%20%2Bbirth_year%3A%YEAR%-%YEAR%~%20%2Bgender%3AM%20%2Brace%3AWhite&collection_id=2000219';
open(O, ">out26.txt");
my $oldh = select(O);
$| = 1;
select($oldh);
while (my $location = <L>) {
chomp($location);
$location =~ s/ /+/g;
foreach my $year (1923..1923) {
my $u = $url;
$u =~ s/%LOCATION%/$location/;
$u =~ s/%YEAR%/$year/;
#print "$u\n";
my $content = get($u);
my $val = 'unknown';
if ($content =~ / of .strong.([0-9,]+)..strong. /) {
$val = …Run Code Online (Sandbox Code Playgroud) 使用该list命令时,是否可以显示整数的附加数字(理想情况下是完整整数),而不是以科学计数法显示?
例如,现在,我有一个显示为 1.90e+10 的整数,而我认为完整值是 19001000001。理想情况下,我想获得完整值,或者至少在提供的两个小数点之外获得额外的小数点(即 9 和 0)。
我正在使用 Stata SE 11.1。