小编Gal*_*axy的帖子

如何通过名称获取已安装的Perl模块的路径,例如Time::HiRes？

我想要这只是因为我必须在SGE Grid Engine系统的不同节点上运行我的perl脚本.有时,甚至以其他用户名运行.

我可以使用CPAN.pm为自己安装软件包,但是对于没有文件夹上的chmod 666的其他用户来说安装起来并不容易.

我正在Galaxy::SGE::MakeJobSH用OO 编写一个Perl模块.

我想用MakeJobSH->new()而不是Galaxy::SGE::MakeJobSH->new()或其他一些短名称.我怎样才能做到这一点？

我想在我自己的用户空间程序中进行一些CRC检查.我发现内核加密lib已经在系统中,并且支持SSE4.2.

我试着直接#include <linux/crc32c.h>用gcc运行-I/usr/src/linux/include/.但是,它不起作用.

有libcrc32c什么方法可以使用某种？

我刚刚在makefile中看到"$$ {x %%*}",这意味着sh中的"$ {x %%*}".为什么用这种方式写？

https://unix.stackexchange.com/questions/28994/how-can-a-makefile-detect-whether-a-command-is-available-in-the-local-machine

determine_sum = \
        sum=; \
        for x in sha1sum sha1 shasum 'openssl dgst -sha1'; do \
          if type "$${x%% *}" >/dev/null 2>/dev/null; then sum=$$x; break; fi; \
        done; \
        if [ -z "$$sum" ]; then echo 1>&2 "Unable to find a SHA1 utility"; exit 2; fi

checksums.dat: FORCE
    $(determine_sum); \
    $$sum *.org

另外,如何${x%% *}在Google中搜索？

我想VACUUM在Perl上的SQLite数据库上的某个时间做,但它总是说

DBD :: SQLite :: db失败:无法在事务中使用VACUUM

那我该怎么做？

my %attr = ( RaiseError => 0, PrintError => 1, AutoCommit => 0 );
my $dbh = DBI->connect('dbi:SQLite:dbname='.$file'','',\%attr) 
    or die $DBI::errstr;

我在用AutoCommit => 0.而错误发生在:

$dbh->do('DELETE FROM soap');
$dbh->do('DELETE FROM result');
$dbh->commit; 
$dbh->do('VACUUM');

提升1.49 gcc版本4.6.3

        std::transform(barcodeFiles.begin(), barcodeFiles.end(), std::ostream_iterator<std::string>(std::cerr, "\n"),
            boost::bind(&fs::path::string, _1));

如何编辑此代码？

[ 65%] Building CXX object c++/lib/demultiplex/CMakeFiles/casava_demultiplex.dir/BclDemultiplexer.cpp.o
/bak/software/Linux/CASAVA_v1.8.2/src/c++/lib/demultiplex/BclDemultiplexer.cpp: In member function ‘const casava::demultiplex::BclDemultiplexer::ClusterCorrectedBarcodeIndex casava::demultiplex::BclDemultiplexer::mapClusterBarcodes(unsigned int) const’:
/bak/software/Linux/CASAVA_v1.8.2/src/c++/lib/demultiplex/BclDemultiplexer.cpp:65:50: error: no matching function for call to ‘bind(, boost::arg&)’
/bak/software/Linux/CASAVA_v1.8.2/src/c++/lib/demultiplex/BclDemultiplexer.cpp:65:50

我选择使用领带并找到:

package Galaxy::IO::INI;
sub new {
    my $invocant = shift;
    my $class = ref($invocant) || $invocant;
    my $self = {']' => []}; # ini section can never be ']'
    tie %{$self},'INIHash';
    return bless $self, $class;
}

package INIHash;
use Carp;
require Tie::Hash;

@INIHash::ISA = qw(Tie::StdHash);

sub STORE {
    #$_[0]->{$_[1]} = $_[2];
    push @{$_[0]->{']'}},$_[1] unless exists $_[0]->{$_[1]};
    for (keys %{$_[2]}) {
        next if $_ eq '=';
        push @{$_[0]->{$_[1]}->{'='}},$_ unless exists $_[0]->{$_[1]}->{$_};
        $_[0]->{$_[1]}->{$_}=$_[2]->{$_};
    }
    $_[0]->{$_[1]}->{'='};
}

如果我删除最后一个"$ [0] - > {$ [1]} …