perl哈希操作
#文件句柄，标准文件句柄包括stdinstdoutstderrdataargvargvout #文件open TEXTFILE，'，' a.txt '； wile(Textfile ) {print $_； }关闭文本文件； #open TEXTFILE1，'，' b.txt '； #表示要写文件。 如果文件不存在，将创建文件并输入文本以复盖原始内容open TEXTFILE1，'，' b.txt '； #表示要写文件。 如果文件不存在，请创建文件，输入文本以打印原始内容print TEXTFILE1 'hello '； 关闭文本文件1； #die '失败'； 停止执行，表示输出失败#if (！ 无法打开open FILE1、'、' c.txt ' ) {die '文件。 $！' ； (； #将文件a.txt的内容转换为d.txt的open TEXTFILE、'、' a.txt '； open TEXTFILE3，'，' d.txt '； while(textfile ) {print TEXTFILE3 $_； }关闭文本文件； 关闭文本文件3；