06/04/20 23:04:01
>563
あっ、はい。
my $i = 0;
while (<STDIN>) {
if (/^./) {
print ++$i;
print ": ";
print;
}
}
ちょっと冗長ですけど。
06/04/20 23:04:01
>563
あっ、はい。
my $i = 0;
while (<STDIN>) {
if (/^./) {
print ++$i;
print ": ";
print;
}
}
ちょっと冗長ですけど。
06/04/20 23:04:01
>563
あっ、はい。
my $i = 0;
while (<STDIN>) {
if (/^./) {
print ++$i;
print ": ";
print;
}
}
ちょっと冗長ですけど。