看板 [ Perl ]
討論串[問題] 如何修改一個資料夾中的所有檔案?
共 4 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#4
Re: [問題] 如何修改一個資料夾中的所有檔案?
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者DarkKiller (System hacked)時間18年前 (2007/05/06 13:07), 編輯資訊
0
0
0
內容預覽:
gslin@netnews [~/work/Perl] [13:06/W9] cat a.pl. #!/usr/bin/perl. use strict;. use warnings;. main();. sub main. {. while (<*.pl>) {. print $_, "\n";.
(還有189個字)
#3
Re: [問題] 如何修改一個資料夾中的所有檔案?
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者Andor (檸檬汁)時間18年前 (2007/05/05 21:41), 編輯資訊
0
0
0
內容預覽:
use Tie::File;. foreach (<*>) {. tie my @text, 'Tie::File', $_;. $#text -= 2;. untie @text;. }. 為防誤砍不該砍的行，可將藍色部分改為：. -- $#text while ($text[-1] =~ /^[
#2
Re: [問題] 如何修改一個資料夾中的所有檔案?
推噓1(1推 0噓 0→)留言1則，0人參與, 最新作者imce (蜥蜴)時間18年前 (2007/05/04 19:30), 編輯資訊
0
0
0
內容預覽:
opendir(DIR,"."); #. @DIR=readdir(DIR); #把.資料夾底下的檔案讀入@DIR. close(DIR); #. foreach(@DIR). {. next if ($_ =~ /^\./); #略過.和..兩個. open(FILE,"$_");@temp=<F
(還有37個字)
#1
[問題] 如何修改一個資料夾中的所有檔案?
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者CrowOnTorii (烏鴉)時間18年前 (2007/05/04 18:52), 編輯資訊
0
0
0
內容預覽:
我現在有一大堆資料檔案. 每一筆檔案內容都是一長串座標,最下面兩列標示出這些座標中的最大與最小值. 而且每個檔的總共列數都不一樣. 檔案形式如下:125,160. 126,161. 140,150. .... .... xmax_288 xmin_7. ymax_170 ymin_7. 現在我想要把
(還有207個字)
首頁
上一頁
1
下一頁
尾頁