Help for this page

Select Code to Download


  1. or download this
    $ perl -wle 'print <x>'
Name "main::x" used only once: possible typo at -e line 1.
readline() on unopened filehandle x at -e line 1.
  2. or download this
    $ perl -MO=Deparse -le 'print <x*>'
BEGIN { $/ = "\n"; $\ = "\n"; }
use File::Glob ();
print glob('x*');
-e syntax OK
  3. or download this
    $ perl -MFile::Glob -wle 'print glob "x"'
x