1樓：
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 語言，把乙個檔案裡面的一部分內容寫到另乙個檔案裡的方法。謝謝！
2樓：非我即仙
是否可以假定所有行都是3列（以空格分割），那麼所需要做的工作其實就是替換去除第一列
此時只需要
perl -f -pe 'print "@f[1,2]"『 source.txt > target.txt
3樓：匿名使用者
不知道什麼原因，今天我發的回答都顯示不出來，只能用匿名傳送試試看。（jasonqwu）
做了乙個指令碼，在我的機器上試過了：
use 5.016;
use warnings;
use utf8;
my %target;
my $source_file = 'original.txt';
my $target_file = 'target.txt';
my $source_file_fh; # your source file handle
my $target_file_fh; # your target file handle
my $key; # key item in target file
my $content; # last content item in target file
open($source_file_fh, ":utf8", $target_file) or die "can't open $target_file : $!\n";
while (<$source_file_fh>) = $content if ($key);
}for (sort keys %target) ";
}close $target_file_fh;
close $source_file_fh;
sub get_last_item
sub get_key
按照新的要求，修改了**，請確認。
如何用perl語言開啟多個（比如150個）檔案，對這些檔案同時進行處理後輸出到乙個輸出檔案中？
4樓：匿名使用者
for $i (1..150) , "file.$i.".txt";}
5樓：匿名使用者
有什麼問題麼，乙個個開啟處理過後輸出，當然也可以同時開啟。
不知道你具體要幹啥，所以沒辦法解答你的問題。
部門聯合發紅標頭檔案，怎樣用把「檔案」兩個字排在部門名稱後面的中間位置
1 在文件中插入乙個4行2列 根據要求調整調整兩列的寬度，單元格對齊方式均為垂直居中。2 在第一列各行依次輸入發文單位，單元格分散對齊。3 對第二列的單元格全部合併，輸入 檔案 兩個字即可。4 整個 的邊框和線條顏色均設定為無顏色。擴充套件資料 word常用快捷鍵 ctrl shift spaceb...
C怎樣用檔案讀寫在檔案的原有基礎上追加一行資料
首先添抄加命名空間using system.io 操作襲檔案時,一定要記得及時bai關閉du流,然後 string path d 1.txt 檔案的路徑,保證文zhi件存dao在。steamwriter sw new streamwriter fs sw.writeline 要追加的內容 sw.cl...
怎樣用photoshop把圓分成不同顏色的兩份
你是要怎麼分呢，平分還是隨意分？畫圓填充一種顏色，在用矩形工具選一半圓，ctrl j,選中這層填充就可以 怎樣用photoshop把乙個圓分成不同顏色 的兩份？謝謝 比如說填紅和藍兩種顏色 1 新建圖層1，畫圓形選區 2 填充紅色，取消選擇 3 裝圖層1透明格鎖定 4 用矩形選區選擇圓的一半，填充藍...