#!/usr/bin/perl -w
my @in;
while(chomp($_ = )) {
push @in, $_;
last if $. >= 2;
}
print $in[0] x $in[1], "\n";
my @in;
while(chomp($_ = )) {
push @in, $_;
last if $. >= 2;
}
print $in[0] x $in[1], "\n";
文章標籤
全站熱搜
留言列表
留言列表發表留言
奇科技術文件 (2)
