小编Bil*_*ill的帖子

在Perl中对数组进行洗牌的最佳方法是什么?

所以我有一个文件.让我们说它看起来像这样(它实际上更长):

1234
2134
3124
4123
Run Code Online (Sandbox Code Playgroud)

在该文件中改变行的最佳方法是什么?

random perl shuffle

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

利用面向对象程序设计促进进步的利弊

我理解使用面向对象编程作为概念的优缺点.我正在寻找的是具体使用oo进行中/开放的利弊.我需要考虑哪些挑战?是否有部分语言与oo不能很好地融合?类似的东西.

编辑:使用10.2b

oop progress-4gl openedge

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

在逗号分隔的项目列表上运行循环4GL

def var cList as char no-undo.
assign cList = "one,two,three,four".
<Loop> cList
logic...
</Loop>
Run Code Online (Sandbox Code Playgroud)

在char变量中循环逗号分隔列表的最佳方法是什么,这样在本例中我会得到一个然后是两个然后是三个然后是四个.

progress-4gl openedge

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

在C中使用非阻塞套接字连接

我正在将脚本中的套接字连接更改为非阻塞连接.在教程中我找到了以下几行:

x=fcntl(s,F_GETFL,0);              // Get socket flags
fcntl(s,F_SETFL,x | O_NONBLOCK);   // Add non-blocking flag
Run Code Online (Sandbox Code Playgroud)

所以我在创建套接字之后和connect语句之前添加了它们.并且它不再阻止:)但它也没有连接.我没有收到任何错误,连接只是返回-1.如果我评论这些线路它连接.

还需要添加什么来获得连接的非阻塞连接?

c sockets

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

避免冗余更新

我在IO绑定系统中工作(这不会改变).所以我正在重写一些sql只在需要的时候进行更新,而且它的确很顺利.我发现性能提升了70%.唯一的问题是sql更臃肿,这不是世界末日,只需要维护更多的代码.

所以我的问题是..是否有更简单的方法让Oracle只在需要与添加where子句进行比较时进行更新:

update table_name
   set field_one = 'one'
 where field_one != 'one';
Run Code Online (Sandbox Code Playgroud)

注意:实际代码要复杂得多,因此像这样添加"where"有时可以使查询的长度加倍.

用11g

sql oracle plsql

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

进度中的赋值语句的效率是多少-4gl

为什么赋值语句比不使用赋值语句更有效?

同事说:

assign
  a=3
  v=7
  w=8.
Run Code Online (Sandbox Code Playgroud)

比以下更有效:

a=3.
v=7.
w=8.
Run Code Online (Sandbox Code Playgroud)

为什么?

progress-4gl openedge

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

循环遍历文件并删除某些行

我想循环一个文件并删除某些行.示例文件:

的test.txt

a
b
c
d
Run Code Online (Sandbox Code Playgroud)

是)我有的:

FILE=/tmp/test.txt
while read FILE
do
  # if the line starts with b delete it otherwise leave it there
  ?
done
Run Code Online (Sandbox Code Playgroud)

bash shell

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

如何从Perl访问Oracle数据库?

我正在将一些shell脚本转换为perl.所有数据库访问都是使用sqlplus完成的.使用perl是访问Oracle数据库的更好方法,或者我应该坚持使用sqlplus.

oracle perl

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

从perl脚本内部可以知道要将输出重定向到的文件的名称吗?

所以我有:

test.pl > test.log
Run Code Online (Sandbox Code Playgroud)

有没有办法知道我在输出'test.log'的test.pl里面?在我的脚本结束时,我想对test.log进行一些操作而不用硬编码名称.

perl

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

创建ABL客户端以使用REST Web服务

我没有找到任何关于从进度连接到REST Web服务的文档.有人可以指出我的文档方向或提供连接示例.

进展:11.3

progress-4gl openedge

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

标签 统计

openedge ×4

progress-4gl ×4

perl ×3

oracle ×2

bash ×1

c ×1

oop ×1

plsql ×1

random ×1

shell ×1

shuffle ×1

sockets ×1

sql ×1