小编fra*_*rex的帖子

Lisp中的SQLITE用户定义函数

在SQLITE中,可以相对容易地在(扩展)语言(如C,Perl,Python等)中创建用户定义的函数和聚合.是否还有使用common-lisp作为SQLITE语言扩展的可能性?我知道有像cl-sqlite和plain-odbc这样的库,但它们似乎没有提供这种可能性.

lisp sqlite common-lisp

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

SAS宏变量变化

一般来说,我们如何处理需要在宏内部修改宏变量的情况; 例如,假设我有这个宏:

%macro test (arg=); 
array arrayone [&arg];   /* This is ok */
array arraytwo [&arg+1] /* This is not ok. How to make it work? */ 
... 
Run Code Online (Sandbox Code Playgroud)

当我想要%test(3)然后arraytwo需要采用维度4时,我们如何管理这些情况?

sas sas-macro

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

为什么这个程序会给出分段错误?

这是一个初学者的问题:为什么这会打破/给出错误?

#include <stdio.h>    
#include <stdlib.h> 
#include <string.h>

char *strtrim_right(char *p)
{
  char *end;
  int len;
  len = strlen( p);
  while (*p && len)
    {
    end = p + len-1;
    if(isalpha(*end))
     *end =0;
   else 
    break;      
    }
  return(p);
}


int main ()  
{  
  char *x="PM123BFD";
  strtrim_right(x);
  printf("%s", x);
  return 0;
}  
Run Code Online (Sandbox Code Playgroud)

c string pointers segmentation-fault

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

C CGI中的getenv(QUERY_STRING)

C档案:

#include <stdio.h>
#include <stdlib.h>

int main(int argc, char* argv[])
{
  FILE *ptr;
  char m[200];
  char *data = malloc(200);
  data=getenv("QUERY_STRING");
  sscanf(data,"%s", m);
  printf("%s", m);
  ptr=fopen("c:/test.txt", "w");
  fprintf(ptr, "%s", m);
  fclose(ptr);
  return 0;
}
Run Code Online (Sandbox Code Playgroud)

// gcc -g print.c -o print.exe

HTML文件:

<html>
  <body>
    <h2>CGI Server</h2>
    <p>
      <form action="http://localhost/cgi-bin/print.exe">
    <div><label>value: <input name="m" size="10"></label></div>
    <div><input type="submit" value="Run"></div>
      </form>
    </p>
  </body>
</html>
Run Code Online (Sandbox Code Playgroud)

如果输入到网页表单是c:/data.txt,则结果为:c%3A%2Fdata.txt

发生了什么?为什么输出中的/和:损坏了?似乎问题出在QUERY_STRING上,因为getenv("PATH")不会出现这个问题.

html c cgi

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

0和1的数组组合

用0和1组合填充数组的好算法是什么.例如,如果我有三列,则组合将是:(1 1 1)(0 1 1)(1 0 1)(0 0 1)(1 1 0)(0 1 0)(1 0 0)(0 0 0)它总共有8行(我希望我就在这里).那么如何提前确定所需的行数(取决于N个列数),然后如何以编程方式填充数组?任何编程语言都很好(我因为熟悉而标记了C和lisp)这是所需的算法.谢谢

c algorithm

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

sql查询计数为零

我有这个SQL查询从一个包含3列的表中检索ID:ID,Country和Age

SELECT Country, 
(CASE 
 WHEN AGE BETWEEN 0 AND 9 THEN '0-9'
 WHEN AGE BETWEEN 10 AND 19 THEN '10-19'
 WHEN AGE BETWEEN 20 AND 29 THEN '20-29'
 WHEN AGE BETWEEN 30 AND 39 THEN '30-39'
 WHEN AGE BETWEEN 40 AND 49 THEN '40-49'
 ELSE '50+'
END) Age_Bins, COUNT (DISTINCT ID)
FROM MYTABLE
GROUP BY Country, Age_Bins;
Run Code Online (Sandbox Code Playgroud)

我得到的结果是这样的:

UK '0-9' 7; 
UK '20-29' 14; 
etc... 
Run Code Online (Sandbox Code Playgroud)

但我想要的还有英国'10 -19'0(该年龄段没有身份证).如何相应地修改sql代码以使输出具有零计数.谢谢

sql oracle

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

获取IP地址的Perl代码

我试图记录访问者的IP地址.我可以用PHP做得很好,但是当我尝试这个Perl代码(Perl中的新手)时,当访问者访问我的网站时,它只会记录我网站的主机IP地址(在这种情况下是三脚架):19Apr11 20:25 :35 10.126.24.9.但这不是我想要的; 我想要访客的IP地址?我在这里做错了什么?谢谢

#!/usr/bin/perl
# For logging IP address of visitors. 
# This is stored into the cgi-bin folder and called from the index.htm file
# using <img src="cgi-bin/script.pl">
# Specify location and name of log file to be maintained.
my $LogFileLocation = "iplog.txt";
# Directory must exist and have correct permissions.
use strict;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
my @mon = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
$year += 1900;
$year = …
Run Code Online (Sandbox Code Playgroud)

perl

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

标签 统计

c ×3

algorithm ×1

cgi ×1

common-lisp ×1

html ×1

lisp ×1

oracle ×1

perl ×1

pointers ×1

sas ×1

sas-macro ×1

segmentation-fault ×1

sql ×1

sqlite ×1

string ×1