主页 / user-2125837

xpt's questions

Martin Hope
xpt
Asked: 2024-07-01 04:41:54 +0800 CST
  • 7

如何perl从半角形式转换为全角形式？perl用 的术语来说，就是从普通字符转换为宽字符。

例如，从!abc ABC!到！ａｂｃ　ＡＢＣ！。从算术上讲，以下应该是正确的

binmode STDOUT, ":utf8";

$letter = 'A';
$lw = chr($letter + 0xfee0);
print "Hello $lw ($letter)!\n";

但打印出来的效果不是我所希望的，应该是Hello Ａ (A)!

perl
Martin Hope
xpt
Asked: 2024-01-16 00:03:34 +0800 CST
  • 6

跟进Is it possible to include a file in your .gitconfiginclude ，该文件中是否有任何例外情况可以使用.gitconfig？为什么我的不工作？

$ cat .gitconfig
[include]
    path = /tmp/.gitconfig.id

$ cat /tmp/.gitconfig.id

[user]
        name = Me
        email = [email protected]

$ git config --global user.name | wc
      0       0       0

$ git -v
git version 2.39.2

$ uname -rms
Linux 6.1.0-9-amd64 x86_64

$ lsb_release -a
No LSB modules are available.
Distributor ID: Debian
Description:    Debian GNU/Linux 12 (bookworm)
Release:        12
Codename:       bookworm

即，我发现自己可以include在除 之外的所有.gitconfig部分中使用。 [user]

linux
Martin Hope
xpt
Asked: 2023-12-26 02:06:19 +0800 CST
  • 4

如何使用环境变量作为react vite应用程序标题？

我发现的一种解决方案是，在index.tsx文件中：

import React from 'react';
import ReactDOM from 'react-dom';
import App from './App';

// Set document title dynamically
document.title = import.meta.env.REACT_APP_MY_VARIABLE || 'Default Title';

ReactDOM.render(
  <React.StrictMode>
    <App />
  </React.StrictMode>,
  document.getElementById('root')
);

但是，当使用任何值时

export REACT_APP_MY_VARIABLE=whatever

我总是以'Default Title'.

在创建 React App：使用 index.html 中的环境变量之后 ，我将上面的内容更改为process.env：

document.title = process.env.REACT_APP_MY_VARIABLE || 'Default Title';

但现在我的反应应用程序只显示一个空白页面。

附言。

这是一个 React vite 应用程序，我从以下内容开始：

npx vite --host

聚苯硫醚。

该解决方案必须适用于开发/测试时间和构建时间。

javascript
Martin Hope
xpt
Asked: 2023-11-16 23:18:44 +0800 CST
  • 5

我需要同时从多个线程写入 JMeter 中的 CSV 文件 。当然，这会导致竞争条件，所以我想采用Jmeter从同时执行的多个线程组将数据写入excel表的策略：

更好的解决方案是使用内存方法将值从一个组传递到另一个组，即没有任何临时文件。您可以使用__setProperty() 函数来定义属性

即，我计划在属性中定义一个数组，每个线程将其记录附加到该数组，然后最后将这样的数组写出一次（还不知道如何，因为我无法使用拆卸线程）。

所以，

  • 当每个线程尝试附加到属性中的数组时，JMeter 是否提供任何并发保护，或者我需要以某种方式自己保护它？
  • 在测试结束时写出一次数组的最佳方法是什么？
multithreading
Martin Hope
xpt
Asked: 2023-11-15 01:01:25 +0800 CST
  • 5

尝试理解以下主张：

当 2 个或更多线程尝试在不同步的情况下访问同一非最终变量时，就会发生数据竞争。不使用同步可能会导致进行其他线程不可见的更改，因此可能会读取过时的数据，这反过来可能会产生无限循环、损坏的数据结构或不准确的计算等后果。此代码可能会导致无限循环，因为读取器线程可能永远不会观察到写入器线程所做的更改：

class Waiter implements Runnable {
  private boolean shouldFinish;

  void finish() { shouldFinish = true; }

  public void run() {
    long iteration = 0;
    while (!shouldFinish) {
      iteration++;
    }
    System.out.println("Finished after: " + iteration);
  }
}

class DataRace {

  public static void main(String[] args) throws InterruptedException {
    Waiter waiter = new Waiter();
    Thread waiterThread = new Thread(waiter);
    waiterThread.start();

    waiter.finish();
    waiterThread.join();
  }
}

我的想法是，

  • 在 Java Reader/Writer 中，像 boolean 这样的原始数据是原子操作。
  • 即使读取器线程未能观察到写入器线程在一个循环中所做的更改，它也应该能够在下一个循环中看到更改。

没有这种情况吗？为什么？因为读取器线程可能永远不会屈服于写入器线程？（如果是这样，我认为它不应该被称为竞争条件，对吧？）

java
Martin Hope
xpt
Asked: 2023-09-18 05:45:20 +0800 CST
  • 5

给定一个字符串，我想要

  • A将foI的第 8 位开始的所有字符设置为（ 0x41~0x49到0xC1~ 0xC9）。
  • 将所有第 8 位打开的字符重置为关闭。

喜欢，

$s='@ABCDEFGHIJKLMNOPQRS';
$s1= join "", map { $_ |= 0x80 if /A-I/ } split //, $s;
$s2= join "", map { $_ &= ~0x80 } split //, $s1;

我认为我的上面的代码很接近，但它没有完全工作。
请帮忙。

string
Martin Hope
xpt
Asked: 2023-09-17 22:09:12 +0800 CST
  • 6

next中的命令将awk：

停止处理当前输入记录。读取下一个输入记录并从 AWK 程序中的第一个模式开始处理。到达输入数据末尾后，执行任何 END 规则。

假设我的 perl 脚本是一个转换规则列表，perl 中是否有这样的东西可以模拟它，就像我编码一样：

s/a/A/g;
s/b/B/g; next();
s/c/C/g;

将next?()检查给定的替换是否成功，然后停止处理其余的转换规则，并从转换规则的第一个模式开始。

实现这一目标的最佳方法是什么？

输入示例：

R: waltz
M: 3/4
L: 1/4
K: C
|: E2"C"G | d3"G7" | c2"C"G | F3"F" | E2"C"E | EFG | A3"Dm" | G3"G7" |
| E2"C"G | d3"G7" | c2"C"G | F3"F" | E2"C"G | G"G7"AB | c3"C"- | c3 ||
||d"G7" z/G/ G | BAG | E2"C"G | c3 | A2"F"c | d2"D"c | B3"G" | G3 |
| E2"C"G | d3"G7" | c2"C"G | F3"F" | E2"C"G | G"G7"AB c3"C" | c3 :|

ABC 音符，例如E2 G，d3最后处理/替换（循环while /re/gi），而吉他和弦"C" "Dm" "G7"等首先被替换，然后跳过 ABC 音符替换。我尝试使用next if s/".*?"/^$&/g;来替换吉他和弦部分，但是，我所有的 ABC 音符替换都被跳过，后来的 while 循环无法到达。

perl
Martin Hope
xpt
Asked: 2023-09-06 00:12:36 +0800 CST
  • 5

ERROR: Permission Denied for language c的答案对我不起作用：

$ psql -U postgres -d postgres
psql (15.4 (Debian 15.4-1.pgdg120+1))

postgres=> CREATE DATABASE books;
CREATE DATABASE
postgres=> \c books
You are now connected to database "books" as user "postgres".

postgres=> CREATE EXTENSION IF NOT EXISTS "uuid-ossp";
ERROR:  permission denied for language c
postgres=> UPDATE pg_language SET lanpltrusted = true WHERE lanname LIKE 'c';
ERROR:  permission denied for table pg_language

这CREATE EXTENSION IF NOT EXISTS "uuid-ossp"是我需要做的第一件事，否则我会收到如下错误：

ERROR: function uuid_generate_v4() does not exist

然而，却被挡住了permission denied for language c。请问我怎样才能让它工作？

postgresql