下記のread_stdio_x.plとread_stdio_d.plは同じ動作をします。最初のプログラムでは変数xを使っていますが、これを省略することができます。省略した場合は、「x」の代わりに「$_」という変数が使われます。
$ cat read_stdio_x.pl
#!/usr/bin/perl
while ($x = <STDIN>) {
print $x;
}
$ cat read_stdio_d.pl
#!/usr/bin/perl
while (<STDIN>) {
print;
}
#!/usr/bin/perl
while ($x = <STDIN>) {
print $x;
}
$ cat read_stdio_d.pl
#!/usr/bin/perl
while (<STDIN>) {
print;
}
$ chmod 755 read_stdio_*.pl
$ ./read_stdio_x.pl
abc
abc
^C
$ ./read_stdio_d.pl
def
def
^C
$
プログラムを停止するには、キーボードで[Ctrl]と[C]を同時に押します（画面上の^Cは、その意味です）。