Perl 调用 DeepSeek API 脚本

原创

已于 2025-03-01 15:43:27 修改 · 538 阅读

9 ·

CC 4.0 BY-SA版权

文章标签：

#perl #deepseek #api

于 2025-03-01 15:12:29 首次发布

向 chat.deepseek.com 提问：请将这个 python 脚本翻译为 perl 语言脚本

参阅：Python 调用 DeepSeek API 完整指南

将 Python 脚本翻译为 Perl 语言脚本时，需要注意两种语言之间的语法差异。以下是将给定的 Python 脚本翻译为 Perl 的版本： test_deepseek_v1.pl

use strict;
use warnings;
use utf8;
use JSON;
use LWP::UserAgent;
use HTTP::Request::Common;
use POSIX qw(strftime);
use Encode qw(encode decode);

# 保存对话内容到文件
sub save_to_file {
    my ($file, $content, $is_question) = @_;
    my $timestamp = strftime("%Y-%m-%d %H:%M:%S", localtime);
    if ($is_question) {
        print $file "\n[$timestamp] Question:\n$content\n\n[$timestamp] Answer:\n";
    } else {
        print $file $content;
    }
}

# 主函数
sub main {
    # 配置
    my $url = "https://api.siliconflow.cn/v1/chat/completions";
    my $headers = {
        "Content-Type" => "application/json",
        "Authorization" =>