小编Mel*_*Mel的帖子

如何检查Perl数组是否包含特定值?

我试图找出一种方法来检查数组中是否存在值而不迭代数组.

我正在读取参数的文件.我有一长串我不想处理的参数.我把这些不需要的参数放在一个数组中@badparams.

我想读一个新参数,如果它不存在@badparams,请处理它.如果确实存在@badparams,请转到下一个读取.

arrays perl comparison

226
推荐指数
7
解决办法
39万
查看次数

MySQL CREATE FUNCTION语法

我想在MySQL中创建一个函数:

这是SQL代码:

CREATE FUNCTION F_Dist3D (x1 decimal, y1 decimal) 
RETURNS decimal
DETERMINISTIC
BEGIN 
 DECLARE dist decimal;
 SET dist = SQRT(x1 - y1);
 RETURN dist;
END;
Run Code Online (Sandbox Code Playgroud)

我收到以下错误:

#1064 - You have an error in your SQL syntax; 
check the manual that corresponds to your MySQL 
server version for the right syntax to use near '' at line 10
Run Code Online (Sandbox Code Playgroud)

我在phpMyAdmin中运行此create语句.这个功能有什么问题?

mysql function

45
推荐指数
2
解决办法
11万
查看次数

为什么这两个内容相同的jar文件有不同的文件大小?

我正在重新组织我们的java代码库,并希望比较我们生成的jar文件.

当我在旧的源代码树中构建时,我得到的jar文件大小为3360081.

在新的源代码树中,它是3360128.

我做一个"jar tvf jarfile",然后从文件中删除日期.

列表如下所示:

     0 Mon Mar 16 10:41:16 EDT 2009 META-INF/
   102 Mon Mar 16 10:41:14 EDT 2009 META-INF/MANIFEST.MF
     0 Mon Mar 16 10:41:14 EDT 2009 decodes/
Run Code Online (Sandbox Code Playgroud)

剥离日期后,列表如下所示:

     0  META-INF/
   102  META-INF/MANIFEST.MF
     0  decodes/
Run Code Online (Sandbox Code Playgroud)

两个jar列表是相同的.

什么会导致"相同"jar文件中的47字节差异?

我在RedHat Linux 4上运行编译.

java jar

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

在Java中调用"父"组件的方法

我认为最好在示例程序代码中显示以下情况.我有一个扩展的Java类JPanel.在这个类中有两个对象,还有两个JPanels.其中一个JPanel对象是一个JTable对象.我添加了一个侦听器来JTable检测双击.当它检测到双击时,我想在顶级类中触发一个方法.如何在Java中引用此方法?

public class TopPanel extends JPanel {

  JPanel OnePanel;
  JPanel TwoPanel;

  public void MethodToFire;

}

public class OnePanel extends JPanel {

  JTable TheTable;

}

public class TheTable extends JTable {

  public TheTable {
    this.addMouseListener(new MouseAdapter(){
      public void mouseClicked(MouseEvent e){
          if (e.getClickCount() == 2){ SYNTAX CALLING THE METHOD IN TopPanel  }
      }
    } );
  }
}
Run Code Online (Sandbox Code Playgroud)

java methods class

4
推荐指数
2
解决办法
3万
查看次数

为什么这个PHP函数返回错误的结果?

我写了一个用户函数来返回x,y坐标系上两点之间的距离.输入参数是0,0,10,10.

这是原始代码:

public static function dist2d($x1,$y1,$x2,$y2) {
   return sqrt((($x2 - $x1) * ($x2 - $x1)) + (($y2 - $y1) * ($y2 - $y1)));
}
Run Code Online (Sandbox Code Playgroud)

这返回110.

这是有效的代码:

public static function dist2d($x1,$y1,$x2,$y2) {
    $result = (($x2 - $x1) * ($x2 - $x1)) + (($y2 - $y1) * ($y2 - $y1));
    return sqrt($result);
}
Run Code Online (Sandbox Code Playgroud)

这回来了14.1.

我是PHP的新手,这里发生了什么?

php

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

为什么我的调用FTP的Perl脚本突然失败了?

我有一个已经运行了一年多的脚本,现在它失败了:

它正在创建一个命令文件:

open ( FTPFILE, ">get_list");
print FTPFILE "dir *.txt"\n";
print FTPFILE "quit\n";
close FTPFILE;
Run Code Online (Sandbox Code Playgroud)

然后我运行系统命令:

$command = "ftp ".$Server." < get_list | grep \"\^-\" >new_list";
$code = system($command);
Run Code Online (Sandbox Code Playgroud)

逻辑检查:

if ($code == 0) {

do stuff
} else {
log error
}
Run Code Online (Sandbox Code Playgroud)

它正在记录错误.当我打印$ code变量时,我得到256.

我用这个命令来解析$?变量:

$exit_value  = $? >> 8;
$signal_num  = $? & 127;
$dumped_core = $? & 128;

print "Exit: $exit_value Sig: $signal_num Core: $dumped_core\n";
Run Code Online (Sandbox Code Playgroud)

结果:

退出:1 Sig:0 Core:0

感谢您的帮助/见解.

perl system

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

父子Perl数据结构

我有一个数据文件,其中包含表示河流流量关系的配对值列表.

该文件具有此结构

Node       Downstream Node
A          B
B          C
C          D
E          C

etc
Run Code Online (Sandbox Code Playgroud)

我需要做的是读取此文件,然后对于任何给定节点,我需要打印所有的UPSTREAM节点.

在上面的例子中,如果我输入C,我会得到E,B,A.

我在Linux机器上使用perl,我写这篇文章的人也是.谢谢.

perl directed-graph data-structures

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

在Perl中,如何从包含回车符和换行符的字符串中捕获一串数字?

我需要从多行字符串中提取文本(字符和数字).我尝试过的所有内容都没有删除换行/回车.

这是有问题的字符串:

"\r\n        50145395\r\n    "
Run Code Online (Sandbox Code Playgroud)

在HEX中它是:0D 0A 20 20 20 20 20 20 20 20 35 30 31 34 35 33 39 35 0D 0A 20 20 20 20

我尝试过以下方法:

$sitename =~ m/(\d+)/g;  
$sitename = $1;  
Run Code Online (Sandbox Code Playgroud)

$sitename =~ s/^\D+//g;  
$sitename =~ s/\D+$//g;  
Run Code Online (Sandbox Code Playgroud)

$sitename =~ s/^\s+//g;  
$sitename =~ s/\s+$//g;  
Run Code Online (Sandbox Code Playgroud)

在所有情况下,我都无法摆脱任何不需要的角色.我在cygwin perl和Strawberry perl中运行了这个.

谢谢.

regex perl

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