小编Nat*_*man的帖子

Perl脚本中的大小写敏感度 - 如何使其不敏感?

我如何更改以下马尔可夫脚本以将大写和小写单词视为相同?

整个想法是帮助提高马尔可夫文本生成器的输出质量.

就目前而言,如果您将99个小写句子插入其中并使用1个大写句子 - 您几乎总能在输出中找到大写句子的非标记化版本.

# Copyright (C) 1999 Lucent Technologies
# Excerpted from 'The Practice of Programming'
# by Brian W. Kernighan and Rob Pike

# markov.pl: markov chain algorithm for 2-word prefixes

$MAXGEN = 10000;
$NONWORD = "\n";
$w1 = $w2 = $NONWORD;                    # initial state
while (<>)
{                                        # read each line of input
    foreach (split)
    {
      push(@{$statetab{$w1}{$w2}}, $_);
      ($w1, $w2) = ($w2, $_);        # multiple assignment
    }
}

push(@{$statetab{$w1}{$w2}}, $NONWORD);  # add tail
$w1 = $w2 …
Run Code Online (Sandbox Code Playgroud)

scripting perl text lowercase capitalization

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

将数组存储为关联数组中的值

我有一个问题,我需要一个数组作为关联数组中的值.

浏览下面的代码.在这里,我试图循环一个目录中的文件,更有可能超过1个文件可以具有相同的ctrno.所以,我想看看所有文件都有相同的内容ctrno.下面的代码$ctrno_hash[$ctrno] = @arr;在else条件下给出错误" ".同样的情况也适用于if条件.

我是否采用了正确的方法,还是可以采取不同的方式?

sub loop_through_files
{
    $file = "@_";
    open(INPFILE, "$file") or die $!;
    #print "$file:$ctrno\n";
    while (<INPFILE>)
    {
       $line .= $_;
    }
    if ($line =~ /$ctrno/ )
    {
       print "found\n";
       if ( exists $ctrno_hash[$ctrno])
       {
          local @arr = $ctrno_hash[$ctrno];
          push (@arr, $file);
          $ctrno_hash[$ctrno] =  @arr;
       }
       else
       {
          local @arr;
          push(@arr, $file);
          $ctrno_hash[$ctrno] =  @arr;
       }
    }
}
Run Code Online (Sandbox Code Playgroud)

perl

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

Matlab中的二值图像

如何imread在MATLAB中知道读取的图像是否为二进制

我这样做了:

Img = imread(IMGsrc);

T = Img== 1 | Img == 0;

If min(min(T)) == ??????

    imshow(T);

end
Run Code Online (Sandbox Code Playgroud)

????? = ??????

binary matlab image

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

如何在Perl中定时循环迭代?

我有一个看起来像这样的循环:

for (0..10000) {
    $my_array[$_] = `some external program`;
}
Run Code Online (Sandbox Code Playgroud)

我希望计算每次迭代需要多长时间以及整个furshlugginer事情需要多长时间.

在Perl中执行此操作的最佳方法是什么?

profile perl loops

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

如何在C++程序中以拓扑考虑实现多核HT的亲和性?

我正在开发一些具有可变数量线程的C++多核程序,我想知道如何设置一个合适的(实际上是"最好的")亲和力.我使用Boost-threads,所以我可以调用get_hardware_concurrency()来了解有多少逻辑内核.到目前为止,我写了一个映射"第n个线程到第n个逻辑核心",但由于多插槽处理器和超线程,它并不是最聪明的事情.我的程序总是像SIMD一样,所以线程之间没有任何共享,如果是HT计算机,我想以我能想象的最聪明的方式将线程绑定到逻辑核心:第一个物理上的第一个逻辑核心,第2个物理上的第1个逻辑,...,第1个物理上的第1个逻辑,第1个物理上的第2个逻辑,依此类推.

我发现了很多内容,讨论了如何发现HT是否启用(CPUID)以及如何确定逻辑和物理内核PER包.我知道我必须处理一些汇编代码,它并没有吓到我,但我真的找不到如何知道有关逻辑内核,物理内核和软件包的完整信息以及操作系统如何处理所有这些信息.

作为最简洁的我可以:我怎么知道OS(Windows和Linux)引用的线程的确切位置(物理核心和包)为N-th?

c++ multicore affinity hyperthreading

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

如何使用默认权限使用Python创建目录?

我想用Python创建一个目录,使用与shell相同的权限mkdir.

标准Python文档说:

os.mkdir(路径[,模式])

使用数字模式模式创建名为path的目录.默认模式为0777(八进制).在某些系统上,模式被忽略.在使用它的地方,首先屏蔽当前的umask值.如果该目录已存在,则引发OSError.

我不想要默认0777权限,而是从父目录继承的权限.如果不查询父目录的权限,我可以这样做吗?

python mkdir

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

双值为负零

我有一个程序示例:

int main()
{
    double x;
    x=-0.000000;
    if(x<0)
    {
        printf("x is less");
    }
    else 
    {
        printf("x is greater");
    }
}
Run Code Online (Sandbox Code Playgroud)

为什么控件进入第一个语句 - x更少.什么是-0.000000?

c

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

迭代器不会遍历整个地图

我有以下功能:

   void send_sequence_to_device( std::map<const string_t,device_t*> &msg2device_p, std::vector<response_t>& result_list, ushort num_attempts)
    {
        cout<<"sarit enter to send_seq_device"<<endl;
        std::map<const string_t, device_t*>::iterator msg_itf;
        for( msg_itf=msg2device_p.begin(); msg_itf!=msg2device_p.end(); msg_itf++ )
        {
            cout<<"sarit enter to seq "<<msg_itf->first<<endl;
        }
    }
Run Code Online (Sandbox Code Playgroud)

我通过另一个函数调用此函数:

 void node_layer_manager_t::calc_ts_job_function()
    {
        vector<response_t> res;
        map<const string_t, device_t*> getRegMsg={{"get_node_ts_est",&tx},{"get_node_ts_est",&rx},{"get_tx_num_clk_ts",&tx}};
        cout<< "sarit ts clk function nlm first"<<endl;
        send_sequence_to_device(getRegMsg,res);
    }
Run Code Online (Sandbox Code Playgroud)

我可以看到循环只迭代2而不是3.输出是:

sarit enter to seq get_node_ts_est

sarit enter to get_tx_num_clk_ts
Run Code Online (Sandbox Code Playgroud)

虽然我期望:

sarit enter to seq get_node_ts_est

sarit enter to seq get_node_ts_est

sarit enter to get_tx_num_clk_ts
Run Code Online (Sandbox Code Playgroud)

c++ dictionary iterator c++11

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

是否可以从C程序调用python方法?

我记得在某个地方可以使用C语言调用python方法

#include "python.h"
Run Code Online (Sandbox Code Playgroud)

但我似乎无法找到这个或任何例子的来源.

如何在C程序中调用python方法?

c python embedding

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

为什么IE 8会显示压缩的CSS而其他浏览器无法显示?

我在Windows 7上使用IIS Web服务器7.5来托管我的项目.我尝试创建Javascript和CSS处理程序,可以优化和压缩Javascript和Css文件大小.但我发现了一些问题.请查看我在Firefox 3.0.11浏览器上的Firebug中找到的Test.css文件的以下请求和响应.

响应标题

Cache-Control : private
Content-Type : text/html
Content-Encoding : gzip
Server : Microsoft-IIS/7.5
X-AspNet-Version : 2.0.50727
X-Powered-By : ASP.NET
Date : Tue, 30 Jun 2009 10:46:15 GMT
Content-Length : 197
Run Code Online (Sandbox Code Playgroud)

请求标题

Host : localhost
User-Agent : Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US; rv:1.9.0.11) Gecko/2009060215 Firefox/3.0.11 (.NET CLR
 4.0.20506)
Accept : text/css,*/*;q=0.1
Accept-Language : en-us,en;q=0.5
Accept-Encoding : gzip,deflate
Accept-Charset : ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive : 300
Connection : keep-alive
If-Modified-Since : Tue, 30 Jun 2009 10:41:00 …
Run Code Online (Sandbox Code Playgroud)

css browser compression

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