小编Jay*_*ley的帖子

如何在Perl中迭代哈希(哈希)?

我有哈希,其中键的值是其他哈希.

例: {'key' => {'key2' => {'key3' => 'value'}}}

我怎样才能遍历这个结构?

perl hash perl-data-structures

16
推荐指数
5
解决办法
4万
查看次数

半透明JFrame边框JDK 7

我问的是半透明JFrame边框的问题(见这里),我得到了非常好的答案,但不幸的是,鉴于答案只能在JDK 6上完美运行,但不是7.任何想法如何使它与JDK 7一起使用?

在JDK 6中,它看起来像这样:

在此输入图像描述

和JDK 7:

在此输入图像描述

我的代码看起来像这样:

import java.awt.*;
import java.awt.image.BufferedImage;
import java.io.IOException;
import java.util.logging.Level;
import java.util.logging.Logger;
import javax.imageio.ImageIO;
import javax.swing.border.AbstractBorder;


public class ShadowBorder extends AbstractBorder {

private static final int RADIUS = 30;
private static BufferedImage shadowTop;
private static BufferedImage shadowRight;
private static BufferedImage shadowBottom;
private static BufferedImage shadowLeft;
private static BufferedImage shadowTopLeft;
private static BufferedImage shadowTopRight;
private static BufferedImage shadowBottomLeft;
private static BufferedImage shadowBottomRight;
private static boolean shadowsLoaded = false;

public ShadowBorder() {
    if (!shadowsLoaded) …
Run Code Online (Sandbox Code Playgroud)

java user-interface swing jframe translucency

14
推荐指数
1
解决办法
1154
查看次数

如何访问存储在Hash中的数据

我有这个代码:

$coder = JSON::XS->new->utf8->pretty->allow_nonref;
%perl = $coder->decode ($json);
Run Code Online (Sandbox Code Playgroud)

当我写print %perl变量时,它说HASH(0x9e04db0).如何访问此HASH中的数据?

perl json

5
推荐指数
3
解决办法
1万
查看次数

半透明的JFrame边框

我想让JFrame边框透明,所以我试图使用我自己的Border类...

private class ShadowBorder extends AbstractBorder {

    private static final int RADIUS = 30;

    @Override
    public boolean isBorderOpaque() {
        return false;
    }

    @Override
    public Insets getBorderInsets(Component c) {
        return new Insets(RADIUS, RADIUS, RADIUS, RADIUS);
    }

    @Override
    public Insets getBorderInsets(Component c, Insets insets) {
        insets.top = RADIUS;
        insets.left = RADIUS;
        insets.bottom = RADIUS;
        insets.right = RADIUS;
        return insets;
    }

    @Override
    public void paintBorder(Component c, Graphics g, int x, int y, int width, int height) {
            Graphics2D g2d = (Graphics2D) g.create();
            g2d.setRenderingHint(RenderingHints.KEY_ANTIALIASING, …
Run Code Online (Sandbox Code Playgroud)

java user-interface swing border translucency

4
推荐指数
1
解决办法
3294
查看次数

使用 optparse 拥有自己的帮助消息

是否可以使用 Python 中的 optparse 模块制作自己的帮助消息或在帮助选项上附加自己的事件?

python optparse

3
推荐指数
1
解决办法
3886
查看次数

将输入从文件重定向到 exec()

我正在制作简单的 ANSI C 程序,模拟 Unix shell。因此,我使用 fork() 创建子进程,并在子进程内部调用 exec() 来运行给定的(由用户)程序。

我需要做的是将文件内容重定向到标准输入,以便将其发送给用户调用的程序。

Example: cat < file \\user wants run cat and redirect content of that file to it by typing this to my program prompt

我正在尝试这样做:

...child process...

int fd = open(path_to_file, O_RDONLY);

int read_size = 0;
while ((read_size = read(fd, buffer, BUF_SIZE)) != 0) {
    write(STDIN_FILENO, buffer, read_size);
}
close(fd);

execlp("cat", ...);
Run Code Online (Sandbox Code Playgroud)

一切都很顺利,文件内容被写入标准输入,但在读取整个文件后,cat 仍在等待输入(我需要告诉 cat,输入结束),但我不知道如何:-(?

有任何想法吗?多谢!!!

c fork input exec

3
推荐指数
1
解决办法
8480
查看次数

如何使用Perl的Getopt :: Long处理-r = <pattern>?

我正在使用Getopt :: Long解析Perl中的命令行选项.对于长命令(例如,),我被迫-对短命令(-s)和--(双破折号)使用前缀(一个破折号--input=file).

我的问题是有一个特殊选项(-r=<pattern>)所以它对于参数的要求是长选项,但它必须有一个破折号(-)前缀而不是--像其他长选项一样双破折号().可以设置Getopt :: Long来接受这些吗?

perl getopt-long

2
推荐指数
1
解决办法
947
查看次数

可以静态引用查看内存泄漏吗?

我是Android开发的新手,我读过有关在Android平台上避免内存泄漏的文章.我不确定,如果我的代码是......

public class TransactionDetailActivity extends Activity {

private Transaction transaction;

private TextView tvDetail; //static reference

public void onCreate(Bundle savedInstanceState) {
    super.onCreate(savedInstanceState);
    setContentView(R.layout.screen_transaction_detail);

    tvDetail = (TextView) findViewById(R.id.detail); //init of reference
}
Run Code Online (Sandbox Code Playgroud)

这可以存储到静态引用中导致在切换其他活动后屏幕旋转后任何内存泄漏吗?如果是,我该如何避免呢?

非常感谢任何帮助!

android memory-leaks

2
推荐指数
1
解决办法
3040
查看次数

C++奇怪的事情

任何人都可以解释我,为什么这部分代码的行为不同?

while((c = fread(buf, sizeof(char), 1, f)) != 0);
{
    if(write(t, buf, c) < 0)
    {
        return E_MSGSEND;
    }
}

/////////////////////////////////////

do
{
    c = fread(buf, sizeof(char), 1, f);
    if(write(t, buf, c) < 0) 
    {
            return E_MSGSEND;
    }
} while(c != 0);
Run Code Online (Sandbox Code Playgroud)

虽然{}只运行1次但是{}运行5次.什么是差异?在{} c初始化为1之前.

谢谢你的建议

c++

1
推荐指数
1
解决办法
284
查看次数

使用Parsec对字符串标记进行词法分析

我有这个解析器用于使用Haskell Parsec库进行字符串解析.

myStringLiteral = lexeme (
        do str <- between (char '\'')
                  (char '\'' <?> "end of string")
                  (many stringChar)
                  ; return (U.replace "''" "'" (foldr (maybe id (:)) "" str))

        <?> "literal string"
        )
Run Code Online (Sandbox Code Playgroud)

我语言中的字符串被定义为''(example :)中的字母数字字符'this is my string',但这些字符串也可以包含'在其中(在这种情况下'必须由另一个字符串转义',例如'this is my string with '' inside of it').

我需要做的是,'在解析字符串时出现向前看并决定是否有另一个'之后(如果没有,返回字符串结尾).但我不知道该怎么做.有任何想法吗?谢谢!

haskell parsec token lexical-analysis

1
推荐指数
1
解决办法
1453
查看次数

注释中的字符串和字符串中的注释

我试图使用Python和Regex计算C代码中包含的注释中的字符,但没有成功.我可以先删除字符串以删除字符串中的注释,但这也会删除注释中的字符串,结果将会很糟糕.有没有机会通过使用正则表达式来评论不匹配评论中的字符串,反之亦然?

python regex

0
推荐指数
1
解决办法
380
查看次数