如何通过perl程序将数据以txt文本输出

routh
如何通过perl程序将数据以txt文本输出

最近在搞sflow数据解码，想请教下怎样将解码后的数据以txt文本格式输出解码数据？

不死草
能读就能写。。。:mrgreen:

routh
[quote]原帖由 [i]不死草[/i] 于 2008-5-13 08:47 发表 [url=http://bbs.chinaunix.net/redirect.php?goto=findpost&pid=8367859&ptid=1097432][img]http://bbs.chinaunix.net/images/common/back.gif[/img][/url]
能读就能写。。。:mrgreen: [/quote]
大侠能告诉具体的操作吗？我是新手，才学perl，还希望能够得到指点

hfahe
open FH,'data.txt' or die "Can't open file: $!";
print FH $data;
close FH;

hitsubunnu
[quote]原帖由 [i]hfahe[/i] 于 2008-5-13 11:33 发表 [url=http://bbs.chinaunix.net/redirect.php?goto=findpost&pid=8369142&ptid=1097432][img]http://bbs.chinaunix.net/images/common/back.gif[/img][/url]
open FH,'data.txt' or die "Can't open file: $!";
print FH $data;
close FH; [/quote]

不能少了 [color=Red]>[/color]

[table=95%][tr][td][font=FixedSys][color=#000000][color=#FF0000]open[/color] FH[color=#0000CC],[/color][color=#FF00FF]'>data.txt'[/color] [color=#0000FF]or[/color] [color=#FF0000]die[/color] [color=#FF00FF]"Can't open file: $!"[/color][color=#0000CC];[/color]
[color=#FF0000]print[/color] FH [color=#0000FF]$[/color][color=#008080]data[/color][color=#0000CC];[/color]
[color=#FF0000]close[/color] FH[color=#0000CC];[/color] [/color][/font][/td][/tr][/table]

[[i] 本帖最后由 hitsubunnu 于 2008-5-13 11:51 编辑 [/i]]

louis0518
回复 #5 hitsubunnu 的帖子

请问  把这个程序加到哪里呢?
加到原程序的哪里?
我刚刚把这段小程序加到那里面,的确输出了一个OUT.TXT文件,但里面什么都没有,杂回师啊?

hitsubunnu
回复 #6 louis0518 的帖子

perl 中文入门 慢慢看看就全明白了:mrgreen:
[url]http://www.chinaunix.net/jh/25/872802.html[/url]

louis0518
回复 #7 hitsubunnu 的帖子

帅锅!  我急啊!
后天就答辩了! 今天搞不出 后天就直接GG 了!

churchmice
[quote]原帖由 [i]louis0518[/i] 于 2008-5-13 15:24 发表 [url=http://bbs.chinaunix.net/redirect.php?goto=findpost&pid=8370766&ptid=1097432][img]http://bbs.chinaunix.net/images/common/back.gif[/img][/url]
请问  把这个程序加到哪里呢?
加到原程序的哪里?
我刚刚把这段小程序加到那里面,的确输出了一个OUT.TXT文件,但里面什么都没有,杂回师啊? [/quote]
您还是好好的把小骆驼从头到尾看一遍吧
或者您好好看看c的文件读写
或者你自己yy下文件读写是怎么一回事情

louis0518
回复 #9 churchmice 的帖子

哥们!  我真的很急啊!
后天就答辩了! 论文还没写!今天搞不出 后天就直接GG 了!
哥们9命啊!给个QQ聊下好么?

hitsubunnu
你要把 你读出来的 东西  付给 $data

例如：
$data = "123456789";

再接

open FH,'>data.txt' or die "Can't open file: $!";
print FH $data;
close FH;

louis0518
回复 #11 hitsubunnu 的帖子

我输出的东西上百行啊!难道要一行一行的赋值?

hitsubunnu
我说朋友  你换种你熟悉的语言吧

不是兄弟我不帮忙 估计给你讲明白了  都明天了

要不你把代码贴上来

louis0518
回复 #13 hitsubunnu 的帖子

兄弟  留个QQ把 我发代码给你!

louis0518
你不方便公开你QQ的话 我把我的QQ发你 179792381

hitsubunnu
我这儿不让用 qq

louis0518
回复 #16 hitsubunnu 的帖子

那邮箱!

louis0518
回复 #17 louis0518 的帖子

我邮箱 [email]179792381@qq.com[/email]  你发个消息给我!
我把代码发到你邮箱里!

hitsubunnu
yu_11 # 163.com

louis0518
回复 #19 hitsubunnu 的帖子

你太有才了,在你的帮助下我搞定了!你是我哥,你是我亲哥啊!!!