zyppe/tools
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add file to database

Browse source
This commit is contained in:
zyppe 2025-02-24 22:28:20 +08:00
parent 54e6b0a139
commit 80e3c8cc3a
3 changed files with 66 additions and 48 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
Translator/read.pl
View file

@ -4,9 +4,7 @@ use warnings;
use v5.26;
use Carp;
use Data::Dumper;
use File::Find;
use SQL::Abstract;
use DBI;
my $db =
@ -14,17 +12,18 @@ my $db =
or confess $DBI::errstr;
sub sqlstr {
my ( $table, $primary ) = @_;
return qq
/create table if not exists @_ (
id integer primary key autoincrement,
/create table if not exists $table (
id integer / . ( $primary ? 'primary key autoincrement' : '' ) . qq/,
title text,
filepath text,
content text
);/;
}
my %tablesql = (
"origin" => sqlstr("origin"),
"trans" => sqlstr("trans"),
"origin" => sqlstr( "origin", 1 ),
"trans" => sqlstr( "trans", 0 ),
);
my $act;
for my $table ( keys %tablesql ) {

89
Translator/sign.pl
View file

@ -8,34 +8,38 @@ use Time::Piece;
use Digest::SHA qw(sha256_hex hmac_sha256_hex);
use JSON::MaybeXS qw(encode_json);
carp "You must provide SecretKey.csv to parent folder!";
our $SourceText ;
my $data = {
SourceText => $SourceText,
Source => 'en',
Target => 'zh',
ProjectID => 0
};
my $payload = encode_json($data);
use Exporter 'import';
our @EXPORT_OK = 'sign';
my $service = "tmt";
my $host = "$service.tencentcloudapi.com";
my $region = "ap-shanghai";
my $action = "TextTranslate";
my $version = "2018-03-21";
my $Algorithm = "TC3-HMAC-SHA256";
sub sign {
my $SourceText = @_;
carp "You must provide SecretKey.csv to parent folder!";
my $data = {
SourceText => $SourceText,
Source => 'en',
Target => 'zh',
ProjectID => 0
};
my $payload = encode_json($data);
my $HTTPRequestMethod = "POST";
my $CanonicalURI = "/";
my $CanonicalQueryString =
( $HTTPRequestMethod eq "POST" ) ? "" : "Limit=10&Offset=0";
my $CanonicalHeaders = qq
my $service = "tmt";
my $host = "$service.tencentcloudapi.com";
my $region = "ap-shanghai";
my $action = "TextTranslate";
my $version = "2018-03-21";
my $Algorithm = "TC3-HMAC-SHA256";
my $HTTPRequestMethod = "POST";
my $CanonicalURI = "/";
my $CanonicalQueryString =
( $HTTPRequestMethod eq "POST" ) ? "" : "Limit=10&Offset=0";
my $CanonicalHeaders = qq
|content-type:application/json; charset=utf-8
host:$host
x-tc-action:$action|;
my $SignedHeaders = "content-type;host;x-tc-action";
my $HashedRequestPayload = sha256_hex $payload;
my $CanonicalRequest = qq
my $SignedHeaders = "content-type;host;x-tc-action";
my $HashedRequestPayload = sha256_hex $payload;
my $CanonicalRequest = qq
/$HTTPRequestMethod
$CanonicalURI
$CanonicalQueryString
@ -43,30 +47,31 @@ $CanonicalHeaders
$SignedHeaders
$HashedRequestPayload/;
my $RequestTimestamp = time();
my $Date = localtime->strftime('%Y-%m-%d');
my $CredentialScope = "$Date/$service/tc3_request";
my $HashedCanonicalRequest = sha256_hex $CanonicalRequest;
my $StringToSign = qq
my $RequestTimestamp = time();
my $Date = localtime->strftime('%Y-%m-%d');
my $CredentialScope = "$Date/$service/tc3_request";
my $HashedCanonicalRequest = sha256_hex $CanonicalRequest;
my $StringToSign = qq
/$Algorithm
$RequestTimestamp
$CredentialScope
$HashedCanonicalRequest/;
open my $in, "<", "../SecretKey.csv" or confess;
my $key;
<$in>;
$key = <$in>;
close($in);
my @key = split( ",", $key );
my $SecretID = $key[0];
my $SecretKey = $key[1];
my $SecretDate = hmac_sha256_hex( "TC3$SecretKey", $Date );
my $SecretService = hmac_sha256_hex( $SecretDate, $service );
my $SecretSigning = hmac_sha256_hex( $SecretService, "tc3_request" );
my $Signature = hmac_sha256_hex( $SecretSigning, $StringToSign );
open my $in, "<", "../SecretKey.csv" or confess;
my $key;
<$in>;
$key = <$in>;
close($in);
my @key = split( ",", $key );
my $SecretID = $key[0];
my $SecretKey = $key[1];
my $SecretDate = hmac_sha256_hex( "TC3$SecretKey", $Date );
my $SecretService = hmac_sha256_hex( $SecretDate, $service );
my $SecretSigning = hmac_sha256_hex( $SecretService, "tc3_request" );
my $Signature = hmac_sha256_hex( $SecretSigning, $StringToSign );
our $Authorization =
my $Authorization =
"$Algorithm Credential=$SecretID/$CredentialScope, SignedHeaders=$SignedHeaders, Signature=$Signature";
return $Authorization;
}
say $payload;

14
Translator/translate.pl Normal file
View file

@ -0,0 +1,14 @@
#!/usr/bin/perl
use strict;
use warnings;
use v5.26;
use Carp;
use File::Find;
use DBI;
use lib 'sign.pl';
my $db =
DBI->connect( "DBI:SQLite:dbname=../data.db", "", "", { RaiseError => 1 } )
or confess $DBI::errstr;