麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁(yè) > 編程 > Perl > 正文

Perl 文本文件的讀寫操作、文件的重命名和刪除、多個(gè)文本文件的合并實(shí)現(xiàn)代碼

2020-10-31 15:19:36
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(wǎng)友

讀文件:

復(fù)制代碼 代碼如下:

#!perl
open filetxt,"/path/a.txt";   #  filetxt為文件句柄,用于和文件a.txt建立鏈接。文件句柄可任意取名,但不要和Perl自帶的幾個(gè)文件句柄重名。
print <filetxt>;                 #  此處print函數(shù)用于顯示文件a.txt的內(nèi)容。<>為取行操作符,<文件句柄>用于讀取所鏈接文件的內(nèi)容。
close filetxt;                    #  關(guān)閉文件句柄filetxt。另一種關(guān)閉的方法是將其與其它文件建立關(guān)聯(lián),如:open filetxt,"b.txt";如此則與原來(lái)文件a.txt的關(guān)聯(lián)自動(dòng)關(guān)閉。

或者

復(fù)制代碼 代碼如下:

#!perl
open filetxt,"<path/a.txt"; #  < 用于從文件中讀取內(nèi)容,但是不能寫入任何內(nèi)容到文件中。< 與 什么符號(hào)都不加 效果相同
while ($line=<filetxt>)
{
print $line;
)
close filetxt;

寫文件:

在 open 一行中將 < 更改為 > 或 >> ,即可向文件中寫入內(nèi)容。如:

復(fù)制代碼 代碼如下:

#!perl
open TXT,">a.txt";
print TXT "夢(mèng)里不知身是客,/n";     #  如果文件a.txt存在,則其內(nèi)容會(huì)被取代
print TXT "一晌貪歡。/n";                #  該行內(nèi)容會(huì)附加到第二行
close TXT;
[code]

或者


#!perl
open TXT,">>a.txt";
print TXT "獨(dú)自莫憑欄,無(wú)限江山,別時(shí)容易見(jiàn)時(shí)難。/n";     #  如果文件a.txt已存在,該行內(nèi)容會(huì)被附加到已存在文件的后面
close TXT;

    <,從文件中讀取內(nèi)容,但是不能輸出到文件里任何內(nèi)容。如果什么都不加的清況下讀文件狀況會(huì)同加上“<”的效果一樣。
     >,將內(nèi)容輸出到文件中,并將原有文件中的內(nèi)容清空。
     >>,將內(nèi)容追加到文件中,不會(huì)清空原有文件中的內(nèi)容。

 文件的重命名和刪除:

rename:將文件重命名

復(fù)制代碼 代碼如下:

#!perl
rename "a.txt","b.txt";       # 或者 rename "a.txt","a.bat";

unlink:等同于rm,刪除系統(tǒng)中的某些文件

復(fù)制代碼 代碼如下:

#!perl
my @files=<*.txt>;          # 或者 my @files=glob "*.txt";
unlink @files;

或者
復(fù)制代碼 代碼如下:

#!perl
unlink glob "*.txt";

或者
復(fù)制代碼 代碼如下:

#!perl
unlink <*.txt>;

多個(gè)文本文件的合并:

在Perl中,可以按照如下方式合并多個(gè)文本文件:

復(fù)制代碼 代碼如下:

#!perl
open  a,">a.txt";
print a "四十年來(lái)家國(guó),三千里地山河。";
open  b,">b.txt";
print b "鳳閣龍樓連霄漢,玉樹(shù)瓊枝作煙蘿。";
open  c,">c.txt";
print c "幾曾識(shí)干戈?";              # 分別建立文本文件 a.txt、b.txt和c.txt,并執(zhí)行寫入操作
close a;
close b;
close c;                                       # 關(guān)閉對(duì)應(yīng)的文件句柄(filehandle)
open a,">>a.txt";
open b,  "b.txt";
open c,  "c.txt";                           # 重新建立文件關(guān)聯(lián),其中 a.txt 執(zhí)行附加寫入操作,其它兩個(gè)文件執(zhí)行讀文件操作
print a "/n".<b>."/n";                   # 利用 . 進(jìn)行字符串的連接,此操作符必須
print a      <c>."/n";                     # <filehandle>表示讀取文件句柄所鏈接的文本文件的內(nèi)容
close a;
close b;
close c;
[code]
或者
[code]
#!perl
open  a,">a.txt";
print a "四十年來(lái)家國(guó),三千里地山河。/n";
open  b,">b.txt";
print b "鳳閣龍樓連霄漢,玉樹(shù)瓊枝作煙蘿。/n";       # 生成文件并寫入內(nèi)容時(shí),即執(zhí)行換行操作,讓光標(biāo)留在下一行
open  c,">c.txt";
print c "幾曾識(shí)干戈?/n";                               #  分別建立文本文件 a.txt、b.txt和c.txt,并執(zhí)行寫入操作
close a;
close b;
close c;                                                          #  關(guān)閉對(duì)應(yīng)的文件句柄(filehandle)
open a,">>a.txt";
open b,  "b.txt";
open c,  "c.txt";                                              #  重新建立文件關(guān)聯(lián),其中 a.txt 執(zhí)行附加寫入操作,其它兩個(gè)文件執(zhí)行讀文件操作
print a <b>;                                                    #  利用 . 進(jìn)行字符串的連接,此操作符必須
print a <c>;                                                    #  <filehandle>表示讀取文件句柄所鏈接的文本文件的內(nèi)容
close a;
close b;
close c;

如果想要在合并文本文件后刪除文本文件 b.txt 和 c.txt ,可以在后面加上如下代碼:

unlink <b.txt>;
unlink <c.txt>;

或者

unlink "b.txt";
unlink "c.txt";

或者

unlink <b.txt>,<c.txt>;

或者

unlink "b.txt","c.txt";

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 国产一区二区三区在线免费观看 | 日本欧美国产 | 欧美精品一区二区三区在线 | 精品国产一区二区三区免费 | 大号bbwassbigav头交 | 成人综合免费视频 | 国产精品亚洲三区 | 国产一区二区三区四 | 日本欧美一区二区三区在线观看 | 久久国产亚洲精品 | 国产影院一区 | 色综合狠狠 | 国产一区二区在线免费播放 | 91精品国产乱码久久久久久久久 | 日本在线观看中文字幕 | 亚洲成人中文字幕在线 | 视频一区二区三区在线播放 | 久久久久久久久久久久免费 | 午夜视频久久久 | a级毛片免费观看在线播放 日本aaa一级片 | 国产亚洲精品成人 | 免费播放欧美毛片 | 高清国产福利 | 精品偷拍久久 | 国产乱轮视频 | 偷偷操偷偷操 | 国产影院在线观看 | 国产精品久久久久久久久久尿 | 亚洲成人在线视频网 | 久久久久国产成人免费精品免费 | 免费看性xxx高清视频自由 | 亚洲最新黄色网址 | 久久久久久久久成人 | 国产免费久久久久 | 国产亚洲精品美女久久久 | 欧美激情天堂 | 欧美久久久一区二区三区 | 成人nv在线观看 | 日本在线视频二区 | 久久久久久亚洲国产精品 | 中文字幕电影免费播放 |