522731089的个人资料 - RAT

522731089 522731089

关注数: 21 粉丝数: 24 发帖数: 78 关注贴吧数: 4

寻找驴友2015年4月中旬寻找驴友-2015年4月中旬我想去云南玩，时间定在2015年4月10号到12号，可以再商量前后一两天都可以。打算自己租车，驾龄2年。没去过云南，不知道哪里好玩，四处可以逛逛。有一起的请留言！！好计划机票和行程！！谢谢

2014年10月4-5 新山打算去johor bahru在10月4号到5号，想去lego land的大门口拍照，哈哈。还有那边据说很有名的折扣店想逛一圈。弱弱问一句，有没有人打算这么玩的？大家可以一起。。。。或者推荐一下新山好玩的地方，谢谢！

12月16—20号 boracay 求被捡有没有人一起去长滩岛，我的计划是12月16或者17号去长滩岛，接下来打算20号撤。单身妹子一名，英文凑合，不会游泳，如果有人一起的话，我就国庆去做签证了。

perl的数组问题，怎么读进去啊？我有一个.txt文档里面是这种数组： 1 你好 0.001 0.1 2 今天 0.002 0.1 3 吃饭 0.003 0.1 ...........#i行想按这种形式读进去，要每行的汉字，即a[i][1]跟我另一个文件里面的几个词比较。请问这种读入的方式要怎么用perl语言编写啊？

map,map函数 push @element, split(/\s+/,$_)； map {$hash1{$_} = ''} @element；我想请问一下，这里面map是什么意思啊？

hash一下。$_代表什么？ my %hash; open(INFILE1,"E:\\jojo\\ziku.txt")||die"can't open"; while(<INFILE1>) { my @element=split(/\s/,$_); 请问这个里面最后的“$_”非简写是什么啊？$（%hash）？$key（%hash）？还是其他的什么啊? 谢谢各位！

急寻答案，与上一个问题有关！首先谢谢斑竹！然后现在我有新问题了，找众人帮忙，谢谢关心！！首先附上斑竹的答案。要求是：随便输入一段话（不少于50个汉字），然后找出其中每个字出现的次数，其中次数出现10次以上的删掉（应该是去掉停用词之类的）。可以是分好的词，好像还要用到hash函数，老师说这样才简单，要是有别的方法也谢谢。斑竹上次给的程序很好，然后现在我有了新的问题。 #!usr/bin/perl use utf8; open(INFILE,"E:\\perl\\fenci.txt")||die"can't open";（#我要把这个fenci.txt文档输进去，是分词之后的文档，不止一段。现在我想把每一段的回车符去掉，要不然总是显示第一个回车符之前的那一段。） $message=<INFILE>; @element=split /\s+/,$message; （#分词就必定要用到空格嘛，所以我这用了split /\s+/） chomp;(#大虾帮忙看看是不是这个加上这个函数，可是加完之后我这还是没有什么不同的！) foreach(@element){$hash{$_}=0;} foreach (keys %hash){ foreach $key (@element){ $r++ if /$key/; } $hash{$_}=$r; $r=0; } print "all tables:\n"; foreach(keys %hash){ print " $_=>$hash{$_} \n";} foreach(keys %hash){ delete($hash{$_}) if $hash{$_}>5; delete($hash{$_}) if $hash{$_}<2; } print "delete frequency of five :\n"; foreach(keys %hash){ print " $_=>$hash{$_} \n";} close(INFILE); 后面还没有多大的改动，关键是先卡到这点儿了。还有一点，我用分词程序分完之后，这个文档没有办法显示，这个偶不明白！头好痛啊！呵呵，小女子才开始看这个，希望大家多多关照。

perl程序求助求助求助！！老师要求用perl语言写点程序，可是我根本就不知道思路，特来求助！要求是：随便输入一段话（不少于50个汉字），然后找出其中每个字出现的次数，其中次数出现10次以上的删掉（应该是去掉停用词之类的）。可以是分好的词，好像还要用到 hash函数，老师说这样才简单，要是有别的方法也谢谢。我也是近三个月来在老师要求才开始学习perl的，所以简简单单的可以看懂，但是自己写的话就是有点困难了。有劳各位大虾了！

1 下一页