f***y
发帖数: 98 | 1 Is there anyone who has experience with perl(on a Linux box) connecting to
Oracle? What I want to do is simply a sql read/write.
I am trying to install DBI::Oracle, but it is required that oracle has to be
already installed on the same box. If anyone who knows about this, would you
please intro it in a little more details? or, is there any other approach?
any suggestions will be appreciated. |
|
f***y
发帖数: 98 | 2 【 以下文字转载自 Programming 讨论区 】
【 原文由 ferry 所发表 】
I implemented a pl/sql funtion, created it on oracle and tested it
with pl/sql scripts. it was good.
when this funtion gets called from a perl script,
it fails with an error like this: |
|
b*******r
发帖数: 28 | 3 手头有个活但不知道如何下手.
任务是到一个数据库网站,输入某个搜索条件和关键词,点击搜索后取得'搜索结果'页面
的源代码. 这个在web下很容易实现.但是我要用不同的关键词做5000次搜索,所以希望
能用Java, Perl 或者其他语言写个小程序.
我会用Java去获得静态url的源代码, 但是不知如何对付使用.aspx 结尾的动态网页.
初始界面和搜索结果界面是同样的url, 结尾都是 .aspx, 所以无法获得静态的url.
希望能给点建议,该如何入手呢? |
|
l***y
发帖数: 791 | 4 perl is good for network management. experience is also good for network
management. if you want to go that direction, you should also work on your
networking knowledge, such as basic lan/wan tech and routing protocols such
as ospf and bgp. try get a cisco network certificate will help to get your
feet in the door. bonus to understand system administration/db. large scale
networks management tools such as openview, emc smarts, ibm netcool, route
explorer for l3vpns, these are good to put on your |
|
q**j
发帖数: 10612 | 5 【 以下文字转载自 Linux 讨论区 】
发信人: qqzj (小车车), 信区: Linux
标 题: Linux+Perl+Eclipse+EPIC:如何显示console。
发信站: BBS 未名空间站 (Mon May 20 14:22:19 2013, 美东)
就是我 print hello world以后如何让结果显示在eclispe里面的一个console里面。往
上搜了一个给windows的，但是没有给Linux的。气死我了。请帮忙。 |
|
w******r
发帖数: 201 | 6 perl能不能批处理作字符串替换？
比方说把一个字符串中的a替换成x，b替换成y？
我知道可以
$str =~ s/a/x/g
$str =~ s/b/y/g
但这样要做2次scan，而且这样的a-x,b-y规则我有好多条，如果能一次替换就方便多了
。 |
|
c****m
发帖数: 824 | 7 在call by reference函数里change hash，为什么出来就没有了？
#!/usr/bin/perl -w
use strict;
sub sethash
{
my (%hash) = %{$_[0]};
$hash{1} = 5;
print("$hash{1}\n");
}
my %mainhash = ();
&sethash(\%mainhash );
print("$mainhash{1}\n"); |
|
u****a
发帖数: 1098 | 8 遇到一个非常奇怪的问题..
在server上用perl进行文件处理，输出结果保存在.txt文件...
结果每个.txt输出文件都是这种格式： filename?.txt
试过 chmod 777 filename?.txt
依旧无法下载..
在winSCP下的话根本打不开，提示os function错误..
请知道的帮助一下..
只是想把运行结果保存下来...
非常非常谢谢.. |
|
m*********g
发帖数: 273 | 9 To read this kind of PERL is a tough job. |
|
g******e
发帖数: 3760 | 10 There are a lot of data types in Java are not objects.
btw, Perl 6 has been out for so many years. What is the adoption rate so
far? |
|
|
k****f
发帖数: 3794 | 12 每次折腾perl的hash + array数据，排序，函数传参数等等，总是很麻烦的。 |
|
r****t
发帖数: 10904 | 13 perl 很难混出头的，你得维护一堆 module 在 cpan, 或者就是写 perl6 实现才能在
社区有点头面。。。 |
|
v*****r
发帖数: 1119 | 14 Swing 来，swing 去， 还是觉得 Perl 的 "more than one way" suit 自己的 style. |
|
|
C********s
发帖数: 120 | 16 perl -c
ruby -c
with emacs flymake, syntax errors can be caught at edit time |
|
r****t
发帖数: 10904 | 17 perl 没执行到的地方错了能报错？unit test 要搞好啊。 |
|
s*****w
发帖数: 1527 | 18 怎样用perl免费从自己的电脑发信到手机上？
chikat好像要钱 |
|
p*****s
发帖数: 344 | 19 你的手机能收email吗，有perl的yahoo mail client。 |
|
s*****w
发帖数: 1527 | 20 well, many modules are old, no examples,
which one do u recommend ?
BTW, i'm running cygwin+perl in windows. |
|
p*****s
发帖数: 344 | 21 you have to try yourself, my real experience is also several years old.
actually I think since gmail has IMAP interface, perl should be no problem
to access gmail.
And someone even written module for google voice that you can send SMS
directly. |
|
E*V
发帖数: 17544 | 22 I don't know perl
but usu. reuglar expression is greedy
which means
.* will match every thing unitl the end of the line |
|
C********s
发帖数: 120 | 23 #!/usr/bin/env perl
use strict;
use warnings;
my $string = q{ $39.88};
if ( $string =~ m/\$(.+)\./ ){
print $1;
}
# ==> 39 |
|
|
E*V
发帖数: 17544 | 25 I don't know perl
but `sed' could do this elegant ly |
|
j******y
发帖数: 700 | 26 perl -pi -e 's/OLD_STRING/NEW_STRING/g' file.txt |
|
B*********s
发帖数: 292 | 27 Use your perl script to process a 100byte file and check the result file. |
|
w****o
发帖数: 2210 | 28 想在两个里面选一个学，那个前途比较好啊？好像perl的普通工作机会很多，但是大公
司比较新的东西好像用python的多？ |
|
S*A
发帖数: 7142 | 29 python. strongly recommended.
Perl is write only language :-) |
|
f******y
发帖数: 2971 | 30 I only know perl. It is not bad as a scripting language. |
|
c******n
发帖数: 4965 | 31 perl -e ' sub x { print "OO\n" } $y="x"; print "start\n"; defined (&
{$y} ) ; print "---\n"; &{$y};
'
start |
|
C********s
发帖数: 120 | 32 every perl script should start with these two lines:
use strict;
use warnings; |
|
s*****w
发帖数: 1527 | 33 if i still want to use perl to get the page info,
any solution pls ? |
|
j*a
发帖数: 14423 | 34 :/tmp$ cat a.pl
$_ = "a b c d ef gh ij";
@var = split(/ /, $_);
foreach (@var)
{
print $_."\n"; # print all var in this line
}
:/tmp$ perl a.pl
a
b
c
d
ef
gh
ij |
|
L*1
发帖数: 11537 | 35 Try to run this, and see what you get:
#!/usr/bin/perl
our $v1;
print "v1 = $v1\n";
if ($v1 == 0) {
print "v1 = 0\n";
}
else {
print "v1 != 0\n";
}
Don't know if that caused your problem.
You may change to use "yes", "no", "set", "notset". |
|
o******1
发帖数: 1046 | 36 上面说的太啰嗦了，我想了一下，其实问题就一句话：
如何把backticks中调用的自己写的C可执行程序的output返回到perl程序中？
大牛们指点一下吧！ |
|
m**k
发帖数: 290 | 37 能用python就别用perl了。
python 里有 subprocess.Popen
per里可以 open FD "| c-prog" |
|
o******1
发帖数: 1046 | 38 多谢提醒！
我试过了，命令里面的"|"应该是在"c-prog"之后吧。但是这也不行，还是不能把输出
返回给perl。 |
|
f*****3
发帖数: 19 | 39 你的c 语言输出是到STDOUT吗？
试试这个看输出是到STDOUT,或STDERR：
perl code.pl 1> out.txt 2> err. txt |
|
f*****3
发帖数: 19 | 40 shell 变量一般在 ~/.bash_profile.如果不是你可以自己建立个文件。
＝＝
export LD_LIBRARY_PATH=...
...
＝＝
把你的c 程序放在已shell script 里面。
＝＝＝
#!/bin/bash
source /home_dir/.bash_profile
/home_dir/bin/c_prog
＝＝＝
再用Perl调用。 |
|
G*****h
发帖数: 33134 | 41 文件是你的
运行这个文件的进程是 httpd 调用 perl
用的是 httpd 系统用户的环境变量 |
|
R******d
发帖数: 1436 | 42 比如说python的matplotlib，perl的Algorithm::Munkres这样的。
多谢了。 |
|
|
R******d
发帖数: 1436 | 44 比如说python的matplotlib，perl的Algorithm::Munkres这样的。
多谢了。 |
|
|
w**2
发帖数: 724 | 46 so i have a ascii string: 11, 22, 33 ,
(ascii 22 is not readable),
what's the syntax in perl for this string pls,
$str = "0x112233" ?
thanks ! |
|
c**t
发帖数: 2744 | 47 #/usr/bin/perl -w
use strict;my%p=
("\40"=>chr(ord("\40"
)*3-1).chr(ord("\40")+ord("\40")/4+7));$p{$p{"\40"}}="\40";print
@{[map{my$o= $p{"\40"};@{[map{(($o=$p{$o})x$_)}map{ord($_)-(ord(
"\40")*3 )-1}split//]},"\n"}split/n/,"uaqbnfdgcebcccbnebe"
."bcecc" ."gbndbeb" ."cbibi" ."bncdg" ."dcbib"
."nbbna" ."bnaaua" ."ubndd" ."ccgce" ."debcb"
."ncbeb" ."ebcbeb"
."cbebc" ."cnbbeb"
."ebcbebcbebcbcbnab"
."ebebecebebcbeb"
."na"]};# amen
This |
|
