亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区
<legend id="ldb9u"></legend>
<cite id="ldb9u"></cite>
Chinaunix
標題:
Perl 14年之后我又回來了，求助一下��！
[打印本頁]
作者:
myperl
時間:
2016-03-31 15:33
標題:
Perl 14年之后我又回來了，求助一下�。�
perl語言在14年之前，自學過一段時間。 后來因為工作原因丟了14年了~
當年的chinaperl.org都換域名了，呵呵。 現(xiàn)在又需perl強大的字符處理能力，畢竟是丟了14年啊，好多東西都快忘完了。現(xiàn)在有一個小難題，請各位老鳥幫助一下。對高手來說真是小菜。
平臺win7 已經(jīng)安裝ActivePerl5.16 只求一個txt的腳本。
任務(wù)如下：
1、指定文件夾下，有若干txt文件。 我需要遍歷文件夾下所有txt文件。
2、txt 文件內(nèi)容橫列格式為： 變量1,變量2，變量3，變量4，變量5，變量6，變量7，變量8，變量9，變量10，變量11 (，逗號為分格)
3、需要遍歷所有的txt文件，文件中的只有 變量3是固定值（為單號） 重新生成一個新的txt文件，變量3為第一列，后面跟所有txt文件中變量3所對應的變量。
4、不知道我說清楚沒有。 求助一下��！
作者:
daili0703
時間:
2016-03-31 16:28
歡迎回來~·
作者:
myperl
時間:
2016-03-31 16:48
有大神，幫忙看一下嗎？ 都忘得差不多了。
作者:
sunzhiguolu
時間:
2016-03-31 17:35
回復
3#
myperl
理解能力差, 沒看懂, 有個示例數(shù)據(jù)嗎, 貼出來, 給個具體的結(jié)果. 謝謝...
作者:
zhlong8
時間:
2016-03-31 18:03
這活哪種語言都能做啊，除非這十四年樓主你去賣水果去了
作者:
yjh777
時間:
2016-03-31 18:20
沒看懂描述，，
作者:
yakczh_cu
時間:
2016-03-31 20:15
本帖最后由 yakczh_cu 于 2016-03-31 20:20 編輯
use strict;
use 5.01;
use warnings;
use File::Find;
sub openit {
my $path = shift;
local *FH;
return open (FH, $path) ? *FH : undef;
}
my @collect=();
find(\&wanted,'yourpath');
sub wanted{
if($_ =~ /txt$/){
my $fh;
$fh=openit($File::Find::name);
while(<$fh>){
my @F=split/,/;
unshift(@F,$F[2]);
push(@collect,\@F);
}
close $fh;
}
}
open(OUT,'>'.'destpath/out.txt') or die ("fila");
say OUT join("\n", map { $_=join(',',@{$_}) } @collect);
close OUT;
復制代碼
作者:
rubyish
時間:
2016-03-31 23:30
na 1nian perl shi nage version ~
作者:
RE_HASH
時間:
2016-04-01 06:12
perl -F' *, *' -e '$A->{$F[2]}++; END { print "No: ", join ", ", keys %$A; }' *.txt
^^^-- 假設(shè)分隔符是"," ^^ 可以是單號 ^^sort keys 排序
歡迎光臨 Chinaunix (http://72891.cn/)
Powered by Discuz! X3.2
當年的chinaperl.org都換域名了，呵呵。 現(xiàn)在又需perl強大的字符處理能力，畢竟是丟了14年啊，好多東西都快忘完了。現(xiàn)在有一個小難題，請各位老鳥幫助一下。對高手來說真是小菜。
