Perl学习16之读文件，存入哈希，输出到文件

Posted 2021-04-17 pythonic生物人

"pythonic生物人"的第27篇分享。

---

摘要

本文介绍perl如何读取文件，存入哈希，调用哈希，存入文件。

正文开始啦

#! /usr/bin/perluse strict;use warnings;
if(@ARGV!=2){ print "	Usage: perl $0 <infile>
"; die "	Use with correct infile";}##读入文件$ARGV[0]存入哈希
#open IN, "<$ARGV[0]";#open IN, "<","$ARGV[0]";open IN,"$ARGV[0]" or die;#三种方式均可以打开句柄my %para;#定义一个哈希
while(<IN>){chomp;#chomp去掉末尾换行符if(/^#/){next;};#跳过以#开头的行if(/^$/){next;};#跳过空行my ($k,$v)=split (/=/,$_);#使用"="分割每行,每读取完一行后perl默认存储在$_里$para{$k}=$v;#存入hash}close IN;#关闭句柄
my @key=keys %para;#keys函数取出哈希所有的键my @value=values %para;#values函数取出哈希所有的值
##输出内容到$ARGV[1]foreach my $key (@key){ open OUT,">>","$ARGV[1]" or die;#打开输出文件句柄,">>"追加输出 print OUT "$key	$para{$key}
";#输出值 close OUT;#关闭句柄}

perl open.pl test.para open1

• 输入文件test.para为：

###############paramenters##########

first_day=Monday

second_day=Tuesday

子敬=吴国  

• 输出文件open1为：

子敬 吴国

first_day Monday

second_day Tuesday

---

同系列文章

---

点击专辑查看

持续更新，欢迎您"关注"、"在看"、"分享"