perl基础学习-读文件

#简单读写文件,这个技能超级常用,open函数,die函数,$i变量,>为重写文件,>>为追加文件,if elsif else的使用,文件读出跟数组循环其实大同小异
print "先把内容写入到文件中\n";
open (IN, ">./textFile.txt") or die $!;
for (my $i = 1; $i < 10; $i++) {
        if ($i % 3 == 0) {
                print IN "$i\n";
        } else {
                print IN "$i ";
        }
}
close IN;
print "把文件内容读出到终端\n";
open (OUT, "./textFile.txt") or die $!;
foreach my $line (<OUT>) {
        print $line;
}
close OUT;
print "再初步研究一下chomp函数\n";
open (OUT, "./textFile.txt") or die $!;
foreach my $line (<OUT>) {
        chomp($line);
        print $line . " ";
}
close OUT;
print "再初步研究一下split函数(其中\\s表示空格,\\s+表示一个或多个空格)\n";
open (OUT, "./textFile.txt") or die $!;
foreach my $line (<OUT>) {
        chomp($line);
        my @arr = split(/\s+/, $line);
        foreach my $em (@arr) {
                print "$em\n";
        }
}
close OUT;


#最后来个简单的比较运算符,整形变量的比较运算符用的是常规的==、>、<等,字符串用的是lt, gt, eq, le, ge, ne
my $var1 = 1;
my $var2 = 2;
if ($var1 > $var2) {
        print "整形$var1大于$var2\n";
} elsif ($var1 == $var2) {
        print "整形$var1等于$var2\n";
} else {
        print "整形$var1小于$var2\n";
}


my $var1 = "abc";
my $var2 = "acd";
if ($var1 gt $var2) {
        print "字符串$var1大于$var2\n";
} elsif ($var1 eq $var2) {
        print "字符串$var1等于$var2\n";
} else {
        print "字符串$var1小于$var2\n";
}