请问下while()里面的<>是什么意思啊

#!perl /usr/bin/perl -w
my @s;
while(<>){
chomp;
unshift @s,$_;
}
foreach(@s){
print "$_\n";
}

my @s;
while(<>){
#<>是从数组@ARGV中得到的参数 如果@ARGV 是空的 就使用标准输入流 即从command 中 #输入的内容
chomp; #去掉结尾的换行符
unshift @s,$_; # 将读入的内容即$_ 放入数组@s中
} # 会一直循环 直至 手动终止程序
foreach(@s){
print "$_\n"; #会把数组@s中的内容 逐一读取出来 并换行
}
可以看一下 “Perl 语言入门” 网上有PDF

while(*n) {t=*n % 10 ; if(t%2!= 0) {x=x+t*i; i=i*10;} *n =*n /10; } 输出n所指向的数中，从低位到高位，数中的每位数，如果该数为奇数就提出来，构成更外一个数 比如123456,其中5、3、1为奇数，所以x=135