1樓:匿名使用者
#!usr/bin/perl -w
use warnings;
my $srcfile = "original.txt";
my $desfile = "processed.txt";
open infile, "<$srcfile" or die "cannot open in file:$!";
open outfile, ">$desfile" or die "cannot open out file:$!";
my %hash_table;
while()
))},$_;
}else
=\@array;}}
foreach my $key (keys %hash_table)}>1)})}
}close infile;
close outfile;
#希望能夠幫到你,**如果有什麼問題可以直接問
怎樣用perl把一個檔案裡同一類資料輸出到同一列,不同類的資料中間用\t隔開
2樓:
my @t =(,,);
while () , $_;}
elsif (/^#/) , $_;}
else , $_;}
}my @m = sort(map} @t);
for my $i(0..$m[$#m]) )else
}print "\n";
}__data__
>123hello
>26544
#59679
#123hello
oo123
00158669
用perl 怎麼處理不同資料夾下相同的檔案?
3樓:匿名使用者
已測試通過。
#!/use/bin/perl -w
use strict;
use file::find;
sub wanted
close in;
}my @dir=qw(e:/perl/新建資料夾 c:/新建資料夾); #要找的父目錄,為一個或多個,目錄用正斜槓'/'
find \&wanted,@dir;
4樓:匿名使用者
生物資訊學?
需求描述得太專業了 不太清楚你的需求
最好給出示例資料和要達成的目標
如何用perl迴圈讀取多個文字檔案,並進行資料處理
我用perl開啟一個檔案處理存在另一個新檔案裡,現在我要開啟該資料夾裡的多個檔案怎麼弄?
5樓:匿名使用者
問題在**?
可以寫一個迴圈,遍歷所有需要處理的檔案
需要考慮一個輸入檔案一個輸出檔案,還是所有輸入檔案一個輸出檔案
用數字1,2,3,5,6,7,9組成不含重複的數,如果數
因為奇 奇 奇,要使四位數中4個數字的積是奇數,則4個數字都是奇數,只能由1 3 5 7 9組成,根據乘法原理可知這樣的四位數有 5 4 3 2 120 個 由數字1,2,3,4,5,6,7,共可以組成多少個沒有重複數字的四位奇數 個位有四個奇數供挑選,所以共有4 6 5 4 480種 其實這很簡單...
用0 數能組成多少個數字不重複的三位數
我想您的問題是 三位數,三位上的數字互不相同,這種情況有多少種可能性 從高位開始看,第一位不能為0,有9種可能 第二位還剩9個數可選 第3位還剩8個數可選 這樣,可以有 9 9 8 648 個數字不重複的三位數。乘法原理 先選百位數字,有9種選法 0不能選 再選十位數字,有9種選法 最後選個位數字,...
用5076這幾個數字寫出一些沒有重複的數字的小數其中比六大又比七小的三位小數
用5076這幾個數字寫出一些沒有重複的數字的小數其中比六大又比七小的三位小數6個 6.750,6.705,6.570,6.507,6.075,6.057。希望能幫到你!數學 理工學科 學習 用逆推法 先去分母,兩邊同乘4 1 x 1 y 1 z 又因為x y z 1得4 12xzy 8zy 8xz ...