Perl试题集

daiyijun

用perl实现9*9乘法口诀，以下是本人的perl程序#！/usr/bin/perl
use strict;
use warnings;
my $i;
my $j;
for ($i=1;$i<=9;$i++){
print "$i\n";
for ($j=1;$j<=9;$j++){
my multi=$i*$j;
print $result;
}
}
如有不妥之处，或者更好的代码，欢迎大家共享哈~

daiyijun

回复 1# daiyijun


   合并两个文件夹中的内容至一个文件夹#！/usr/bin/perl
use strict;
use warnings;

open a,"a.txt" or die "cannot open the file $!";
open b,"b.txt" or die "cannot open the file $!";
open c,"c.txt" or die "cannot open the file $!";
my @b_1;
while(<b>){
push @b_1, $_;
}
my @a_1;
my $line;
while ($line=<a>){
$line=~/\n/ /g;
push @a_1,$line;
}
my $len;
$len=@a_1>@b_1?@a_1b_1;
for(my $i=0;$i<$len;$i++){
if (defined $a_1[$i] && defined $b_1[$i]){
$a_1[$i]=$a_1[$i].$b_1[$i];
}
}
print c @a_1;