답변:
.txt에 붙여 넣으려면이 스 니펫이 트릭을 수행해야합니다.
#!/usr/bin/perl
use warnings;
use strict;
my @questions;
while (<>) { push(@questions,$_) }
print $questions[rand @questions];
이것을 새로운 perl 스크립트에 붙여넣고, 다음과 같은 형식으로 텍스트 파일 이름으로 선택한 perl 인터프리터를 통해이를 실행하십시오.
Does a plane need wings?
Why do planes without wings fly so poorly?
What's the drag coefficient of a streamlined halfbody?
What happens to a Sonex travelling at 0.75C at 1000m altitude?
What happens to the planet earth in above scenario?
... 등.