レス数が1000を超えています。残念ながら全部は表示しません。

くだらない質問はここに書き込め！なんでもアリ7

725 ：名無しさん＠お腹いっぱい。 ：02/04/06 20:51

ksh で　キーボードからの入力を表示させようとすると
#!/bin/ksh
read a
print $a
になると思いますが、

Perlでは
#!/bin/perl
$i = 0;
while(<>){
chomp;
print;
$i++;
if ($i = 1){
last;
}
}
という風にするのでしょうか？
もっとスマートなやり方があれば、お教え願いたいのですが・・・
よろしくお願いします。

read.cgi ver5.26+ (01/10/21-)