主页 / computer / 问题

问题[perl](computer)

Martin Hope
rand'Chris
Asked: 2024-04-18 07:38:56 +0800 CST
  • 5

TLDR：我无法从 GnuCash 和 KMyMoney 中获取在线股票报价。perl Finance::Quote 模块似乎有问题。解决这个问题最简单的方法是什么？

背景

许多免费应用程序（例如 KMyMoney 和 GnuCash）使用 Perl 库 Finance::Quote 从各个网站获取股票、债券和货币报价。然而，这些网站经常更改其面向公众的 URL，从而破坏了这些应用程序的此功能。我正在使用长期支持的 Linux 发行版 (Ubuntu LTS)，因为我喜欢稳定性，但向后移植中没有该库的更新，因此我的软件现在已损坏。

最近 Ubuntu 22.04 LTS 就发生了这种情况。KMyMoney 随 Finance::Quote 版本 1.51（libfinance-quote-perl，于 2021 年发布）一起安装，但由于雅虎最近的更改，该版本现在失败了。这就是我验证该库的安装版本的方法：

perl -MFinance::Quote -e 'print "$Finance::Quote::VERSION\n"'

GnuCash 有另一个实用程序，您可以使用它来验证这是否是问题所在（yahoo_json如果不同，请替换为您的数据提供者）：

gnc-fq-dump -v yahoo_json AAPL

错误输出如下所示：

Finance::Quote fields Gnucash uses:
    symbol: AAPL                 <=== required
      date: ** missing **        <=== recommended
  currency: ** missing **        <=== required
      last: **missing**          <=\
       nav: **missing**          <=== one of these
     price: **missing**          <=/
  timezone:                      <=== optional

** This stock quote cannot be used by GnuCash!


All fields returned by Finance::Quote for stock AAPL

stock           field  value
-----           -----  -----
AAPL         errormsg: Error retrieving quote for AAPL. Attempt to fetch the URL https://query1.finance.yahoo.com/v7/finance/quote?symbols=AAPL resulted in HTTP response 401 (Unauthorized)
AAPL             last: **missing**
AAPL              nav: **missing**
AAPL            price: **missing**
AAPL          success: 0
AAPL           symbol: AAPL

我们可以判断这是服务器问题，因为它返回 HTTP 代码 401。

在不升级整个操作系统的情况下，让在线报价再次运行的最佳方法是什么？

perl
Martin Hope
user1766349
Asked: 2023-04-27 22:27:11 +0800 CST
  • 5

此代码中类的元素是什么response：或者，我如何打印整个对象response？

#!/usr/bin/env perl


# Example code from Chapter 1 of /Perl and LWP/ by Sean M. Burke

# http://www.oreilly.com/catalog/perllwp/

# [email protected]


require 5;

use strict;

use warnings;


use LWP;


my $browser = LWP::UserAgent->new();

my $response = $browser->get("http://www.oreilly.com/");

die "Couldn't access it: ", $response->status_line

 unless $response->is_success;

print $response->header("Server"), "\n";

__END__
perl
Martin Hope
user1642683
Asked: 2021-12-14 10:11:06 +0800 CST
  • 5

我有一个包含这一行的文件：

111112111122113

我想匹配所有出现的 1 的所有两个元素序列。

但是，当我尝试这个时， 尽管我的 RE 末尾$ perl -lne 'print $1 if /.*(11).*/g' u 存在 ，但我只得到一个结果：g

11

在此处输入图像描述 我如何将它们全部打印出来，我的 RExp 有什么问题？

regex perl
Martin Hope
gr68
Asked: 2020-02-04 08:57:49 +0800 CST
  • 5

我没有使用 Perl 或 BerkelyDB 的经验。我有一个巨大的 BerleleyDB，其中包含电子邮件列表和 unix 时间戳。我需要帮助来删除时间戳超过 100 天的电子邮件。

我有这部分 Perl 代码

#!/usr/local/perls/perl-5.26.1/bin/perl

  use BerkeleyDB;

  my $filename = '/usr/local/assp/whitelist.bdb';
  my $dbh = new BerkeleyDB::Hash(
          -Filename => $filename)
          or die "Error opening $filename : $! $BerkeleyDB::Error\n";

 my $cursor = $dbh->db_cursor() ;
    while ($cursor->c_get($k, $v, DB_NEXT) == 0) {
        print "Key: " . $k . ", value: " . $v . "\n";

    }

### Close the Berkeley DB
untie $filename;
exit;

它显示了所有带有键 ($k) 和值 ($v) 的行

结果是这样的

Key: [email protected], value: 1578560300
Key: [email protected],[email protected], value: 1578643050
Key: [email protected], value: 1578643050

任何人都可以帮我添加 Perl 代码以在上面执行期间删除所有具有 unix 时间戳值超过 100 天的 Key 行？

database perl
Martin Hope
Atlas Sullivan
Asked: 2019-08-11 16:25:56 +0800 CST
  • 5

虽然某种形式的我并没有真正理解它，但我无法编写我在配置文件中创建的自定义 XMP 命名空间。下面是文件。

%Image::Exiftool::UserDefined = (
  'Image::ExifTool::XMP::Main' => {
    galex => { SubDirectory => { TagTable => 'Image::ExifTool::UserDefined::galex' }}
  }
);

%Image::ExifTool::UserDefined::galex = (
    GROUPS => { 0 => 'XMP', 1 => 'XMP-galex', 2 => 'Image' },
    NAMESPACE => { 'galex' => 'http://atlasjan.sdf.org/xml/galex.xsd' },
    WRITABLE => 'string', # default to string-type tags
    Include => { Writable => 'boolean' },
    Explicit => { Writable => 'boolean' },
    Spoiler => { Writable => 'boolean' },
    Comment => { Writable => 'string' },
);

到目前为止，我已经尝试...

exiftool -xmp:Explicit=true example.png

exiftool -xmp-galex:Explicit=true example.png

并且都返回“未定义”错误。我哪里错了？

command-line perl