Perl问题求助 - 未名空间MITBBS历史存档

国际科技财经博客移民网络热点娱乐民生时事公众号

Redian新闻

>未名空间

>Linux - Linux 操作系统

Perl问题求助

Perl问题求助# Linux - Linux 操作系统

i*82010-09-22 07:09

1 楼

工作地点在白宫附近。需要1-4年Business Objects Developer工作经验，年薪13-14万
。注意这并不是一个senior的职位，所以这个工资对于这个要求来说已经很高了。
要求：有Business Objects Developer经验。不接受H1b。
如果你没有这方面的经验但是有很多年developer经验，我也可以考虑。
有兴趣速联系我。Email：[email protected]。Wechat: mwang6868。

M*m2010-09-22 07:09

2 楼

联系的老板统统都没钱，当然有一个确实是时候不好，人刚招了3，肯定饱和了，郁闷
！联系改CL，读paper真是很费时，不过好处时了解了很多研究课题。哎，大家都啥情
况啊。我现在只着眼CA，是不是该放眼全美？不想挪动太大。。

C*r2010-09-22 07:09

3 楼

九月
我在黑暗里
感受爱情
你轻轻地来了
遮住了满天的星光
第一次吻你
喜欢看你红苹果的脸
发梢上雏菊的幽香
更喜欢看你慌张的眼睛
就象躲藏的月亮
九月
我在记忆里
想你娇羞的模样
青青的草地
静谧的树林
一双蝴蝶在翩翩舞着
闻着花香，闻着花香
我牵你的手
听远方教堂的钟声正在敲响
九月
我在梦境里
与你执手相望
你的长发抚着我的脸
你倚在我的肩上
听着溪水潺潺的声音
什么都不想
什么都不想
九月
我在期盼里
等待我的新娘
如果我是枯树
你就是环绕我的青藤
如果我是沙漠
你就是陪伴我的胡杨
我们一起攀援
一起飞扬
一起去天堂
九月的夜色真的很美
九月的菊花真的很香
九月的微风真的很温柔
九月的故事真的很长 ……

b*n2010-09-22 07:09

4 楼

【以下文字转载自 Programming 讨论区】
发信人: barron (barron), 信区: Programming
标题: Perl问题求助
发信站: BBS 未名空间站 (Wed Sep 22 15:09:54 2010, 美东)
我用perl写了一个读取1.7M txt文件到string array，然后进行一些字符串替换，再将
string array存入一个新的txt文件的小程序，可是新建的新文件没有多多少内容，siz
e却变成了8M,而且每行末尾有些乱码，做了dos2unix以后，乱码消失，size不变。。。
请问这个可能是什么问题，怎样才能保持文件的size不变? 谢谢！

g*92010-09-22 07:09

5 楼

你真行，只CA。。。

【在 M****m 的大作中提到】

: 联系的老板统统都没钱，当然有一个确实是时候不好，人刚招了3，肯定饱和了，郁闷
: ！联系改CL，读paper真是很费时，不过好处时了解了很多研究课题。哎，大家都啥情
: 况啊。我现在只着眼CA，是不是该放眼全美？不想挪动太大。。

d*e2010-09-22 07:09

6 楼

you need show some codes at least...

siz

【在 b****n 的大作中提到】

: 【以下文字转载自 Programming 讨论区】
: 发信人: barron (barron), 信区: Programming
: 标题: Perl问题求助
: 发信站: BBS 未名空间站 (Wed Sep 22 15:09:54 2010, 美东)
: 我用perl写了一个读取1.7M txt文件到string array，然后进行一些字符串替换，再将
: string array存入一个新的txt文件的小程序，可是新建的新文件没有多多少内容，siz
: e却变成了8M,而且每行末尾有些乱码，做了dos2unix以后，乱码消失，size不变。。。
: 请问这个可能是什么问题，怎样才能保持文件的size不变? 谢谢！

b*y2010-09-22 07:09

7 楼

我还没觉出加州有啥好的呢，为啥那么多人喜欢加州呢？

【在 M****m 的大作中提到】

b*n2010-09-22 07:09

8 楼

基本上就是一些字符串的replace，然后在原文件中的一行前面再加一行
$file = './test.xml';
open (FILE, "@lines = ;
# real change in lines
@variable_array;
# find lines has >***< pattern
$line =~ m/\>(\w+)\$variable = $1.";";
push (@variable_array, $variable);
#remove "variable_" from the line
$lines[$line_number] =~ s/$orig/$repl/g;
# insert the variable array to the $lines[$var_first_line]
$variable_str;
foreach (@variable_array) {
$variable_str .= $_;
}
$variable_str = substr($variable_str, 0,-

【在 d*******e 的大作中提到】

: you need show some codes at least...
:
: siz

M*m2010-09-22 07:09

9 楼

我也不是觉得加州好啊，但是不想大活动。。。当年找就不想来加州结果还是来了。话
说加州学校还是挺多
的

【在 b********y 的大作中提到】

: 我还没觉出加州有啥好的呢，为啥那么多人喜欢加州呢？

E*V2010-09-22 07:09

10 楼

I don't know perl
but `sed' could do this elegant ly

【在 b****n 的大作中提到】

: 基本上就是一些字符串的replace，然后在原文件中的一行前面再加一行
: $file = './test.xml';
: open (FILE, ": @lines = ;
: # real change in lines
: @variable_array;
: # find lines has >***< pattern
: $line =~ m/\>(\w+)\: $variable = $1.";";
: push (@variable_array, $variable);

b*l2010-09-22 07:09

11 楼

放眼全球吧，认真地说。

【在 M****m 的大作中提到】

j*y2010-09-22 07:09

12 楼

perl -pi -e 's/OLD_STRING/NEW_STRING/g' file.txt

c*f2010-09-22 07:09

13 楼

sed -i 's/OLD/NEW/g' file.txt

m*g2010-09-22 07:09

14 楼

Is the text from windows or unix?
Look out for the new line character!!!
With so little information, I can not help much.
Also try to use strict every time you use Perl. Your Perl style can give
you a lot trouble if the program goes a little longer.
Personally, I don't like $_, @_. They make program so unreadable.

【在 b****n 的大作中提到】